ÓÃDelphiºÍWeb Services¿ª·¢¶ÌÐÅÓ¦ÓóÌÐò
Õª
Òª£º±¾ÎÄͨ¹ýʹÓÃDelphiºÍWebServices¼¼Êõ¿ª·¢¶ÌÐÅÓ¦ÓóÌÐòµÄʵÀýÏêϸµÄ½éÉÜÁËÈçºÎÔÚDelphiÖпª·¢»ùÓÚWebServices¼¼Êõ
µÄÓ¦ÓóÌÐò¡£
¡¡¡¡¹Ø¼ü×Ö£ºDelphi£»WebService£»¶ÌÐÅÓ¦ÓóÌÐò¿ª·¢
¡¡¡¡Ò»ÌáÆð»ùÓÚWebServices¼¼ÊõµÄÓ¦ÓóÌÐò¿ª·¢£¬Ò»°ãÈËÊ×ÏÈÏëµ½µÄ¿ª·¢¹¤¾ßÊÇVS.net£¬Æäʵ×÷Ϊ¿ìËÙÓ¦ÓóÌÐò¿ª·¢¹¤¾ß
(RAD)µÄÀÏ´ó£¬Delphi´Ó6.0¾Í¿ªÊ¼Ö§³ÖWebServicesµÄ¿ª·¢ºÍÓ¦ÓÃÁË£¬±¾ÎÄͨ¹ýʹÓÃDelphi7.0µ÷ÓÃÐÂÀË·¢ËͶÌÐŵÄ
WebService½øÐжÌÐÅÓ¦ÓóÌÐò¿ª·¢ÕâһʵÀýÏêϸµÄ½éÉÜÔÚDelphiÖÐÈçºÎ¿ª·¢»ùÓÚWebServicesµÄÓ¦ÓÃϵͳ¡£
¡¡¡¡µÚÒ»
²½£¬×¼±¸¹¤×÷£¬Á˽âÐÂÀ˶ÌÐÅWebService¡£ÐÂÀË·¢ËͶÌÐŵÄWebServiceµØÖ·ÊÇhttp://smsinter.sina.com.cn
/ws/smswebservice0101.wsdl£¬¸ÃWebService¾ÍÖ»ÓÐÒ»¸ö·½·¨£¬¼´
stringsendXML(carrier,userid,password,mobilenumber,content,msgtype)¡£¸÷¸ö²ÎÊý
È«²¿ÎªstringÀàÐÍ£¬Æäº¬Òå»ù±¾ÈçÏ£¨¿ÉÄܲ»ÕýÈ·£©¡£
¡¡¡¡Carrier£ºÔËÓªÉÌÃû³Æ£¬ºÃÏñ¿ÉÒÔËæ±ãÊ䣬½¨ÒéÊäÈë“Sina”£¬Èç¹û
ÊäÈëÆäËûµÄÖµ£¬ÏûÏ¢·¢Ë͵ÄÌØ±ðÂý£»
¡¡¡¡Userid£ºÄúÔÚÐÂÀËÎÞÏßÉÏ×¢²áµÄÊÖ»úID£¬Èç¹ûÄúûÓÐÔÚhttp://sms.sina.com.cn
ÉÏ×¢²áÄúµÄÊÖ»ú£¬ÄãÊÇÎÞ·¨Ê¹Óñ¾WebService·¢ËͶÌÐŵģ»
¡¡¡¡Password£ºÄúÔÚÐÂÀËÎÞÏßÉÏ×¢²áÊÖ»úʱËùʹÓõÄÃÜÂ룻
¡¡¡¡
Mobilenumber£º¶Ô·½µÄÊÖ»úºÅÂ룻
¡¡¡¡Content£º·¢ËͶÌÏûÏ¢µÄÄÚÈÝ£»
¡¡¡¡Msgtype£º·¢ËͶÌÏûÏ¢µÄÀàÐÍ£¬ÎÒ¹À¼ÆÖ§³Ö
²ÊÐÅ£¬²»¹ýÎÒ²»ÖªµÀÔõôʹÓã¬ËƺõËæ±ãÊäʲô¶¼¿ÉÒÔ£¬ÎÒʹÓõÄÊÇ“Text”¡£
¡¡
¡¡
¡¡¡¡×ʷѱê×¼Çë²Î¿´ÐÂÀËÎÞÏßÍøÕ¾ÉϵÄÏà¹ØËµÃ÷£¬Ó¦¸ÃÊÇÒ»ÌõÒ»½ÇÇ®£¬²»¹ýÒ²»òÕßÊÇÒ»ÌõÁ½½ÇÏߣ¬¾ßÌ岻̫Çå³þ¡£ÓÉÓÚÆäºǫ́¿ÉÄÜʹÓÃÁËÏûÏ¢¶ÓÁлúÖÆ£¬
ÔÚ·±Ã¦µÄʱºò£¬¿ÉÄÜ»áÓнϳ¤Ê±¼äµÄÑÓ³Ù¡£
¡¡¡¡µÚ¶þ²½£¬ÏÈ
½¨Á¢Ò»¸ö¿Õ°×µÄÓ¦ÓóÌÐò¡£ÔËÐÐDelphi7£¬´ò¿ª[File]->[New]->[Application]²Ëµ¥£¬Delphi×Ô¶¯Éú³ÉÒ»
¸öĬÈϵŤ³Ì¡£½«Ä¬ÈϵĴ°ÌåForm1¸ÄΪsms£¬È»ºó½«¸Ä¹¤³Ì±£´æÎªsmsdemo.prj¡£ÈçÏÂͼËùʾ£º
ͼ1
http://www.mscto.com
¡¡¡¡µÚÈý²½£¬ÒýÈëWebService¡££¬´ò¿ª[File]->[New]->[Other]²Ëµ¥£¬ÔÚµ¯³öµÄ´°¿ÚÖÐÑ¡Ôñ
WebServicesTabÒ³Ãæ£¬È»ºóÑ¡ÔñÆäÖеÄWSDLimporterÑ¡Ïµ¥»÷OK°´Å¥µ¯³öWSDLimporterWizard´°¿Ú£¬Èçͼ2Ëù
ʾ¡£ÔÚÆäÉϵÄLocationofWSDLFileorURLÖÐÊäÈ룺http://smsinter.sina.com.cn/ws
/smswebservice0101.wsdl£¨×¢Ò⣬ǧÍò²»ÄÜÊä´
Ïà¹ØÎĵµ£º
Delphi 7ʼþµÄ¶à´¦Àí»úÖÆ
Allen Tao
2007-08-19
¡¡¡¡Ê×ÏȽâÊÍÒ»ÏÂÕâ¸öÌâÄ¿¡£ÔÚÎÒʹÓÃDelphi 7µÄ¹ý³ÌÖз¢ÏÖ£¬Ò»¸ö¶ÔÏóµÄʼþÖ»Äܱ»Ò»¸ö¹ý³Ì´¦Àí¡£Èç¹û¶à´Î¸øÕâ¸ö¶ÔÏóµÄʼþ¸³¸ø´¦ÀíʼþµÄ¹ý³Ì£¬×îºóÕæÕý´¦ÀíʼþµÄ½«ÊÇ×îºó¸³ÖµµÄÄǸö¹ý³Ì¡£ÀýÈ磬ÓÐÀàTMyClassÖж¨ÒåÁËÒ»¸öʼþOnSomeFired£¬ÔÚÀàTClientClassÖи ......
TreeViewÓɽڵ㹹³É£¬½¨Ê÷ͨ¹ý¶ÔTreeView.itemsÊôÐÔ½øÐвÙ×÷¡£ItemsÊÇÒ»¸öTTreeNodes¶ÔÏó£¬ÕâÊÇÒ»¸öTTreeNode¼¯¡£
Ò»¡¢Õë¶ÔTTreeNodes,Ò²¾ÍÊÇ TreeView.Items,ÓÐÕâЩÊôÐÔ£º
1¡¢count£¬½Úµã¸öÊý¡£
2¡¢item[index] ,ͨ¹ýindexµÃµ½½Úµã¡£
¶þ¡¢Õë¶ÔTTreeNodes,Ò²¾ÍÊÇ TreeView.Items,³£ÓõÄÌí¼Ó½ÚµãµÄ²Ù×÷ÓУº
Add ......
ÕâÊÇÒ»¸öʵÀý£º
procedure TMainForm.Button1Click(Sender: TObject);
var
arr:array of array of string;
begin
setlength(arr,2,3);
arr[1,2]:='this is a test';
setlength(arr,0,0);
setlength(arr,4,5);
showmessage(arr[1,2]);
end;
ÉùÃ÷Ò»¸ö¶þάÊý×éµÄ·½·¨ÊÇÓ ......
Ò»£®±àд RC ½Å±¾Îı¾
¡¡¡¡ÓüÇʱ¾»òÆäËüÎı¾±à¼Æ÷±àдһ¸öÀ©Õ¹ÃûΪ“.rc”µÄÎļþ¡£¸ñʽÈçÏ£º
¡¡¡¡AVI ÎÞÉù¶¯»
¡¡¡¡BITMAP λͼÎļþ
¡¡¡¡CURSOR ¹â±êÎļþ
¡¡¡¡ICON ͼ±êÎļþ
¡¡¡¡WAVE ÉùÒôÎļþ
ÒÔÉÏËùÁоùΪ±ê×¼×ÊÔ´ÀàÐÍ£¬Ò²¿ÉÒÔ¸ø×ÊÔ´×Ô¶¨ÒåÒ»¸öÀàÐÍ£¬È磺“mytype ......
ÕÐÆ¸ÈËÊý£º 4ÈË
ѧÀúÒªÇó£º ²»ÏÞ
¹¤×÷ÄêÏÞ£º ²»ÏÞ
н×Ê·¶Î§£º ÃæÒé
¹¤×÷µØµã£º ±±¾©Í¨ÖݾſÃÊ÷
Delphi³ÌÐòÔ±ËÄÃûְλҪÇó
񻂗:
1. ÊìÁ·Ê¹ÓÃDELPHI(C,C++, C#µÈ)½øÐпª·¢£»
2. ¾ßÓÐÁ¼ºÃµÄ³ÌÐò±àдϰ¹ß£»
3. ÔúʵµÄ»ù±¾¹¦£¬½á¹¹ÇåÎú¡¢ºÏÀí£»
4. Á¼ºÃµÄÖ´ÐÐÄÜÁ¦£¬½ÏºÃµÄÍê³ÉÔ¤¶¨ÈÎÎñ£»
5. ÉϽøÐÄÇ¿£¬ÄܳԿ ......