Procedure Tao_ewordpdf.showdoc;
Var
Adapter:istream;//tstreamadapter;
Dataloader:tmemorystream;
Begin
If not cdsgetdocdoc_data. IsNull then//Judgment data field is not empty
Begin
Dataloader: = Tmemorystream.create ();
Dataloader.clear;
Cdsgetdocdoc_data. Savetostream (Dataloader);//Send data to Dataloader
Dataloader.position: = 0;
If lowercase (Trim (cdsgetdocdoc_file_ext). Value) = '. pdf ' Then
Begin
Try
Adapter: = Tstreamadapter.create (Dataloader);
Foxitreadersdk1.closefile;
Setdoctool (FALSE);
Dxbarmanager1bar1.visible: = False;
Foxitreadersdk1.visible: = True;
Foxitreadersdk1.showtitlebar (False);
Foxitreadersdk1.showbookmark (False);
Foxitreadersdk1.showstatusbar (False);
Foxitreadersdk1.unlockactivex (' license_id ', ' unlock_code ');
Foxitreadersdk1.openstream (Adapter, ");//
Finally
Freeandnil (Dataloader);
End
End
End
Display the database BLOB field with FoxitReaderSDK1 PDF