Добрый день! Форумчане сайта! У меня к вам вопрос!
Я заливаю файл на 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);
Что я написал не так?