Отправка файла на файлообменник

[Usov]

так может надо назвать сайты? а то телепатией я например не обладаю

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

file.qb.by/
ifolder.ru/
depositfiles.com/ru/

в таком порядке пробывал(депозит - chunked)

извините, чтото не подумал

[Usov]

Без проблем залил на все три файлообменника (Delphi7+Indy10.2.3)
Функция GetSubStr с библиотеки MyUtils: http://www.programmersforum.ru/showp...92&postcount=7

[W0LF]

Не знаю, я просто в шоке... Попытался скомпилить ваш проэкт... В результате ошибка таже что и у меня раньше была: No data to read.

Indy 10.5.5, Delphi 7

Что ж это за бэдлам за такой... !!!

[Usov]

каждый для себя выбирает более-менее стабильную версию и подпиливает ее напильником
я специально оставил скомпилированный проект чтоб можно было проверить работоспособность.

[W0LF]

Да, работает нормально, но почему же такая происходит "!штука!" ?! У меня новая Indy и она чето нечерта неработает как надо... ((
Вы обновляли свою Indy ? или это стандартная из Delphi 7 ?

[shock-in]

Работает на обычном Delphi 7 без каких либо изменений.

появился вопрос как посылать файл с авторизацией на сайте

mp := TidMultiPartFormDataStream.Create;
  mp.AddFormField('login','****');
  mp.AddFormField('password','******');
  mp.AddFile('files', InputF, 'multipart/form-data');
  mp.AddFormField('MAX_FILE_SIZE', '2097152000');
  mp.AddFormField('UPLOAD_IDENTIFIER', GetSubStr(s, 'name="UPLOAD_IDENTIFIER" value="', '"'));
  mp.AddFormField('go', '1');
  mp.AddFormField('agree', '1');

вот так не получается

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

сначало авторизация(с получением куки)
а потом отправка(формы то разные)

[Usov]

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

Вы обновляли свою Indy ? или это стандартная из Delphi 7 ?

С D7 идет в комплекте Indy9, пару лет назад снес 9 и установил версию 10.2.3. И где то пол года назад заменил несколько новых паскалин по работе с куками.