delphi ÊÓÆµÊÇ·ñ¿ÉÒÔת»»³ÉXML¸ñʽ£¿
ûѧ¹ýDELPHI¡£¡£ÒòΪҪά»¤Ò»¸ödelphiµÄÏîÄ¿£¬´ó¼Ò°ï°ïæ
½«±¾µØÊÓÆµÔÚÍøÂçÉÏ´«ËÍ¡£¡£Óõ½µÄÊÇsocket¡£¡£
ÏëÎÊÏ ¿ÉÒÔ½«ÊÓÆµ×ª»»³ÉʲôÑùµÄ¸ñʽ¡£¡£
µ±È»¿ÉÒÔ¡£±ÈÈç°ÑÊÓÆµÁ÷ת³ÉÊ®Áù½øÖÆÔÙдµ½XMLÎĵµ£¬µ«ÕâÑùÌå»ýÌå±ä´óºÜ¶à£¬ËùÒÔ½¨Òé²»ÒªÕâô×ö
¶÷¡£ÎÒÏÖÔÚÒªÔÚÏîÄ¿ÖÐÕÒ³öÊÇÔõÑù°ÑÊÓÆµ½øÐзâ×°£¬È»ºó·¢ËͳöÈ¥µÄ¡£¡£ÄÜ˵˵Ö÷ÒªÓõ½ÄÄЩ·½·¨Â𡣡£¸øµã˼·Ҳ¿ÉÒÔ¡£¡£
ʵʱÊÓÆµ½¨ÒéʹÓÃUDP·¢ËÍ
Ó°ÒôÊÓÆµ½¨ÒéʹÓÃTCP´«Êä
½«ÊÓÆµÁ÷°ü×°³Éstream£¬Ê¹Óù̶¨´óСµÄ°ü·¢ËÍ
ҪתΪXMLÊÇ¿ÉÒԵ쬵«ÊÇBASE64±àÂëÖ®ºóÌå»ý»áÏ൱µÄÅӴ󣬶øÇÒÔËËãÁ¿Ò²²»Ð¡£¬Í¬Â¥ÉÏ£¬²»½¨ÒéÕâÑù¸ã
ɶ¶¼¿ÉÒÔ±äXML£¬¸ñʽ×Ô¼º¶¨°É
ÊÓÆµÊÇ2½øÖÆÊý¾Ý£¬Ö±½Ósocket´«¾ÍºÃÁË£¬ºÃ±È´©ÎļþÒ»Ñù
´«Ë͵¹²»ÊÇÎÊÌâ,ÎÒ×î·³µÄÊÇÁ÷´«ËÍÕâ¸öµ½ÏÖÔÚΪֹ»¹Ã»ÓÐÏëµ½Ò»¸öÏñFVLµÄÄǸöRʲôÐÒéµÄ·½·¨¿ìËÙ´«Èí»¹ÊÇÒÔÁ÷µÄ·½Ê½´«µÄ
Ö±½Ó´«Êý¾ÝÁ÷£¬ÓÃXMLÍêÈ«²»¿ÉÈ¡
¸ø¸ö˼·£¬µ±È»Ö»ÊÇÅ×שÒýÓñ£ºÊÓÆµ¶þ½øÖƱàÂë×÷ΪÊý¾Ý»qrcode¶þάÌõÂ룬»³öÀ´µÄͼ²»´ó£¬°ÑÕâ¸öͼ±£´æ³ÉÎļþ£¬·¢ËÍÕâ¸öͼÐΣ¬ÄDZߵõ½Õâ¸öͼÐκ󣬶ÁÈ¡³öÀ´Í¼ÐÎÀï±£´æµÄ¶þ½øÖÆÐÅÏ¢£¬È»ºóÊÓÆµ½âÂë¡£
ΪʲôҪ¡°×ª»»¡±
¸ñʽת»»Òâζ×ÅÔËË㿪ÏúµÄÔö¼Ó
Èç¹ûµ±µØÓ²¼þϵͳÐÔÄܸߣ¬¶øÍâÍø²»ÊǺܺõÄÇé¿öÏ£¬¾ÍºÜÓбØÒª¡£¿öÇÒÕâ¸ö¿ªÏúÆäʵ²»´ó¡£
»¹×ª³Éxml£¬ÎÒÔΣ¬ºÎ±ØÒª¸´ÔÓ»¯£¿Ö±½Óµ±³ÉÒ»¸öÎļþ£¬Ö±½Ó´«Êä²»¾ÃºÃÁË£¡
Ïà¹ØÎÊ´ð£º
ÒÑÖªPython ÖУº
s = unicode("²âÊÔ", "gb2312")
s = u'\u6d4b\u8bd5'
print s
²âÊÔ
ÔÚDelphiÀïÃæÈçºÎ½«\u6d4b\u8bd5ÕâÑùµÄ»¹Ô³ÉGb2312µÄºº×ÖÄØ£¿
ÕÒµ½¸ö·½·¨
......
¾ÍÊÇÒ»¸ö·þÎñ¶ËºÍÒ»¸ö¿Í»§¶Ë£¬Àï±ßÓÐһЩ¹²Óõ¥Ôª £¬ÎÒÔÚ ¹¤³ÌµÄSEARCH PATHÀïÉèÖõÄ·¾¶£¬
Àï±ßÓиö½á¹¹Ì壬ÎÒÔÚ·þÎñ¶Ë´ò¿ª£¬¼ÓÁ˳ÉÔ±£¬µ«ÊÇÎÒÔÚ¿Í»§¶ËÆäËûµ¥Ôª·ÃÎʲ»µ½ÎÒмӵģ¬ÎÒÔÚ¿Í»§¶Ë´ò¿ªÄǸöµ¥Ôª£¬È·Êµ¼ÓÁ ......
Private Sub Command1_Click()
Dim MyString() As String
Open "a.xml" For Binary As #1 ' ´ò¿ª¸Õ´´½¨µÄÎļþ¡£
ReDim MyString(LOF(1) - 1)
Put #1, , MyRecord ' ¶ÁÈëËùÓÐ×Ö·ûµ½±äÁ¿ÖÐ ......
ÎÒÓÐÒ»¸öÀàËÆµÄxmlµÄ string£¬Ïëͨ¹ý±éÀúÔõô¸öxml Êä³öÎÒÏëÒªµÄelementµÄÖµ
xml Ϊ£º
<Discover xmlns="urn:schemas-microsoft-com:xml-analysis">
<RequestType>DISCOVER_XML_ME ......
ΪʲôÎҵijÌÐòµ÷ÓÃXMLÅäÖÃÎļþÖеİ¢À²®ÎÄÏÔʾ²»³öÀ´£¿ÆäËûµÄÓïÖÖ¶¼¿ÉÒÔ£¬ÈçÖÐÎÄ£¬Ó¢ÎÄ£¬µÂÎͼ¿É¡£
ÎÒ½«XMLµÄ±àÂë¸ÄΪutf-8ºÍunicodeµÄµ½µÃ½á¹û¶¼Ò»Ñù.
°¢À²®ÎĵÄ×Ö¿âÄãÓÐô£¿
ÓÐ,ÎÒµÄEXEÊÇ·ÅÔÚpc»úÉÏÖ´Ðе ......