21.05.2018, 18:07
|
Прохожий
|
|
Регистрация: 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.
|