GdPicture Imaging Forums

Code: Select all

procedure TForm1.Button1Click(Sender: TObject);
var
  LicenseManager: TLicenseManager;
  opdf :TGdPicturePDF; //Class of TOleServer
begin

ReportMemoryLeaksOnShutdown:=true;

// turn off Floating point exceptions
Set8087CW($133f);

LicenseManager := TLicenseManager.Create(nil);
LicenseManager.RegisterKey('YOUR KEY HERE');

opdf:= TGdPicturePDF.Create(nil);
opdf.LoadFromFile('ANY PDF YOU WANT HERE',true);

opdf.OcrPages_3('*',0,'por','C:\GdPicture.NET 14\Redist\OCR\','',200,1,true);
opdf.SaveToFile('C:\TestPDF\resultPDF.pdf');
opdf.CloseDocument;
opdf.Dispose;

//releasing the PDF
FreeAndNil(opdf);

//releasing the Lincense
FreeAndNil(LicenseManager);

end;