Question

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

Answer 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;

追问

先谢下~我做的这个界面没有数据库功能，只需要有一个上传的操作就行！怎么弄

Answer 2

indy 可以实现上传到ftp或者空间