İnternetten JPG Resmi Image1'de Göstermek

[erdogan_ozkaya]

Arkadaşlar,

JPG uzantılı resmi internetten nasıl gösterebilirim? GIF uzantılı resmi aşağıdaki kod ile gösterebiliyorum.

Kod;

Kod: Tümünü seç

 
var
  MS : TMemoryStream;
  Gif: TGIFImage;
begin
if Data.FieldByName('resim_yol').AsString=''
then else
begin
  MS := TMemoryStream.Create;
  try
    Gif := TGIFImage.Create;
    try
      try
        IdHTTP1.Get('http://www.xxxx.com/resimler/'+Data.FieldByName('resim_yol').AsString, MS);
      except
        on e: EIdHTTPProtocolException do begin
            exit;
          end else begin
            raise;
          end;
        end;
      MS.Position := 0; 
      Gif.LoadFromStream(MS);
      Image1.Picture.Assign(Gif);
    finally 
      Gif.Free; 
    end; 
  finally
    MS.Free; 
  end;
  end;
  end;

[mkysoft]

arama yaparsanız bu konu daha önce konuşuldu forumda, orada daha detaylı bilgi vardır. kısaca uses kısmına jpeg unitini ekleyin. gerisi yaptığınız gibi.

[erdogan_ozkaya]

Hocam çok araştırdım ama bir sonuca ulaşamadım, daha öncede forumda aynı soruyu sordum cevap bulamadım

Teşekkürler.

[Battosai]

Mademki Gif uzantılı resimleri gösterebiliyorsunuz aynı kod ile jpeg leride gösterebileceğiniz aklınıza gelmeliydi

Kod: Tümünü seç

var
  MS : TMemoryStream;
  jpegResim : TJpegImage;
begin
if Data.FieldByName('resim_yol').AsString=''
then else
begin
  MS := TMemoryStream.Create;
  try
    jpegResim := TJpegImage.Create;
    try
      try
        IdHTTP1.Get('http://www.xxxx.com/resimler/'+Data.FieldByName('resim_yol').AsString, MS);
      except
        on e: EIdHTTPProtocolException do begin
            exit;
          end else begin
            raise;
          end;
        end;
      MS.Position := 0;
      jpegResim.LoadFromStream(MS);
      Image1.Picture.Assign(jpegResim);
    finally
      jpegResim.Free;
    end;
  finally
    MS.Free;
  end;
  end;
  end;

[erdogan_ozkaya]

teşekkürler cevabın için ben çözümü farklı arıyormuşum