سوال: نمایش pdf ذخیره شده در دیتابیس در gtPDFViewer1 [بایگانی]

sam3610

پنج شنبه 12 مهر 1397, 23:29 عصر

با سلام خدمت اساتید گرامی:
من یک فایل pdf رو که در ابزار gtPDFViewer1 کامپوننت pdftoolkit نمایش داده شده بود با کد :

procedure TForm1.Button2Click(Sender: TObject); var
blob: TBlobField;
TempStrm: TStream;
begin
ADOTable1.Open;
ADOTable1.Last;
ADOTable1.Insert;
blob := TBlobField(ADOTable1.FieldByName('P')); // ensure it ís a blob
TempStrm := ADOTable1.CreateBlobStream(blob, bmWrite);
try
gtPDFDocument1.SaveToStream(TempStrm);
finally
TempStrm.Free;
ADOTable1.Post;
ADOTable1.Close;

ShowMessage('ok');
gtPDFDocument1:=nil;
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select * from table1');
ADOQuery1.Open;
end;
end;
در دیتا بیس ذخیره کردم
حالا چجور می تونم مجددا این فایل رو نمایش بدم؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟
ممنون میشم اگه راهنمایی بفرمایید.