Hallo miteinander,
um die Massen noch ein wenig zu verwirren
sagt euch mal gedanklich von dem
GDI-Kram los. Also keine TJpegImage, TBitmap usw.
Macht es einfach per
GDI+. Mir ist gestern aufgefallen, daß Windows (Vista) kein Problem damit hat, wenn eine GIF-Datei eine PNG-Endung hat.
Also ist folgender Code rausgekommen:
Delphi-Quellcode:
procedure TForm7.Button1Click(Sender: TObject);
var
Graphics : IGPGraphics;
Bitmap : IGPBitmap;
FileStream : TFileStream;
StreamAdap : TStreamAdapter;
begin
FileStream:=TFileStream.Create('C:\Users\MaWarm\Desktop\tools.irgendeindateiformat', fmOpenRead);
StreamAdap:=TStreamAdapter.Create(FileStream, soOwned);
Graphics:=TGPGraphics.Create(Self.Canvas);
Bitmap:=TGPBitmap.Create(StreamAdap);
Graphics.DrawImage(Bitmap,MakePoint(0,0));
end;
Alles was ihr sonst noch so braucht, ist
IGDIPlus.
Statt Filestream kann hier natürlich auch jeder andere Stream genutzt werden.
Viel Spaß
Marco