各位大侠,我用dll封装了wsdl的接口,结果在isapi中用loadlibrary不能装载动态库,不知道什么原因,请帮忙啊
解决方案 »
- 高分求dbgrid导入,导出excel实例
- 把label放在图片上,不见了,好奇怪啊。。。
- 请问哪里有delphi6 下载?好用的
- 如何实现类似qq网络硬盘功能?
- 很简单的关于几个field的属性有什么区别呀?~~~?FieldByName,Fields,FieldValues,FieldList等等啊,送分
- ?????WebService如何实现身份验证?
- 一个关于大文件传送的问题
- 请问一个stringgrid的问题
- AnyWhere 数据库long binary 类型 怎么读取,
- 没有月饼,只有分,请给点提示:我有几千个歌名,要发送到工作站,用户在工作站点播,我怎么处理?
- 关于两个程序中发送消息的问题
- 帮我找找问题原因
uSMSInterface;type
TCAFunction = class
private
{ Private declarations }
FDBConnect: TSQLConnection;
soapPRIO: THTTPRIO;
FSoapCAIntf:SMSInterface;
public
{ Public declarations }
constructor Create;
destructor Destroy;override;
function Call(strRequest: String;limit:integer = -1):string; end; function NextTransID(DBConnect:TSQLConnection):string;implementation
uses tools,SysParam; function MD5( szData:string;
wLength:WORD; // cdecl; stdcall
szBuffer:PChar )
: Boolean; cdecl;external 'NTPWDENC.DLL' name 'MessageDigest5'; Resourcestring strXMLHead = '<?xml version="1.0" encoding="GB2312"?>';
const TransIDLengen:integer = 8;
{ TCAFunction }constructor TCAFunction.Create;
begin
CoInitialize(nil);
FDBConnect:=nil;
soapPRIO:= THTTPRIO.Create(nil);
soapPRIO.URL:=SysParams.CAIntf.IntfUrl;
FSoapCAIntf:=(soapPRIO as SMSInterface);
end;destructor TCAFunction.Destroy;
begin
FSoapCAIntf:=nil;
soapPRIO := nil;
CoUnInitialize();
inherited;
end;
function TCAFunction.Call(strRequest: String;limit:integer = -1):string;
type
TBuffer = array[0..1024] of char;
var
strSRequest : string;
strBuffer : TBuffer;
sid : String;
begin
LogByDay(strRequest);
if SysParams.CAIntf.IntfMode = 0 then
begin
strSRequest := strRequest+SysParams.CAIntf.SMSCode;
FillChar(strBuffer,SizeOf(strBuffer),#0);
if MD5(strSRequest,length(strSRequest),@strBuffer[0]) then
begin
strSRequest := LowerCase(strBuffer)+SysParams.CAIntf.SMSKey;
MD5(strSRequest,length(strSRequest),@strBuffer[0]);
result := FSoapCAIntf.SMSInterface(
SysParams.CAIntf.IntfVersion,
strRequest,
SysParams.CAIntf.SMSCode,
LowerCase(strBuffer)
); LogByDay(result);
end;
end else
if SysParams.CAIntf.IntfMode = 3 then
begin
LogByDay('测试环境')
end;
end;
end.