从数据库读取这个blob io流读写

数据流存入取出

为什么要把文件存到数据库里。

？

procedure Tmainform.Button1Click(Sender: TObject);
begin
if ((dm.DcmtkADOQReport.Active=false) or(dm.DcmtkADOQReport.RecordCount=0) ) then exit;
dm.adoquery1.Close;
dm.adoquery1.sql.text:='select * from RptBin where Report_ID_parent='+dm.DcmtkADOQReport.fieldbyname('Report_ID').AsString;
dm.adoquery1.open;
if dm.ADOQuery1.RecordCount<>0 then
begin
TBlobfield(dm.adoquery1.fieldbyname('Data')).SaveToFile('d:\Ris\'+dm.DcmtkAdoQreport.fieldbyname('Report_ID').AsString+'.pdf');
shellExecute(handle,'open',pansichar('d:\Ris\'+dm.DcmtkAdoQreport.fieldbyname('Report_ID').AsString+'.pdf'),nil,nil,SW_SHOW);
end;
end;
procedure Tmainform.Button2Click(Sender: TObject);
begin
dm.DcmtkADOQReport.close;
dm.DcmtkADOQReport.sql.text:='Insert into RptBin (DataType ,Data,Report_ID_parent) values ('+format('''%s''',['pdf'])+','+':PdfData'+','+'20170809002'+')';
dm.dcmtkAdoQReport.Parameters.ParamByName('PdfData').LoadFromfile('d:\ab.pdf',ftVarBytes);// 读取
dm.DcmtkADOQReport.ExecSQL;
end;

取应用程序所在路径，继续拼接路径字符串（一般应用程序所在目录下建一个文件夹存放你的pdf文件）