نمایش فایل pdf ذخیره شده در دیتابیس

[sam3610]

دوست عزیز من کد رو به این نحو نوشتم :

procedure TForm1.Button3Click(Sender: TObject);var

  gtPDFDocument1: TgtPDFDocument;

  MemoryStream1: TMemoryStream;

begin

     MemoryStream1 := TMemoryStream.Create;

     MemoryStream1.LoadFromFile(ADOQuery1.FieldValues['p']);

     gtPDFDocument1 := TgtPDFDocument.Create(Nil);

     try

          gtPDFDocument1.LoadFromStream(MemoryStream1);

     finally





            ShowMessage('ok');

            if gtPDFDocument1.IsLoaded then

            begin

                 gtPDFViewer1.Active := True;

            end;

            MemoryStream1.Free;

     end;

end;

این ارور رو میده :
Untitled.png