hola: estoy tratando de leer un fichero pdf para poder analizarlo, esta es una parte del codigo que estoy utilizando
Código Delphi
[-] gesamtstring := '';
stichwortcounter := 0;
Size := 0;
try
acrobat := CreateOleObject('AcroExch.pdDoc');
Result := acrobat.Open(cxListBox1.Items[k]);
if Result = False then
begin
messagedlg('Error en fichero', mtWarning, [mbOK], 0);
Exit;
end;
for j := 0 to acrobat.GetNumPages - 1 do
begin
PDPage := acrobat.acquirePage(j);
PDHili := CreateOleObject('AcroExch.HiliteList');
Result := PDHili.Add(0, 4096);
PDTextS := PDPage.CreatePageHilite(PDHili);
ntl := PDTextS.GetNumText;
for i := 0 to ntl - 1 do
begin
zeilen := PDTextS.GetText(i);
doc := zeilen;
gesamtstring := gesamtstring + doc;
Size := Size + SizeOf(zeilen);
Inc(stichwortcounter);
Application.ProcessMessages;
end;
Memo2.Lines.Add(gesamtstring);
pdhili := Unassigned;
pdtextS := Unassigned;
pdpage := Unassigned;
end; except
on e: Exception do
begin
messagedlg('Error: ' + e.Message, mtError, [mbOK], 0);
Exit;
end;
end;
if Size > 1024 then
begin
zwreal := Size / 1024;
str(zwreal: 2: 1,zeilen);
end;
en la maquina donde lo corro en delphi funciona perfecto, el problema es a la hora de correrlo en otra maquina, me da un error: cadena de clase no valida, he probado hacerle un instalador con el installshield, pero no se tengo que incluir, el install shield detecta las dependencias, pero ni corriendo el instalador funciona.
espero haberme hecho entender, por favor si alguien me puede dar una mano.