请问大家delphi进行web service中如何传值呢？急，请帮忙

[yonger22]

我在delphi中把.wsdl文件导入了。
文件资料上是这样写的
接口名称 SendSmsMessage
接口描述 通过该接口可为SP下发短消息
请求信息 SendSmsMessageRequest
响应信息 SendSmsMessageResponse
接口方式 webservice
参数都是在SendSmsMessageRequest及SendSmsMessageResponse里

可是导入的wsdl生成的代码为：
SendSmsMessageRequest = class; { "http://webservice.interfaceforsp.bs.md.com.cn" }
SendSmsMessageResponse = class; { "http://webservice.interfaceforsp.bs.md.com.cn" }



// ************************************************************************ //
// Namespace : http://webservice.interfaceforsp.bs.md.com.cn
// ************************************************************************ //
SendSmsMessageRequest = class(TRemotable)
private
FSPID: String;
Fauthenticator: String;
FdestAddr: String;
Fmessage: String;
FscheduleDeliveryTime: String;
FsourceAddr: String;
FtimeStamp: String;
FvalidityPeriod: String;
published
property SPID: String read FSPID write FSPID;
property authenticator: String read Fauthenticator write Fauthenticator;
property destAddr: String read FdestAddr write FdestAddr;
property message: String read Fmessage write Fmessage;
property scheduleDeliveryTime: String read FscheduleDeliveryTime write FscheduleDeliveryTime;
property sourceAddr: String read FsourceAddr write FsourceAddr;
property timeStamp: String read FtimeStamp write FtimeStamp;
property validityPeriod: String read FvalidityPeriod write FvalidityPeriod;
end;



// ************************************************************************ //
// Namespace : http://webservice.interfaceforsp.bs.md.com.cn
// ************************************************************************ //
SendSmsMessageResponse = class(TRemotable)
private
Fauthenticator: String;
FmessageID: Integer;
FrespCode: Integer;
FtimeStamp: String;
published
property authenticator: String read Fauthenticator write Fauthenticator;
property messageID: Integer read FmessageID write FmessageID;
property respCode: Integer read FrespCode write FrespCode;
property timeStamp: String read FtimeStamp write FtimeStamp;
end;

SoapForSP = interface(IInvokable)
['{93181A7D-6BCF-FB5B-858D-2380A6050C19}']
function sendSmsMessage(const param: SendSmsMessageRequest): SendSmsMessageResponse; stdcall;
end;

然后我在commandbutton中进行了变量定义：
var login:SoapForSP;
login:=HTTPRIOlogin as SoapForSP;
可是login的方法只有sendSmsMessage，那么要如何对SendSmsMessageRequest里面的参数传值呢？