求 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
相关问答：
怎么实现dos下runas自动输入密码
http://bbs.pfan.cn/post-278076.html
代码如下:
VB code:
Option Explicit
Private Const LOGON_WITH_PROFILE = &H1&
Private Const CREATE_DEFAULT_ERRO ......
type SFPRDA=packed record
czmm:Word; //操作密码。
sqcz:array[1..8] of packed record dm:Byte; mm:Word end;
//8个授权操作� ......
'Select * into '+TempTableName+' from OpenDataSource(''Microsoft.JET.OLEDB.4.0'',''Data Source='
+ExcelFilePath+';Mode=Read;Extended Properties=Ex ......
请问dbook V1.10版本的源代码（delphi）是不是运行不了啊，在网上下了好多，打开主窗体的时候总是报错,之前自学c#，才刚开始，现在老师布置任务让我改dbook V1.10版本的源代码，抓狂了，一点头绪也没有？各位大侠给� ......
我尝试一个 idhttp 访问网站链接的程序
在设置代理端口的时候出错
编译没有错误
就是在运行的时候 出现了
80 is not a valid integer value 的问题
我已经把 函数分类出来的 port 转换为 integer 了 ......
