Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi: Сети
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.94/16: Рейтинг темы: голосов - 16, средняя оценка - 4.94
delphi-sly
84 / 19 / 6
Регистрация: 23.09.2012
Сообщений: 617
1

Пример работы VKapi

09.10.2012, 21:45. Просмотров 2887. Ответов 1
Метки нет (Все метки)

Добрый вечер.
Подскажите какие нибудь исходники где наглядно показанно примеры работы с VKAPI.
Пожалуйста вместе с НЕОБХОДИМЫМИ КОМПОНЕНТАМИ
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.10.2012, 21:45
Ответы с готовыми решениями:

VKApi, Synapse Delphi 7
Доброго времени суток! Пишу свой плеер ВКонтакте. Помимо прослушивания...

Delphi vkapi и client_id=
Всем привет ребят, очень надеюсь на вашу помощь) кто нибудь подскажет как...

VkApi, когда появляется капча - приостановить действие программы
Как сделать так,чтобы когда появляется каптча приостановить действие...

Как слать запрос для постинга на стенку [VKAPI]
Привет всем. Начала потихоньку изучать Delphi, ну как изучать....хочу...

Пример онлайн работы
Здравствуйте, не оставьте пожалуйста новичка форума без внимания. Мне...

1
sumrak95
Избранный
83 / 83 / 42
Регистрация: 08.06.2012
Сообщений: 174
11.10.2012, 14:34 2
Лучший ответ Сообщение было отмечено delphi-sly как решение

Решение

Компонентов для работы с Vk Api никаких не нужно, читай подробно документацию!

Данный код публикует новую запись на стене выбранного пользователя:
на форме 2 едита для ввода логина и пароля, веббраузер на второй форме, 3 кнопки, мемо(для вывода логов работы)

//тут мы входим в акаунт
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
procedure TForm1.Button1Click(Sender: TObject);
begin
IdHTTP1.AllowCookies:=True;
 IdHTTP1.HandleRedirects:=true;
 t:=TStringList.Create;
 try
  PageProfile:=IdHTTP1.Get('http://login.vk.com/?act=login&email='+edit1.Text+'&pass='+edit2.Text);
 except
 end;
 if Pos('logout', PageProfile)>0 then
 begin
memo1.Lines.Add('Авторизация прошла успешно!')
 end
 else
memo1.Lines.Add('Не удается войти.');
end;
//тут мы еще раз входим в акаунт только уже с помощью веббраузера и подтверждаем добавления приложения себе(в будущем можно обойтись без веббраузера, заменив все действия пост запросом, но пока вам будет легче именно так)
Delphi
1
2
3
4
5
procedure TForm1.Button3Click(Sender: TObject);
begin
form2.Visible:=true;
form2.WebBrowser1.Navigate('http://oauth.vk.com/authorize?client_id=3094229&scope=wall,photos,messages,groups&redirect_uri=http://oauth.vk.com/blank.html&display=touch&response_type=token');
end;
ВНИМАНИЕ! client_id= указан номер моего приложения, можешь канечно работать и так, но вообще лучше создать свое))

//тут мы отправляем сообщение выбранному пользователю, для этого укажите его id(без слово ид)
Delphi
1
2
3
4
5
6
procedure TForm1.Button4Click(Sender: TObject);
begin
a:=form2.WebBrowser1.LocationURL;
a:=Pars('access_token=',a,'&') ;
memo1.Text:=IdHTTP1.Get('https://api.vk.com/method/wall.post.xml?owner_id=тут ид того кому будет отправлять&from_group=1&message=testovoe_soobshenie&access_token='+a);
end;
и, да процедура парса:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
...
  public
  function Pars(T_, ForS, _T:string):string;
...
function TForm1.Pars(T_, ForS, _T: string): string;
var a, b:integer;
begin
Result := '';
if (T_='') or (ForS='') or (_T='') then Exit;
a:=Pos(T_, ForS);
if a=0 then Exit else a:=a+Length(T_);
ForS:=Copy(ForS, a, Length(ForS)-a+1);
b:=Pos(_T, ForS);
if b>0 then
Result:=Copy(ForS, 1, b - 1);
end;
p.s. Свое приложение можешь создать здесь:
http://vk.com/editapp?act=create
(Standalone-приложение)
p.s.s. стена для тебя должна быть открыта у того кому отправляешь
Для работы с https нужны специальные библиотеки
4
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
11.10.2012, 14:34

Пример работы AlarmManager
Может кто то объяснить работу AlarmManager на конкретном примере. Задача...

Пример работы с DAO
HELP! Может кто-нибудь работал DAO. Мне нужен какой-нибудь примерчик. Если у...

Пример работы с CryptAPI
Hello! Подкиньте примерчик или ссылку где почитать. С Уважением.


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru