We just bought your product PDF2TXT COM with Developer License. But we can not install the COM into our Delphi 6 environment, which file should I imported it as COM in Delphi 6?
pdf2txt.dll ? pdf2txtD6.pas?
Please advise, thanks
==========================
Hi,
pdf2txt.dll is a Win32 DLL Library, you needn't import it into Delphi, you can call pdf2txt.dll from your Delphi code directly, please refer to following example source code,
Function pdf2txt(Source: PChar; Destination : PChar) : longint; stdcall; external 'pdf2txt.dll' name 'PDF2TXT';
Function PDF2TXTEx(lpInputPDF: PChar; lpOutTXT: PChar; nFirstPage: Integer; nLastPage: Integer; ownerPWD: PChar; userPWD; PChar): longint; stdcall; external 'pdf2txt.dll' name 'PDF2TXTEx';
procedure PDF2TXTSetLicenseCode(lpRegCode: PChar); stdcall; external 'pdf2txt.dll' name 'PDF2TXTSetLicenseCode';
procedure SetAutoSupportUnicode(bUnicode: boolean) ; stdcall; external 'pdf2txt.dll' name 'SetAutoSupportUnicode';
procedure SetPageSeparator(pszPageSymbol: PChar); stdcall; external 'pdf2txt.dll' name 'SetAutoSupportUnicode';
procedure SetZoomRatio(iZoomRatio: Integer); stdcall; external 'pdf2txt.dll' name 'SetZoomRatio';
procedure SetAutoAddSpace(bAutoAddSpace1: boolean); stdcall; external 'pdf2txt.dll' name 'SetAutoAddSpace';
function SetTXTFormat(bFormatTXTFile: boolean): Integer; stdcall;external 'pdf2txt.dll' name 'SetTXTFormat';
procedure SetOpenResultFile(IsOpen: boolean); stdcall;external 'pdf2txt.dll' name 'SetOpenResultFile';
procedure SetDeleteBlankLine(IsDelete: boolean); stdcall;external 'pdf2txt.dll' name 'SetDeleteBlankLine';
procedure PDF2TextSetTempPath(nBufferLength: Integer; lpBuffer: PChar); stdcall; external 'pdf2txt.dll' name 'PDF2TextSetTempPath';
procedure TForm1.Button1Click(Sender: TObject);
var
TxtFile : String;
szTempPath: PChar;
begin
// if ok
if open.Execute then
begin
//add later
SetAutoSupportUnicode(FALSE);
// Application exe path and add filename for txt
TxtFile:=ExtractFileDir(ParamStr(0))+'\Temp.Txt';
// Txt file exist ?
If FileExists(TxtFile) then
// ok delete it
DeleteFile(TxtFile);
// convert the file
SetAutoSupportUnicode(false);
//SetPageSeparator("<<<<<<<<<********>>>>>>>>>>>>>");
SetPageSeparator('\f');
SetZoomRatio(100);
SetAutoAddSpace(false);
SetTXTFormat(true);
SetOpenResultFile(true);
SetDeleteBlankLine(true);
szTempPath := 'C:\';
PDF2TextSetTempPath(MAX_PATH, szTempPath);
Pdf2Txt(PChar(open.Filename),PChar(TxtFile));
// open notepad with textfile
ShellExecute(0,'open',PChar(TxtFile),0,0,SW_SHOW);
end;
end;
end.
PDF2TXT SDK package contains a "pdf2txt_delphi6" project, you can also compile and run "pdf2txt_delphi6" project easily.
Related Posts
Related posts:
disable OCR function in pdftotxtocr.exe
Question on PDF2TXT and Unicode characters
Upload PDF and Convert PDF to text online from PHP
Question about PDF to TXT.V3.2，how to extract text from PDF of a whole directory?
Convert PDF to Searchable and Editable Formats
How to convert from PDF to text in memory completely?
How to get the key value pairs from scanned PDF file?
PDF to Text OCR Converter SDK for .NET, C# OCR SDK, OCR API, OCR Library for .NET Developers Royalty...