Загрузить аватарку Вконтакте Delphi

[denbox]

Всем привет! Проблема такая, пробую загрузить аватарку Вконтакте, но почему-то этого не происходит, фотография загружается, это видно по ответам от сервера, но когда я отправляю параметры на изменение фотографии она посылает меня.. короче помогите разобраться!

Procedure UploadPhoto;
var data:tstringlist;
data1:TIdMultiPartFormDataStream;
i,n:integer;
url_check:string;
begin
data1 := Tidmultipartformdatastream.Create;
   data:=tstringlist.create;
   data.Add('act=owner_photo_box');
   data.Add('al=1');
   data.Add('oid='+html);
url:=form1.IdHTTP1.Post('http://vk.com/al_page.php', data);
url_check:=url;
delete(url_check, 1, pos('check_url', url_check)+11);
delete(url_check, pos('"', url_check), length(url_check));
delete(url_check, 1, pos('cs',url_check)-1);
i:=posEx('\',url_check, 1);
delete(url_check, i, 1);
data1.AddFile('photo', '1.jpg', 'image/jpeg');
form1.idHTTP1.post('http://'+url_check, data1);
data1.Clear;
delete(url, 1, pos('OwnerPhoto.uploadInit({"url":"', url)+29);
delete(url, 1, pos('cs',url)-1);
url:='http://'+url;
i:=posEx('com',url, 1)+3;
delete(url, i, 1);
delete(url, pos('"',url), length(url));
data.Clear;
data1.AddFile('photo', '1.jpg', 'image/jpeg');
url:=form1.idHTTP1.post(url, data1);
data1.free;
form1.IdHTTP1.Request.ContentType:='';
data.clear;
data.add('_query='+URLDecode(url));
data.add('act=owner_photo_save');
data.add('al=1');
form1.idhttp1.post('http://vk.com/al_page.php', data);
end;

[denbox]

помогите кто, плиз..

[Smogg]

Не достаточно корректно эмулируются действия пользователя? JavaScript и все такое? Попробовать загружать страницу в браузер программы, там ее изменять и программно "нажимать" кнопку "Загрузить"?

Для личного пользования такой вариант пойдет.

[denbox]

Сообщение от Smogg

Не достаточно корректно эмулируются действия пользователя? JavaScript и все такое? Попробовать загружать страницу в браузер программы, там ее изменять и программно "нажимать" кнопку "Загрузить"?

Для личного пользования такой вариант пойдет.

Я бы сделал уже давно так, но это меня не устраивает, именно такой способ..

[Smogg]

А что у Вас с кукисами?

[denbox]

Сообщение от Smogg

А что у Вас с кукисами?

Все нормально... я не понимаю, только что слать, чтобы поставить на аватарку ее... т.к ответ от сервера приходит, что все нормально, фотка загружена и даются там всякие параметры этой фотки.. Делаю все точно как по сниферу, а эффекта 0

[denbox]

Блин поможет кто?

[ACE Valery]

блин, слушай меня. никто помогать тебе не обязан. к тому же учитывая твой кросспостинг и гонор. научись корректно формулировать вопросы сначала. что такое "посылает на..."? Где описание этого посыла? Где сообщение о корректной загрузке?