Delphi Fenster soll im geöffneten Browser über dem Browser stehen

[Moombas]

Ist zwar eine bekloppte Lösung, aber hast du mal probiert vor dem SendText ein Alt+Tab (Fenster wechseln) zu senden.
Also vom Ablauf:

1. Dein Programm starten
2. Browser starten
3. Im Browser auf das zu füllende Feld klicken
4. In deinem Programm den Button drücken

Wie man Alt+Tab Simuliert: https://www.swissdelphicenter.ch/en/...de.php?id=2103

Theoretisch müsste durch den Alt+Tab er dann zum Browser zurück springen (vom Fokus), das Eingabefeld ist noch als Fokus gesetzt (normalerweise) und somit müsste dein dann ausgeführter Code den Text einfügen. Ggf. musst du mit sleep() arbeiten damit er zur richtigen Zeit deinen Code ausführt und nicht zu früh.
Hab es selber nicht getestet, nur ein dummer Gedanke. Zumal, wenn du dann woanders hin klickst in der Zeit vom sleep() das ganze nicht mehr funktioniert.

Und falls du noch mehr Daten übergeben willst, wäre definitiv die vorgeschlagene Lösung eines Browserplugins die beste Variante.

[Delphi.Narium]

@Moombas Die Idee ist überhaupt nicht bekloppt. Dieses Vorgehen war früher durchaus mal gang und gäbe.

Eine weitere Möglichkeit (muss natürlich entsprechend angepasst werden): How to Send Information (String, Image, Record) Between Two Applications

[jaenicke]

Die saubere Variante ist die, die auch die Bildschirmtastatur geht:
Das Fenster kann den Fokus nicht bekommen.

Ich habe vwrgessen wie das ging... irgendwie WM_ACTIVATEAPP abfangen oder so.

[oldmann]

Hallo Sebastian,

du hast von einer Browserextension geschrieben.
Was ist das ?
Und wie komme ich daran ?
Es wäre Nett, wenn Du mir hier aud die Sprünge helfen könntest.

Eberhard Werner

[hoika]

Hallo,
eine Browserextension ist eine Dll, die dynamisch in den Browser "eingeblendet" wird,
und damit auch Zugriff auf den DOM (das Browserfenster) hat.
Dürfte für dich aber viel zu kompliziert sein (für mich jedenfalls).

Bleib doch einfach mal bei Alt+Tab-Simulieren.

[jaenicke]

Zitat von hoika:

eine Browserextension ist eine Dll, die dynamisch in den Browser "eingeblendet" wird,
und damit auch Zugriff auf den DOM (das Browserfenster) hat.
Dürfte für dich aber viel zu kompliziert sein (für mich jedenfalls).

Eine DLL würde ich dafür nicht benutzen, viel einfacher ist ein fertiges Grundgerüst einer Erweiterung zu nehmen und mit JavaScript diese mit Leben zu füllen.

Wenn allerdings keine JavaScript Kenntnisse vorhanden sein sollten, würde ich das eher nicht versuchen. Mit JavaScript Kenntnissen ist das nicht so kompliziert wie du dir das offenbar vorstellst.

Zitat von hoika:

Bleib doch einfach mal bei Alt+Tab-Simulieren.

Das ist die schlechteste Lösung. Sinnvoller wäre zu schauen, dass das Fenster nicht mehr aktivierbar wird, sprich den Eingabefokus nicht bekommen kann.

Das geht sogar sehr einfach, ich habe es kurz ausprobiert:

Delphi-Quellcode:

  TExampleForm = class(TForm)
  ...
  protected
    procedure CreateParams(var Params: TCreateParams); override;
  end;


procedure TExampleForm.CreateParams(var Params: TCreateParams);
begin
  inherited;
  Params.ExStyle := Params.ExStyle + WS_EX_NOACTIVATE;
end;

[Moombas]

Zitat von jaenicke:

Zitat von hoika:

Bleib doch einfach mal bei Alt+Tab-Simulieren.

Das ist die schlechteste Lösung.

Es ging mir nur erstmal darum eine evtl. funktionierende (Quick and dirty) Lösung anzubieten. Das diese bei weitem nicht eine schöne Lösung ist, sollte klar sein.

Mal eine andere Sache. @jaenicke wie ist das mit TWebBrowser im eigenen Programm? Wenn man die gewünschte Website dort darstellt und die Informationen einträgt müsste doch auch funktionieren oder denke ich da nun zu einfach. Mir fehlt da leider aktuell die Zeit um das für den TE zu testen, viel mir aber eben als evtl. weitere Möglichkeit ein.

[oldmann]

Hallo,

Es funktioniert.
Das letzte Listing von Sebastian Jaenicke brachte den Durchbruch.
Vielen Dank dafür ebenso vielen Dank an alle die sich an der Lösung beteiligten.
Damit ist dieses Thema beendet.

Gruß oldmann