Das Beispiel dieses Artikels beschreibt die Methode zum Konvertieren von Grafiken im BMP-Format in Grafiken im JPG-Format in Delphi. Teilen Sie es als Referenz mit allen. Die spezifische Implementierungsmethode ist wie folgt:
Kopieren Sie den Codecode wie folgt:
procedure ConvertBMPtoJPG(SFileName,DFileName:string);
Var
J:TJpegImage;
I:TBitmap;
S,D:String;
beginnen
s:=SFileName;
d:=DFileName;
J:=TJpegImage.Create;
I:=TBitmap.Create;
I.LoadFromFile(s);
J.Assign(I);
I.Frei;
d:=changefileext(d,'.jpg');
J.SaveToFile(d);
Application.processmessages;
J.Free;
Ende;
Ich hoffe, dass dieser Artikel für alle bei der Delphi-Programmierung hilfreich sein wird.