Форум программистов, компьютерный форум, киберфорум
Delphi: Сети
Войти
Регистрация
Восстановить пароль
 
0 / 0 / 2
Регистрация: 26.05.2016
Сообщений: 10
1

Крякозябры при запросе wall.search vk api

16.11.2016, 13:27. Показов 490. Ответов 1
Метки нет (Все метки)

Доброго дня всем. Получаю список сообщений со стены группы в вк:
Delphi
1
2
3
4
5
6
7
8
HTTP:=THTTPSend.Create;
  HTTP.UserAgent:='Mozilla/5.0 (Windows NT 5.1; rv:14.0) Gecko/20100101 Firefox/14.0.1';
  HTTP.Protocol:='1.1';
  http.Cookies.Text:=vk_cook;
  HTTP.HTTPMethod('GET', url+'&access_token='+token);
  Response.LoadFromStream(HTTP.Document);
  resu1:=HTTP.Headers.Text;
  HTTP.Free;
отправляю такой запрос: https://api.vk.com/method/wall... с&count=15

и в ответ приходит:
JSON
1
{"response":[426,{"id":2780059,"from_id":21399117,"to_id":-13014898,"date":1478523880,"post_id":2779419,"post_type":"reply","text":"[id39724764|Ð&#144;ндрей], Я пробовал запуÑ&#129;кать Ñ&#129;иÑ&#129;тему через Linux, думал что Windows 10 жрет, но на Linux такаÑ&#143; же лажа! Ð’ проÑ&#129;тое работает 3,2 ГГц, а под нагрузкой 1,9...","comments":{"count":0},"likes":{"count":0},"reposts":{"count":0}},{"id":2771210,"from_id":137043384,"to_id":-13014898,"date":1478261642,"post_type":"post","text":"ищу работу <br>17 лет; могу: прокладывать utp кабель обжимка кабелÑ&#143; ,наÑ&#129;тройка Ñ&#129;етевого оборудованиÑ&#143;,ремонт пк и ноутбуков ,Ñ&#129;борка пк, уÑ&#129;тановка любого Ñ&#129;офта, <br>работать во вÑ&#129;ех приложениÑ&#143;Ñ… линейки ms office , базовые знаниÑ&#143; html, уÑ&#129;тановка Ñ&#129;айтов наÑ&#129;тройка доменов, умею работать на windows linux, <br>работал в Ñ&#129;принте 6 меÑ&#129;Ñ&#143;цев, имею Ñ&#129;обÑ&#129;твенный Ñ&#129;айт Ñ&#143;-маÑ&#129;терÑ&#129;каÑ&#143;.рф","comments":{"count":6},"likes":{"count":2},"r
другие запросы (users.get и т.д приходят в читаемом виде (или с использованием utf8decode() приходят в читаемый вид)) может кто сталкивался с подобной проблемой, прошу подсказать.

Добавлено через 1 час 54 минуты
Проблема решена.
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
function ConvertFromUTF8(const Source: string): string;
var
 Iterator, SourceLength, FChar, NChar: Integer;
begin
 { Convert UTF-8 string to ANSI string }
 Result := "";
 Iterator := 0;
 SourceLength := Length(Source);
 while Iterator < SourceLength do
 begin
   Inc(Iterator);
   FChar := Ord(Source[Iterator]);
   if FChar >= $80 then
   begin
     Inc(Iterator);
     if Iterator > SourceLength then break;
     FChar := FChar and $3F;
     if (FChar and $20) <> 0 then
     begin
       FChar := FChar and $1F;
       NChar := Ord(Source[Iterator]);
       if (NChar and $C0) <> $80 then  break;
       FChar := (FChar shl 6) or (NChar and $3F);
       Inc(Iterator);
       if Iterator > SourceLength then break;
     end;
     NChar := Ord(Source[Iterator]);
     if (NChar and $C0) <> $80 then break;
     Result := Result + WideChar((FChar shl 6) or (NChar and $3F));
   end
   else
     Result := Result + WideChar(FChar);
 end;
end;
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.11.2016, 13:27
Ответы с готовыми решениями:

Vk api (метод wall.search)
Здравствуйте. Использую метод wall.search для поиска нужных постов на стене и столкнулся с такой...

API VK: при работе wall.get дальше прелоадера нет изменений
файл popup.js $(document).ready(function () { $.ajax({ url:...

В хроме при запросе в гугл перекидывает на мейл ру и не удаляется расширение Fast search 1.1.3
При использовании гугл хром и попытке воспользоваться поисковиком перекидывает на мейл ру...

VK api wall.get
Доброго времени суток, форумчане! Возник вопрос, с которым не могу разобраться самостоятельно и...

1
54 / 54 / 4
Регистрация: 15.12.2010
Сообщений: 260
16.11.2016, 14:24 2
UTF8ToAnsi
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
16.11.2016, 14:24

Помощь в написании контрольных, курсовых и дипломных работ здесь.

VK Api и Wall.delete
Привет всем! Хочу воспользоваться функцией wall.delete() (VK APi) Но не понимаю, как нужно...

Vk api. Метод wall.post
Добрый день! Есть два метода public function publish() { return json_decode( ...

Работа с методом vk api get.wall
var dannii = new HttpRequest(); string response =...

При запросе в Lotus через Com, после 245 Search, Lotus падает
Проблема в следующем, надо написать стороннюю программу на Net, которая бы вытаскивала почтовый...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

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