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

Форум программистов > Delphi: Общие вопросы > Проблема с кодировкой в SOAP

Автор: FatherFrost 12.4.2006, 07:44

И так собственно сабж. Есть SOAP-сервер написанный на Делфях и размещенный под Апачем. Если пользоваться клиентом, написанным на Делфи, то все ОК... Но как только подклюяаюсь к веб-сервису из c#-приложения, то получаю нечитабельные строки, т.е. русские символы заменяются ?????. Как это можно побороть?

Автор: Snowy 12.4.2006, 09:05

Проблема в том, что сервис тебе отдает юникод, который ты конвертишь согласно текущей локали. Вообще-то это вопрос по C#, а не к дельфи. На WinApi нужно просто при старте программы дать строчку: Код SetThreadLocale(1049);

Автор: FatherFrost 12.4.2006, 09:16

Snowy, т.е.таким образом я установлю для потока клиента использование юникода?

Автор: Snowy 12.4.2006, 09:20

Нет. Таким образом ты заставишь свою программу думать, что она работает под русской виндой на русском языке. И соответственно все юникод перекодироки будут работать с поправкой на русский язык.

Автор: FatherFrost 12.4.2006, 09:22

Snowy, не подскажешь как это сделать на Делфи?

Автор: Snowy 12.4.2006, 09:33

http://forum.vingrad.ru/index.php?showtopic=82093

Автор: FatherFrost 12.4.2006, 09:51

К сожалению это не помогло, наверно все Апач портит...

Автор: Snowy 12.4.2006, 10:34

Если бы он портил, то и в Delphi была бы кривая кодировка. Проверь: кокой язык родной у винды на сервере и какой на клиенте.

Автор: FatherFrost 12.4.2006, 10:39

Так все стоит пока на одной машине ))

Автор: Snowy 12.4.2006, 10:48

Тогда действительно странно. Значит нужно смотреть маппером или снифером, что идет от сервера клиенту. Ну или из свое программы скинуть в лог файл весь траффик и посмотреть его глазами. Если скинешь - выложи здесь в прямом и HEX виде. Я посмотрю глазками и скажу, что с этим делать.

Автор: FatherFrost 12.4.2006, 20:51

Ок. Посмотрю завтра... Может еще сам чего накопаю

Автор: FatherFrost 13.4.2006, 08:08

Чето начал разбираться и совсем запутался... Не подскажешь нормальный снифер.

Автор: Snowy 13.4.2006, 08:35

Подскажу маппер: http://forum.vingrad.ru/index.php?showtopic=89811&st=0&#entry689298

Автор: RA 13.4.2006, 09:54

Знакомая проблема, подобное наблюдал при написании приложения клиент сервер. В моём случаи передоваемые клиенту списки директорий и файлов содержащие русские символы передовались в виде "???????" Проблему не решил, списал её на косяк ОС, тот самый когда при копировании русского текста вставляется "??????" Проэкт сдал, деньги получил.

Автор: FatherFrost 13.4.2006, 13:54

Вот пример тела одного пакета: Код 0000  00 0c 6e 4b 40 3b 00 0a  48 18 46 a7 08 00 45 00   ..nK@;.. H.F...E. 0010  05 dc 76 f2 40 00 80 06  98 b5 c0 a8 32 03 c0 a8   ..v.@... ....2... 0020  32 20 00 50 04 fd a6 e4  3c 86 ab 1e c1 30 50 10   2 .P.... <....0P. 0030  43 a2 bd 06 00 00 65 71  75 65 73 74 22 3e 0d 0a   C.....eq uest">.. 0040  20 20 20 20 3c 70 61 72  74 20 6e 61 6d 65 3d 22       <par t name=" 0050  41 4c 73 68 65 74 22 20  74 79 70 65 3d 22 78 73   ALshet"  type="xs 0060  3a 73 74 72 69 6e 67 22  2f 3e 0d 0a 20 20 20 20   :string" />..     0070  3c 70 61 72 74 20 6e 61  6d 65 3d 22 41 42 61 6c   <part na me="ABal 0080  61 6e 63 65 5f 6b 6f 64  22 20 74 79 70 65 3d 22   ance_kod " type=" 0090  78 73 3a 69 6e 74 22 2f  3e 0d 0a 20 20 20 20 3c   xs:int"/ >..    < 00a0  70 61 72 74 20 6e 61 6d  65 3d 22 41 53 75 6d 6d   part nam e="ASumm 00b0  61 22 20 74 79 70 65 3d  22 78 73 3a 64 6f 75 62   a" type= "xs:doub 00c0  6c 65 22 2f 3e 0d 0a 20  20 3c 2f 6d 65 73 73 61   le"/>..   </messa 00d0  67 65 3e 0d 0a 20 20 3c  6d 65 73 73 61 67 65 20   ge>..  < message  00e0  6e 61 6d 65 3d 22 41 64  64 50 61 79 53 75 6d 6d   name="Ad dPaySumm 00f0  61 34 52 65 73 70 6f 6e  73 65 22 3e 0d 0a 20 20   a4Respon se">..   0100  20 20 3c 70 61 72 74 20  6e 61 6d 65 3d 22 72 65     <part  name="re 0110  74 75 72 6e 22 20 74 79  70 65 3d 22 78 73 3a 62   turn" ty pe="xs:b 0120  6f 6f 6c 65 61 6e 22 2f  3e 0d 0a 20 20 3c 2f 6d   oolean"/ >..  </m 0130  65 73 73 61 67 65 3e 0d  0a 20 20 3c 70 6f 72 74   essage>. .  <port 0140  54 79 70 65 20 6e 61 6d  65 3d 22 49 48 54 54 50   Type nam e="IHTTP 0150  41 62 6f 6e 65 6e 74 22  3e 0d 0a 20 20 20 20 3c   Abonent" >..    < 0160  6f 70 65 72 61 74 69 6f  6e 20 6e 61 6d 65 3d 22   operatio n name=" 0170  43 68 65 63 6b 4c 73 68  65 74 45 78 69 73 74 73   CheckLsh etExists 0180  22 3e 0d 0a 20 20 20 20  20 20 3c 69 6e 70 75 74   ">..       <input 0190  20 6d 65 73 73 61 67 65  3d 22 74 6e 73 3a 43 68    message ="tns:Ch 01a0  65 63 6b 4c 73 68 65 74  45 78 69 73 74 73 30 52   eckLshet Exists0R 01b0  65 71 75 65 73 74 22 2f  3e 0d 0a 20 20 20 20 20   equest"/ >..      01c0  20 3c 6f 75 74 70 75 74  20 6d 65 73 73 61 67 65    <output  message 01d0  3d 22 74 6e 73 3a 43 68  65 63 6b 4c 73 68 65 74   ="tns:Ch eckLshet 01e0  45 78 69 73 74 73 30 52  65 73 70 6f 6e 73 65 22   Exists0R esponse" 01f0  2f 3e 0d 0a 20 20 20 20  3c 2f 6f 70 65 72 61 74   />..     </operat 0200  69 6f 6e 3e 0d 0a 20 20  20 20 3c 6f 70 65 72 61   ion>..     <opera 0210  74 69 6f 6e 20 6e 61 6d  65 3d 22 47 65 74 4c 73   tion nam e="GetLs 0220  68 65 74 43 75 72 72 65  6e 74 44 6f 6c 67 22 3e   hetCurre ntDolg"> 0230  0d 0a 20 20 20 20 20 20  3c 69 6e 70 75 74 20 6d   ..       <input m 0240  65 73 73 61 67 65 3d 22  74 6e 73 3a 47 65 74 4c   essage=" tns:GetL 0250  73 68 65 74 43 75 72 72  65 6e 74 44 6f 6c 67 31   shetCurr entDolg1 0260  52 65 71 75 65 73 74 22  2f 3e 0d 0a 20 20 20 20   Request" />..     0270  20 20 3c 6f 75 74 70 75  74 20 6d 65 73 73 61 67     <outpu t messag 0280  65 3d 22 74 6e 73 3a 47  65 74 4c 73 68 65 74 43   e="tns:G etLshetC 0290  75 72 72 65 6e 74 44 6f  6c 67 31 52 65 73 70 6f   urrentDo lg1Respo 02a0  6e 73 65 22 2f 3e 0d 0a  20 20 20 20 3c 2f 6f 70   nse"/>..     </op 02b0  65 72 61 74 69 6f 6e 3e  0d 0a 20 20 20 20 3c 6f   eration> ..    <o 02c0  70 65 72 61 74 69 6f 6e  20 6e 61 6d 65 3d 22 47   peration  name="G 02d0  65 74 4c 73 68 65 74 46  49 4f 22 3e 0d 0a 20 20   etLshetF IO">..   02e0  20 20 20 20 3c 69 6e 70  75 74 20 6d 65 73 73 61       <inp ut messa 02f0  67 65 3d 22 74 6e 73 3a  47 65 74 4c 73 68 65 74   ge="tns: GetLshet 0300  46 49 4f 32 52 65 71 75  65 73 74 22 2f 3e 0d 0a   FIO2Requ est"/>.. 0310  20 20 20 20 20 20 3c 6f  75 74 70 75 74 20 6d 65         <o utput me 0320  73 73 61 67 65 3d 22 74  6e 73 3a 47 65 74 4c 73   ssage="t ns:GetLs 0330  68 65 74 46 49 4f 32 52  65 73 70 6f 6e 73 65 22   hetFIO2R esponse" 0340  2f 3e 0d 0a 20 20 20 20  3c 2f 6f 70 65 72 61 74   />..     </operat 0350  69 6f 6e 3e 0d 0a 20 20  20 20 3c 6f 70 65 72 61   ion>..     <opera 0360  74 69 6f 6e 20 6e 61 6d  65 3d 22 47 65 74 4c 73   tion nam e="GetLs 0370  68 65 74 41 64 64 72 65  73 73 22 3e 0d 0a 20 20   hetAddre ss">..   0380  20 20 20 20 3c 69 6e 70  75 74 20 6d 65 73 73 61       <inp ut messa 0390  67 65 3d 22 74 6e 73 3a  47 65 74 4c 73 68 65 74   ge="tns: GetLshet 03a0  41 64 64 72 65 73 73 33  52 65 71 75 65 73 74 22   Address3 Request" 03b0  2f 3e 0d 0a 20 20 20 20  20 20 3c 6f 75 74 70 75   />..       <outpu 03c0  74 20 6d 65 73 73 61 67  65 3d 22 74 6e 73 3a 47   t messag e="tns:G 03d0  65 74 4c 73 68 65 74 41  64 64 72 65 73 73 33 52   etLshetA ddress3R 03e0  65 73 70 6f 6e 73 65 22  2f 3e 0d 0a 20 20 20 20   esponse" />..     03f0  3c 2f 6f 70 65 72 61 74  69 6f 6e 3e 0d 0a 20 20   </operat ion>..   0400  20 20 3c 6f 70 65 72 61  74 69 6f 6e 20 6e 61 6d     <opera tion nam 0410  65 3d 22 41 64 64 50 61  79 53 75 6d 6d 61 22 3e   e="AddPa ySumma"> 0420  0d 0a 20 20 20 20 20 20  3c 69 6e 70 75 74 20 6d   ..       <input m 0430  65 73 73 61 67 65 3d 22  74 6e 73 3a 41 64 64 50   essage=" tns:AddP 0440  61 79 53 75 6d 6d 61 34  52 65 71 75 65 73 74 22   aySumma4 Request" 0450  2f 3e 0d 0a 20 20 20 20  20 20 3c 6f 75 74 70 75   />..       <outpu 0460  74 20 6d 65 73 73 61 67  65 3d 22 74 6e 73 3a 41   t messag e="tns:A 0470  64 64 50 61 79 53 75 6d  6d 61 34 52 65 73 70 6f   ddPaySum ma4Respo 0480  6e 73 65 22 2f 3e 0d 0a  20 20 20 20 3c 2f 6f 70   nse"/>..     </op 0490  65 72 61 74 69 6f 6e 3e  0d 0a 20 20 3c 2f 70 6f   eration> ..  </po 04a0  72 74 54 79 70 65 3e 0d  0a 20 20 3c 62 69 6e 64   rtType>. .  <bind 04b0  69 6e 67 20 6e 61 6d 65  3d 22 49 48 54 54 50 41   ing name ="IHTTPA 04c0  62 6f 6e 65 6e 74 62 69  6e 64 69 6e 67 22 20 74   bonentbi nding" t 04d0  79 70 65 3d 22 74 6e 73  3a 49 48 54 54 50 41 62   ype="tns :IHTTPAb 04e0  6f 6e 65 6e 74 22 3e 0d  0a 20 20 20 20 3c 73 6f   onent">. .    <so 04f0  61 70 3a 62 69 6e 64 69  6e 67 20 73 74 79 6c 65   ap:bindi ng style 0500  3d 22 72 70 63 22 20 74  72 61 6e 73 70 6f 72 74   ="rpc" t ransport 0510  3d 22 68 74 74 70 3a 2f  2f 73 63 68 65 6d 61 73   ="http:/ /schemas 0520  2e 78 6d 6c 73 6f 61 70  2e 6f 72 67 2f 73 6f 61   .xmlsoap .org/soa 0530  70 2f 68 74 74 70 22 2f  3e 0d 0a 20 20 20 20 3c   p/http"/ >..    < 0540  6f 70 65 72 61 74 69 6f  6e 20 6e 61 6d 65 3d 22   operatio n name=" 0550  43 68 65 63 6b 4c 73 68  65 74 45 78 69 73 74 73   CheckLsh etExists 0560  22 3e 0d 0a 20 20 20 20  20 20 3c 73 6f 61 70 3a   ">..       <soap: 0570  6f 70 65 72 61 74 69 6f  6e 20 73 6f 61 70 41 63   operatio n soapAc 0580  74 69 6f 6e 3d 22 75 72  6e 3a 48 54 54 50 41 62   tion="ur n:HTTPAb 0590  6f 6e 65 6e 74 53 65 72  76 69 63 65 49 6e 74 66   onentSer viceIntf 05a0  2d 49 48 54 54 50 41 62  6f 6e 65 6e 74 23 43 68   -IHTTPAb onent#Ch 05b0  65 63 6b 4c 73 68 65 74  45 78 69 73 74 73 22 20   eckLshet Exists"  05c0  73 74 79 6c 65 3d 22 72  70 63 22 2f 3e 0d 0a 20   style="r pc"/>..  05d0  20 20 20 20 20 3c 69 6e  70 75 74 20 6d 65 73 73        <in put mess 05e0  61 67 65 3d 22 74 6e 73  3a 43                     age="tns :C

Автор: Snowy 13.4.2006, 14:08

не то. Здесь нет текста.

Автор: FatherFrost 13.4.2006, 14:33

Вот идет ответный пакет от сервера сразу после запроса: Код 0000  00 0c 6e 4b 40 3b 00 0a  48 18 46 a7 08 00 45 00   ..nK@;.. H.F...E. 0010  00 28 9f d7 40 00 80 06  75 84 c0 a8 32 03 c0 a8   .(..@... u...2... 0020  32 20 00 50 05 a9 e1 36  d1 4c 09 57 5e 15 50 10   2 .P...6 .L.W^.P. 0030  40 c0 69 b7 00 00 00 00  00 00 00 00               @.i..... ....     Добавлено @ 14:42 Сорри, то служебный пакет. Вот ответ сервера: Код 0000  00 0c 6e 4b 40 3b 00 0a  48 18 46 a7 08 00 45 00   ..nK@;.. H.F...E. 0010  03 31 30 66 40 00 80 06  e1 ec c0 a8 32 03 c0 a8   .10f@... ....2... 0020  32 20 00 50 05 ba 6f 1f  f4 64 63 ce 26 d0 50 18   2 .P..o. .dc.&.P. 0030  40 c0 bb aa 00 00 48 54  54 50 2f 31 2e 31 20 32   @.....HT TP/1.1 2 0040  30 30 20 4f 4b 0d 0a 44  61 74 65 3a 20 54 68 75   00 OK..D ate: Thu 0050  2c 20 31 33 20 41 70 72  20 32 30 30 36 20 31 31   , 13 Apr  2006 11 0060  3a 33 38 3a 33 35 20 47  4d 54 0d 0a 53 65 72 76   :38:35 G MT..Serv 0070  65 72 3a 20 41 70 61 63  68 65 2f 32 2e 30 2e 35   er: Apac he/2.0.5 0080  30 20 28 57 69 6e 33 32  29 20 4a 52 75 6e 2f 34   0 (Win32 ) JRun/4 0090  2e 30 0d 0a 43 6f 6e 74  65 6e 74 3a 20 0d 0a 43   .0..Cont ent: ..C 00a0  6f 6e 74 65 6e 74 2d 4c  65 6e 67 74 68 3a 20 35   ontent-L ength: 5 00b0  36 38 0d 0a 4b 65 65 70  2d 41 6c 69 76 65 3a 20   68..Keep -Alive:  00c0  74 69 6d 65 6f 75 74 3d  31 35 2c 20 6d 61 78 3d   timeout= 15, max= 00d0  31 30 30 0d 0a 43 6f 6e  6e 65 63 74 69 6f 6e 3a   100..Con nection: 00e0  20 4b 65 65 70 2d 41 6c  69 76 65 0d 0a 43 6f 6e    Keep-Al ive..Con 00f0  74 65 6e 74 2d 54 79 70  65 3a 20 74 65 78 74 2f   tent-Typ e: text/ 0100  78 6d 6c 0d 0a 0d 0a 3c  3f 78 6d 6c 20 76 65 72   xml....< ?xml ver 0110  73 69 6f 6e 3d 22 31 2e  30 22 3f 3e 0d 0a 3c 53   sion="1. 0"?>..<S 0120  4f 41 50 2d 45 4e 56 3a  45 6e 76 65 6c 6f 70 65   OAP-ENV: Envelope 0130  20 78 6d 6c 6e 73 3a 53  4f 41 50 2d 45 4e 56 3d    xmlns:S OAP-ENV= 0140  22 68 74 74 70 3a 2f 2f  73 63 68 65 6d 61 73 2e   "http:// schemas. 0150  78 6d 6c 73 6f 61 70 2e  6f 72 67 2f 73 6f 61 70   xmlsoap. org/soap 0160  2f 65 6e 76 65 6c 6f 70  65 2f 22 20 78 6d 6c 6e   /envelop e/" xmln 0170  73 3a 78 73 64 3d 22 68  74 74 70 3a 2f 2f 77 77   s:xsd="h ttp://ww 0180  77 2e 77 33 2e 6f 72 67  2f 32 30 30 31 2f 58 4d   w.w3.org /2001/XM 0190  4c 53 63 68 65 6d 61 22  20 78 6d 6c 6e 73 3a 78   LSchema"  xmlns:x 01a0  73 69 3d 22 68 74 74 70  3a 2f 2f 77 77 77 2e 77   si="http ://www.w 01b0  33 2e 6f 72 67 2f 32 30  30 31 2f 58 4d 4c 53 63   3.org/20 01/XMLSc 01c0  68 65 6d 61 2d 69 6e 73  74 61 6e 63 65 22 20 78   hema-ins tance" x 01d0  6d 6c 6e 73 3a 53 4f 41  50 2d 45 4e 43 3d 22 68   mlns:SOA P-ENC="h 01e0  74 74 70 3a 2f 2f 73 63  68 65 6d 61 73 2e 78 6d   ttp://sc hemas.xm 01f0  6c 73 6f 61 70 2e 6f 72  67 2f 73 6f 61 70 2f 65   lsoap.or g/soap/e 0200  6e 63 6f 64 69 6e 67 2f  22 3e 3c 53 4f 41 50 2d   ncoding/ "><SOAP- 0210  45 4e 56 3a 42 6f 64 79  20 53 4f 41 50 2d 45 4e   ENV:Body  SOAP-EN 0220  43 3a 65 6e 63 6f 64 69  6e 67 53 74 79 6c 65 3d   C:encodi ngStyle= 0230  22 68 74 74 70 3a 2f 2f  73 63 68 65 6d 61 73 2e   "http:// schemas. 0240  78 6d 6c 73 6f 61 70 2e  6f 72 67 2f 73 6f 61 70   xmlsoap. org/soap 0250  2f 65 6e 76 65 6c 6f 70  65 2f 22 3e 3c 4e 53 31   /envelop e/"><NS1 0260  3a 47 65 74 4c 73 68 65  74 41 64 64 72 65 73 73   :GetLshe tAddress 0270  52 65 73 70 6f 6e 73 65  20 78 6d 6c 6e 73 3a 4e   Response  xmlns:N 0280  53 31 3d 22 75 72 6e 3a  48 54 54 50 41 62 6f 6e   S1="urn: HTTPAbon 0290  65 6e 74 53 65 72 76 69  63 65 49 6e 74 66 2d 49   entServi ceIntf-I 02a0  48 54 54 50 41 62 6f 6e  65 6e 74 22 3e 3c 72 65   HTTPAbon ent"><re 02b0  74 75 72 6e 20 78 73 69  3a 74 79 70 65 3d 22 78   turn xsi :type="x 02c0  73 64 3a 73 74 72 69 6e  67 22 3e d1 83 d0 bb 2e   sd:strin g">..... 02d0  d0 a9 d0 9e d0 a0 d0 a1  d0 90 20 d0 a3 d0 9b d0   ........ .. ..... 02e0  98 d0 a6 d0 90 20 d0 b4  2e 35 20 d0 ba d0 b2 2e   ..... .. .5 ..... 02f0  39 39 3c 2f 72 65 74 75  72 6e 3e 3c 2f 4e 53 31   99</retu rn></NS1 0300  3a 47 65 74 4c 73 68 65  74 41 64 64 72 65 73 73   :GetLshe tAddress 0310  52 65 73 70 6f 6e 73 65  3e 3c 2f 53 4f 41 50 2d   Response ></SOAP- 0320  45 4e 56 3a 42 6f 64 79  3e 3c 2f 53 4f 41 50 2d   ENV:Body ></SOAP- 0330  45 4e 56 3a 45 6e 76 65  6c 6f 70 65 3e 0d 0a      ENV:Enve lope>..

Автор: FatherFrost 14.4.2006, 09:26

Snowy, В строках 45 - 47. Могет есть какие-нить идеи?

Автор: Snowy 14.4.2006, 11:22

Хе. Да это банальный UTF-8. Код   s := Utf8ToAnsi(str); И получаем "ул.ЩОРСА УЛИЦА д.5 кв.99" Что и логично - UTF-8 родной для xml.

Автор: FatherFrost 14.4.2006, 12:02

Понятно, тогда скорее нуно шарп мучать... Огромное спасибо за помощь.

Автор: FatherFrost 14.4.2006, 12:55

Возник вопрос, а можно заставить респонся отсылать в UTF 16

Автор: Snowy 14.4.2006, 13:03

Да. Можно. Для этого нужно у TXMLDocument установить Encoding := 'UTF-16';

Автор: FatherFrost 14.4.2006, 13:06

Snowy, ну это для XML, а для веб сервиса как быть???

Автор: Snowy 14.4.2006, 13:14

А это уже зависит от реализации веб-сервиса. А он скорее всего также юзает этот же XML контрол. Если нет, то нужно ковыряться в нем, чтобы узнать как и чего он кодирует.

Автор: FatherFrost 14.4.2006, 13:22

Я уже нашел. Для THTTPSoapDispatcher и THTTPSoapPascalInvoker у Converter'a есть свойство Encoding. Его нужно было установить UTF-16, т.к. в C# строки в этой кодировке... У меня кодировка указана не была, поэтому ответ шел без указания кодировки (вот она главная причина нестыковки).

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)