Question

delphi如何把数据库的图片(二进制文件)导到本地文件夹

if opendialog1.Execute then
begin
ADOQuery1.Close;
ADOQuery1.SQL.Text:='insert into text(pic,id) values(:pic,:ccc) ';
ADOQuery1.Parameters.ParamByName('ccc').Value:=trim(Edit1.Text);
ADOQuery1.Parameters.ParamByName('pic').LoadFromFile(opendialog1.FileName,ftBlob);
ADOQuery1.ExecSQL;
我用opendilg将图片存储到sql中。现在想直接从sql中把二进制流以jpg形式直接下载到本地，最后有选存路径的。求详细，新手菜鸟求教

Answer 1

if opendialog1.Execute then
begin
ADOQuery1.Close;
ADOQuery1.SQL.Text:='select pic from text where ccc = ''' + trim(Edit1.Text) +'''';
ADOQuery1.open;
(ADOQuery1.Fields[0] as TBlobField).SaveToFile('d:\\photo\\aaa,jpg');