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;                    

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

procedure TForm1.uploadClick(Sender: TObject);
var
  film: TMemoryStream;
begin
  film:= TMemoryStream.Create('c:\test.avi');
  try
    IdHTTP1.Post(film);
  finally
    film.Free;
  end;
end;                    

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

begin
  film:= TMemoryStream.Create('c:\test.avi');
  try
    IdHTTP1.Post('http://meine.url', film);
  finally
    film.Free;                    

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:
89:
90:
91:
92:
93:
94:
95:
96:

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;
  sl: TStrings; //lokale Variable
  // fs: TFileStream;
  StringList: TStringList;
implementation

{$R *.dfm}

procedure TForm1.loginClick(Sender: TObject);
begin
// fs := TFileStream.Create('c:\test.avi');
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;
end;

httpMain.Post('http://mein.server.com/index.php?Modul=Login', StringList);
memo1.Lines.Text := httpMain.ResponseText;
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('meine_datei', '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://mein.server.com/index.html', MultiPartFormDataStream);

      except
        // Upload fehlgeschlagen, entsprechend reagieren
      end;
    //end;
  finally
    MultiPartFormDataStream.Free;
  end;

end;
end.                    

1:
2:

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

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');                    

1:
2:
3:
4:

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

1:
2:
3:
4:

function TIdCustomHTTP.GetRequestHeaders: TIdHTTPRequest;
begin
  Result := FHTTPProto.Request; //zeile 1576
end;                    

1:

[DCC Hinweis] test5.pas(33): H2077 Auf 'Login' zugewiesener Wert wird niemals benutzt                    

1:
2:
3:
4:

1574: function TIdCustomHTTP.GetRequestHeaders: TIdHTTPRequest;
1575: begin
1576:   Result := FHTTPProto.Request; //zeile 1576
1577: 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:

unit test5;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    IdHTTP1: TIdHTTP;
    IdCookieManager1: TIdCookieManager;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  IdHTTP1: TIdHTTP;
implementation

{$R *.dfm}
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('http://duckload.com/index.php?Modul=Login', 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;




procedure TForm1.Button1Click(Sender: TObject);
begin
if Login('benutzername', 'passwort', 'http://duckload.com/index.php?Modul=Login') then
  ShowMessage('Login war erfolgreich')
else
  ShowMessage('Login fehlgeschlagen');
end;

end.                    

1:

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                    

1:

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

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

type
  TForm1 = class(TForm)
  ...
  function Login(...):Boolean;
  end;

...
...

function TForm1.Login(...):Boolean;
begin

end;                    

1:

StringList.Values['yl_submit'] := 'Login';                    

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

procedure TForm1.loginClick(Sender: TObject);
begin
  StringList := TStringList.Create;  //TStringList erstellen
  try
    StringList.Values['yl_name'] := Edit1.Text;
    StringList.Values['yl_pw'] := Edit2.Text;
    StringList.Values['yl_submit'] := 'Login';
    idhttp1.Post('http://duckload.com/index.php?Modul=Login', StringList);
    memo1.Lines.Text := idhttp1.Post('http://duckload.com/member/', StringList);
  finally
     StringList.Free; //Speicherfreigeben
end;

end;                    

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

<form id="upload" enctype="multipart/form-data" [u]action="http://stor11.duckload.com:666/upload/upload.php"[/u] method="post" onsubmit="UploadHandler_startProgressBar('stor11.duckload.com:666','stor11'); return true;">
      <input name="MAX_FILE_SIZE" value="9589934592" type="hidden">
                    <div id="uploadForm">

                        <div class="input_file"><input name="file[]" size="70" onchange="save(this.value,'1');document.getElementById('input_file_fake_1').innerHTML=this.value;" type="file"></div>
                        <div class="input_file_fake" id="input_file_fake_1"></div>                    

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

var
  s: String;
  Position1, Position2: Integer;
begin
  s := herunterladenderseite.....
  
  //sucht nach action=" und gibt die Position im String zurück, 
  //wir erhalten die Position von a möchten aber wissen was zwsichen
  // " und " steht. Also zählen wir die Länge des Suchstrings dazu
  Position1 := pos('action="', s) + 8;  
  
  //wir suchen nach dem abschließenden ", ab unserer ersten Position, 
  //könnten ja mehrere " im String sein...
  Position2 := PosEx(s, '"', Position1) - 1;  
  
  //wir kopieren den Text zwischen unseren Positionen, Copy erwartet 
  //aber nicht die Position des letzten Zeichen als dritten Parameter 
  //sondern die Anzahl der zu kopieren zeichen, da darfst du jetzt mal selbst überlegen ;-)
  s := Copy(s, Position1, ???);  
end;                    

1:

[DCC Fehler] duck1709.pas(70): E2003 Undeklarierter Bezeichner: 'PosEx'                    

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.storXXClick(Sender: TObject);
var
  s: String;
  Position1, Position2: Integer;
begin
  s := idhttp1.Get('http://duckload.com/index.html');

  //sucht nach action=" und gibt die Position im String zurück,
  //wir erhalten die Position von a möchten aber wissen was zwsichen
  // " und " steht. Also zählen wir die Länge des Suchstrings dazu
  Position1 := pos('action="', s) +8;

  //wir suchen nach dem abschließenden ", ab unserer ersten Position,
  //könnten ja mehrere " im String sein...
  Position2 := PosEx(s, '"', Position1) - 1;

  //wir kopieren den Text zwischen unseren Positionen, Copy erwartet
  //aber nicht die Position des letzten Zeichen als dritten Parameter
  //sondern die Anzahl der zu kopieren zeichen, da darfst du jetzt mal selbst überlegen ;-)
  s := Copy(s, Position1, 48);
  edit3.Text := s; // Ausgabe des benutzten Stores

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:

procedure TForm1.uploadClick(Sender: TObject);
var
  MultiPartFormDataStream: TMsMultiPartFormDataStream;
  Response: String;
begin
   MultiPartFormDataStream := TMsMultiPartFormDataStream.Create; // Objekte instanzieren
  try
      // Content-Type bestimmen
      idhttp1.Request.ContentType := MultiPartFormDataStream.RequestContentType;

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

      // Datei laden
      MultiPartFormDataStream.AddFile('file[]', 'c:\clock.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 := idhttp1.Post(s, MultiPartFormDataStream);

      except
        // Upload fehlgeschlagen, entsprechend reagieren
      end;
  finally
    MultiPartFormDataStream.Free;
  end;
end;                    

1:

Copy(S: string; Index, Count: Integer)                    

1:

MultiPartFormDataStream.AddFile('file[]', 'c:\clock.avi', '');                    

1:
2:
3:
4:
5:

<html><head><title>Error</title><link rel='stylesheet' 
href='http://youload.to/design/beta2/youload.css?37' type='text/css' media='screen' 
charset='utf-8' /><link rel='stylesheet' href='http://youload.to/design/beta2/global.css?37' 
type='text/css' media='screen' charset='utf-8' /></head><body><div class='error_message'>No 
file Uploaded!<a href='test.php'>Back</a></div></body></html>                    

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:

procedure TForm1.uploadClick(Sender: TObject);
var
  MultiPartFormDataStream: TMsMultiPartFormDataStream;
  Response: String;
begin
   MultiPartFormDataStream := TMsMultiPartFormDataStream.Create; // Objekte instanzieren
  try
      // Content-Type bestimmen
      idhttp1.Request.ContentType := MultiPartFormDataStream.RequestContentType;

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

      // Datei laden
      MultiPartFormDataStream.AddFile('upload', 'c:\clock.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 := idhttp1.Post(s, MultiPartFormDataStream);
        memo1.Lines.Text := Response;
      except
        // Upload fehlgeschlagen, entsprechend reagieren
      end;
  finally
    MultiPartFormDataStream.Free;
  end;
end;