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

[cargo29]

Не работает

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:\1.txt', '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;

ни выдает ни ошибку ничего

[exn]

Я показал рабочий пример, а обрабатывать все возможны варианты от сервера это уже ваша задача! Вот один из них. Если 1.txt будет 0 байт, запрос пройдет успешно. но файл не зальется, соответственно, не будет, ни ошибки, ни ссылки!!!
p.s Мне всегда было интересно, почему у некоторых пользователей, рабочее становится не рабочим. )

[cargo29]

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

Я показал рабочий пример, а обрабатывать все возможны варианты от сервера это уже ваша задача! Вот один из них. Если 1.txt будет 0 байт, запрос пройдет успешно. но файл не зальется, соответственно, не будет, ни ошибки, ни ссылки!!!
p.s Мне всегда было интересно, почему у некоторых пользователей, рабочее становится не рабочим. )

вот именно что этот файлик не постой и весит он не 0 а 800кб я щас пробовал архив все так же включил анализатор вообщем файл грузиться на сервер и получает ссылку но он не выводит ее почему то в эдит почему?

Код вот

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:\1.rar', 'multipart/form-data');
    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;

вот снифф

1 19:02:13:687 1,172 s POST 302 364 text/html http://zalil.ru/upload/ /upload/30474007
2 19:02:15:000 1,062 s POST 200 7,42 K text/html http://zalil.ru/upload/30474007

[exn]

IdHTTP1.HandleRedirects := False;

> f.AddFile('file', 'C:\1.rar', 'multipart/form-data');
Хоть это проблем и не вызывает с данным фо, но правильно будет - application/x-rar-compressed или универсальный вариант - application/octet-stream

[cargo29]

Вот код

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';
   IdHTTP1.HandleRedirects := False;
  f   := TIdMultiPartFormDataStream.Create;
  try
    f.AddFile('file', 'C:\1.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;

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

[exn]

Нажми ок. Когда будешь запускать не в ide, подобного не будет.

[cargo29]

вот нажал Ок вот скрин

[cargo29]

а почему тогда в делфи не работало?

[exn]

потому что нажав ок, ты прервал выполнение, надо после было нажать продолжить )

[cargo29]

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

потому что нажав ок, ты прервал выполнение, надо после было нажать продолжить )

нет когда нажимаю Ок оно просто зависает и все... когда приложение уже отдельно запускаю робит а как можно сделать что бы показывало скоолько загружено в ProgressBar