отправить картинку на 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

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