Delphi TJPEGimage - Delphi-PRAXiS

Thema durchsuchen

Ansicht

Themen-Optionen

TJPEGimage

Ein Thema von Detrox · begonnen am 26. Okt 2009 · letzter Beitrag vom 27. Okt 2009

Vorheriger Beitrag

Nächster Beitrag

Tyrael Y.

Registriert seit: 28. Jul 2003
Ort: Stuttgart
1.093 Beiträge

Delphi 2007 Professional

#33

Re: TJPEGimage

27. Okt 2009, 10:31

Probier mal turboPASCAL´s Code in der Art zu ändern...

markieren

Delphi-Quellcode:

			else

        if (AnsiLowerCase(FExt) = '.jpg') or( AnsiLowerCase(FExt) = '.jpeg') then

        begin

          Image.Picture.Graphic := TJpegImage.Create; 

          Image.Picture.Graphic.LoadFromStream(ImgStream);

          Result := True;

        end else

...das Ganze natürlich für alle Typen.