Показать сообщение отдельно
  #5  
Старый 21.05.2018, 18:07
Tech N9ne Tech N9ne вне форума
Прохожий
 
Регистрация: 18.05.2018
Сообщения: 31
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию

Код:
uses IdMultipartFormData;
{ .... }
procedure TForm1.Button1Click(Sender: TObject);
var
data: TIdMultiPartFormDataStream;
Ssilka: String;
begin
data := TIdMultiPartFormDataStream.Create;
try
{ передаём папаметры скрипту }
       data.AddFile('Filename', sEdit1.Text, '');  // в эдите путь к картинке, формата jpg
              data.AddFormField('link', '/');
              data.AddFormField('action', 'loadimg');
              data.AddFormField('client'  ,'ipic.su');
              data.AddFormField('image'  ,'Content-Type: image/jpeg');

{ Вызываем Post метод компонента TIdHTTP и считываем результат в TMemo }
              Ssilka := IdHTTP1.Post('http://ipic.su/', data);
              sMemo1.Lines.Clear;
              sMemo1.Lines.Add(Ssilka);
finally
data.Free;
end;
end;

Что делаю не так????
В мемо получаю - Only jpg|gif|png imagetypes support.

Ответить с цитированием