|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
29.12.2012, 11:50 | #1 |
Новичок
Джуниор
Регистрация: 28.12.2012
Сообщений: 6
|
Загрузить аватарку Вконтакте Delphi.
Всем привет! Проблема такая, пробую загрузить аватарку Вконтакте, но почему-то этого не происходит, фотография загружается, это видно по ответам от сервера, но когда я отправляю параметры на изменение фотографии она посылает меня.. короче помогите разобраться!
Код: 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; |
29.12.2012, 12:55 | #2 |
Форумчанин
Регистрация: 27.05.2009
Сообщений: 192
|
куда и каким образом посылает?
|
29.12.2012, 14:16 | #3 |
Пользователь
Регистрация: 05.08.2010
Сообщений: 48
|
Kazik, Отсылается все через Indy Post'ом, блин кто-нибудь ответить может?
Последний раз редактировалось denbox; 29.12.2012 в 15:29. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Загрузить аватарку Вконтакте Delphi | denbox | Помощь студентам | 7 | 31.12.2012 16:23 |
Загрузить аватарку Вконтакте Delphi | denbox | Общие вопросы Delphi | 6 | 31.12.2012 15:40 |
delphi и вконтакте | gufon | Работа с сетью в Delphi | 2 | 28.04.2011 18:09 |
выдернуть аватарку из скайпа | leonw | Работа с сетью в Delphi | 0 | 20.03.2010 03:16 |