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');
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024