この記事の例では、Delphi で画像を保存および読み込む方法を説明します。これは非常に実用的なテクニックです。皆さんの参考に共有してください。具体的な実装方法は以下の通りです。
最初の引用 JPEG
1. 画像を表示します。
if OpenPictureDialog.Execute thenbegin img1.Picture.LoadFromFile(OpenPictureDialog.FileName); btnPicture.Text:=OpenPictureDialog.FileName;end;
2. 画像を保存します。
varStream:TMemoryStream;Stream := TMemoryStream.Create; // メモリ ストリームを作成します // 画像をメモリ ストリームに保存します img1.Picture.Graphic.SaveToStream(Stream);ParamByName('picture').LoadFromStream(Stream,ftBlob) ; ParamByName('IsSavePicture').Value:='1';Stream.Free;3. 画像を読んでください:
varStream:TMemoryStream;Jpg:TjpegImage;if fieldbyname('IsSavePicture').Value='1' thenbegin Stream:=TMemoryStream.Create Jpg:=TjpegImage.Create; TBlobField(FieldByName('picture')).SaveToStream(Stream) ; //表示されたコンテンツは BlobField に変換され、メモリ ストリームに保存されます。 Stream.Position :=0; jpg.LoadFromStream(Stream) // 画像を読み込みます。Jpg.Free;endelsebegin; img1.Picture: =nil;この記事で説明されている内容は、皆さんの Delphi プログラミングにとって一定の参考になると思います。