Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Сети > MRA mail agent не могу разобраться с анкетами

Автор: Rodeon 30.1.2012, 13:10

В клиенте с этих веток:
http://forum.vingrad.ru/forum/topic-95962.html
http://forum.vingrad.ru/forum/topic-139258/kw-mail-agent.html
http://forum.vingrad.ru/forum/topic-275368.html
http://forum.vingrad.ru/forum/topic-179632.html

После обработки события UserFound выдаються поля с данными.
Username, Domain, Nickname, FirstName, LastName, Sex, Birthday, Zodiac, Country_id, City_ID, Location, Phone, mrim_status, status_uri, status_title, status_desc, ua_features: String
Как видно все строковые.

Сервер передает в формате UTF-16LE

Образец поля Location от сервера:
20043E044104410438044F042C0020001C043E0441043A043E04320441043A0430044F0420003E0431043B042E002C002000250438043C043A043804000000000800000030
и его интерпретация, в этом проблеммы нету:
Россия, Московская обл., Химки

Тоже самое для поля status_title:
210447043004410442044C04350420003504410442044C0421002000180420002F042000350433043E04200037043D0430044E043A00290029002900
Должно быть на выходе вот это:
Счастье есть! И Я его знаю smile

))
А у меня получаються только ?????? (причем вопросительных знаков в 2 раза меньше чем должно быть символов).

Поля получаем с сервера одной и той-же функцией:

Код


          Location:= MMP_GetLPS(@Pack, Data, Offset);
          status_title:= MMP_GetLPS(@Pack, Data, Offset);

кодировка одинаковая, почему так получаеться кто сможет подсказать?

Для еще большей наглядности приведу пакет данных получаемых с сервера, указал анкету специально где есть и подробная локация и статус длинный!

45 00 02 7A E8 23 40 00 36 06 7F 23 5E 64 BB 28  ; E..z.#@.6.#^d.(
C0 A8 01 02 07 F9 F6 CD 26 75 AC C4 F0 23 50 82  ; ........&u...#P.
50 18 00 72 64 84 00 00 EF BE AD DE 18 00 01 00  ; P.rd..........
36 13 57 75 28 10 00 00 26 02 00 00 0A 06 3C 28  ; 6.Wu(...&.....<(
07 F8 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ; ................
00 00 00 00 01 00 00 00 11 00 00 00 32 00 00 00  ; ............2...
88 6E 26 4F 08 00 00 00 55 73 65 72 6E 61 6D 65  ; .n&O....Username
06 00 00 00 44 6F 6D 61 69 6E 08 00 00 00 4E 69  ; ....Domain....Ni
63 6B 6E 61 6D 65 09 00 00 00 46 69 72 73 74 4E  ; ckname....FirstN
61 6D 65 08 00 00 00 4C 61 73 74 4E 61 6D 65 03  ; ame....LastName.
00 00 00 53 65 78 08 00 00 00 42 69 72 74 68 64  ; ...Sex....Birthd
61 79 06 00 00 00 5A 6F 64 69 61 63 0A 00 00 00  ; ay....Zodiac....
43 6F 75 6E 74 72 79 5F 69 64 07 00 00 00 43 69  ; Country_id....Ci
74 79 5F 49 44 08 00 00 00 4C 6F 63 61 74 69 6F  ; ty_ID....Locatio
6E 05 00 00 00 50 68 6F 6E 65 0B 00 00 00 6D 72  ; n....Phone....mr
69 6D 5F 73 74 61 74 75 73 0A 00 00 00 73 74 61  ; im_status....sta
74 75 73 5F 75 72 69 0C 00 00 00 73 74 61 74 75  ; tus_uri....statu
73 5F 74 69 74 6C 65 0B 00 00 00 73 74 61 74 75  ; s_title....statu
73 5F 64 65 73 63 0B 00 00 00 75 61 5F 66 65 61  ; s_desc....ua_fea
74 75 72 65 73 0F 00 00 00 77 65 6C 63 6F 6D 65  ; tures....welcome
5F 66 72 69 65 6E 64 73 07 00 00 00 6D 61 69 6C  ; _friends....mail
2E 72 75 0C 00 00 00 53 00 4F 00 46 00 49 00 4B  ; .ru....S.O.F.I.K
00 4F 00 0C 00 00 00 53 00 4F 00 46 00 49 00 4B  ; .O.....S.O.F.I.K
00 4F 00 02 00 00 00 49 00 01 00 00 00 32 0A 00  ; .O.....I.....2..
00 00 31 39 38 37 2D 30 34 2D 33 30 01 00 00 00  ; ..1987-04-30....
32 04 00 00 00 32 38 31 37 04 00 00 00 32 38 31  ; 2....2817....281
37 70 00 00 00 20 04 3E 04 41 04 41 04 38 04 4F  ; 7p... .>.A.A.8.O
04 2C 00 20 00 14 04 30 04 3B 04 4C 04 3D 04 35  ; .,. ..0.;.L.=.5
04 32 04 3E 04 41 04 42 04 3E 04 47 04 3D 04 4B  ; .2.>.A.B.>.G.=.K
04 39 04 20 00 24 04 1E 04 2C 00 20 00 1F 04 40  ; .9. .$..,. ..@
04 38 04 3C 04 3E 04 40 04 41 04 3A 04 38 04 39  ; .8.<.>[email protected].:.8.9
04 20 00 3A 04 40 04 30 04 39 04 2C 00 20 00 14  ; . .:[email protected].,. .
04 30 04 3B 04 4C 04 3D 04 35 04 33 04 3E 04 40  ; .0.;.L.=.5.3.>.@
04 41 04 3A 04 00 00 00 00 08 00 00 00 30 30 30  ; .A.:.........000
30 30 30 30 34 09 00 00 00 73 74 61 74 75 73 5F  ; 00004....status_
31 34 34 00 00 00 2F 04 20 00 42 04 43 04 42 04  ; 144.../. .B.C.B.
20 00 13 04 1B 04 10 04 12 04 1D 04 2B 04 19 04  ;  .........+..
20 00 3F 04 3E 04 20 00 1A 04 1E 04 1D 04 24 04  ;  .?.>. ....$.
15 04 22 04 10 04 1C 04 21 00 00 00 00 00 08 00  ; ."....!.......
00 00 30 30 30 30 30 30 35 34                    ; ..00000054

Зеленым цветом выделил Location - там текст - "Россия, Дальневосточный ФО, Приморский край, Дальнегорск"
Синим цветом выделил status_title - там текст - "Я тут ГЛАВНЫЙ по КОНФЕТАМ!"

Оба куска данных если снифером получить обрабатываются до нормального текста:

Код


var
  s: string;
  i: integer;
  p: array of byte;
  n: integer;
begin
  s := edit17.Text;
  n := Length(s) div 2;
  SetLength(p, n);
  for i := 0 to n - 1 do // превращаем строку в массив байт
    p[i] := StrToInt('$' + copy(s, i*2+1, 2));
  s := PWideChar(@p[0]); // превращаем массив байт в строку просто приравнивая WideString

Но в самом клиенте работает только Location?