Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Grupo de Teaming del ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 08-05-2013
ritamarkarla ritamarkarla is offline
Miembro
 
Registrado: sep 2010
Posts: 19
Poder: 0
ritamarkarla Va por buen camino
error: cadena clase no valida

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
        //Object erstellen
        acrobat := CreateOleObject('AcroExch.pdDoc');
        //PDF Datei in Object öffnen
        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
          //Erste Seite des Dokuments aktiv setzen  (first page)
          PDPage := acrobat.acquirePage(j);
          //Ein Highlight Object mit 2000 Elementen erzeugen
          PDHili := CreateOleObject('AcroExch.HiliteList');
          Result := PDHili.Add(0, 4096);
          //Erzeuge eine Markierung über den ganzen Text
          PDTextS := PDPage.CreatePageHilite(PDHili);
      //    doc := PDPage.GetDoc;
          ntl := PDTextS.GetNumText;
          for i := 0 to ntl - 1 do
          begin
            zeilen := PDTextS.GetText(i);
            doc := zeilen;
           // if (Length(zeilen) > 0) and (zeilen <> '') then
             // memo1.Lines.Add(removecrlf(zeilen));
             gesamtstring := gesamtstring + doc;
           // gesamtstring := gesamtstring + removecrlf(zeilen);
            //nur für statistik
            Size := Size + SizeOf(zeilen);
            Inc(stichwortcounter);
            Application.ProcessMessages;
          end;
        Memo2.Lines.Add(gesamtstring);
          //Wieder freigeben
          pdhili         := Unassigned;
          pdtextS        := Unassigned;
          pdpage         := Unassigned;
        end; //for i to pagecount
      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.
Responder Con Cita
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Error al intentar acceder a datos desde una Clase chico_bds OOP 5 18-01-2007 18:59:32
Error al crear una instancia de clase jplj OOP 2 15-02-2005 11:52:07
error clase no registrada samame Varios 2 21-04-2004 17:49:49
Error --->1005/20/03 no es fecha válida TIKIMORE SQL 3 20-06-2003 17:09:33
Me da error en la clase pprinterinfo2 fanon Impresión 7 28-05-2003 19:04:59


La franja horaria es GMT +2. Ahora son las 21:47:35.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi