1:
2:
3:

  Stream.AddFormField('u','upload');
  Stream.AddFile('filecontent','C:\v107.rar', 'multipart/form-data');
  Form1.IdHTTP1.Post('http://ul2.rapidshare.de/cgi-bin/upload.cgi?rsuploadid=456563016508102307489205610906', Stream, StringStream);					

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

procedure TForm1.Button3Click(Sender: TObject);
var postdata : tstringlist;
begin
 postdata := tstringlist.Create;
 postdata.Add('domname=vol.at')  ;
 memo1.Lines.Add(idhttp1.Post('http://krazz.net/cgi-bin/whois2.cgi',postdata));
 postdata.Free;
end;					

1:

  Form1.Memo1.Lines.Add(Form1.IdHTTP1.Post('http://ul1.rapidshare.de/cgi-bin/upload.cgi?rsuploadid=738055145554699609209566980850', Stream));					

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

procedure TForm1.Button3Click(Sender: TObject);
var s:string;
    stream: TIdMultiPartFormDataStream;
begin
 s:=idhttp1.Get('http://www.rapidshare.de');
 s:=copy(s,pos('action=',s)+8,maxint);
 s:=copy(s,1,pos('"',s)-1);
 stream := TIdMultiPartFormDataStream.Create;
 Stream.AddFormField('u','upload');
 Stream.AddFile('filecontent','C:\fftest.txt', 'multipart/form-data');
 s:=idhttp1.Post(s,stream);
 s:=copy(s,pos('Download-Link',s)+39,maxint);
 memo1.Lines.add(s);
 stream.Free;
end;					

1:
2:
3:
4:

procedure TForm1.Button2Click(Sender: TObject);
begin
 s:=Form1.idhttp1.Get('http://www.rapidshare.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:

unit Unit1;

interface

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

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

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var s:string;
    stream: TIdMultiPartFormDataStream;
begin
 s:=idhttp1.Get('http://www.rapidshare.de');
 s:=copy(s,pos('action=',s)+8,maxint);
 s:=copy(s,1,pos('"',s)-1);
 stream := TIdMultiPartFormDataStream.Create;
 Stream.AddFormField('u','upload');
 Stream.AddFile('filecontent','C:\fftest.txt', 'multipart/form-data');
 s:=idhttp1.Post(s,stream);
 s:=copy(s,pos('Download-Link',s)+39,maxint);
 memo1.Lines.add(s);
 stream.Free;
end;

end.					

1:

s:=idhttp1.Get('http://www.rapidshare.de');					

1:

{$RANGECHECKS OFF}