1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:

procedure TBlaBla.DoLogin(AUsername, APassword: String);
var
  PostData : TStringList;
  ResultStream : TStringStream;
const
  ANMELDENAME = 'anmeldename';
  PASSWORT = 'password';
  URI = 'http://.../index.php';
begin

  PostData := nil;
  ResultStream := nil;
  try
    PostData := TStringList.Create;
    ResultStream := TStringStream.Create('', SysUtils.TEncoding.GetEncoding(1252));

    PostData.Values[ANMELDENAME] := AUsername;
    PostData.Values[PASSWORT] := APassword;
    PostData.Values['site'] := 'login';

    FHttp.Post(URI, PostData, ResultStream);
    ParseLoginResult(ResultStream);

  finally
    PostData.Free;
    ResultStream.Free;
  end;

end;                    

1:
2:
3:

WebBrowser1.OleObject.document.forms.item(0).elements.item('feld1').value := '22222';
WebBrowser1.OleObject.document.forms.item(0).elements.item('feld2').value := '36240';
WebBrowser1.OleObject.document.forms.item(0).submit;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:

<form id="orderDetails" method="post" action="/MWIA/fc.htm?_flowExecutionKey=_cA3DFCCBC-C30A-42C9-F2EA-E6D91FC94F6E_k4BBC10C6-C9F1-965E-1527-DCF683533B51"><br>
   <label for="techId">Techniker Nummer</label><br/>
   <input id="techId" name="techId" style="-wap-input-format: '5N'; -wap-input-required: true;" type="text" value="" maxlength="5"/><br><br/>
   
   <label for="woId">Auftragsnummer</label><br/>
   <input id="woId" name="woId" style="-wap-input-format: '6N'; -wap-input-required: true;" type="text" value="" maxlength="6"/><br/><br/>
   
   <input type="submit" class="button" name="_eventId_login" value="Bestätigen"/><br/><br/>
</form>                    

1:
2:
3:
4:
5:

sl := TStringlist.Create;
sl.Add('techId=12345');
sl.Add('woId=59478');

IdHTTP1.Post('http://' + Hostname + '/MWIA/fc.htm?_flowExecutionKey=_cA3DFCCBC-C30A-42C9-F2EA-E6D91FC94F6E_k4BBC10C6-C9F1-965E-1527-DCF683533B51',sl);                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

procedure TForm1.Button3Click(Sender: TObject);
var
  sl : TStringList;
  session_id : String;
begin
  session_id := copy(Webbrowser1.LocationURL,pos('?',Webbrowser1.LocationURL),Length(Webbrowser1.LocationURL));

  sl := TStringlist.Create;
  sl.Add('techId=22222');
  sl.Add('woId=59478');

  IdHTTP1.Post('http://pfad/MWIA/fc.htm' + session_id, sl);

  sl.Free;
end;                    

1:

ResultStream := TStringStream.Create('', SysUtils.TEncoding.GetEncoding(1252));                    

1:

ResultStream := TStringStream.Create('');                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

procedure TForm1.Button4Click(Sender: TObject);
var
  PostData : TStringList;
  ResultStream : TStringStream;
const
  URI = 'http://pfad/';
begin
  PostData := nil;
  ResultStream := nil;
  try
    PostData := TStringList.Create;
    ResultStream := TStringStream.Create('');

    PostData.Values['techId'] := '22222';
    PostData.Values['woId']   := '59478';

    IdHTTP1.Post(URI, PostData, ResultStream);
    showmessage(ResultStream.DataString);   // HTTP/1.1 302 Found
  finally
    PostData.Free;
    ResultStream.Free;
  end;
end;                    

1:

Webbrowser1.OleObject.Document.forms.item(0).elements.item(0).click;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:

var
  Form1: TForm1;
  id: Integer;

// die Hauptseite wird geladen
procedure TForm1.FormCreate(Sender: TObject);
begin
  id := 0;
  WebBrowser1.Navigate('http://pfad_der_hauptseite');
end;

// Steuerung der einzelnen Seiten
procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
  id := id + 1;

  case ID of
     1: begin
          WebBrowser1.OleObject.document.forms.item(0).elements.item('techId').value := '22222';
          WebBrowser1.OleObject.document.forms.item(0).elements.item('woId').value := '74656';
          WebBrowser1.OleObject.document.forms.item(0).elements.item(2).click;
        end;
     2: Webbrowser1.OleObject.Document.forms.item(0).elements.item(0).click;
     3: WebBrowser1.OleObject.document.forms.item(0).elements.item(1).click;
     4: WebBrowser1.OleObject.document.forms.item(0).elements.item(2).click;
  end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

// Steuerung der einzelnen Seiten
procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
  id := id + 1;

  case ID of
     1: begin
          WebBrowser1.OleObject.document.forms.item(0).elements.item('techId').value := '22222';
          WebBrowser1.OleObject.document.forms.item(0).elements.item('woId').value := '74656';
          WebBrowser1.OleObject.document.forms.item(0).elements.item(2).click;
        end;
     2: begin
          showmessage(inttostr(id)); // das showmessage reagiert anscheinend wie ein Click auf einen Button, aber warum muß ich das vorschalten?
          Webbrowser1.OleObject.Document.forms.item(0).elements.item(0).click;
        end;
     3: WebBrowser1.OleObject.document.forms.item(0).elements.item(1).click;
     4: WebBrowser1.OleObject.document.forms.item(0).elements.item(2).click;
  end;
end;                    

1:
2:
3:

<script type="text/javascript">
   $(document).ready(function() { $("#next").attr("name", "_eventId_next_ajax"); });
</script>                    

1:

Webbrowser1.OleObject.document.forms.item(0).elements.item('next').click;                    

1:

Webbrowser1.OleObject.document.forms.item(0).elements.item('next').setAttribute('name', '_eventId_next_ajax');