TJPEGimage

[Detrox]

Hallo,

Ich habe einen tollen Code gefunden.

Delphi-Quellcode:

var
  myClient: TidHTTP;
  myMemoryStream: TMemoryStream;
  myJPEG: TJPEGimage;
begin
  myClient := TidHTTP.Create(Self);
  myMemoryStream := TMemoryStream.Create;
  myJPEG := TJPEGImage.Create;

  try
    myClient.Get('http://meinbild.de/bild.jpg', myMemoryStream);
    myMemoryStream.Position := 0;
    myJPEG.LoadFromStream(myMemoryStream);
  finally
    myJPEG.Free;
    myMemoryStream.Free;
    myClient.Free;
  end;
end;

Dazu eine Frage:

Das Bild kann jpg/gif oder png sein

wenn das Bild kein jpg ist hängt sich das Programm auf, wie kann ich dies erweitern?

freue mich über Hilfe

LG
Detrox