Thema: Delphi TJPEGimage

Einzelnen Beitrag anzeigen

Tyrael Y.

Registriert seit: 28. Jul 2003
Ort: Stuttgart
1.093 Beiträge
 
Delphi 2007 Professional
 
#29

Re: TJPEGimage

  Alt 27. Okt 2009, 09:51
Zitat von Detrox:
Tyrael Y.


Nach deinem Code, soll Delphi reagieren wenn die Dateiendung Beispielsweise ".gif" ist.

Aber wie reagieren, so bringe ich Delphi immer noch nicht dazu Gifs zu akzeptieren und anzuzeigen
oder muss ich da wieder alles komplett neu schreiben wie zB:

Zitat von turboPASCAL:

Delphi-Quellcode:
uses ..., IdHTTP, PngImage, Jpeg, GifImage;
// ...
          Image.Picture.Assign(TBitmap(ImgStream));
// ...
          Image.Picture.Assign(TJpegImage(ImgStream));
// ...
          Image.Picture.Assign(TPNGObject(ImgStream));
// ...
          Image.Picture.Assign(TGifImage(ImgStream));
Bei diesen Teilen des SourceCodes wird der Stream nach einer Prüfung, so behandelt wie der entsprechende Typ.
Genau das musst du dann machen.

Edit:
Der SourceCode von turboPascal ist doch ok, probier es doch mal.
Levent Yildirim
Erzeugung von Icons aus Bildern:IconLev
  Mit Zitat antworten Zitat