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:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls, OleCtrls, SHDocVw, IdMultipartFormData, IdHttp;

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

var
  Form1: TForm1;

implementation

{$R *.dfm}

function HTTPEncode(const AStr: string): string;
const
NoConversion = ['A'..'Z', 'a'..'z', '*', '@', '.', '_', '-'];
var
Sp, Rp: PChar;
begin
SetLength(Result, Length(AStr) * 3);
Sp := PChar(AStr);
Rp := PChar(Result);
while Sp^ <> #0 do
begin
if Sp^ in NoConversion then
Rp^ := Sp^
else if Sp^ = ' ' then
Rp^ := '+'
else
begin
FormatBuf(Rp^, 3, '%%%.2x', 6, [Ord(Sp^)]);
Inc(Rp, 2);
end;
Inc(Rp);
Inc(Sp);
end;
SetLength(Result, Rp - PChar(Result));
end;

procedure TForm1.Button1Click(Sender: TObject);
Var
Werte : TStringStream;
Parameter1Wert : String;
Parameter2Wert : String;
begin
Werte := TStringStream.create('');
IdHTTP1.Request.ContentType := 'application/x-www-form-urlencoded';

Parameter1Wert := Edit1.Text;
Parameter2Wert := Edit2.Text;

Werte.WriteString('P1=' + HTTPEncode(Parameter1Wert) + '&');
Werte.WriteString('P2=' + HTTPEncode(Parameter2Wert));
try
Edit1.Text := IdHttp1.Post('http://meine.homepage.tl/Test/script.php', Werte);
except
on E: Exception do
showmessage('Fehler: ' + E.Message);
end;
end;

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:

object Form1: TForm1
  Left = 0
  Top = 0
  Width = 219
  Height = 146
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Button1: TButton
    Left = 88
    Top = 72
    Width = 75
    Height = 25
    Caption = 'Senden'
    TabOrder = 0
    OnClick = Button1Click
  end
  object Edit1: TEdit
    Left = 72
    Top = 16
    Width = 121
    Height = 21
    TabOrder = 1
  end
  object Edit2: TEdit
    Left = 72
    Top = 40
    Width = 121
    Height = 21
    TabOrder = 2
  end
  object Parameter1: TStaticText
    Left = 8
    Top = 16
    Width = 60
    Height = 17
    Caption = 'Parameter1'
    TabOrder = 3
  end
  object Parameter2: TStaticText
    Left = 8
    Top = 40
    Width = 60
    Height = 17
    Caption = 'Parameter2'
    TabOrder = 4
  end
end					

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

.....
Var
Werte : TStringList;
Parameter1Wert : String;
Parameter2Wert : String;
begin
Werte := TStringList.create;
IdHTTP1.Request.ContentType := 'application/x-www-form-urlencoded';

Parameter1Wert := Edit1.Text;
Parameter2Wert := Edit2.Text;

Werte.Add('P1=' + HTTPEncode(Parameter1Wert) + '&');
Werte.Add('P2=' + HTTPEncode(Parameter2Wert));
.....					

1:

IdHTTP1.Request.ContentType := 'application/x-www-form-urlencoded';					

1:

Edit1.Text := IdHttp1.Post('http://meine.homepage.tl/Test/script.php', Werte);					

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

httpdat :=  TidHTTP.create(nil);
httpdat.Request.ContentType := 'multipart/form-data';

picture := TidMultiPartFormDataStream.create;
picture.AddFile('file', 'd:\bild.jpg', 'image/jpeg');

httpdat.post('http://localhost/upload.php', picture);					

1:
2:
3:
4:

<form action="upload.php" method="post" enctype="multipart/form-data">
 <input type="file" name="file">
 <input type="submit">
</form>					

1:
2:
3:

$file
$file_name
$file_size					

1:
2:

  $_FILES["datei"]["name"]
  $_FILES["datei"]["size"]