- Регистрация
- 9 Сен 2015
- Сообщения
- 119
- Реакции
- 298
- Тема Автор Вы автор данного материала? |
- #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; 
 
  
 
		 
 
		