求 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
相关问答：
delphi 写了一个ocx文件，
idhttp.post（url,inStream,reStream）发送数据， 发送的数据是文件。
JSP端应该如何接收发送来的数据
DELPHI 代码如下。
var
Source: ......
type SFPRDA=packed record
czmm:Word; //操作密码。
sqcz:array[1..8] of packed record dm:Byte; mm:Word end;
//8个授权操作� ......
我在模块里自定义了一个函数:stradd()
可是在adoquery1.sql.add('select stradd(author) from book');
时提示stradd未定义...
这个问题有什么办法可以解决的吗? 非常感激!
......
delphi 函数：
function RB(A: longint): longint;
begin
Result := (A shr 24) or ((A shr 8) and $FF00) or ((A shl 8) and $FF0000) or (A shl 24);
end;
我转成C#：
& ......
我调用vc的dll，传送结构体参数。vc接受后从内存中拷贝出我传送的值。转换之后是乱码
来错地方了.
去DELPHI
ddd
知道错了
有没具体代码啊
//向终端发送门禁报警信息
function alar ......
