大哥们 :小弟现在有个问题解决不了,麻烦看一眼:
function TMessHandle.sendMessage(strmess: Widestring): Widestring;
var
xmlHttp:Olevariant;
res:Widestring;
surl:String;
begin
surl:='http://' + servicePa.ServiceIp
+':' + servicePa.ServicePort
+'/' + servicePa.ServiceName
+'/' + servicePa.sReq;
try
xmlHttp:= CreateOleObject('Msxml2.XMLHTTP');
xmlHttp.open('POST ',surl,false);
xmlHttp.send(trim(strmess));
res:=xmlHttp.responseText;
if xmlHttp.status='200' then Result:=res
else Result:=xmlHttp.status;
except
on EStringListError do
begin
showmessage(xmlHttp.status+'---error!');
Result:='error!';
end; end;
end;这段代码中的xmlHttp.send(trim(strmess));
在我断开服务器后, 客户端会有异常 ,有哪位大哥能帮个忙
怎样捕获到这个异常 : 在客户端出现的异常:
Project capAdvance.exe raised exception class EOleException with message '系统未找到指定的资源。'
Process stopped. Use Step or Run to continue
麻烦了
function TMessHandle.sendMessage(strmess: Widestring): Widestring;
var
xmlHttp:Olevariant;
res:Widestring;
surl:String;
begin
surl:='http://' + servicePa.ServiceIp
+':' + servicePa.ServicePort
+'/' + servicePa.ServiceName
+'/' + servicePa.sReq;
try
xmlHttp:= CreateOleObject('Msxml2.XMLHTTP');
xmlHttp.open('POST ',surl,false);
xmlHttp.send(trim(strmess));
res:=xmlHttp.responseText;
if xmlHttp.status='200' then Result:=res
else Result:=xmlHttp.status;
except
on EStringListError do
begin
showmessage(xmlHttp.status+'---error!');
Result:='error!';
end; end;
end;这段代码中的xmlHttp.send(trim(strmess));
在我断开服务器后, 客户端会有异常 ,有哪位大哥能帮个忙
怎样捕获到这个异常 : 在客户端出现的异常:
Project capAdvance.exe raised exception class EOleException with message '系统未找到指定的资源。'
Process stopped. Use Step or Run to continue
麻烦了
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货