이미지 유로 가이드 데이터베이스를 저장하는 방법

절차 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 : = '선택 * Result_PIC 어디에서 프로젝트 이름 ='+ QuotedStr (PrjInFo);
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;
끝을 제외시켰다;
종료;