Manera de salvar a la base de datos de guía de flujo de imagen

procedimiento SavePictureToSQL ();
var
msmem: TMemoryStream;
jpg: TJpegImage;
FName: string;
Sqlstr: string;
comienzan
//保存
tratar
msmem: = TMemoryStream.Create;
Jpg: = TjpegImage.Create;
//jpg.Assign(form2.Image1.Picture.Graphic);
jpg.Assign (MyChart1.Chart);
jpg.SaveToStream (msmem); // 1
msmem.Position: = 0;
Sqlstr: = 'Seleccionar * De Result_PIC donde ProjectName =' + QuotedStr (PrjInFo);
UnitFunction.ADOQRun (ADOQuery1, sqlstr);
Si ADOQuery1.Eof = false entonces
comenzar
ADOQuery1.Edit;
TBlobField (ADOQuery1.FieldByName (FName)) LoadFromStream (msmem).;
ADOQuery1.Post;
final
lo demás
comenzará
ADOQuery1.Insert;
ADOQuery1.FieldByName ( 'ProjectName') Valor:. = PrjInFo;
TBlobField (ADOQuery1.FieldByName (FName)) LoadFromStream (msmem).;
ADOQuery1.Post;
final;
Msmem.Free;
jpg.Free;
excepto extremo;
final;