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

var
  Form1: TForm1;
  fs: TFileStream;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
fs := TFileStream.Create('c:\test.avi'); //testdatei mit 1MB

idhttp1.Request.Username := edit1.Text; //hier tippe ich mein name ein
idhttp1.Request.Password := edit2.Text; //hier tippe ich mein passwort ein
idhttp1.Request.Host := edit3.Text;     //hier tippe ich z.b. bplaced.net oder funpic ein
IdHttp1.Post('http:\\bplaced.net\irgend.ein.ordner', fs);


//fs.Free;


end;

end.					

1:

action="http://stor01.server.com:555/upload/upload.php" method="post" onsubmit="UploadHandler_startProgressBar('stor01.server.com:555','stor01'); return true;">					

1:
2:

<form action="die Adresse" ... >
  <input type="text" name="Name des Benutzernamen-/Passwordfeldes" />					

1:
2:

idhttp1.Request.Username := edit1.Text; //hier tippe ich mein name ein
idhttp1.Request.Password := edit2.Text; //hier tippe ich mein passwort ein					

1:

<input type="text" name="tk_name" value="Name" onclick="if(this.value=='Name'){this.value='';}" onfocus="if(this.value==''){this.value='Name';}" onblur="if(this.value==''){this.value='Name';}" id="username" />					

1:

<input type="password" name="tk_pw" value="Password" onclick="if(this.value=='Password'){this.value='';}" onfocus="if(this.value==''){this.value='Password';}" onblur="if(this.value==''){this.value='Password';}" id="password" /> <input type="submit" value="Login" name="tk_submit" class="button open" style="cursor:pointer;margin-left:10px;" id="password">					

1:
2:

StringList.Values['tk_name'] = Edit1.Text;
StringList.Values['tk_pw'] = Edit2.Text;					

1:

IdHttp1.Post('http://server.tld/anmeldeurl', StringList);					

1:

<form action="index.php?Modul=Login" method="post" id="login_form">					

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:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:

unit http.form1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP,
  StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    IdHTTP1: TIdHTTP;
    Edit2: TEdit;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  // fs: TFileStream;
  StringList: TStringList;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
// fs := TFileStream.Create('c:\test.avi');
StringList.Values['tk_name'] := Edit1.Text;
StringList.Values['tk_pw'] := Edit2.Text;

IdHttp1.Post('http://mein.server.com/index.php?Modul=Login', StringList);

memo1.Lines.Text := idhttp1.ResponseText;
end;

end.					

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

var
  sl: TStrings; //lokale Variable
begin
  sl := TStringList.Create;  //TStringList erstellen
  try
    //wenn die Komponente erstellt wurde wird der Code der hier steht ausgeführt
  finally
    sl.Free; //Speicherfreigeben
  end;
end;