Форум программистов, компьютерный форум, киберфорум
C++
Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Вопрос по переменным https://www.cyberforum.ru/ cpp/ thread305016.html
Привет. Подскажите как записать переменные из form1 в double fun0-1 подробнее на скринах
C++ как будет на с++?
Program pravii; {Метод правых прямоугольников} uses crt; var i,n:integer; a,b,h,x,xb,s:real; function f(x:real):real; begin f:=(1/x)*sin(3.14*x/2); end; begin clrscr; write('Введите нижний...
C++ Не находин хендел
сдрасте есть код,который не работает. также есть окно с титлом Garena там же есть класс RichEdit20W по сути должно работать . А неработает ...
C++ Run-Time Check Failure #2 - Stack around the variable 'task' was corrupted. void Dispatch(){ if (gRunTask.entry != NULL){ if (setjmp(gE) != 0) return; *gRunTask.env = *gE; gRunTask.jmp = true; } if(gRunTask.entry == NULL){ if(gReadyTask.begin() ==... https://www.cyberforum.ru/ cpp/ thread302457.html
C++ Код потребляет очень много памяти. Подскажите как оптимизировать? https://www.cyberforum.ru/ cpp/ thread302331.html
Есть код на C++ (компилируется под GCC) - подсчёт коэффициентов осцилляторной системы методом Рунге-Кутта (метод в простейшем случае). Проблема в том, что секунд за 10, он успевает занять метров 600...
C++ C++ паттерны, архивация файлов
Начал делать реализацию паттерна Strategy, короче если кто-то может завершить код помогите. А вообще вопрос стоит так: "как запустить архивацию в С++?". Если кто может помогите. #include <iostream>...
Удаление средней буквы из нечетного слова C++
помогите пожалуйста составьте программу с кодом на С, просто я сам нешарю в строках. Условие:Дана последовательность, содержащая от 2 до 30 слов, в каждом из которых от 2 до 10 строчных русских...
C++ Назначение кода Добрый день, скажите плиз, что означают эти строчки кода x1 = rc.right/25-rc.left; k=(xk-xn)/(rc.right*23/25+rc.left); Добавлено через 8 часов 55 минут вопрос ещё актуален https://www.cyberforum.ru/ cpp/ thread301779.html
C++ BGI библиотека вращение прямой https://www.cyberforum.ru/ cpp/ thread301287.html
Здравствуйте уважаемые форумчане! Вот беда, не могу справиться с компьютерной графикой. Прошу вашей помощи. Вот задача: Аршин. На нижней стороне прямоугольника CDEF (экрана) лежит отрезок AB...
C++ DNS помогите пожалуйста с написанием простейшей программы работы DNS-сервера с базой данных https://www.cyberforum.ru/ cpp/ thread300968.html
40 / 39 / 5
Регистрация: 22.06.2010
Сообщений: 415
Записей в блоге: 1
27.05.2011, 09:14  [ТС] 0

Vkontakte API

27.05.2011, 09:14. Просмотров 4127. Ответов 7
Метки (Все метки)

Ответ

нашёл исходник на delfi
и тут постоянно пишет
"Incorect signature."
пробовал то же самое вручную сделать не чего не получилось((((
постоянно это ошибка.
Код

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
unit Unit1;
 //DelphiExpert.ru
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IdComponent, IdHashMessageDigest, OleCtrls, SHDocVw;
 
type
  TForm1 = class(TForm)
    WebBrowser1: TWebBrowser;
    Memo1: TMemo;
    Button2: TButton;
    Button4: TButton;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Button6: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label6: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    procedure Button2Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
  private
    { Private declarations }
   function md5(s: string): string;
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  stroka2,stroka3, sig :string;
 
 
implementation
 
{$R *.dfm}
// Â èñõîäíèêå ÿ âñòàâèë 2 êîìïîíåíòà Edit äëÿ ââîäà
// Id Âàøåãî ïðèëîæåíèÿ è ID ïîëüçîâàòåëÿ âêîíòàêå
// Äëÿ òîãî ÷òî áû âñå íå ëîìèëèñü êîìíå íà ñòðàíèöó)))
 
 //Ïðîõîäèì àâòîðèçàöèþ, ïðåäïîëàãàåòñÿ ÷òî ïîëüçîâàòåëü óæå äîáàâèë ïðèëîæåíèå ê
 // ñåáå íà ñòðàíèöó âêîíòàêòå.
procedure TForm1.Button2Click(Sender: TObject);
begin
WebBrowser1.Navigate('http://vkontakte.ru/login.php?app='+Edit2.text+'&layout=popup&type=browser');
end;
 
// Îòïðàâëÿåì çàïðîñ íà ñåðâåð
procedure TForm1.Button6Click(Sender: TObject);
begin
//Ñîñòàâëÿåì ïîäïèñü çàïðîñà
sig:=Edit1.text+'api_id='+Edit2.Text+'method=getProfiles='+Edit1.Text+'v=3.0'+stroka3;
sig:=md5(sig);  // Êîäèðóåì â Md5
label5.Caption:=sig;
// Îòñûëàåì âñå íà ñåðâåð
WebBrowser1.Navigate('http://api.vkontakte.ru/api.php?api_id='+Edit2.Text+'&method=getProfiles&sid='+stroka2+'&sig='+sig+'&uids='+Edit1.Text+'&v=3.0');
end;
 
//Èç àäðåñíîé ñòðîêè âûäåðãèâàåì ïåðåìåííûå secret è sid
procedure TForm1.Button4Click(Sender: TObject);
var start2,start3:integer;
URL:string;
begin
URL:=WebBrowser1.LocationURL;
 Memo1.Text:=Url; // Äëÿ íàãëÿäíîñòè âûâîäèì àäðåñíóþ ñòðîêó áðàóçåðà â Memo, â ïðèíöèïå ñòðîêó ìîæíî óäàëèòü !)
 
start3:=Pos('secret%22%3A%22',URL);
stroka3:=Copy(URL, start3+15, 900);
Delete(stroka3, Pos('%22%2C%22expire',stroka3) , 5900);
Label4.caption:=stroka3;
 
start2:=Pos('sid%22%3A%22',URL);
stroka2:=Copy(URL, start2+12, 500);
Delete(stroka2, Pos('%22%2C%22secret',stroka2) , 5900);
Label3.caption:=stroka2;
 
end;
 
 
// Ôóíêöèÿ Md5
function TForm1.md5(s: string): string;
begin
Result := '';
  with TIdHashMessageDigest5.Create do
  try
    Result := AnsiLowerCase(AsHex(HashValue(s)));
  finally
    Free;
  end;
end;
 
 //DelphiExpert.ru
 //Óäà÷íîé êîìïèëÿöèè...!
 
end.


Добавлено через 4 часа 3 минуты
Dejust, а ты можежь показать как пользоваться VAPI ?

Вернуться к обсуждению:
Vkontakte API
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
27.05.2011, 09:14

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

API Vkontakte
Почему мне пишет VM358 openapi.js:563Open api access error? Как это убрать? В консоле писал...

API Vkontakte, изучение
Здравствуйте. Хочу изучить API Vkontakte, пытаюсь сделать приложение, работающее с ним. Пока что...

API vkontakte json_decode
Есть запись в формате JSON: Н-р: $k = '{&quot;response&quot;:}'; Далее я хочу перевести всё это в...

Работа с vkontakte API
Здравствуйте, я раньше писал об аутентификацие через соц. сети. Решил использовать ВК, нашел...

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