-1 cfg.
Премиум
- Регистрация
- 9 Сен 2015
- Сообщения
- 119
- Реакции
- 294
- Тема Автор Вы автор данного материала? |
- #1
Не могу получить ответ от api vk. Вроде компилятор показывает что ошибок нету,но в memo ничего не записывается.
В данном случае отправляется запрос на получение друзей и ответ должен записаться в мемо.
Все переменные которые не записаны в var ,находятся в глобальных.
В данном случае отправляется запрос на получение друзей и ответ должен записаться в мемо.
Все переменные которые не записаны в var ,находятся в глобальных.
Код:
procedure TForm1.Button2Click(Sender: TObject);
var
getstrs:Boolean;
begin
try
HTTP:=THTTPSend.Create;
Log:=TStringList.Create;
getstrs:=HTTP.HTTPMethod ('GET' , 'https://api.vk.com/method/friends.get?&access_token='+tok);
HTTP.Clear;
begin
Log.LoadFromStream(HTTP.Document);
copy(Log.Text,1,-1);
Tmemo2.Lines.Add(Log.Text);
{Tmemo2.Lines.Add('Ошибка.Что-то пошло не так.');
end;}
end;
finally
FreeAndNil(HTTP);
FreeAndNil(Log);
end;
end;