‘орум программистов, компьютерный форум, киберфорум
Ќаши страницы

Delphi и сети

¬ойти
–егистраци€
¬осстановить пароль
 
tobsik
0 / 0 / 1
–егистраци€: 26.05.2016
—ообщений: 10
#1

Vk api смайлы в json - Delphi

21.12.2016, 15:17. ѕросмотров 358. ќтветов 2
ћетки нет (¬се метки)

¬сем привет. ѕроблема така€, получаю через vk api сообщени€ со стены. перекодирую их функцией:
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
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;
результат вставл€ю в memo.

—ообщени€ без смайликов отображаютс€ отлично. ≈сли в сообщение есть смайлики, то в memo текст обрезаетс€.
JSON
1
{"response":[202,{"id":2897547,"from_id":137949218,"to_id":-13014898,"date":1482170962,"post_type":"post","text":"ћќ∆≈“  “ќ-Ќ»Ѕ”ƒ№ ≈—“№ —≈…„ј—  Ќј јЋ≈ —»Ќќ —  Ћё„ќћ Ќј 15, —–ќ„Ќќ Ќ”∆Ќќ ќ“ –”“»“№ —Ћ»«јЌЌџ… ЅќЋ“ -____- ј  Ћё„ —ЋќћјЋ—я (((","comments":{"count":5},"likes":{"count":1},"reposts":{"count":0}},{"id":2867829,"from_id":346451494,"to_id":-13014898,"date":1481227636,"post_type":"post","text":"ѕривет “айота сломалась  то до  раснодара в ѕ€тницу довезЄт.?
JSON
1
{"response":[202,{"id":2897547,"from_id":137949218,"to_id":-13014898,"date":1482170962,"post_type":"post","text":"–Ь–Ю–Ц–Х–Ґ –Ъ–Ґ–Ю-–Э–Ш–С–£–Ф–ђ –Х–°–Ґ–ђ –°–Х–Щ–І–Р–°  –Э–Р –Р–Ы–Х–Ъ–°–Ш–Э–Ю –° –Ъ–Ы–Ѓ–І–Ю–Ь –Э–Р 15, –°–*–Ю–І–Э–Ю –Э–£–Ц–Э–Ю –Ю–Ґ–Ъ–*–£–Ґ–Ш–Ґ–ђ –°–Ы–Ш–Ч–Р–Э–Э–Ђ–Щ –С–Ю–Ы–Ґ -____- –Р –Ъ–Ы–Ѓ–І –°–Ы–Ю–Ь–Р–Ы–°–ѓ (((","comments":{"count":5},"likes":{"count":1},"reposts":{"count":0}},{"id":2867829,"from_id":346451494,"to_id":-13014898,"date":1481227636,"post_type":"post","text":"–Я—А–Є–≤–µ—В –Ґ–∞–є–Њ—В–∞ —Б–ї–Њ–Љ–∞–ї–∞—Б—М –Ъ—В–Њ –і–Њ –Ъ—А–∞—Б–љ–Њ–і–∞—А–∞ –≤ –Я—П—В–љ–Є—Ж—Г –і–Њ–≤–µ–Ј—С—В.рЯЩПрЯЩПрЯЩПрЯЩПрЯЩПрЯЩПрЯЩПрЯЩП","comments":{"count":24},"likes":{"count":0},"reposts":{"count":0}}]}
что не так вышеописанной функцией или может есть другие? —пасибо за помощь

ƒобавлено через 1 час 5 минут
«абыл указать - delphi 7
0
Ќадоела реклама? «арегистрируйтесь и она исчезнет полностью.
Similar
Ёксперт
41792 / 34177 / 6122
–егистраци€: 12.04.2006
—ообщений: 57,940
21.12.2016, 15:17
«дравствуйте! я подобрал дл€ вас темы с ответами на вопрос Vk api смайлы в json (Delphi):

Json +vk api - C++
ƒоброго времени суток.  ак распарсить json из vk ? ƒл€ начала {&quot;response&quot;:} пробую этим ...

Json десериализаци€ vk api - C#
using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; using System.Drawing; using...

ƒесериализовать JSON VK API - C#
¬от недавно решил сделать приложение дл€ контакта, однако столкнулс€ с трудностью(не € один, суд€ по гуглу): ответ от сервера приходит, а...

ƒесериализаци€ json (vk.API) - C#
ѕривет всем. ¬дохновленный молодой неопытный , решил покопатьс€ с vk.api. ѕолучил функцию , возвращающую ответ в виде json....

јрдуино json api - Arduino
ƒобрый день! ≈сть ардуино и датчик DHT11, есть ENC28j60 дл€ ethernet. „тобы отображать данные на компьютере в интернете обычно...

Restful API + requests JSON - Java SE
–еб€т, доброго времени суток. ¬ данное врем€ € начал заниматьс€ разработкой под Android. ” мен€ есть проект, но € столкнулс€ с...

2
Dryg
68 / 63 / 19
–егистраци€: 09.04.2009
—ообщений: 348
«аписей в блоге: 1
21.12.2016, 22:22 #2
а чтобы текст не был закарючкими

Delphi
1
2
3
4
5
6
7
var
MemStre: TStringStream;
begin
 HTTP.GET('url', MemStre);
  MemStre.Position := 0;
  RUListBox.text:=UTF8toANSI(MemStre.DataString);
end;

«а чем ты парсишь json. используй superobject и обрезатьс€ не будет
0
tobsik
0 / 0 / 1
–егистраци€: 26.05.2016
—ообщений: 10
22.12.2016, 16:00  [“—] #3
а как это реализовать, если € использую synapse?
вот кусок кода:
Delphi
1
2
3
4
5
6
7
8
9
10
var HTTP:THTTPSend;
Stream: TStream;
begin
  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', 'https://api.vk.com/method/wall.search?domain=nvrsk&query='+ansitoutf8(query)+'&count='+IntToStr(count)+'&owners_only=1'+'&access_token='+token);
  Response.LoadFromStream(HTTP.Document);
  HTTP.Free;
0
MoreAnswers
Ёксперт
37091 / 29110 / 5898
–егистраци€: 17.06.2006
—ообщений: 43,301
22.12.2016, 16:00
ѕривет! ¬от еще темы с ответами:

API от LastFm. работа с Json - jQuery
ƒоброго времени суток. ’отел бы получить совет по обработке json. ѕри работе с API от ¬контакте при использовании методов выдавалс€ ответ в...

»з JSON от battle.net API - C#
«драсти))) ≈сть такой JSON {&quot;id&quot;:96652,&quot;disenchantingSkillRank&quot;:575,&quot;description&quot;:&quot;&quot;,&quot;name&quot;:&quot;Ќабедренники...

 ак работать с JSON API? - PHP
ћне нужно получить список всех профессиональных областей отсюда : http://api.hh.ru/1/json/#proffields я дл€ этого использую такой код: ...

JSON yandex translate API (перевод ru-en) - Java SE
ѕриветствую! Ѕудьте добры подсказать в чем может быть причина, по которой с русского на английский не переводит текст? — английского на...


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

»ли воспользуйтесь поиском по форуму:
3
ќтвет —оздать тему
ќпции темы

 ибер‘орум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
–ейтинг@Mail.ru