Текущий архив: 2009.02.22;
Скачать: CL | DM;

Вниз

отправить картинку на radikal.ru (INDY)   Найти похожие ветки 

← →
Venkin   (2008-01-02 16:21) [0]

подскажите как отправить картинку на radikal.ru с помощью Indy (Tidhttp)?
делаю:

procedure TForm1.Button1Click(Sender: TObject);
var sl: Tstrings;
begin
sl := TStringList.Create;
idhttp1.HandleRedirects := true;
idhttp1.Disconnect;
browser.Silent := true;
sl.Add("test111=vvv");
sl.Add("upload=yes");
sl.Add("JQ=85");
sl.Add("F="C:\Image.jpg"");
sl.Add("CP=yes");
sl.Add("VE=yes");
sl.Add("VM=180");
sl.Add("Submit=1"); // тут чего писать?
try
memo1.Text := idhttp1.Post("http://www.radikal.ru/action.aspx", sl);
finally
sl.Free;
end;
end;

в ответ получаю: "Ошибка. Отсутствует файл"
файл точно есть на винте..

---

← →
MetalFan ©   (2008-01-02 19:03) [1]

ну так файл то не отсылаешь...

> browser.Silent := true;

а это нафиг???
используй вместо TStringList TIdMultipartFormData

---

Страницы: 1 вся ветка

Текущий архив: 2009.02.22;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.031 c