Çó delphi webserivice µ÷ÓÃÀý×Ó
Çó delphi webserivice µ÷ÓÃÀý×Ó
·þÎñ¶Ë±àд£ºÐ½¨"WebServices-->SOAP Server Application-->ISAPI/NSAPI Dynamic Link Library","Service name"ÌîдÄãÒªµÄ·þÎñÃû£¬Èç"SendSmsServices"£¬È»ºóÔÚSendSmsServiceIntf.pasÖÐÌí¼Ó½Ó¿Úº¯Êý£º
Delphi(Pascal) code:
{ Invokable interface ISendSmsService }
unit SendSmsServiceIntf;
interface
uses InvokeRegistry, Types, XSBuiltIns;
type
{ Invokable interfaces must derive from IInvokable }
ISendSmsService = interface(IInvokable)
['{2DE80373-26E4-49B6-86E1-DC67D456FB90}']
{ Methods of Invokable interface must not use the default }
{ calling convention; stdcall is recommended }
function sendSms(const sendSms1: widestring): widestring; stdcall;
end;
implementation
initialization
{ Invokable interfaces must be registered }
InvRegistry.RegisterInterface(TypeInfo(ISendSmsService));
end.
ÔÚSendSmsServiceImpl.pasÖÐд¾ßÌåµÄ´¦Àí¹ý³Ì
Delphi(Pascal) code:
{ Invokable implementation File for TSendSmsService which implements ISendSmsService }
unit SendSmsServiceImpl;
interface
uses InvokeRegistry, Types, XSBuiltIns, SendSmsServiceIntf;
type
{ TSendSmsService }
TSendSmsService = c
Ïà¹ØÎÊ´ð£º
ÇëÎÊ£º
1¡¢ÈçºÎÔÚDelphiÖУ¬°ÑÖ¸¶¨Îļþ±£´æµ½SQLÖУ¬SQL¶ÔÓ¦×Ö¶ÎÓÖÓ¦¸ÃÓÃʲôÀàÐͲűȽϺÏÊÊ£¿
2¡¢¶ÔÓÚ1²Ù×÷£¬ÈçºÎ°Ñ±£´æµ½SQLÖеÄÎļþ´ò¿ª£¿
3¡¢ÒÔÉÏÎļþÖ÷ÒªÕë¶ÔOffice£¨DOC¡¢XLSµÈ£©ÎļþÀàÐÍ£¬Í¼Æ¬£¨BMP ......
ÎÊÎʸ÷λ¸ßÊÖ£¬1.ACCESSÊý¾Ý¿âÄܹ»´æ´¢Í¼Æ¬¸ñʽµÄÄÚÈÝÂð£¨JPEG BMP)£¬Èç¹û¿ÉÒÔÓ¦¸ÃÓÃʲô¸ñʽ
2.ΪÁËÕýÈ·ÏÔʾÊý¾Ý¿âÖеÄͼƬdelphiÖÐÓ¦Óõ½ÄÇЩ¿Ø¼þ
......
ÎÒÏ뽫c#дµÄ¿Ø¼þǶµ½Delphi7µÄFormÖÐÏÔʾ£¬µ«ÊÇʼÖÕÊÇÃ»×ø³É£¬ÎÒͨ¹ýµ¼ÈëtlbÎļþ£¬¿ÉÒÔͨ¹ýc#дµÄ½Ó¿Ú£¬ÊµÏÖÔÚDelphiÖÐÏÔʾһ¸ö´°Ì壬µ«ÊÇÏÔʾµÄÖ»ÊÇÔÚ×ÀÃæÉϸ¡¶¯µÄ´°Ì壬ÎÞ·¨½«ËûµÄ¸¸ÈÝÆ÷Ö¸¶¨ÎªDelphiµÄForm£¬ÎÒÏë ......
ÇëÎÊdbook V1.10°æ±¾µÄÔ´´úÂ루delphi£©ÊDz»ÊÇÔËÐв»Á˰¡£¬ÔÚÍøÉÏÏÂÁ˺ö࣬´ò¿ªÖ÷´°ÌåµÄʱºò×ÜÊDZ¨´í,֮ǰ×Ôѧc#£¬²Å¸Õ¿ªÊ¼£¬ÏÖÔÚÀÏʦ²¼ÖÃÈÎÎñÈÃÎÒ¸Ädbook V1.10°æ±¾µÄÔ´´úÂ룬ץ¿ñÁË£¬Ò»µãÍ·Ð÷ҲûÓУ¿¸÷λ´óÏÀ¸øµ ......
project project3.exe raised exception class ERemotableException with message 'access violation at address 004037B in module'project2.exe'.read of address 00000003'.process stopped.use ......