Загрузка файла на сайт

[cargo29]

Как можно загрузить файл на сайт http://zalil.ru/ и после вывести ссылку в поле edit ??? а то что то смотрел код страницы и не могу сообразить как это сделать

[kangreon]

IdMultipartFormData + IdHTTP + http://www.ieinspector.com/httpanalyzer/

[cargo29]

Сообщение от kangreon

IdMultipartFormData + IdHTTP + http://www.ieinspector.com/httpanalyzer/

а можно по точнее с IdMultipartFormData

[Пепел Феникса]

а может всетаки поищем в этом же разделе?

ну было это все...и как отправлять файлы и тп.

[cargo29]

Сообщение от Пепел Феникса

а может всетаки поищем в этом же разделе?

ну было это все...и как отправлять файлы и тп.

вот какой то код нашел для другого файлообменика но понять не могу

{--------------------------------------------------------------------}

{------------------- Copyright 4T(4team) © 2010 --------------------}

{--------------------------------------------------------------------}



uses

  IdMultipartFormData, IdHTTP;



function UploadFile_UNWAP(_filename, _info: string; const _password: string = ''): string;

var

  _F: TIdMultiPartFormDataStream;

  _Http: TIdHTTP;

  _Buff: string;

begin

  _Http := TIdHTTP.Create(nil);

  _Http.HandleRedirects := True;

  _Http.Get('http://upwap.ru/upload/');

  _F := TIdMultiPartFormDataStream.Create;

  if FileExists(_filename) then

    _F.AddFile('file', _filename, 'multipart/form-data')

    else begin

      Result :=  'Файл для загрузки ненайден!';

      Exit;

    end;

  _F.AddFormField('desc', UTF8Encode(_info));

  if _password <> '' then

    _F.AddFormField('password', UTF8Encode(_password));

  _F.AddFormField('send', UTF8Encode('Отправить!'));

  _Buff:=UTF8Decode(_Http.Post('http://upwap.ru/upload/', _F));

  if Pos('Файл размещен', _Buff) = 0 then

    Result := 'Ошибка...'

    else begin

      Delete(_Buff, 1, Pos('Файл размещен', _Buff) + Length('Файл размещен') + 18);

      Delete(_Buff, Pos('">', _Buff), Length(_Buff) - Pos('">', _Buff) + 1);

      Result := 'http://upwap.ru' + _Buff;

    end;

  _F.Free;

  _Http.Free;

end;



// Тестировалось только на Delphi 7

понять не могу как строиться TIdMultiPartFormDataStream; _F.AddFile('путь до файла', _filename, 'а это что?')
_F.AddFormField('send', UTF8Encode('Отправить!')); это я как понимаю нажимает на кнопку отправить?

[cargo29]

вообщем мне вот на форуме посоветовали но выдает ошибку

var f:TIdMultiPartFormDataStream;
begin
  f:=TIdMultiPartFormDataStream.Create;
  f.AddFile('file', путь к файлу, 'multipart/form-data');
  Memo1.text:=IdHTTP1.Post('http://zalil.ru/upload/', f); // в мемо будет код страницы которую вернет нам сайт 
  f.Free;
end;

я подправил

var f:TIdMultiPartFormDataStream;
begin
  f:=TIdMultiPartFormDataStream.Create;
  f.AddFile('file', путь к файлу, 'multipart/form-data');
  IdHTTP1.Post('http://zalil.ru/upload/', f); // в мемо будет код страницы которую вернет нам сайт 
  f.Free;
end;

файл уходит как теперь вывести ссылку на какую страницу перебросило?

Ни кто не знает?

[Stilet]

как теперь вывести ссылку на какую страницу перебросило?

В принципе если не ошибаюсь

var resp:TStringStream;
...
begin
 resp:=TStringStream.Create;
 IdHTTP1.Post('http://zalil.ru/upload/',f,resp);
 Caption:=resp.DataString;
end;

В Пост передается третий параметр, который может принять ответ сервера, которому постишь.

[cargo29]

Сообщение от Stilet

В принципе если не ошибаюсь

var resp:TStringStream;
...
begin
 resp:=TStringStream.Create;
 IdHTTP1.Post('http://zalil.ru/upload/',f,resp);
 Caption:=resp.DataString;
end;

В Пост передается третий параметр, который может принять ответ сервера, которому постишь.

вот получается такой код???

user IdMultiPartFormData


procedure TForm1.Button1Click(Sender: TObject);
var f:TIdMultiPartFormDataStream;
   resp:TStringStream;
begin
   f:=TIdMultiPartFormDataStream.Create;
  resp:=TStringStream.Create();
  f.AddFile('file', 'C:\1.txt', 'multipart/form-data');
  IdHTTP1.Post('http://zalil.ru/upload/', f, resp); 
   edit1.Text:=resp.DataString;
  f.Free;
end;

но опять он не работает подчеркивает resp:=TStringStream.Create();

[cargo29]

может кто поможет?

[exn]

procedure TForm1.Button1Click(Sender: TObject);
var
f   : TIdMultiPartFormDataStream;
begin
  IdHTTP1.Request.UserAgent := 'Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.0.5) Gecko/2008120122 Firefox/3.0.5';
  f   := TIdMultiPartFormDataStream.Create;
  try
    f.AddFile('file', 'C:\test.rar', 'application/octet-stream');
    try
     IdHTTP1.Post('http://zalil.ru/upload/', f);
    except on E : Exception do
     if IdHTTP1.Response.ResponseCode = 302 then
     Edit1.Text := 'http://zalil.ru/' + StringReplace(IdHTTP1.Response.Location,'/upload/','',[])
     else
     Edit1.Text := E.Message;
    end;
  finally
   f.Free;
  end;
end;

проверено, заливает! )