1:
2:
3:
4:
5:
6:

var
  s: String;#
begin
  ...
  s := IdHTTP.Post('www.google.de', ...);
end;					

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:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:

unit http.form1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP,
  StdCtrls, FileCtrl, ComCtrls, MsMultiPartFormData;
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    login: TButton;
    httpMain: TIdHTTP;
    Edit2: TEdit;
    Memo1: TMemo;
    upload: TButton;
    procedure loginClick(Sender: TObject);
    procedure uploadClick(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  StringList: TStringList;
  s: String;
implementation

{$R *.dfm}

procedure TForm1.loginClick(Sender: TObject);

begin
  StringList := TStringList.Create;  //TStringList erstellen
  try
    StringList.Values['yl_name'] := Edit1.Text; //wenn die Komponente erstellt wurde wird der Code, der hier steht, ausgeführt
    StringList.Values['yl_pw'] := Edit2.Text;   //wenn die Komponente erstellt wurde wird der Code, der hier steht, ausgeführt
  finally
    // StringList.Free; //Speicherfreigeben}
end;
httpMain.Post('http://duckload.com/index.php?Modul=Login', StringList);
memo1.Lines.Text := httpMain.Post('http://duckload.com/member/', StringList);
end;




procedure TForm1.uploadClick(Sender: TObject);
var
  MultiPartFormDataStream: TMsMultiPartFormDataStream;
  HttpServer, Response: String;
begin

  // Objekte instanzieren
  MultiPartFormDataStream := TMsMultiPartFormDataStream.Create;

  try
      // Content-Type bestimmen
      httpMain.Request.ContentType := MultiPartFormDataStream.RequestContentType;

      // Formular-Felder setzen, die keine Dateien sein sollen
      // MultiPartFormDataStream.AddFormField('EinAnderesFeld', 'dadum');
      // ...

      // Datei laden
      MultiPartFormDataStream.AddFile('file[0]', 'c:\test.avi', '');

      // diese Methode muss _vor_ dem Senden augerufen werden
      MultiPartFormDataStream.PrepareStreamForDispatch;
      MultiPartFormDataStream.Position := 0;

      try

        // Anfrage abschicken, hier halt z.B. "deine" PHP-Datei hinsetzen
        Response := httpMain.Post('http://duckload.com/index.php?Modul=Login', MultiPartFormDataStream);

      except
        // Upload fehlgeschlagen, entsprechend reagieren
      end;

  finally
    MultiPartFormDataStream.Free;
  end;

end;
end.					

1:

Response := httpMain.Post('http://duckload.com/index.php?Modul=Login', MultiPartFormDataStream);					

1:

und das nicht der upload ? Response := httpMain.Post('http://duckload.com/index.php?Modul=Login', MultiPartFormDataStream);					

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

function Login(AUserName, APassword, AURL: String):Boolean;
var
  PostData: TStrings;
  Source: String;
begin
  Result := False;

  PostData := TStringList.Create;
  try
    //Felder hinzufügen
    PostData.Add('yl_name=' + AUserName); 
    PostData.Add('yl_pw=' + APassword);

    //Absenden
    Source := IdHTTP1.Post(AURL, PostData);

    //Überprüfen ob der Login erfolgreich war
    Result := pos('Login war erfolgreich', Source) > 0;  //Den String musst du natürlich an die Ergebnisseite anpassen, wenn das wirklich wieder die Startseite ist, steht da sicherlich was wie "Sie sind eingeloggt" oder "Loggout DeinBenutzername", anstatt den Code der Seite zu überprüfen kannst du natürlich auch den CookieManager auswerten
  finally
    PostData.Free;  
  end;
end;					

1:
2:
3:
4:

if Login('benutzername', 'passwort', 'http://duckload.com/index.php?Modul=Login') then
  ShowMessage('Login war erfolgreich')
else
  ShowMessage('Login fehlgeschlagen');