Question

delphi中用DLL封装WEBSERVICE接口 老是报内存错误，望高手指教

library SendMsg;

uses
SysUtils,
Classes,
Dialogs,
sms in 'sms.pas',
DM in 'DM.pas' {DataModule1: TDataModule};

{$R *.res}

function MsgSend(const userID: WideString; const account: WideString;
const password: WideString; const phones: WideString;
const content: WideString; const sendTime: WideString;
const sendType: Integer; const postFixNumber: WideString;
const sign: Integer):integer;stdcall;
var
sSendStatus: SendStatus;
aInfo: smsPortType;
begin
aInfo := DataModule1.HTTPRIO2 as smsPortType;
try
sSendStatus := aInfo.directSend(userID,account,password,phones,content,sendTime,sendType,postFixNumber,sign); //这里出错
finally
Result:= sSendStatus.OKPhoneCounts;
aInfo := nil;
end;
end;
exports
MsgSend name 'MsgSend',
GetStockDetails name 'GetStockDetails';

begin

end.
initialization
coinitialize(nil);
finalization
counInitializ;

Answer 1

请检查
打开“系统属性”，请依次单击“开始”、“控制面板”，然后双击“系统”。
单击“高级”选项卡，之后单击“性能”下的“设置”。
单击“数据执行保护”选项卡。
看看是不是将你的dll做例外；
如果不是可能你无法调用webservice ;