TChromium: Felder ausfüllen

[erich.wanker]

Hallo Leute,

• Delphi7
• TChromium (nicht mehr der Frame )

weiß jemand, wie ich "input type="Text" - FELDER" - einer html-Seite (dargestellt durch TChromium) ausfüllem kann und einen Click auf einen Hyperlink durchführe?

Hab alles (was mir so einfällt) schon probiert für die Textübergabe:

SendMessage(hHandle,WM_PASTE,0,0);
PostMessage(hHandle, WM_KEYDOWN, ord('E'), 0);
chromium1.Browser.SendKeyEvent(KT_KEYDOWN,VK_SHIFT ,2752513, False, False);
chromium1.Browser.SendKeyEvent(KT_KEYDOWN,50,19660 9, False, False);
chromium1.Browser.SendKeyEvent(KT_KEYUP,50,-1073545215, False, False);
chromium1.Browser.SendKeyEvent(KT_KEYUP,VK_SHIFT,-1070989311, False, False);
..funktioniet aber alles nicht

Was ist suche ist eine Lösung für:
Seite aufrufen: https://banking.raiffeisen.at/html/login.jsp
die 3 Felder ausfüllen...
Click auf "Weiter"

Grund:
Bestimmte Mitarbeiter sollen zwar auf Seiten zugreifen können, nicht aber die Logindaten besitzen... Die Bankseite ist nur eine von vielen...

HTML-Felder:
Das erste Feld "Bankleitzahl" hat z.B.:

Code:

<label for="loginform:LOGINBKLZ">Bankleitzahl:</label><input id="loginform:LOGINBKLZ" name="loginform:LOGINBKLZ" type="text" value="35026" maxlength="5" onkeydown="if(event.keyCode=='13') event.keyCode='9';" class="loginInputField" tabindex="1" onblur="doRefresh(this)"

Vielen Dank für Hinweise

Erich

[implementation]

Warum möchtest du die Felder ausfüllen und den Link klicken? Schau doch vllt. einfach nach, wie die Felder heißen und an welche Adresse die POST-Anfrage geht, dann kannst du die Daten direkt senden (und bekommst die Cookies und die nächste Seite zurück)

[erich.wanker]

Funktioniert auch nicht ..

habe via Javascript das ganze lösen wollen - bekomme aber immer einen Fehler in der libcef.dll

Mein Ansatz:

Delphi-Quellcode:

procedure TForm1.chrome_text_senden(element,text:String);
var mein_script:String;
begin

mein_script:= 'document.getElementById('''+element+''').value = '''+text+''''+';';

Chromium1.Browser.MainFrame.ExecuteJavaScript(mein_script,'about:blank',0);

label2.Caption:='Sende Daten an Control: '+element;

end;