Funktionen einbinden ?

[Bastler]

Danke, es klappt...

Eine Frage noch, zum selben Thema:

function JPEGtoBMP(const FileName: TFileName):Tbitmap; Comnpiler:

Zitat:

[Fehler] Unit1.pas(33): Ungenügende Forward- oder External-Deklaration: 'TForm1.JPEGtoBMP'

die Funktion selber sieht so aus:

Delphi-Quellcode:

function JPEGtoBMP(const FileName: TFileName):Tbitmap;
var
jpeg: TJPEGImage;
bmp: TBitmap;
begin
jpeg := TJPEGImage.Create;
try
jpeg.CompressionQuality := 100; {Default Value}
jpeg.LoadFromFile(FileName);
bmp := TBitmap.Create;
try
bmp.Assign(jpeg);
result:=bmp;
bmp.SaveToFile(ExtractFilePath(ParamStr(0))+'\temp.bmp');
finally
bmp.Free
end;
finally
jpeg.Free
end;
end;