VPF::Проблема с залитием файлов на Zalil.Ru

ingushmen

Дата 27.7.2011, 22:50 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 27.7.2011

Репутация: нет
Всего: нет

Добрый день! Форумчане сайта! У меня к вам вопрос!
Я заливаю файл на Zalil.Ru, но при отправке возникает ошибка. Я искал в гугле, ни один метод не работает.

Мой:

Код

 
var
  FormData: TIdMultiPartFormDataStream;
  link, Response: string;
  Http: TIdHTTP;
begin
     FormData := TIdMultiPartFormDataStream.Create;
    try
      FormData.AddFile('file', files.Text, ''); // Файл который надо залить
      IdHTTP.HandleRedirects := True;
      Response := idHTTP.Post('http://zalil.ru/', FormData);
      link:=copy(Response,pos('<div align="center">',Response)+20,24);
      zalil_url.Text:=link; // тут нечего объяснять
    finally
      FormData.Free;
      Label3.Caption:='OK';
          end;

На этой строке у меня выдаёт ошибку: HTTP/1.1 500.

Код

link:=copy(Response,pos('<div align="center">',Response)+20,24);

Что я написал не так?

14SatanA88

Дата 28.7.2011, 09:59 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 393
Регистрация: 13.5.2010

Репутация: нет
Всего: 5

500 Internal Server Error
говорит о том, что сервер не обработал запрос по какой-либо причине

разбирайся с кодом, проверяй, что не так отправляешь

chikistbuch

Дата 5.9.2011, 01:47 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 57
Регистрация: 15.3.2008

Репутация: нет
Всего: 1

подскажи что надо прописать, чтобы заработал TIdMultiPartFormDataStream

MetalFan

Дата 8.9.2011, 12:22 (ссылка)

(нет голосов)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 14
Всего: 128

с залилом проблем вроде бы не было.. разве что иногда рвало соединение и закачка обрывалась.
берешь любой http отладчик (я пользуюсь fiddler2), и смотришь, что шлет браузер и что шлет твоя программа. И добиваешься максимального сходства.

--------------------

There are always someone smarter than you...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »