ÓÃ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ÖеÄDLLÖеÄÉùÃ÷ÔÂëÈçÏ£º
ÕâÀïÉùÃ÷ÁËÊä³öÐÔ²ÎÊý·Ö±ðΪÊý×ÖÓë×Ö·ûÀàÐÍ
library dll1;
uses
SysUtils,
Classes;
{$R *.res}
Function mymax(x, y: Integer; out jj: Integer; out abc: PChar): Integer; stdcall;
begin
jj := x * y;
abc := PChar(StrPas(abc) + 'ÕâÊÇ´«³öµÄ' ......
¶¨Ò壺
CbName: TComboBox;
width: Integer; //ʵ¼ÊËùÐèµÄ¿í¶È
ÔÚÖ´ÐдúÂëÖа´ÈçÏ·½·¨Ð´£º
width := CbName.Canvas.TextWidth(CbName.Items[I]); //¿ÉÓô˷½·¨Í¨¹ý±éÀú»ñµÃijѡÏîµÄ×î´ó¿í¶È£¬Ò²¿ÉÒÔ°´×Ô¼ºµÄÐ ......
procedure TForm1.Button3Click(Sender: TObject);
begin
//ÏÔʾ´´½¨µÄÊý¾Ý¼¯: dbgrid->datasource->clientdataset
//Èç¹ûÊÖ¹¤¿ØÖÆdbgridÏÔʾ¿í¶È,dbgridÓÒ¼ü´´½¨Á½¸ö×Ö¶Îaa,bb,·Ö±ðÉèÖÿí¶È¼´¿É
cds1.FieldDefs.Add('aa',ftString,40);
......
Delphi
DelphiÕâÊÇÒ»¸öwindows×ÀÃæ±à³ÌÈí¼þ£¬ÏÖÔÚ°æ±¾Óкܶ࣬Ö÷ÒªÓõϹÊÇDelphi7£¬7ÒÔÉϵİ汾¶¼ÐèҪװ.net
¾²Ì¬µ÷ÓúͶ¯Ì¬µ÷Ó㬾²Ì¬µ÷ÓþÍÊÇÖ±½ÓÍù´°ÌåÉÏÍпؼþ£¬¶ø¶¯Ì¬µ÷ÓþÍÊDZàд´úÂëµ÷ÓÿؼþµÄÀàʵÏÖһЩ¹¦ÄÜ¡£
ͨ³£Çé¿ö϶¼ÊÇÕâÁ½ÖÖ·½Ê½Ïà½áºÏµÄʹÓã¬Ëæ×ÅDelphiµÄÉîÈ룬¾Í»á·¢ÏÖÍпؼþ²»ÊÇÍòÄܵģ¬ºÜ¶àʱºò¶¼ ......
×î½ü¿ª·¢³ÌÐòÐèҪʹÓÃTList¹¦ÄÜ£¬×ªÔØ´ËÎÄÕ£¬ÒÔ×÷²Î¿¼¡£
¿´ÁËÕâÀï±êÌ⣬´ó¼Ò¿ÉÄÜÒÔΪÎÒ»á̸TListBox¿Ø¼þ£¬ÄǾʹíÁË¡£ÎÒҪ̸µÄÊÇDelphiÌṩ¸øÎÒÃǵľßÓÐÁбíÐÔÖʵÄÀࣺTstringList¡¢TListºÍTObjectList¡£TstringListÓÃÀ´´æ·Å×Ö·û´®£¬TList´æ·ÅÖ¸Õ룬¶øTObjectListÔò´æ·Å¶ÔÏó(Object)¡£
ÔÚÎÒÃÇʹÓÃDelphi µÄ¹ý³ÌÖУ¬Óкܶà ......