delphi 调用webservice

younerest 2012-06-25 02:47:09
最近用了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); 还是需要做什么处理?
请大侠们帮忙看下,谢谢!
...全文
161 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
younerest 2012-06-26
  • 打赏
  • 举报
回复
没人回答吗
jerry8 2012-06-26
  • 打赏
  • 举报
回复
循环调用。就是调用一个函数的方法

1,593

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 网络通信/分布式开发
社区管理员
  • 网络通信/分布式开发社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧