2,507
社区成员




var
bh,filename:string;
fimage:TMemoryStream;
begin
//打开图片对话框
if openpicturedialog1.Execute =false then exit;
filename:=openpicturedialog1.FileName;
//将图片转换大小并存入stream
fimage:=TMemoryStream.Create;
.......
.......
.SaveToStreamJpeg(fimage);
//将内存中的图片放入数据库中
sqlquery_zp.SQL.Text:='insert into db_zp(bm,zp) values(:a,:b)';
bh:='ZP'+formatdatetime('YYYYMMDDHHMMSSZZZ',NOW);
sqlquery_zp.Params.ParamByName('a').Text:=bh;
sqlquery_zp.Params.ParamByName('b').LoadFromstream(fimage,ftBlob);
try
sqlquery_zp.ExecSQL;
except
application.MessageBox(' 错误: 照片数据库添加资料失败 ','信息',MB_OK);
exit;
end;