Загрузка картинок на radikal.ru

[Joe_Tribbiani]

Как программно загрузить картинку на radikal.ru ?
Возможно уже есть готовые исходники?...)
Заранее спасибо...

[Квэнди]

Исходников не видел. Там все по накатаной, просто порядочно писанины.
А так, стандартная форма,которую надо заполнить и отправить POST.
Общие принципы описывал здесь
Единственное что здесь надо отметить, что для выполнения вашей задачи надо составить multipart data

[Joe_Tribbiani]

простой Post запрос не проходит так как саму картинку надо загрузить на сервер, в ответе получаю : "Неверный идентификатор картинки"
,тоесть я отправляю нужные параметы, но сама куартинка не залилась на сервер...

надо составить multipart data

что это?
а...

...
var
PostData: TIdMultiPartFormDataStream;
begin
...
PostData.AddFile(...);

Тоесть нужно отправить такой же пост запрос, только использовать TIdMultiPartFormDataStream ?
Я правильно понял?
тоесть нужно писать чтото вроде этого: ?

#

procedure TfrmMain.btn4Click(Sender: TObject);  //послать multipart
var
  PostData: TIdMultiPartFormDataStream;
begin
  PostData := TIdMultiPartFormDataStream.Create;
  try
    HTTP1.Request.Referer := 'http://www.link.net/download';
    HTTP1.Request.ContentType := 'multipart/form-data';
    PostData.AddFormField('field1', 'msg1');
    PostData.AddFile('attach', 'file.rar', 'application/x-rar-compressed');
    PostData.AddFormField('field2', 'msg2');
    PostData.AddFormField('action', 'post');
    HTTP1.Post('http://' + Host + '/download', PostData);
    Application.ProcessMessages;
  finally
    if(Assigned(PostData)) then
      PostData.Free;
    ShowMessage('OK');
  end;
end;

[Квэнди]

Да, именно так, ну и главное проверить что все поля формы будут учавстсовать в запросе.
Ну и для уверенности все- таки отснифить оригинальный Post и сверится

[Joe_Tribbiani]

Работает! спс Квэнди !)

[Квэнди]

Без проблем ) Если у вас будет желание, опубликуйте для общественности ваши изыскания ) лучше всего здесь

[Joe_Tribbiani]

Кому интересно, вот код)
я не отправлял параметры для измнения изображения(качество, ...)
,но при желании их легко можно добавить
отправил только размер

 PostData.AddFormField('M', '500');

где 500 - размер до которого уменьшаеться изображение

в разделе uses нужно добавить IdMultipartFormData
на форме размещаем idhttp , openpicturedialog, webbrowser

В конце отправки в переменную link заноситься ссылка на картинку
которая открываеться в Webbrowser

procedure TForm1.sButton1Click(Sender: TObject);
var

  PostData: TIdMultiPartFormDataStream;
  filename,link:string;
   stream:tstringstream;
   k,i:integer;
begin
stream:=tstringstream.Create;
  PostData := TIdMultiPartFormDataStream.Create;
  if sopenpicturedialog1.Execute then begin
   filename:=sopenpicturedialog1.FileName;
   try
    idhttp1.Request.Referer:= 'http://www.radikal.ru/';
    idhttp1.Request.ContentType:= 'multipart/form-data';
    PostData.AddFormField('upload', 'yes');
    PostData.AddFormField('GEO_POINT_ID', '');
    PostData.AddFormField('O', 'yes');
    PostData.AddFormField('M', '500');
    PostData.AddFile('attach', filename, 'image');
    idHTTP1.Post('http://www.radikal.ru/action.aspx', PostData,stream);
   k:=pos('<input type="hidden" id="url4res" value="',stream.DataString);
   i:=k+length('<input type="hidden" id="url4res" value="');
   link:='';
   while stream.DataString[i]<>'"' do begin
   link:=link+stream.DataString[i];
   i:=i+1;
   end;
   webbrowser1.Navigate(link);
    Application.ProcessMessages;
  finally
    if(Assigned(PostData)) then
      PostData.Free;
  end;
end;
stream.Free;

end;

[Joe_Tribbiani]

Теперь у меня еще одна проблема...
imgfiles.ru
тут почемуто неполучаеться этим способом...
Вот мой код, если кто-то знает как, помогите плз...)

procedure TForm5.sButton2Click(Sender: TObject);
var
  PostData: TIdMultiPartFormDataStream;
   link:string;
   stream:tstringstream;
   k,i:integer;
begin
stream:=tstringstream.Create;
  PostData := TIdMultiPartFormDataStream.Create;
   try
    idhttp1.Request.Referer:= 'http://imgfiles.ru/';
    idhttp1.Request.ContentType:= 'multipart/form-data';
    IdHTTP1.HandleRedirects := True;
    PostData.AddFormField('imgCount', '0');
        PostData.AddFormField('uplFile0', filename);

        PostData.AddFormField('uplComment', '');

     if scheckbox1.Checked=true  then
     PostData.AddFormField('uplImgSize', sedit2.Text);

      PostData.AddFormField('uplPrevSize', sedit5.Text);
       PostData.AddFormField('uplWatermark', '0');
       PostData.AddFormField('uplAlbum', 'System_default');

       if scheckbox2.Checked=true  then
       PostData.AddFormField('putInfo', 'checked')
       else PostData.AddFormField('putInfo', '') ;

       if scheckbox3.Checked=true  then
       PostData.AddFormField('uplEro', '1');


    PostData.AddFile('attach', filename, 'image');
    postData.AddFormField('uplSub','Загрузить');

    idHTTP1.Post('http://imgfiles.ru/', PostData,stream);
      Application.ProcessMessages;
    stream.SaveToFile(extractfilepath(application.ExeName)+'imgfiles.html');
    webbrowser1.Navigate(extractfilepath(application.ExeName)+'imgfiles.html');
 
  finally
    if(Assigned(PostData)) then
      PostData.Free;
end;
stream.Free;

И в Вебброузере появляеться пустая страница... что делать?

[Квэнди]

То, что сразу бросилось в глаза:
не указано поле uplComment
некоторые поля заполняются условно, а лучше заполнть все обязательно хотя бы пустыми значениями

[Joe_Tribbiani]

Добавил поле, всёравно не отправляет...