TIdTcp组件的连接

客户端的连接

 procedure TMainForm.BtnconClick(Sender: TObject);

 var TmpIni:TIniFile;

 filename: string;

tmpbyte:TIdBytes;

begin if Btncon.Caption='连接' then

 begin filename:=ExtractFilePath(paramstr(0))+'myini.ini';

TmpIni:=TIniFile.Create(filename);

IdTCPClient.Host :=TmpIni.ReadString('connect','ip','aa');

IdTCPClient.Port :=TmpIni.ReadInteger('connect','port',0);//StrToInt(EdtPort.Text);

 StBar.Panels[1].Text:='正在连接localhost......'; //LbLog.Items.Add('正在连接 ' + EdtHost.Text + '...');

with IdTCPClient do

begin

 try

Connect();

except Mem_content.Lines.Add('远程主机无响应！');

IdTCPClient.Disconnect();

end;//end try