[sanya920]

Доброго времени суток. Как мне програмно организовать загрузку файла на upwap.ru ?

[PhoeniX]

IdHTTP, Post.

[sanya920]

Код:

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

unit Unit1;   interface   uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,   IdHTTP, StdCtrls,IdMultipartFormData;   type   TForm1 = class(TForm)     Button1: TButton;     procedure Button1Click(Sender: TObject);   private   function GetSubStr(InputStr, BeginStr, EndStr: String): String;     { Private declarations }   public     { Public declarations }   end;   var   Form1: TForm1;   implementation   {$R *.dfm}   function TForm1.GetSubStr(InputStr, BeginStr, EndStr: String): String; var   s: String;   sp, ep: Integer; begin   Result := '';   if pos(BeginStr, InputStr) <> 0 then begin     sp := pos(BeginStr, InputStr)+length(BeginStr);     s := copy(InputStr,sp,length(InputStr));     ep := pos(EndStr,s)-1;     Result := copy(s,1,ep);   end; end;         procedure TForm1.Button1Click(Sender: TObject); var mf:TIdMultiPartFormDataStream; s,ssilochka:string; id:TIdHTTP; begin   id:=TIdHTTP.Create(nil);   mf:=TIdMultiPartFormDataStream.Create;   mf.AddFile('file','file.rar','application/octet-stream');   mf.AddFormField('desc','');   mf.AddFormField('password','666');   mf.AddFormField('send','Отправить!');   s:=id.Post('http://upwap.ru/upload/',mf);   GetSubStr('<input type="text" value="',s,'" /></div></form></div>');   showmessage(s);   id.Free; end;   end.

где тут ошибка?

[PhoeniX]

А что не так?

[sanya920]

ну по идее должен закачаться файл на сайт и появиться ссылочка на файл

[PhoeniX]

А что происходит вместо этого?

[sanya920]

визуально-ничего

[PhoeniX]

Ну а невизуально? Снифферы на что, отладчик?