delphi建立一个成员管理界面怎么样实现照片上传功能

2025-05-14 09:13:56

推荐回答（1个）

回答1：

把照片上传到哪此,是上传到数据库吗?
上传到数据库可以用流的方式

var Picms:TMemoryStream;

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;