Как закачать фото на сайт delphi

вот что снифер перехватывает

 

изъяснись конкретнее: что ты перехватил, что за сайт, есть ли попытки написания кода?

 

Это кодировка multipart form-data, можешь найти о ней инфу в Google. Когда ознакомишься, - без трудностей сможешь загрузить картинку на требуемый сайт.

 

Code:

var
 formData: TIdMultiPartFormDataStream; 
 s,url:string; 
 reggi:tregexpr ;   
begin 
  try formdata:=TIdMultiPartFormDataStream.Create; formData.AddFile('F',furl,'image/gif');  formData.AddFormField('upload', 'yes'); formData.AddFormField('rotate_angle', '0°'); 
s:=  form1.idHTP1.Post('http://www.radikal.ru/action.aspx',formData);  
reggi:=tregexpr.Create;
reggi.Expression:='<input id="input_link_1" value="(.*?)"'; if reggi.Exec(s) then begin 
url:=reggi.Match[1];   
showmessage(url) end
 else showmessage('Не удалось загрузить изображение');
  finally  formdata.Free;  reggi.Free; end;

вот делал недавно заливку картинки на радикал, можешь заточить под свой сайт

 

Вот запрос:

вот я попытался сделать запрос, правильно?

 

кто поможет?

 

Вот так

 

aydar, зачем ты после заполнения formdata, не отправив запрос сразу его освобождаешь?

 

Забыл поставить ,

т.е. конечный код должен быть таким?

 

да

 

че то не получаеться делаю вот так:

вот сапрос при правильной отправки:

Может из-за этого параметра filename="123.jpg" ?

 

блин, никак не получаетться(((

 

вот так должно быть, тоесть не nfile, не nadd, а без n.