Question

delphi，怎么将图片插入到数据库？

Answer 1

var Picms:TMemoryStream;
begin
Picms:=TMemoryStream.Create ;
Img_Pic.Picture.Graphic.SaveToStream(Picms);
SaveSql:='Insert into lvshi(编号,姓名,照片) values('
+''''+Trim(LEdit_bh.Text)+''''+',' //编号
+''''+Trim(LEdit_xm.Text)+''''+',' //姓名
+':photo'+')'; //照片
ADOQ_List.Close;
ADOQ_List.SQL.Clear;
ADOQ_List.SQL.Add(SaveSql);
ADOQ_List.Parameters.ParamByName('photo').LoadFromStream(Picms,ftBlob);
ADOQ_List.ExecSQL;
Picms.Free;
end;