Форум программистов, компьютерный форум CyberForum.ru

Vkontakte API - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Перевод кода Pascal в C++ http://www.cyberforum.ru/cpp/thread305114.html
Доброго времени суток, форумчане! Помогите переделать пару строк с pascal На c++. (Хотя бы самые основные, ибо это парсинг и почти аналогичные, отличаются искомым символом в строке) В pascale не особо сильна, поэтому для меня составляет некоторую сложность переписать следующий код unit Recognition; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,...
C++ Вопрос по переменным Привет. Подскажите как записать переменные из form1 в double fun0-1 подробнее на скринах http://www.cyberforum.ru/cpp/thread305016.html
Метод Ньютона решения НУ, знаки производных C++
Здравствуйте, понимаю, что подобных тем на форуме уже выше крыши, но все таки создам) Задача решить нелинейное уравнение методом Ньютона, программа решает всё нормально, только хочу сделать такую фишку, чтобы в консоли выводились сообщения о том, что на заданном отрезке либо отсутствует корень, либо их несколько, буду рад любой помощи, спасибо. #include "stdafx.h" #include <conio.h>...
C++ С в разработке систем реального времени
Здравствуйте! Не могли бы вы указать основные преимущества С в разработке СРВ? Возможно, есть места, где об этом можно прочитать?
C++ работа с файлами http://www.cyberforum.ru/cpp/thread304513.html
Помогите с решением задачи. Вход — файл на диске in5.dat, состоящий из слов, разделенных пробелами. Два последних слова - символьное изображение чисел. Выход - на экран дисплея. Дано множество слов одинаковой длины, из них два слова выделены (выделенным словам соответствуют их номера, записанные в конце файла in5.dat). Построить цепь от первого выделенного слова ко второму так, чтобы все слова...
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('Введите нижний предел интегрирования '); readln(a); write('Введите верхний предел интегрирования '); readln(b); write('Введите количество отрезков '); readln(n); подробнее

Показать сообщение отдельно
Danvern
40 / 39 / 3
Регистрация: 22.06.2010
Сообщений: 415
Записей в блоге: 1
27.05.2011, 09:14  [ТС]     Vkontakte API
нашёл исходник на 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 ?
 
Текущее время: 17:51. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru