Új hozzászólás Aktív témák

• #3309 Deer_ csendes tag amargo #3308

  Új Válasz 2008-03-29 20:41:49 #3309

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Deer_

  csendes tag

  válasz amargo #3308 üzenetére

  Köszi szépen amargo

  A gsPDFfel nem boldogultam, a PDFSharp az alap ActiveX controlt használja, ami szinte csak megjeleníteni és nyomtatni tud. (így ez a solution is).
  A konzolossal az a gond, hogy ugyanúgy az alapja az App:=CreateOleObject('AcroExch.App'); sor, ami nekem hibát dob. Azért kipróbáltam ezt a kis progit is, de ezen a soron megakadt a szokásos hibával.
  Egyszerűen nem fogom fel, hogy miért nem sikerül ez nekem, pedig nagyon kell a megoldás

  Nagyon köszönöm az eddigi segítséget!

• #3307 Deer_ csendes tag

  Új Válasz 2008-03-29 14:17:47 #3307

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Deer_

  csendes tag

  Ennek ugyanúgy működnie kéne, mint pl annak, hogy CreateOleObject('Word.Application'), vagy Excel.Application, stb....

• #3306 Deer_ csendes tag amargo #3305

  Új Válasz 2008-03-29 13:46:48 #3306

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Deer_

  csendes tag

  válasz amargo #3305 üzenetére

  Elég sokat keresgéltem, de nem találtam ilyen INGYENES komponenst.
  Viszont letöltöttem egy Adobe Reader SDK-t a az Adobe oldalról. Ez azt írja, hogy járható a dolog, amit én gondoltam - igaz, hogy Visual Basicet vagy C#-ot ajánl.
  Van ebben a leírásban 1 Visual Basic kódrészlet:

  Private Sub myGoto(ByVal where As Integer)
  Dim app as Object, avdoc as Object, pageview as Object
  Set app = CreateObject("AcroExch.App")
  Set avdoc = app.GetActiveDoc
  Set pageview = avdoc.GetAVPageView
  pageview.Goto(where)
  End Sub

  Elvileg ez a megoldás a problémámra.
  Nem nagyon értek basicül, de ha jól gondolom ,ez Delphiben így nézne ki:

  procedure TForm1.FormCreate(Sender: TObject);
  var
  app : variant;
  begin
  app := CreateOleObject('AcroExch.App');
  / stb...stb..
  end;

  Nekem erre kiírja, hogy 'Érvénytelen osztályú karakterlánc'. Az érdekelne, hogy miért.
  Tudsz nekem ebben segíteni?

• #3304 Deer_ csendes tag amargo #3303

  Új Válasz 2008-03-28 11:26:18 #3304

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Deer_

  csendes tag

  válasz amargo #3303 üzenetére

  Teljesen ingyenes Adobe Reader 8.0-m van.
  Elsősorban kulcsszavakra keresnék rá a pdf-ben az AcroRd32.dll-ben lévő Menuitemexecute('Find') (Vagy 'Keresés') függvénnyel.
  .. De lehet, hogy az is jó lenne, ha ki tudnám tenni clipboardra az egész szöveget, bevágnám egy Memo-ba, aztán ebben keresgélnék. De akkor mondjuk ki kéne találnom valami gyors keresési algoritmust, amivel a szövegben keresek.

  Amiről írtál, talán az ActiveX control lehetett. Ezt kirakom a formra és kész, de ez csak megjeleníti a pdf-et, keresni pl nem tudok benne, de kijelölni sem.

  ps : Douglas Adams az Isten )

• #3302 Deer_ csendes tag

  Új Válasz 2008-03-28 10:50:45 #3302

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Deer_

  csendes tag

  Üdv mindenkinek!

  Pdf-ekben próbálok kutakodni Delphi alkalmazáson keresztül.
  Adobe Reader 8.0 van telepítve, van is hozzá egy királyságos típuskönyvtár AcroRd32.dll néven.
  Ezt bemásoltam a project mellé, átneveztem Acrobat.tlb-re. Ezt regisztráltam, mint type library-t.

  Ezután kétféleképp próbáltam dll-t elérni:

  ...
  uses Acrobat_TLB // ezt generálta, mikor regisztráltam
  ...
  
  procedure TForm1.FormCreate(Sender: TObject);
  var
  a : AcroApp;
  v : variant;
  begin
  a := CoAcroApp.Create;
  v := CreateOleObject('Acroapp');
  end;

  Na, egyik se műxik. Az elsőnél kiírja, hogy 'Az osztály nincs regisztrálva', a másodiknál pedig, hogy 'Érvénytelen osztályú karaktarlánc'.

  Légyszi, ha valaki tud, segítsen nekem

  Előre is köszi,
  Üdv,
  Déer

Új hozzászólás Aktív témák