Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 28.12.2012, 14:03   #1
denbox
Пользователь
 
Аватар для denbox
 
Регистрация: 05.08.2010
Сообщений: 48
Восклицание Загрузить аватарку Вконтакте 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;
denbox вне форума
Старый 28.12.2012, 15:20   #2
Delphi_ProGer
Форумчанин
 
Регистрация: 30.10.2010
Сообщений: 524
По умолчанию

Авторизацию проходишь?
Delphi_ProGer вне форума
Старый 28.12.2012, 15:33   #3
denbox
Пользователь
 
Аватар для denbox
 
Регистрация: 05.08.2010
Сообщений: 48
По умолчанию

Цитата:
Сообщение от Delphi_ProGer Посмотреть сообщение
Авторизацию проходишь?
Ну конечно! .... С авторизацией все окей... Вот с загрузкой фотографии траблы!
denbox вне форума
Старый 28.12.2012, 18:47   #4
denbox
Пользователь
 
Аватар для denbox
 
Регистрация: 05.08.2010
Сообщений: 48
По умолчанию

Помогите плиз кто
denbox вне форума
Старый 28.12.2012, 20:03   #5
skyblue2202
Новичок
Джуниор
 
Регистрация: 27.12.2012
Сообщений: 1
По умолчанию

lГЄn cho cбєЈ nhГ* biбєїt nГ*o

Hб»™p giбєЈm tб»‘c Hб»™p giбєЈm tб»‘c
skyblue2202 вне форума
Старый 28.12.2012, 20:06   #6
denbox
Пользователь
 
Аватар для denbox
 
Регистрация: 05.08.2010
Сообщений: 48
По умолчанию

Цитата:
Сообщение от skyblue2202 Посмотреть сообщение
lГЄn cho cбєЈ nhГ* biбєїt nГ*o

Hб»™p giбєЈm tб»‘c Hб»™p giбєЈm tб»‘c
ЧЕ за на такое?
denbox вне форума
Старый 31.12.2012, 15:40   #7
denbox
Пользователь
 
Аватар для denbox
 
Регистрация: 05.08.2010
Сообщений: 48
По умолчанию

Блин поможет кто?
denbox вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Загрузить аватарку Вконтакте Delphi denbox Помощь студентам 7 31.12.2012 16:23
delphi и вконтакте gufon Работа с сетью в Delphi 2 28.04.2011 18:09
Вконтакте и Delphi Onekey Работа с сетью в Delphi 3 07.11.2010 19:36
выдернуть аватарку из скайпа leonw Работа с сетью в Delphi 0 20.03.2010 03:16