Probleme mit Adobe Reader

[gangs-taas]

hey,
ich möchte mit einem Programm die seitenzahl von dem Reader ändern.
Ja klingt irg. sinnlos ist aber nur ein teil eines PRogrammes...

so ich hab mir gedacht:
-ich such das Handle des Feldes wo man die Seitenzahl eingibt
-ich lösch die Zahl aus diesem Editfeld
-Ich schreib eine neue Zahl hinein
-Ich schreib ein "enter" hinein.

umgesetzt hab ichdas so :

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
Handle : THandle;

function FindWindowEx2(hParent: HWND; ChildClassName: string; ChildNr: Word): HWND;
var
  i: Word;
  hChild: HWND;
begin
  hChild := 0;
  Result := 0;
  Dec(ChildNr);
  for i := 0 to ChildNr do
  begin
    hChild := FindWindowEx(hParent, hChild, PChar(ChildClassName), nil);
    if hChild = 0 then
      Break;
    Result := hChild;
  end;
end;
function Handle_suchen_Edit : THandle ;
var
  wndMain, wndChild: HWND;
begin
  wndMain := FindWindow('AcrobatSDIWindow',nil);
  if wndMain <> 0 then
  begin
    wndChild := FindWindowEx(wndMain, 0, 'AVL_AVView', nil);
    wndChild := FindWindowEx2(wndChild,'AVL_AVView', 10);
    wndChild := FindWindowEx2(wndChild,'Edit', 3);
    if wndChild <> 0 then
    begin
      Result := wndChild ;
    end
    else
      Result := 0;
  end
  else
    Result := 0;
end;

begin
  Handle := Handle_suchen_Edit  ;
  if Handle <> 0 then
  SendMEssage(Handle, VK_Clear,0,0);
  SendMessage(Handle, WM_CHAR, Ord(55), 0);
  SendMEssage(Handle, VK_Return,0,0);
end;

soo es funktioniert auch alles bis auf die letzte Zeile ...
wisst ihr wieso ich da kein Return rein senden kann ?!
also er trägt in das edit-feld die Seitenzahl ein, die Ich will aber er ghet nicht zu dieser hin...
aber wenn ich von hand in das Feld klick und "enter" drück geht der dahin ...

wisst ihr woran das liegen könnte ?!

lg :)

[Luckie]

Hat das Eingabefenster denn den Focus?

[toms]

Zitat:

Zitat von Luckie

Hat das Eingabefenster denn den Focus?

Braucht es nicht zwingend.

Delphi-Quellcode:

  SendMessage(Handle, VK_CLEAR, 0, 0);
  SendMessage(Handle, WM_CHAR, Ord(55), 0);
  PostMessage(Handle, WM_KEYDOWN, VK_RETURN, 0);
  PostMessage(Handle, WM_KEYUP, VK_RETURN, 0);

[patti]

Hat zwar nix mit dem Problem zu tun, aber mach mal noch ein begin-end rein:

Delphi-Quellcode:

begin
  Handle := Handle_suchen_Edit  ;
  if Handle <> 0 then
  begin // <-- hier
     SendMEssage(Handle, VK_Clear,0,0);
     SendMessage(Handle, WM_CHAR, Ord(55), 0);
     SendMEssage(Handle, VK_Return,0,0);
  end; // <-- und hier
end;

MFG
Patti

[toms]

Zudem kannst du die Handle_suchen_Edit Funktion etwas vereinfachen.

Delphi-Quellcode:

  function Handle_suchen_Edit: THandle;
  var
    wndMain, wndChild: HWND;
  begin
    Result := 0;
    wndMain := FindWindow('AcrobatSDIWindow', nil);
    if wndMain <> 0 then
    begin
      wndChild := FindWindowEx(wndMain, 0, 'AVL_AVView', nil);
      wndChild := FindWindowEx2(wndChild, 'AVL_AVView', 10);
      wndChild := FindWindowEx2(wndChild, 'Edit', 3);
      Result := wndChild;
    end;
  end;

[gangs-taas]

Zitat:

Zitat von toms

Zudem kannst du die Handle_suchen_Edit Funktion etwas vereinfachen.

Delphi-Quellcode:

  function Handle_suchen_Edit: THandle;
  var
    wndMain, wndChild: HWND;
  begin
    Result := 0;
    wndMain := FindWindow('AcrobatSDIWindow', nil);
    if wndMain <> 0 then
    begin
      wndChild := FindWindowEx(wndMain, 0, 'AVL_AVView', nil);
      wndChild := FindWindowEx2(wndChild, 'AVL_AVView', 10);
      wndChild := FindWindowEx2(wndChild, 'Edit', 3);
      Result := wndChild;
    end;
  end;

den ocde hatte ich von "winspy" :)
dachte ich nehm ich einfach

danke probier ich mal :)


danke es funktioniert jetzt ...
das handle suchen hab ich aber so gelassen :)
danke

[gangs-taas]

hey
könnt ihr euch das nochmal angucken ? :)
ich hab das jetzt so gelöst :

Delphi-Quellcode:

begin
  Handle := Handle_suchen_Edit  ;
  if Handle <> 0 then
  begin
    for I := 49 to 48 + StrToInt(E_SZ.Text) do
    begin
      if (i > 57) then
      begin
        ZString := IntToStr(i-48);
        SendMEssage(Handle, VK_Clear,0,0);
        for y := 1 to Length(ZString) do
        begin
          ZZahl := StrToInt(ZString[y]);
          SendMessage(Handle, WM_CHAR, Ord(ZZahl+48), 0);
        end;
        PostMessage(Handle, WM_KEYDOWN, VK_RETURN, 0);
        PostMessage(Handle, WM_KEYUP, VK_RETURN, 0);
      end
      else
      begin
        SendMEssage(Handle, VK_Clear,0,0);
        SendMessage(Handle, WM_CHAR, Ord(i), 0);
        PostMessage(Handle, WM_KEYDOWN, VK_RETURN, 0);
        PostMessage(Handle, WM_KEYUP, VK_RETURN, 0);
      end;
    end;
  end;
end;

aber wenn ich das programm nicht schritt-für-schritt mit F7 durchstepp, sondern einfach durchlaufen lasse gibt mir der Reader die MEldung : 'In dem dokiment ist keine seite mit der Zahl "" vorhanden'

aber ich versteh nicht wo ich denn eine Zahl, die es nicht gibt an das dokument sende ?
vorallem wenn ich jede Zeile durchgeh kommt der fehler irg. nicht ....

[toms]

Frage: Warum nimmst du nicht das Acrobat ActiveX Control (TAcroPDF)? Dann musst du nicht mich Sendmessage etc. rumschlagen.

Delphi-Quellcode:

  
AcroPDF1.LoadFile('Irgendeinepdf.pdf');
AcroPDF1.gotoNextPage;
etc...

[gangs-taas]

aber die Datei, die ich bearbeiten will, ist irg. speziell verschlüsselt => ich kann die z.b. nicht mit anderen Programmen aufmachen ...
d.h. ich muss den Reader ändern wenn ich ne seite blättern will ...

[gangs-taas]

habt ihr denn ne idee woran das liegen könnte ?