首頁(yè) 猿問(wèn) 功能是：連接錯(cuò)誤的時(shí)候，memo會(huì)...

功能是：連接錯(cuò)誤的時(shí)候，memo會(huì)顯示相應(yīng)信息？

C

當(dāng)年話下 2023-02-17 21:17:45

但是服務(wù)器端停止接受，運(yùn)行會(huì)異步錯(cuò)誤。應(yīng)該怎么修改呢？是try的位置不對(duì)嗎？代碼如下：procedure TClientFrmMain.BtnStartClick(Sender: TObject);beginif not ClientSocket.Socket.Connected thentryClientSocket.Active:=False;ClientSocket.Host:='PC-201004041415';ClientSocket.Port:=StrToInt(EdPort.Text);ClientSocket.Open;ShowStr('正在建立與'+ClientSocket.Socket.RemoteAddress+'的連接...');exceptShowStr('connection error ');end;end;

查看完整描述

2 回答

MM們

TA貢獻(xiàn)1886條經(jīng)驗(yàn) 獲得超2個(gè)贊

if not ClientSocket.Socket.Connected then
try
ClientSocket.Active:=False;
ClientSocket.Host:='PC-201004041415';
ClientSocket.Port:=StrToInt(EdPort.Text);
ClientSocket.Open;
ShowStr('正在建立與'+ClientSocket.Socket.RemoteAddress+'的連接...');
except on e:Exception do
begin
ShowStr('connection error '+E.Message);
end;
end;
end;