ʹÓÃDelphiµ÷ÓÃWebServices½Ó¿ÚµÄ¼òµ¥Ó¦ÓÃʵÀý
ʹÓÃDelphiµ÷ÓÃWebServices½Ó¿ÚµÄ¼òµ¥Ó¦ÓÃʵÀý
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¸ÄΪForm_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´°ÌåÖУ¬ÒÀ´ÎÔö¼ÓËĸöTLabeledEdit¿Ø¼þ£¬Ò»¸öTButton¿Ø¼þ£¬2¸öTMemo¿Ø¼þ£¬
ÔÚForm_Smsµ¥ÔªµÄu
Ïà¹ØÎĵµ£º
DECLARE
TYPE TY_QUECUR IS REF CURSOR;
CUR_COLUMNS TY_QUECUR;
SQLCMD VARCHAR(500);
TABNAME VARCHAR(20);
COLNAME VARCHAR(50);
COLTYPE VARCHAR(20);
COLCOMMENT VARCHAR2(50);
COLLENGTH INTEGER;
COLPRECISION INTEGER; ......
Ò»¡¢ÕûÊýÀàÐÍ
ÀàÐÍ ËùÕ¼×Ö½ÚÊý È¡Öµ·¶Î§
byte 1 0-255
word 2 0-65535
shortint 1 -128-127
smallint 2 -32768-32767
integer 4 -214748648-214748467
longint 4 -214748648-214748467
cordinal 4 0-2147483647
¶þ¡¢ÊµÊýÀàÐÍ
ÀàÐÍ Ëùµã×Ö½ÚÊý È¡Öµ·¶Î§
Real 6 ±2.9×10µÄ¸º39´Î·½µ½1.7× ......
ÒÔÇ°¿´ÁË Í¨¹ý±ÀÀ£µØÖ·ÕÒ´íÎóÐÐÊýÖ®VC°æ ÄÇʱºò»¹Ã»ÓÃDELPHI
×òÍí¸ÕºÃÓÖ¿´µ½ÁË ËùÒÔ¾ÍÊÔÁËÒ»ÏÂDELPHIµÄ£¬Óë´ó¼Ò¹²Ïí ^_^
ʲôÊÇ MAP Îļþ£¿¼òµ¥µØ½²£¬ MAP ÎļþÊdzÌÐòµÄÈ«¾Ö·ûºÅ¡¢Ô´ÎļþºÍ´úÂëÐкÅÐÅÏ¢µÄΨһµÄÎı¾±íʾ·½·¨£¬Ëü¿ÉÒÔÔÚÈκεط½¡¢ÈκÎʱºòʹÓ㬲»ÐèÒªÓжîÍâµÄ³ÌÐò½øÐÐÖ§³Ö¡£¶øÇÒ£¬ÕâÊÇΨһÄÜÕÒ³ö³Ì ......
ÏÂÃæÈý¸ödelphiº¯ÊýʵÏÖÁËbmpÀàÐÍͼƬºÍjpg(jpeg)ÀàÐÍͼƬµÄת»»ºÍ¸Ä±äλͼͼƬµÄ´óС¡£
jpgת»»Îªbmp:
{********************************************
×÷Õß/ÈÕÆÚ
ÃèÊö£º ʵÏÖjpg(jpeg)ͼƬÏòbmpͼƬµÄת»»
²ÎÊý½éÉÜ
FileName:Ҫת»»µÄjpg(jpeg)ͼƬµÄÃû³Æ£¨°üÀ¨Â·¾¶£©
SaveFileName:ת»»ºóµÄbmpͼƬµÄ´æ´¢Î»Öá£
......
Delphi formatµÄÓ÷¨
Ò»¡¢Formatº¯ÊýµÄÓ÷¨
FormatÊÇÒ»¸öºÜ³£Óã¬È´ÓÖËƺõºÜ·³µÄ·½·¨£¬±¾ÈËÊÔͼ¶ÔÕâ¸ö·½·¨µÄ°ïÖú½øÐÐһЩ·Ò룬ÈÃËüÓÐÒ»¸öÍêÕûµÄ¸Åò£¬ÒÔ¹©´ó¼Ò²éѯ֮Óãº
Ê×ÏÈ¿´ËüµÄÉùÃ÷£º
function Format(const Format: string; const Args: array of const): string; overload;
ÊÂʵÉÏFormat·½·¨ÓÐÁ½¸öÖÖÐÎʽ£¬Á ......