Text von TEdit von einem Fenster auslesen

[Nicodius]

Hallo Leute,

habe mich jetzt stundenlang daran versucht von einem TEdit(Siehe anhang, das Programm dass ich zum dafür verwendet habe um die handles rauszufinden, zeigt auch den text an den ich haben möchte(hannes,... ).

Es geht um eine Telefonsoftware von der ich ein Anzeigefenster bei einem Anruf bekomme dass informationen über den Anrufer anzeigt.
Nun sollte auf einem seperaten computer auf dem die applikation auch läuft der name auch angezeigt werden, den kann ich über dieses Fenster auslesen.


Also

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  WindowW, childc: HWND;
  WindowText: array[0..255] of char;
begin
  WindowW := FindWindowByTitle('LDAP');
  childc := FindWindowEx(WindowW,0,'TEdit',nil);
 // Form1.Text := IntToStr(WindowW) + ' ' + IntToStr(childc);
  GetWindowText(childc,WindowText,255);
  label2.Caption := windowText;
end;

WindowW bekommt ein Handle(das richtige, kann form caption von dem handle auslesen, das passt).
Allerdings childc hat immer einen wert von 0, habe alle möglichem methoden ausprobiert(von torry FindControlByNumber und hab probiert das edit zu bekommen). Nichts davon klappt. habs auch über wm_get text probiert.

Irgendeine Idee oder Hilfestellung?

vielen lieben Dank


Nico

[DeddyH]

Das Tool kann Dir den entsprechenden Code doch automatisch generieren ;)

[Nicodius]

Vielen Dank!

Hatte noch eine sehr alte version von vor ein paar jahren :) Wunderbares update!

Danke für die schnelle Antwort.

lg Nico

[DeddyH]

Keine Ursache. Übrigens wirst Du mit GetWindowText nicht weit kommen:

Zitat:

To retrieve the text of a control in another process, send a WM_GETTEXT message directly instead of calling GetWindowText.

[Nicodius]

Leider, es wird wieder kein text ausgelesen(weder mit get window text noch mit sendmessage, wmgettext

Hab ich da einen Denkfehler?

Delphi-Quellcode:

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;

procedure TForm1.Button1Click(Sender: TObject);
var
  S: String;
  len : Integer;
  wndMain, wndChild: HWND;
begin
  wndMain := FindWindow('TEditWindow','Findcall.pas');
  if wndMain <> 0 then
  begin
    wndChild := FindWindowEx(wndMain, 0, 'TPanel', nil);
    wndChild := FindWindowEx2(wndChild,'TPanel', 2);
    wndChild := FindWindowEx(wndChild, 0, 'TPanel', nil);
    wndChild := FindWindowEx(wndChild, 0, 'TPanel', nil);
    wndChild := FindWindowEx(wndChild, 0, 'TEditControl', nil);
    len := Sendmessage(wndChild, WM_GETTEXTLENGTH, 0, 0);
    SetLength(S, len);
    if wndChild <> 0 then
         SendMessage(wndChild, WM_GETTEXT, len+1, lparam(@S[1]));
    Label2.Caption := S;
    end;
  end;

Vielen Dank!

[DeddyH]

Ist denn wndChild <> 0?

[Nicodius]

Ja. also er geht ins if rein, und handle hat eine anständige nummer. Also ich glaub generell sollt es jetzt passen, aber der Text wird nicht ausgelesen.

[DeddyH]

Dann weiß ich es auch nicht. Möglicherweise hat die Fremdsoftware etwas gegen das Auslesen und fängt daher WM_GETTEXT(LENGTH) ab. Das ist allerdings reine Spekulation.

[Nicodius]

Aber Toms Programm Winspy, schafft es auch den Text auszulesen, daher überhaupt die Frage, hätte es dieses Programm nicht anzeigen können hätte ich es gleich aufgegeben. :)

Danke aufjedenfall für deine Mühe! Vielleicht meldet sich noch wer.

lg

[DeddyH]

Achso, wenn WinSpy das kann, dann solltest Du es auch können. Ich habe natürlich das Programm, um das es geht, nicht hier, daher kann ich nicht viel dazu sagen, aber bekommst Du denn gültige Werte, nicht nur das Handle, sondern auch den Rückgabewert von WM_GETTEXTLENGTH betreffend?

[Nicodius]

Stimmt, meine Variable len hat nur den Wert 0 nach

Delphi-Quellcode:

len := Sendmessage(wndChild, WM_GETTEXTLENGTH, 0, 0);

Danke für den Hinweis. Woher könnte das kommen?

lg Nico

[himitsu]

Versuch doch mal GetLastError auszuwerten, nach diesen Aufrufen.

[Nicodius]

Danke für deine Antwort!

hab jetzt direkt unter der Sendmassage zum testen mal

Delphi-Quellcode:

   
len := Sendmessage(wndChild, WM_GETTEXTLENGTH, 0, 0);
Form1.caption := SysErrorMessage(GetLastError);

gemacht aber es kommt "operation completed successfully.

[DeddyH]

Wie ist es so (testhalber)?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  S: String;
  len : Integer;
  wndMain, wndChild: HWND;
begin
  wndMain := FindWindow('TEditWindow','Findcall.pas');
  if wndMain <> 0 then
  begin
    wndChild := FindWindowEx(wndMain, 0, 'TPanel', nil);
    wndChild := FindWindowEx2(wndChild,'TPanel', 2);
    wndChild := FindWindowEx(wndChild, 0, 'TPanel', nil);
    wndChild := FindWindowEx(wndChild, 0, 'TPanel', nil);
    wndChild := FindWindowEx(wndChild, 0, 'TEditControl', nil);
    if wndChild <> 0 then
      begin
        len := 50000; //Sendmessage(wndChild, WM_GETTEXTLENGTH, 0, 0);
        SetLength(S, len);
        SetLength(S, SendMessage(wndChild, WM_GETTEXT, len+1, lparam(PChar(S))));
      end;
    Label2.Caption := S;
  end; 
end;

[Nicodius]

Danke an alle!

Problem war dass ich ein TPanel zuviel hatte, hatte beim codegenerator anscheinend eine andere Komponente ausgewählt, könnte auf Unkonzentriertheit dem gestrigen Arbeitsende hin zurückzuführen sein ;)

Danke!

lg Nico

[himitsu]

Das wäre doch vermutlich aufgefallen, wenn man auch die Zwischenergebnisse (wndChild) auswerten würde?

[DeddyH]

Wieso, wenn ein gültiges Handle drinsteht, aber eben nicht das des gesuchten Controls? Ich hatte diesbezüglich ja auch bereits nachgefragt.

[Nicodius]

Hi!

Danke, ja war ein ordentlicher schlampigkeitsfehler. Habe defakto auf meinen Delphi Quellcode Editor zugegriffen. Habe aufgrund der vielen Panels eine verschachtelung seitens des Telefonprogrammes vermutet aber was solls.

Vielen Dank für euren Input! Wie immer super schnell :)

lg Nico