![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
![]() Добрый день! Форумчане сайта! У меня к вам вопрос!
Я заливаю файл на 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); Что я написал не так? |