POST Formular ausfüllen + Werte ablesen

[FreakLitkowsky]

Hi nochmal,
also ich hab das soweit fertig bekommen, dass die Werte in die jeweiligen Felder eingetragen werden.

Aber... naja, wie man die Werte abliest... dazu habe ich eine Seite gefunden, aber ich hab den Link verschlampt und ich suche den jetzt schon fast eine Stunde
Kannst du, oder jemand anders mir schnell helfen???

Also bis jetzt hab ich das so gemacht mit den Werte eintragen:

Delphi-Quellcode:

procedure WB_FillPwdForm(WB: TWebbrowser; UsernameField, User, PasswortField, Password: string);
var
  IDoc3: IHTMLDocument3;
  Inputs: IHTMLElementCollection;
  UID, UPWD: IHTMLElement;
begin
  if Assigned(WB.Document) and
    (Succeeded(WB.Document.QueryInterface(IHTMLDocument3, IDoc3))) then
  begin
    Inputs := IDoc3.getElementsByName(UsernameField);
    if Assigned(Inputs) then
    begin
      UID := Inputs.item(0, '') as IHTMLElement;
      if Assigned(UID) then
        (UID as IHTMLInputElement).value := User;
    end;
    Inputs := IDoc3.getElementsByName(PasswortField);
    if Assigned(Inputs) then
    begin
      UPWD := Inputs.item(0, '') as IHTMLElement;
      if Assigned(UPWD) then
        (UPWD as IHTMLInputElement).value := Password;
    end;
  end;
end;

[...]

WB_FillPwdForm(Webbrowser1, 'FELDNAME1','WERT1','FELDNAME2','WERT2');