Нет ответа на запрос в тюряге...

[c3262564@pjjkp.]

добрый день!
вот кусок кода на получения всей информации о зеке:
procedure TForm1.Button2Click(Sender: TObject);
var
req: TStringList;
response: string;
begin
req := TStringList.Create;
req.Add('user='+Edit1.Text);
req.Add('key='+Edit2.Text);
req.Add('sig=ee7012e5e6f614c7d7835d5de35ab3e5');
req.Add('method=getinfo');
response := Id[Ссылки могут видеть только зарегистрированные и активированные пользователи]('[Ссылки могут видеть только зарегистрированные и активированные пользователи]',req);
memo1.Lines.Add(req); // запрос
memo2.Lines.Add(response); //ответ от сервера
...
end;
ответа от сервера нет....почему???

[OP3]

ну и что это?
req.Add('sig=ee7012e5e6f614c7d7835d5de35ab3e5');

вот эту вещь ee7012e5e6f614c7d7835d5de35ab3e5
нужно получать каждый раз перед авторизацией))
могу продать бота. написал уже))
Это md5-подпись запроса. Перед авторизацией её получить не получится ;) Зубрим матчасть пока не заработает мозг. ([Ссылки могут видеть только зарегистрированные и активированные пользователи] %D0%B9%D1%81%D1%82%D0%B2%D0%B8%D0%B5+%D0%BF%D1%80% D0%B8%D0%BB%D0%BE%D0%B6%D0%B5%D0%BD%D0%B8%D1%8F+%D 1%81+API)
Даже не говоря о том что тут 2 бесплатных раздают умудряемся кого-то впаривать? :)

З.Ы. Не надо вестись на подобную чушь, граждане, оградите себя от развода ;)

[NMDSOFT]

OP3 сам учи мат часть:flood:. я по запросам все сам написал, так грызи ногти!
а тебе c3262564@pjjkp. необходимо сначала авторизироваться в вконтакте(идиотское название ну ладно)

F[Ссылки могут видеть только зарегистрированные и активированные пользователи]('GET','[Ссылки могут видеть только зарегистрированные и активированные пользователи]'+FLogin+'&pass='+FPass);
if F[Ссылки могут видеть только зарегистрированные и активированные пользователи] then //был редирект или нет
begin
sHtml:=Url_Load('GET', [Ссылки могут видеть только зарегистрированные и активированные пользователи]( F[Ссылки могут видеть только зарегистрированные и активированные пользователи]),'');
FSid:=VK_SID(sHtml);//вот из страницы редиректа уже получаем как вариант Sid



function VK_SID(aValue: string): string;
const
SID='''sid'',';
ENDSID=''', 1);';
var
bSid,eSid:Integer;
begin
bSid:=Pos(SID,aValue);
Delete(aValue,1,bSid+length(SID)+1);
eSid:=Pos(ENDSID,aValue);
Result:=Copy(aValue,1,eSid-1);
end;

[4ugastrik]

OP3, Прав! sig генерится разный при разных запросах!