DelphiµÄWeb Services¼¼Êõ¿ª·¢¶ÌÐÅÓ¦ÓóÌÐò
Ò»ÌáÆð»ùÓÚWeb Services¼¼ÊõµÄÓ¦ÓóÌÐò¿ª·¢£¬Ò»°ãÈËÊ×ÏÈÏëµ½µÄ¿ª·¢¹¤¾ßÊÇVs.net£¬Æäʵ×÷Ϊ¿ìËÙÓ¦ÓóÌÐò¿ª·¢¹¤¾ß(RAD)µÄÀÏ´ó£¬Delphi´Ó6.0¾Í¿ªÊ¼Ö§³ÖWeb ServicesµÄ¿ª·¢ºÍÓ¦ÓÃÁË£¬±¾ÎÄͨ¹ýʹÓÃDelphi 7.0µ÷ÓÃÐÂÀË·¢ËͶÌÐŵÄWeb Service½øÐжÌÐÅÓ¦ÓóÌÐò¿ª·¢ÕâһʵÀýÏêϸµÄ½éÉÜÔÚDelphiÖÐÈçºÎ¿ª·¢»ùÓÚWeb ServicesµÄÓ¦ÓÃϵͳ¡£
µÚÒ»²½£¬×¼±¸¹¤×÷£¬Á˽âÐÂÀ˶ÌÐÅWeb Service¡£ÐÂÀË·¢ËͶÌÐŵÄWeb ServiceµØÖ·ÊÇhttp://smsinter.sina.com.cn/ws/smswebservice0101.wsdl£¬¸ÃWeb Service¾ÍÖ»ÓÐÒ»¸ö·½·¨£¬¼´string sendXml(carrier,userid,password,mobilenumber,content,msgtype)¡£¸÷¸ö²ÎÊýÈ«²¿ÎªstringÀàÐÍ£¬Æäº¬Òå»ù±¾ÈçÏ£¨¿ÉÄܲ»ÕýÈ·£©¡£
Carrier£ºÔËÓªÉÌÃû³Æ£¬ºÃÏñ¿ÉÒÔËæ±ãÊ䣬½¨ÒéÊäÈë“Sina”£¬Èç¹ûÊäÈëÆäËûµÄÖµ£¬ÏûÏ¢·¢Ë͵ÄÌØ±ðÂý£»
Userid£ºÄúÔÚÐÂÀËÎÞÏßÉÏ×¢²áµÄÊÖ»úID£¬Èç¹ûÄúûÓÐÔÚhttp://sms.sina.com.cnÉÏ×¢²áÄúµÄÊÖ»ú£¬ÄãÊÇÎÞ·¨Ê¹Óñ¾Web Service·¢ËͶÌÐŵģ»
Password£ºÄúÔÚÐÂÀËÎÞÏßÉÏ×¢²áÊÖ»úʱËùʹÓõÄÃÜÂ룻
Mobilenumber£º¶Ô·½µÄÊÖ»úºÅÂ룻
Content£º·¢ËͶÌÏûÏ¢µÄÄÚÈÝ£»
Msgtype£º·¢ËͶÌÏûÏ¢µÄÀàÐÍ£¬ÎÒ¹À¼ÆÖ§³Ö²ÊÐÅ£¬²»¹ýÎÒ²»ÖªµÀÔõôʹÓã¬ËƺõËæ±ãÊäʲô¶¼¿ÉÒÔ£¬ÎÒʹÓõÄÊÇ“Text”¡£
×ʷѱê×¼Çë²Î¿´ÐÂÀËÎÞÏßÍøÕ¾ÉϵÄÏà¹ØËµÃ÷£¬Ó¦¸ÃÊÇÒ»ÌõÒ»½ÇÇ®£¬²»¹ýÒ²»òÕßÊÇÒ»ÌõÁ½½ÇÏߣ¬¾ßÌ岻̫Çå³þ¡£ÓÉÓÚÆäºǫ́¿ÉÄÜʹÓÃÁËÏûÏ¢¶ÓÁлúÖÆ£¬ÔÚ·±Ã¦µÄʱºò£¬¿ÉÄÜ»áÓнϳ¤Ê±¼äµÄÑÓ³Ù¡£
µÚ¶þ²½£¬ÏȽ¨Á¢Ò»¸ö¿Õ°×µÄÓ¦ÓóÌÐò¡£ÔËÐÐDelphi 7£¬´ò¿ª[File]->[New]->[Application]²Ëµ¥£¬Delphi×Ô¶¯Éú³ÉÒ»¸öĬÈϵŤ³Ì¡£½«Ä¬ÈϵĴ°ÌåForm1¸ÄΪsms£¬È»ºó½«¸Ä¹¤³Ì±£´æÎªsmsdemo.prj¡£
µÚÈý²½£¬ÒýÈëWeb Service¡££¬´ò¿ª[File]->[New]->[Other]²Ëµ¥£¬ÔÚµ¯³öµÄ´°¿ÚÖÐÑ¡ÔñWebServices TabÒ³Ãæ£¬È»ºóÑ¡ÔñÆäÖеÄWSDL importerÑ¡Ïµ¥»÷OK°´Å¥µ¯³öWSDL importer Wizard´°¿Ú£¬Èçͼ2Ëùʾ¡£ÔÚÆäÉϵÄLocation of WSDL File or URL ÖÐÊäÈ룺http://smsinter.sina.com.cn/ws/smswebservice0101.wsdl £¨×¢Ò⣬ǧÍò²»ÄÜÊä´í£¡£©£¬µ¥»÷Next°´Å¥ºó£¬ÔÙµ¥»÷Finishi°´Å¥£¬Íê³ÉÀË·¢ËͶÌÐÅWeb ServiceµÄÒýÈë¡£´Ëʱ¹¤³ÌÎļþÖлáÔö¼ÓÒ»¸öÃû×ÖΪsmswebservice0101.pasµÄÎļþ£¬ÕâÊÇDelphi×Ô¶¯Éú³ÉµÄWeb ServiceÒýÈëÉêÃ÷Îļþ£¬²»ÒªÊÖ¹¤ÐÞ¸ÄËû¡£
µÚËIJ½£¬µ÷ÓÃWeb ServiceµÄ¶ÌÐÅ·¢Ëͽӿڡ£ÔÚsms´°ÌåÖУ¬ÒÀ´ÎÔö¼ÓËĸöTEdit¿Ø¼þ£¬Ò»¸öTButton¿Ø¼þ£¬Ò»¸öT
Ïà¹ØÎĵµ£º
3.2 Óû§µÇ¼·½°¸
ÔÚ½øÈëÒ»¸öϵͳʱ£¬±ØÐëÏÈÔڵǼ´°ÌåÖÐÊäÈëÕýÈ·µÄÓû§ÃûºÍÃÜÂë²ÅÄܽøÈë¡£ÕâÑù¿ÉÒÔÈ·±£ÏµÍ³µÄ°²È«ÐԺͱ£ÃÜÐÔ£¬µÇ¼´°ÌåµÄÖÆ×÷°´ÕÕϵͳµÄ´óС¼°Óô¦£¬¿ÉÒÔ·ÖΪ²»Í¬µÄµÇ¼´°ÌåÑùʽ£¬ÔÚϵͳµÚÒ»´ÎµÇ¼ǰ£¬Ê×ÏÈÒª¶Ô²Ù×÷Ô±ÐÅÏ¢½øÐÐÏàÓ¦µÄÉèÖᣱ¾½Ú½«¶ÔµÇ¼´°Ìå¼°²Ù×÷Ô±¹ÜÀí´°ÌåµÄÖÆ×÷¹ý³Ì½øÐÐÏêϸµÄ˵Ã÷ ......
ÎÒÃÇÄÜ¿´µ½ÒÔÏ´úÂë
var pSource,pDest:PChar;
len: integer;
.......................//һЩ´úÂë
Move(pSource,pDest,len); //´íÎó
Move(pSource^,pDest^,len); //ÕýÈ·
¿´ÆðÀ´È·ÊµºÃÏñÊÇ´«Öµ£¬¶ø²»ÊÇ´«µØÖ·£¬µ«ÊǸ÷λ±ðÍüÁË£¬Õâ²»ÊÇC£¬C++£¬¶øÊÇDelphi
Object Pascal,ËùÒÔ£¬¾ø²»ÄÜ´Óº¯Êýµ ......
Ò»¡¢Ê¹ÓÃÎļþÁ÷µÄ·½·¨½øÐп½±´£¬µ±È»¡£Í¬ÑùµÄµÀÀí£¬ÄãÒ²¿ÉÒÔʹÓÃÄÚ´æÁ÷µÈ·½·¨½øÐÐÎļþµÄ¿½±´£¬ÔÀíÊÇÒ»ÑùµÄ¡£
procedure copyfile(sourcefilename,targetfilename : String);
var f1, f2: tfilestream;
begin
f1 := tfilestream.Create(sourcefilename, fmopenread);
try
f2 := tfilestream ......
ÓÉÓÚ×é¼þÌṩµÄ·½Ê½²»Í¬£¬ËùÒÔ°²×°µÄ·½·¨Ò²ÊDz»Ò»ÑùµÄ£¬ÏÂÃæ¾ÍĿǰ³£¼ûµÄ¸÷ÖÖÐÎʽµÄ×é¼þµÄ°²×°·½·¨½éÉÜһϡ£
1 Ö»ÓÐÒ»¸öDCUÎļþµÄ×é¼þ¡£DCUÎļþÊDZàÒëºÃµÄµ¥ÔªÎļþ£¬ÕâÑùµÄ×é¼þÊÇ×÷Õß²»Ïë°ÑÔ´Â빫²¼¡£Ò»°ãÀ´Ëµ£¬×÷Õß±ØÐë˵Ã÷´Ë×é¼þÊʺÏDelphiµÄÄÄÖÖ°æ±¾£¬Èç¹û°æ±¾²»¶ ......
Client:TSocketConnection ºÍServer: Scktsrvr¹ØÏµ----ѹËõÊý¾Ý´«Êä
Ò»Ö±ÓÃSocketConnectionºÍ·þÎñ¶ËµÄ´«ÊäÊý¾ÝÔÚÈý²ãÊý¾Ý¿âÖУ¬´ÓÀ´Ã»ÓÐ×¢Òâµ½ËüÃÇÖ®¼äµÄÊý¾Ý´«Ê䣬ֻÊÇÏë×Å£¬¹ÜËüÁË£¬ÍøÂçµÄÊ£¬Ç°¶Îʱ¼äÔÚDelphiÖеÄDemosÖз¢ÏÖDemos\Midas\Intrcpt.dprÀý×Ó£¬ºÇºÇ£¬ÔÙ¿´Á˰ëÌìµÄVCL·¢ÏÖ¿ÉÒÔ½«Client¶Ë·¢Ë͵ĸøServerµÄÊ ......