我在一个局域网中,有多台服务器,用Socket如何实现一台工作站同时连接多台服务器?
解决方案 »
- 有没有delphi控件的属性参考手册
- 请问已知补码为1.0000,请问它的真值是多少?
- indy TcpServer强行终止时引起的错误
- 学校老师请进,关于网络版课件
- 如何使一應用程序啟動後,以小圖標方式在WINDOWS的任務橍中顯示
- 请问各位高手,Delphi的打包程序如何把其他的安装程序(有Setup.exe)也打包进去???谢谢!
- TClientDataSet分布式读取数据时出现错误(cds.open时成员不存在)
- NAT端口是什么,怎么做一个NAT端口映射
- 今天开始上高复,散分。
- 怎麽定義類型為TColor的常量?
- [散分学习]C/S开发中数据库连接信息的存储
- 有个问题一直想不通啊!谁帮帮我!!!
Socket: TCustomWinSocket);
begin
//接收事件
end;procedure TForm1.Button1Click(Sender: TObject);
var
ClientSocket1: TClientSocket;
begin
ClientSocket1 := TClientSocket.Create(nil);
try
ClientSocket1.Address := '服务器地址';
ClientSocket1.Port := 1234; //服务器端口
ClientSocket1.OnRead := ClientSocketRead; //接收事件
//其他事件根据需要也要添加进来
finally
ClientSocket1.Free;
end;
end;
Forms,
Classes,
Windows,
SysUtils,
ShlObj,
ActiveX,
Messages,
Controls,
Dialogs,
StdCtrls,
ExtCtrls,
Menus,
ComCtrls,
FileCtrl,
ShellAPI,
ComObj,
Registry,
Variants,IdBaseComponent, IdComponent, IdUDPBase,IdUDPClient,ScktComp;{$R *.res}
procedure ClientSocketRead(Sender: TObject;Socket: TCustomWinSocket);
Var Str1 : String;
Begin
try
Str1 := Socket.ReceiveText;
except
end;
End;procedure ClientSocketDisconnect(Sender: TObject; Socket: TCustomWinSocket);
begin
// if ClientSocket.Active then MessageBox(0,'true','',MB_OK + MB_ICONWARNING)
// else MessageBox(0,'false','',MB_OK + MB_ICONWARNING);
end;Function CheckComputer(Const CurrentIP : String) : Boolean;
Var
ClientSocket1: TClientSocket;
begin
ClientSocket1 := TClientSocket.Create(nil);
try
ClientSocket1.Active := False;
ClientSocket1.Address := CurrentIP;
ClientSocket1.Port := DefaultPortNum; //服务器端口
ClientSocket1.ClientType := ctNonBlocking;
ClientSocket1.OnRead := ClientSocketRead; //接收事件
//ClientSocket1.OnDisconnect := ClientSocketDisconnect;
ClientSocket1.Active := True;
//其他事件根据需要也要添加进来
finally
ClientSocket1.Free;
end;
End;begin
Application.Initialize;
If CheckComputer('192.168.0.100') Then MessageBox(0,'ok','',MB_OK + MB_ICONWARNING);
end.