画像流れガイドデータベースを保存する方法

手順SavePictureToSQL（）。
VaRの
msmem：TmemoryStream。
JPG：TJpegImage。
します。FName：文字列。
SqlStr：文字列。
開始
//保存
してみてください
msmemを：= TmemoryStream.Create。
JPG：= TjpegImage.Create。
//jpg.Assign(form2.Image1.Picture.Graphic）;
jpg.Assign（MyChart1.Chart）。
jpg.SaveToStream（msmem）。// 1
msmem.Position：= 0;
SqlStr：= + QuotedStr（PrjInFo） 'プロジェクト名= Result_PIC SELECT * FROM';
UnitFunction.ADOQRun（ADOQuery1、SqlStr）。
ADOQuery1.EofがFalse =ならば、
開始
ADOQuery1.Editを。
TBlobField（ADOQuery1.FieldByName（ます。FName））LoadFromStream（msmem）。
ADOQuery1.Post;
終わり
他に
始まる
ADOQuery1.Insertを。
ADOQuery1.FieldByName（ 'プロジェクト名'）値：= PrjInFo;。
TBlobField（ADOQuery1.FieldByName（ます。FName））LoadFromStream（msmem）。
ADOQuery1.Post;
終わり;
Msmem.Free;
jpg.Free;
最後を除きます。
終わり;