Externe Editbox mit Programm befüllen

[DeddyH]

Die Zahl kommt mir bekannt vor, das ist ein Windows-Dialog, richtig? Aber zum Problem:

Zitat von MSDN:

However, SetWindowText cannot change the text of a control in another application.

Versuch es doch einmal mit WM_SETTEXT.

[WizoHulk]

Meinst du statt:TForm1.SetEditText(const AControlId: Integer; const AText: String); dann:TForm1.WM_SETTEXT(const AControlId: Integer; const AText: String); ?

[Aphton]

Ähm bestimmt nicht.
WM_SETTEXT ist eine Konstante. Um genauer zu sein, ist sie eine Message-Konstante.
Such lieber mal nach SendMessage() & PostMessage() und informiere dich darüber.

MfG

[WizoHulk]

Hmmm.

haut trotz SendMessage nicht hin. kann das sein, das da im Windows irgendwas blokiert wird?
denn das Programm liegt ja auf einen anderen Rechner.

Delphi-Quellcode:

procedure TForm1.SetEditText(const AControlId: Integer; const AText: String);
var
  LWnd: HWND;     // Windows API, Erfordern ein Fenster Handle
begin
  SetLastError(0);
  LWnd :=  FindWindow('#32770', 'InputSearchDlg');
  LWnd :=  GetDlgItem(LWnd, AControlId);

  //LWnd :=  FindWindowEx(LWnd, 0, 'Edit', nil);

  if LWnd <> 0 then
    begin
    if not SetWindowTextW(LWnd, PWideChar(WideString(AText))) then
      ShowMessage(SysErrorMessage(GetLastError));
    end else
    begin
      windows.beep(400,100);
      messagebeep(MB_ICONERROR );
    end;

und den Button

Delphi-Quellcode:

procedure TForm1.ok_btnClick(Sender: TObject);
begin

  SendMessage(18025, StringGrid1.Cells[1, StringGrid1.Selection.Top]);
  
//SetEditText(18025, StringGrid1.Cells[1, StringGrid1.Selection.Top]);
  
//SetEditText(18026, StringGrid1.Cells[2, StringGrid1.Selection.Top]);

//SetEditText(18027, StringGrid1.Cells[3, StringGrid1.Selection.Top]);

[hoika]

Hallo,

Zitat:

denn das Programm liegt ja auf einen anderen Rechner.

OHA.

Diese Info kommt aber etwas spät.

Hast du dir mal überlegt,
woher FindWindow das Handle bekommen soll,
wenn nicht mal die IP oder der Computername im Code steht ???

Was du willst geht so nicht.

Auf dem anderen Rechner muss ein kleines (von dir geschriebenes Server-Programm) gestartet sein,
mit dem du per TCP-IP kommunizierst (z.B. per Indy).
Das Programm kann dann das FindWindow machen.


Heiko

[WizoHulk]

Hallo,

ich steuer das über den Remotedebugger.
Der fernrechner startet ja beide Programme und wenn ich auf den OK Button drücke, soll er ja die Daten aus dem Stringgrid die ich vorher auswähle in das andere Programm mit dem Editfeld (18025,18026 und 18027) reinladen.

ich hab auch eine Anweisung gegeben falls er die editfelder nicht finden sollte, das er dann ein Signal von sich gibt.

Er sagt mir ja anicht, das die Editboxen nicht vorhanden sind.
Das muss ja heißen, das er sie je gefunden hat und das er die Werte aus der Tabelle in die Editboxen befeuern kann, was er nicht macht.

[WizoHulk]

Habe mir eben mal nen kleines Testprogramm geschrieben, und da hat es Funktioniert einmal für den AuslöserSendMessage(19055,WM_SetText,0,integer(PChar(edit1.Text))); und einmal die Function

Delphi-Quellcode:

var
    LWnd: HWND;    // Windows API, Erfordern ein Fenster Handle

  begin
    SetLastError(0);
    LWnd :=  FindWindow(#32770, 'InputSearchDlg');
    LWnd :=  GetDlgItem(LWnd, AControlId);
    
  if LWnd <> 0 then
    begin
   if not SetWindowTextW(LWnd, PWideChar(WideString(AText))) then
      ShowMessage(SysErrorMessage(GetLastError));
    end else
    begin
      ShowMessage('Handle nicht gefunden');
      windows.beep(400,100);
      messagebeep(MB_ICONERROR );
    end;

aber bei dem anderen nicht.obwohl es fast der gleiche Code ist.

kann es vileicht sein, das windows es abblockt, auf der höchsten Priorität steht.
das Programm ist im Autostart und mann kommt ganz schlecht auf den Desktop, da es Permanent immer in den Vordergrund gestellt wird.