delphi 调用webservice
最近用了delphi调用webservice,主要代码如下:
procedure sendMsgThread;
var
WSResult,row: Integer;
WSIServer: MessageService;//webservice对象
m,msgcount:integer;
mytime:TDateTime;
submittime:string;
begin
mytime:=Now;
DateTimeToString(submitTime,'yyyy-MM-dd HH:mm:ss',mytime);
WSIServer:= GetMessageService(true,'',nil); //获取webservice
WSResult:= WSIServer.sendMessage(GetUserName(),GetUserPass(),tphoneString,tcontent,submitTime,tmsgType); //调用webservice里面的方法
if WSResult = -3 then
begin
Application.MessageBox(PChar(发送失败),'发送提示',MB_OK);
end
else if WSResult =0 then
begin
Application.MessageBox(PChar('发送成功'),'发送提示',MB_OK);
end;
end;
以上程序用了一段时间,暂时没发现什么问题,不过在这里有就个问题想请教大虾一下:
1 当我程序运行结束的时候,webservice对象 WSIServer要不要释放掉,如果要,要怎么释放?
2 以上程序只是实现了一次的提交,但我需要重复提交多次的时候,是不是只需要循环地调
用这个方法:WSResult:= WSIServer.sendMessage(GetUserName(),GetUserPass(),tphoneString,tcontent,submitTime,tmsgType); 还是需要做什么处理?
请大侠们帮忙看下,谢谢!