この記事の例では、Delphi で BMP 形式のグラフィックを JPG 形式のグラフィックに変換する方法を説明します。皆さんの参考に共有してください。具体的な実装方法は以下の通りです。
次のようにコードをコピーします。
プロシージャ ConvertBMPtoJPG(SFileName,DFileName:string);
ヴァール
J:TJpegImage;
I:TBitmap;
S、D:文字列;
始める
s:=Sファイル名;
d:=Dファイル名;
J:=TJpegImage.Create;
I:=TBitmap.Create;
I.LoadFromFile(s);
J.Assign(I);
I.無料。
d:=changefileext(d,'.jpg');
J.SaveToFile(d);
アプリケーション.プロセスメッセージ;
J.フリー。
終わり;
この記事が皆さんの Delphi プログラミングに役立つことを願っています。