Website mit Informationen füllen

[marabu]

Guten Morgen.

Es könnte auch so funktionieren:

Delphi-Quellcode:

procedure TWebForm.LoginButtonClick(Sender: TObject);
begin
  WebBrowser.Navigate('http://www.cewecolor.de/00popup_de/popup_de_930000_01.php');
  repeat
    Application.ProcessMessages;
  until DocumentLoaded;

  WebBrowser.OleObject.document.forms.item(0).elements.item('orderNumberDisplay').value := '17';
  WebBrowser.OleObject.document.forms.item(0).elements.item('customerNumberDisplay').value := '42';
  WebBrowser.OleObject.document.forms.item(0).submit;
end;

Grüße vom marabu