Warning: file_get_contents(/data/phpspider/zhask/data//catemap/3/android/215.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Android Delphi跨平台:如何检查套接字是否连接_Android_Delphi_Cross Platform_Firemonkey - Fatal编程技术网

Android Delphi跨平台:如何检查套接字是否连接

Android Delphi跨平台:如何检查套接字是否连接,android,delphi,cross-platform,firemonkey,Android,Delphi,Cross Platform,Firemonkey,我知道这个问题被问了很多,在我把我的问题发布到这里之前,我已经做了一些搜索,但仍然无法找到解决我问题的方法 在Delphi VCL中,我可以识别套接字是否已连接 如果Socket.Connected=True,则 但是在Android上的Delphi FMX中,没有这样的功能 我的代码: 程序TForm24.SocketConnect; 变量 FClientSocket:TSocket; Buf:TBytes; 开始 //连接到VCL服务器 FClientSocket:=TSocket.Cre

我知道这个问题被问了很多,在我把我的问题发布到这里之前,我已经做了一些搜索,但仍然无法找到解决我问题的方法

在Delphi VCL中,我可以识别套接字是否已连接

如果Socket.Connected=True,则
但是在Android上的Delphi FMX中,没有这样的功能

我的代码:

程序TForm24.SocketConnect;
变量
FClientSocket:TSocket;
Buf:TBytes;
开始
//连接到VCL服务器
FClientSocket:=TSocket.Create(TSocketType.TCP);
FClientSocket.Connect(string.Empty,'192.168.1.155'+#0,string.Empty,4851);
//如果FClientSocket.已连接,则
尽管如此
开始
//从VCL服务器接收消息
设定长度(Buf,4);
FClientSocket.Receive(Buf,4);
//这里有一些代码。。。
结束;
结束;