Hallo Coders !
Ich hab folgendes Problem.
Benuzte diese Funktion zum Conventieren von BMP's funtz auch.
Delphi-Quellcode:
function BMPtoJPG
(var BMPpic, JPGpic: string):boolean;
var Bitmap: TBitmap;
JpegImg: TJpegImage;
begin
Result:=False;
Bitmap := TBitmap.Create;
try
Bitmap.LoadFromFile(BMPpic) ;
JpegImg := TJpegImage.Create;
try
JpegImg.Assign(Bitmap) ;
JpegImg.SaveToFile(JPGpic) ;
Result:=True;
finally
JpegImg.Free
end;
finally
Bitmap.Free
end;
end;
aber wenn ich die Funktion hiermit anspreche...
BMPtoJPG('mybitmap.bmp','myjpeg.jpg');
dann spuckt der mir diese Fehlermeldung aus...
Delphi-Quellcode:
[Hinweis] Unit1.pas(30): Auf 'BMPtoJPG' zugewiesener Wert wird niemals benutzt
[Fehler] Unit1.pas(49): Konstantenobjekt kann nicht als Var-Parameter weitergegeben werden
..benutze D7.1 Enterprise
Hat irgendjemand ne idee woran die Ausführung scheitert.[?]
..oder noch besser kennt einer ne bessere Methode.[?]
lg [rhs]