Jpeg Stream Error #53 [Delphi XE2]

[G.Arkas]

Merhaba arkadaşlar Hayırlı Ramazanlar...

Web deki bir resim dosyasını TImage nesnesi içerisinde gösterirken aldığım bir hata söz konusu. Ancak ilginç olan bu hatayı sadece Delphi' nin XE2 sürümünde alıyor olmam. Delphi 7 veya 2007 de böyle bir sıkıntı yok. Bu sorun için kompile derleyiciyi değiştirmek istemiyorum çünkü UniCode dönüşümleri falan var sıfırdan uğraşamam walla

Kod şu şekilde.

Kod: Tümünü seç

var
ImageStream: TMemoryStream;
URI: TidURI;
ImagePath: String;
JPI: TJPEGImage;
HTTP: TIdHTTP;
begin
ImageStream := TMemoryStream.Create;
HTTP := TIdHTTP.Create(Self);
try
HTTP.Get(AImageURL, ImageStream);
ImageStream.Position := 0;
JPI := TJPEGImage.Create;
try
JPI.LoadFromStream(ImageStream);
finally
Image1.Picture.Assign(JPI);
JPI.Free;
end;
finally
ImageStream.Free;
HTTP.Free;
end;

Kod aslında bir çoğumuzun kullandığı bir kod. Ancak XE2 de kabul görmüyor. Sebebi ne olabilir sizce? Bu soruna farklı alternatifler üretebilirmiyiz mesela;

* Stream anında convert işlemi,
* Harici bir başka XE2 uyumlu komponent,

Bir çare var ama program tasarımımı mahvedeceği için denemiyorum ( Resmi TWebBrowser da göstermek)...

Kolay gelsin iyi çalışmalar...

[unicorn64]

buraya göre dosya bozuksa yada webden tam indirilmediyse bu hata alınabilir denmiş... dosyayı lokale kaydetmeyi deneyin önce isterseniz... eğer kaydedebilirse lokalden gösterim yaparsınız...

[G.Arkas]

Hocam merhaba;

Aslında eğer sorun buysa Delphi'nin diğer sürümlerininde bu hatayı vermesi gerekmiyormu? Sonuçta Http yi Free. yapıp Stream i kapatıyoruz. İnmeyen bir dosyada Stream' i kapattığımızda farklı bir hata alırız diye düşünüyorum. Acaba dosya bouyutu yada sıkıştırmayla ilgili bir sorun olabilir mi diye düşünüyorum ama..

[ender_arslanturk]

Selâmlar,

Her ne kadar geç görmüş olsam da, başka arkadaşlarında faydalanması adına cevap yazmam gerektiğini düşündüm.

Kod: Tümünü seç

Image1.Picture.LoadFromFile('Visera.jpg');

yerine

Kod: Tümünü seç

Image1.Picture.Bitmap.LoadFromFile('Visera.jpg');

şeklinde deneyiniz.