TclientSocket和TserverSocket用法

最新推荐文章于 2023-04-11 11:08:34 发布
最新推荐文章于 2023-04-11 11:08:34 发布
阅读量1.1k 收藏 1
点赞数
分类专栏： Delphi 文章标签： 服务器 integer session object socket action

关键词：Delphi,网络通信，TserverSocket，TclientSocket

笔者在工作中遇到对局域网中各工作站与服务器之间进行Socket通信的问题。现在将本人总结出来的
TServerSocket和TClientSocket两个组件的基本用法写出来，希望与您分享。

ClientSocket组件为客户端组件。它是通信的请求方，也就是说，它是主动地与服务器端建立连接。

ServerSocket组件为服务器端组件。它是通信的响应方，也就是说，它的动作是监听以及被动接受客户端的连接请
求，并对请求进行回复。

ServerSocket组件可以同时接受一个或多个ClientSocket组件的连接请求，并与每个ClientSocket组件建立单独的
连接，进行单独的通信。因此，一个服务器端可以为多个客户端服务。


设计思路

(***本文出处：南山古桃(nsgtao)的百度空间：http://hi.baidu.com/nsgtao/ ****)
本例包括一个服务器端程序和一个客户端程序。客户端程序可以放到多个计算机上运行，同时与服务器端进行连接
通信。

本例的重点，一是演示客户端与服务器端如何通信；二是当有多个客户端同时连接到服务器端时，服务器端如何识
别每个客户端，并对请求给出相应的回复。为了保证一个客户端断开连接时不影响其它客户端与服务器端的通信，
同时保证服务器端能够正确回复客户端的请求，在本例中声明了一个记录类型：

type
client_record=record
CHandle: integer; //客户端套接字句柄
CSocket:TCustomWinSocket; //客户端套接字
CName:string; //客户端计算机名称
CAddress:string; //客户端计算机IP地址
CUsed: boolean; //客户端联机标志
end;

 

利用这个记录类型数据保存客户端的信息，同时保存当前客户端的连接状态。其中，CHandle保存客户端套接字句
柄，以便准确定位每个与服务器端保持连接的客户端；Csocket保存客户端套接字，通过它可以对客户端进行回
复。Cused记录当前客户端是否与服务器端保持连接。

下面对组件ServerSocket和ClientSocket的属性设置简单说明。

ServerSocket的属性：

· Port，是通信的端口，必须设置。在本例中设置为1025；

· ServerTypt，服务器端读写信息类型，设置为stNonBlocking表示异步读写信息，本例中采用这种方式。

· ThreadCacheSize，客户端的最大连接数，就是服务器端最多允许多少客户端同时连接。本例采用默认值10。

其它属性采用默认设置即可。

ClientSocket的属性：

· Port，是通信的端口，必须与服务器端的设置相同。在本例中设置为1025；

· ClientType，客户端读写信息类型，应该与服务器端的设置相同，为stNonBlocking表示异步读写信息。

· Host，客户端要连接的服务器的IP地址。必须设置，当然也可以在代码中动态设置。

其它属性采用默认设置即可。

程序源代码:

· 服务器端源码（uServerMain.pas）：

unit uServerMain;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ScktComp, ToolWin, ComCtrls, ExtCtrls, StdCtrls, Buttons;
const
CMax=10; //客户端最大连接数
type
client_record=record
CHandle: integer; //客户端套接字句柄
CSocket:TCustomWinSocket; //客户端套接字
CName:string; //客户端计算机名称
CAddress:string; //客户端计算机IP地址
CUsed: boolean; //客户端联机标志
end;
type
TfrmServerMain = class(TForm)
ServerSocket: TServerSocket;
ControlBar1: TControlBar;
ToolBar1: TToolBar;
tbConnect: TToolButton;
tbClose: TToolButton;
tbDisconnected: TToolButton;
Edit1: TEdit;
Memo1: TMemo;
StatusBar: TStatusBar;
procedure tbConnectClick(Sender: TObject);
procedure tbDisconnectedClick(Sender: TObject);
procedure ServerSocketClientRead(Sender: TObject;
Socket: TCustomWinSocket);
procedure ServerSocketListen(Sender: TObject;
Socket: TCustomWinSocket);
procedure ServerSocketClientConnect(Sender: TObject;
Socket: TCustomWinSocket);
procedure ServerSocketClientDisconnect(Sender: TObject;
Socket: TCustomWinSocket);
procedure tbCloseClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure ServerSocketGetSocket(Sender: TObject; Socket: Integer;
var ClientSocket: TServerClientWinSocket);
procedure ServerSocketClientError(Sender: TObject;
Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
var ErrorCode: Integer);
private
{ Private declarations }
public
{ Public declarations }
session: array[0..CMax] of client_record; //客户端连接数组
Sessions: integer; //客户端连接数
end;
var
frmServerMain: TfrmServerMain;
implementation
{$R *.DFM}
//打开套接字连接，并使套接字进入监听状态
procedure TfrmServerMain.tbConnectClick(Sender: TObject);
begin
ServerSocket.Open ;
end;
//关闭套接字连接，不再监听客户端的请求
procedure TfrmServerMain.tbDisconnectedClick(Sender: TObject);
begin
ServerSocket.Close;
StatusBar.Panels[0].Text :=服务器套接字连接已经关闭，无法接受客户端的连接请求.;
end;
//从客户端读取信息
procedure TfrmServerMain.ServerSocketClientRead(Sender: TObject;
Socket: TCustomWinSocket);
var
i:integer;
begin
//将从客户端读取的信息添加到Memo1中
Memo1.Lines.Add(Socket.ReceiveText);
for i:=0 to sessions do
begin
//取得匹配的客户端
if session[i].CHandle = Socket.SocketHandle then
begin
session[i].CSocket.SendText(回复客户端+session[i].CAddress+ ==> +Edit1.Text);
end;
end;
end;
//服务器端套接字进入监听状态，以便监听客户端的连接
procedure TfrmServerMain.ServerSocketListen(Sender: TObject;
Socket: TCustomWinSocket);
begin
StatusBar.Panels[0].Text :=等待客户端连接...;
end;
//当客户端连接到服务器端以后
procedure TfrmServerMain.ServerSocketClientConnect(Sender: TObject;
Socket: TCustomWinSocket);
var
i,j:integer;
begin
j:=-1;
for i:=0 to sessions do
begin
//在原有的客户端连接数组中有中断的客户端连接
if not session[i].CUsed then
begin
session[i].CHandle := Socket.SocketHandle ;//客户端套接字句柄
session[i].CSocket := Socket; //客户端套接字
session[i].CName := Socket.RemoteHost ; //客户端计算机名称
session[i].CAddress := Socket.RemoteAddress ;//客户端计算机IP
session[i].CUsed := True; //连接数组当前位置已经占用
Break;
end;
j:=i;
end;
if j=sessions then
begin
inc(sessions);
session[j].CHandle := Socket.SocketHandle ;
session[j].CSocket := Socket;
session[j].CName := Socket.RemoteHost ;
session[j].CAddress := Socket.RemoteAddress ;
session[j].CUsed := True;
end;
StatusBar.Panels[0].Text := 客户端 +Socket.RemoteHost + 已经连接;
end;
//当客户端断开连接时
procedure TfrmServerMain.ServerSocketClientDisconnect(Sender: TObject;
Socket: TCustomWinSocket);
var
i:integer;
begin
for i:=0 to sessions do
begin
if session[i].CHandle =Socket.SocketHandle then
begin
session[i].CHandle :=0;
session[i].CUsed := False;
Break;
end;
end;
StatusBar.Panels[0].Text :=客户端 +Socket.RemoteHost + 已经断开;
end;
//关闭窗口
procedure TfrmServerMain.tbCloseClick(Sender: TObject);
begin
Close;
end;
procedure TfrmServerMain.FormCreate(Sender: TObject);
begin
sessions := 0;
end;
procedure TfrmServerMain.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
ServerSocket.Close ;
end;
//当客户端正在与服务器端连接时
procedure TfrmServerMain.ServerSocketGetSocket(Sender: TObject;
Socket: Integer; var ClientSocket: TServerClientWinSocket);
begin
StatusBar.Panels[0].Text :=客户端正在连接...;
end;
//客户端发生错误
procedure TfrmServerMain.ServerSocketClientError(Sender: TObject;
Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
var ErrorCode: Integer);
begin
StatusBar.Panels[0].Text :=客户端+Socket.RemoteHost +发生错误！;
ErrorCode := 0;
end;
end.

 

· 客户端源码(uClientMain.pas)：

unit uClientMain;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ScktComp, ComCtrls, ToolWin, ExtCtrls, StdCtrls, Buttons;
const
SocketHost = 172.16.1.6; //服务器端地址
type
TfrmClientMain = class(TForm)
ControlBar1: TControlBar;
ToolBar1: TToolBar;
tbConnected: TToolButton;
tbSend: TToolButton;
tbClose: TToolButton;
tbDisconnected: TToolButton;
ClientSocket: TClientSocket;
Edit1: TEdit;
Memo1: TMemo;
StatusBar: TStatusBar;
btnSend: TBitBtn;
procedure tbConnectedClick(Sender: TObject);
procedure tbDisconnectedClick(Sender: TObject);
procedure ClientSocketRead(Sender: TObject; Socket: TCustomWinSocket);
procedure tbSendClick(Sender: TObject);
procedure tbCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure ClientSocketConnect(Sender: TObject;
Socket: TCustomWinSocket);
procedure ClientSocketConnecting(Sender: TObject;
Socket: TCustomWinSocket);
procedure ClientSocketDisconnect(Sender: TObject;
Socket: TCustomWinSocket);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure ClientSocketError(Sender: TObject; Socket: TCustomWinSocket;
ErrorEvent: TErrorEvent; var ErrorCode: Integer);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frmClientMain: TfrmClientMain;
implementation
{$R *.DFM}
//打开套接字连接
procedure TfrmClientMain.tbConnectedClick(Sender: TObject);
begin
ClientSocket.Open ;
end;
//关闭套接字连接
procedure TfrmClientMain.tbDisconnectedClick(Sender: TObject);
begin
ClientSocket.Close;
end;
//接受服务器端的回复
procedure TfrmClientMain.ClientSocketRead(Sender: TObject;
Socket: TCustomWinSocket);
begin
Memo1.Lines.Add(Socket.ReceiveText);
end;
//发送信息到服务器端
procedure TfrmClientMain.tbSendClick(Sender: TObject);
begin
ClientSocket.Socket.SendText(Edit1.Text);
end;
procedure TfrmClientMain.tbCloseClick(Sender: TObject);
begin
Close;
end;
//设置要连接的服务器端地址
procedure TfrmClientMain.FormShow(Sender: TObject);
begin
ClientSocket.Host := SocketHost;
end;
//已经连接到服务器端
procedure TfrmClientMain.ClientSocketConnect(Sender: TObject;
Socket: TCustomWinSocket);
begin
tbSend.Enabled := True;
tbDisconnected.Enabled :=True;
btnSend.Enabled := True;
StatusBar.Panels[0].Text := 已经连接到 + Socket.RemoteHost ;
end;
//正在连接到服务器端
//(***本文出处：南山古桃(nsgtao)的百度空间：http://hi.baidu.com/nsgtao/ ****)
procedure TfrmClientMain.ClientSocketConnecting(Sender: TObject;
Socket: TCustomWinSocket);
begin
StatusBar.Panels[0].Text := 正在连接到服务器... ;
end;
//当断开与服务器端的连接时发生
procedure TfrmClientMain.ClientSocketDisconnect(Sender: TObject;
Socket: TCustomWinSocket);
begin
tbSend.Enabled := False;
btnSend.Enabled := False;
tbDisconnected.Enabled := False;
StatusBar.Panels[0].Text := 已经断开与 + Socket.RemoteHost + 的连接;
end;
procedure TfrmClientMain.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
ClientSocket.Close ;
end;
//当与服务器端的连接发生错误时
procedure TfrmClientMain.ClientSocketError(Sender: TObject;
Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
var ErrorCode: Integer);
begin
StatusBar.Panels[0].Text := 与服务器端的连接发生错误;
ErrorCode := 0;
end;
end.

 


小结


上述方法是比较简单的实现方法，同时也是相对较容易理解的方法。通过这个方法，笔者成功实现了局域网内多个
客户端与服务器端进行Socket通信的功能，同时可以保证一个客户端的连接、通信或是断开都不影响其它客户端的
正常通信。

附录：

服务器端窗体和客户端窗体及组件的属性设置参加相应的DFM文件。

uServerMain.pas对应的DFM文件(uServerMain.dfm)
object frmServerMain: TfrmServerMain
Left = 297
Top = 258
BorderIcons = [biSystemMenu, biMinimize]
BorderStyle = bsSingle
Caption = ServerSocket
ClientHeight = 279
ClientWidth = 476
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = MS Sans Serif
Font.Style = []
OldCreateOrder = False
OnClose = FormClose
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object ControlBar1: TControlBar
Left = 0
Top = 0
Width = 476
Height = 30
Align = alTop
AutoSize = True
TabOrder = 0
object ToolBar1: TToolBar
Left = 11
Top = 2
Width = 459
Height = 22
ButtonHeight = 21
ButtonWidth = 55
Caption = ToolBar1
EdgeInner = esNone
EdgeOuter = esNone
Flat = True
ShowCaptions = True
TabOrder = 0
object tbConnect: TToolButton
Left = 0
Top = 0
Caption = 连接
ImageIndex = 0
OnClick = tbConnectClick
end
object tbDisconnected: TToolButton
Left = 55
Top = 0
Caption = 断开
ImageIndex = 4
OnClick = tbDisconnectedClick
end
object tbClose: TToolButton
Left = 110
Top = 0
Caption = 关闭
ImageIndex = 3
OnClick = tbCloseClick
end
end
end
object Edit1: TEdit
Left = 0
Top = 232
Width = 473
Height = 21
TabOrder = 1
Text = 你好！
end
object Memo1: TMemo
Left = 0
Top = 30
Width = 476
Height = 195
Align = alTop
TabOrder = 2
end
object StatusBar: TStatusBar
Left = 0
Top = 257
Width = 476
Height = 22
Panels = <
item
Width = 50
end>
SimplePanel = False
end
object ServerSocket: TServerSocket
Active = False
Port = 1025
ServerType = stNonBlocking
OnListen = ServerSocketListen
OnGetSocket = ServerSocketGetSocket
OnClientConnect = ServerSocketClientConnect
OnClientDisconnect = ServerSocketClientDisconnect
OnClientRead = ServerSocketClientRead
OnClientError = ServerSocketClientError
Left = 368
end
end

uClientMain.pas对应的DFM文件(uClientMain.dfm)

object frmClientMain: TfrmClientMain
Left = 361
Top = 290
BorderIcons = [biSystemMenu, biMinimize]
BorderStyle = bsSingle
Caption = ClientSocket
ClientHeight = 230
ClientWidth = 402
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = MS Sans Serif
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
OnClose = FormClose
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object ControlBar1: TControlBar
Left = 0
Top = 0
Width = 402
Height = 30
Align = alTop
AutoSize = True
TabOrder = 0
object ToolBar1: TToolBar
Left = 11
Top = 2
Width = 385
Height = 22
ButtonHeight = 21
ButtonWidth = 55
Caption = ToolBar1
EdgeInner = esNone
EdgeOuter = esNone
Flat = True
ShowCaptions = True
TabOrder = 0
object tbConnected: TToolButton
Left = 0
Top = 0
Caption = 连接
ImageIndex = 0
OnClick = tbConnectedClick
end
object tbSend: TToolButton
Left = 55
Top = 0
Caption = 发送
Enabled = False
ImageIndex = 1
OnClick = tbSendClick
end
object tbDisconnected: TToolButton
Left = 110
Top = 0
Caption = 断开
Enabled = False
ImageIndex = 3
OnClick = tbDisconnectedClick
end
object tbClose: TToolButton
Left = 165
Top = 0
//(***本文出处：南山古桃(nsgtao)的百度空间：http://hi.baidu.com/nsgtao/****)
Caption = 退出
ImageIndex = 2
OnClick = tbCloseClick
end
end
end
object Edit1: TEdit
Left = 0
Top = 184
Width = 321
Height = 21
TabOrder = 1
Text = 问候
end
object Memo1: TMemo
Left = 0
Top = 30
Width = 402
Height = 147
Align = alTop
TabOrder = 2
end
object StatusBar: TStatusBar
Left = 0
Top = 208
Width = 402
Height = 22
Panels = <
item
Width = 50
end>
SimplePanel = False
end
object btnSend: TBitBtn
Left = 336
Top = 183
Width = 60
Height = 22
Caption = 发送
Enabled = False
TabOrder = 4
OnClick = tbSendClick
end
object ClientSocket: TClientSocket
Active = False
ClientType = ctNonBlocking
Port = 1025
OnConnecting = ClientSocketConnecting
OnConnect = ClientSocketConnect
OnDisconnect = ClientSocketDisconnect
OnRead = ClientSocketRead
OnError = ClientSocketError
Left = 320
end
end.

解未知数
关注
  • 0
    点赞
  • 踩
  • 1
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
DelphiClientSocket断线重连.zip
03-06
Delphi ClientSocket断线重连.zip
Delphi之TServerSocket和TClientSocket多线程传输
03-22
Delphi之TServerSocket和TClientSocket多线程传输文字例子
Delphi之TServerSocket和TClientSocket 属性、方法、事件
yygyyygy1233的博客
03-07 2394
Delphi的Socke介绍 ClientSocket和ServerSocket,它们对Winsock的API进行了很好的封装生成了TClientSocket和TserverSocket两个类（控件）。通过这两个控件，可以很方便的生成TCP/IP网络应用程序。TClientSocket类是客户端的Socket类，通过它可以与服务器程序建立TCP连接，并进行数据交换。TserverSocket是服务...
关于delphi下clientsocket的重复连接问题
tianchangjiang的博客
12-09 1519
这几天用clientsocket进行数据传输时发现考虑到网络或服务非正常端断掉时候，客户端需要进行重新连接。但重新连接后法相socket句柄不能释放，在windows 管理器里可以看到，如果不断重新连接，几天之后程序就会崩溃。通过对delphi下源代码追踪发现当调用clientsocket的open时，程序调用API socket函数生成一个套接字，主动关闭时调用closesocket关闭套接字
Delphi TClientSocket组件、TserverSocket组件
zdwcmy的专栏
05-07 529
Delphi是一种功能强大的面向对象的编程语言，在网络方面，它将windows API封装成许多组件，大大简化了编程的复杂程度。对于一些比较简单的程序，利用Delphi中的一些网络组件，可以轻松地解决问题。 下面将说明TClientSocket组件、TserverSocket组件。 一．TClientSocket组件 TClientSocket组件主要作为客户端的套接字使用。它封装了客户...
Delphi TServerSocket和TClientSocket两个组件的基本用法
04-08
现在将本人总结出来的TServerSocket和TClientSocket两个组件的基本用法写出来，希望与您分享。 ClientSocket组件为客户端组件。它是通信的请求方，也就是说，它是主动地与服务器端建立连接。 ServerSocket组件为...
TServerSocket和TClientSocket类的包JSocket
12-26
传奇程序中用的端口类：TServerSocketTClientSocket，将该包加载到delphi中，即可使用
IPV6Sock.zip
08-15
对Delphi类TServerSocket和TClientSocket做了修改，增加IPv6协议支持。 修改后的类名为TIPV6ServerSocket和TIPV6ClientSocket。 使用方法与原类一致，仅需要在激活Socket前设置一下IPVer属性。 里面还有使用TIPV6...
打飞机人机对弈版源代码,Delphi开发的益智游戏.rar
07-09
在Delphi10精简版中如果没有TClientSocket和TServerSocket控件 请试试将PlanePaneldclsockets100.bpl拷贝到delphi安装目录下的Bin文件夹中，然后打开Delphi， 点击Component->Install Packages->Add选中刚才拷贝的...
Delphi的Socket编程步骤说明
yygyyygy1233的博客
03-07 1622
比较详细介绍 ClientSocket 和ServerSocket 重要的属性: 1.client和server都有port属性，需要一致才能互相通信 2.client有Address属性,使用时填写对方(server)的IP地址 几个重要的事件: client: OnRead事件，当client受到冲击消息时在OnRead事件中可以获得server发送过来消息。 Server: O...
delphi安装 Tclientsocket, Tserversocket控件
jianjing96的博客
04-11 318
打开Delphi项目时报错提示 Class Tclientsocket 没有安装。
（P16）socket编程（十一）：套接字I/O超时设置方法，用select实现超时
喜欢打篮球的普通人
06-14 510
文章目录1.套接字I/O超时设置方法2.用select实现超时 1.套接字I/O超时设置方法 2.用select实现超时 在都之前设置一个闹钟，若5s钟内没有返回数据（到达5s钟），则会产生一个SIGALRM信号将read打断 错误码被打断了 因为该闹钟可能会被其它使用，所以一般不使用闹钟来实现超时 发送超时时间 接收超时时间 超时的错误码是EWOULDBLOCK 不好移植，因为一些TCP选项不支持这两个选项 19：51 ...
TclientSocket组件
09-08 1599
TclientSocket组件主要作为客户端的套接字使用。它封装了客户端的套接字，在与服务器建立连接之后，就负责管理这个连接，在结束连接后关闭套接字。属性：active：设置CLIENTSOCKET是否打开CLIENTTYPE：设置CLIENTSOCKET使用阻塞式还是非阻塞式通讯ADDRESS：想要连接服务器的IP地址HOST：想要连接服务器的主机名PORT：想要连接服务器的端口号SERVICE
TCP过程中，网络断开问题解决办法
zengyaowu1988的博客
06-29 3429
最近工作过程中，遇到了在TCP建立好连接以后，发送和接收过程中，网络断开引起的socket无法关闭的问题。ps：TCP的发送和接收都使用的是阻塞模式最开始想到的解决办法是设置发送和接收的超时时间，这样超时时间到了，发送和接收都会返回，socket就能正常关闭了。但是设置超时时间会引起其他问题。1、设置发送超时以后，客户端（上位机）会出现，Interrupted system call问题，产生原因是send函数在阻塞模式下，一定要等到有可用空间将send发送的数据拷贝到发送缓冲中，但是超时了，还没发送，就出
为socket的recv/send设置超时
柳鲲鹏
01-31 856
　　发现每次发送文件之后，要等很久插入到数据库中。哪里有问题？今天跟踪了一下，发现是发送文件之后的返回很慢。一想，应该是使用的默认超时（３０秒？）。设置超时后，很快就返回了： struct timeval timeout={1,0}; setsockopt(socket, SOL_SOCKET, SO_SNDTIMEO, (const char*)&amp;timeout, s...
由于系统缓冲区空间不足或队列已满,不能执行套接字上的操作的解决方法
热门推荐
IChen.的博客
06-15 1万+
windows socket error: 由于系统缓冲区空间不足或队列已满,不能执行套接字上的操作(10055),on API connect 解决方法： 1、重启电脑，最简单方法。 2、虚拟内存太小或者C盘满了。如果是这种，请加大虚拟内存量，并保证C盘还有充足的空间。 如果是这种，右键单击我的电脑——>属性——>高级——>性能设置——>高级——>将虚拟内存的值加大。 3、开始－运行依次输入以下命令，输完这些命令后重新启动windows，然后打开IE看看。 regsvr32
socket为send和recv设置超时时间
风子杨的博客中心
07-27 4440
linux和windows下用setsockopt设置SO_SNDTIMEO,SO_RCVTIMEO的参数的一点区别   socket在某些情况：如对方关闭时，本地可能sendto不出去数据，然后recvfrom就会被阻塞，这时就需要设置 这两个参数的值提高程序质量。 linux:     struct timeval timeout={3,0};//3s     in...
使用Delphi的Socket组件进行阻塞方式通信的零碎
weixin_34112030的博客
12-20 351
首先重载TServerClientThread的ClientExecute方法: procedure TMyThread.ClientExecute; begin repeat until... end; 在ServerSocket.OnGetThread中创建自己的线程: procedure ServerSocket1GetT...
delphi 收发文件
最新发布
07-27
在Delphi中，可以使用TClientSocket和TServerSocket组件来实现文件的收发。在TForm1中，可以使用TFileStream来处理文件流。在发送文件的按钮点击事件中，可以使用TClientSocket的Socket.SendStream方法将文件流发送给服务器。在TServerSocket的ClientRead事件中，可以使用TFileStream的LoadFromStream方法将接收到的文件流保存到本地文件中。以下是一个简单的示例代码： ``` // 发送文件 procedure TForm1.btnSendFileClick(Sender: TObject); begin if OpenDialog1.Execute then begin fsSend := TFileStream.Create(OpenDialog1.FileName, fmOpenRead); try cs.Socket.SendStream(fsSend); finally fsSend.Free; end; end; end; // 接收文件 procedure TForm1.csRead(Sender: TObject; Socket: TCustomWinSocket); begin if not Assigned(fsRecv) then begin if SaveDialog1.Execute then begin fsRecv := TFileStream.Create(SaveDialog1.FileName, fmCreate); tStart := True; TickCount := GetTickCount; end; end; if Assigned(fsRecv) then begin fsRecv.CopyFrom(Socket.ReceiveStream, Socket.ReceiveLength); if Socket.ReceiveLength = 0 then begin fsRecv.Free; fsRecv := nil; tStart := False; ShowMessage('文件接收完成'); end; end; end; ``` 在TForm1的FormCreate事件中，可以设置TClientSocket和TServerSocket的属性，如IP地址、端口号等。在TForm1的BtncancelClick事件中，可以取消文件的发送操作。在TForm1的BtnexitClick事件中，可以退出程序。 请注意，以上代码只是一个简单的示例，实际应用中可能需要添加错误处理、进度条显示等功能。 #### 引用[.reference_title] - *1* *2* [Delphi ServerSocket,ClientSocket示例](https://blog.csdn.net/genispan/article/details/3132417)[target="_blank" data-report-click={"spm":"1018.2226.3001.9630","extra":{"utm_source":"vip_chatgpt_common_search_pc_result","utm_medium":"distribute.pc_search_result.none-task-cask-2~all~insert_cask~default-1-null.142^v91^insert_down28v1,239^v3^insert_chatgpt"}} ] [.reference_item] - *3* [delphi调用外部程序打开文件](https://blog.csdn.net/weixin_45222383/article/details/91442882)[target="_blank" data-report-click={"spm":"1018.2226.3001.9630","extra":{"utm_source":"vip_chatgpt_common_search_pc_result","utm_medium":"distribute.pc_search_result.none-task-cask-2~all~insert_cask~default-1-null.142^v91^insert_down28v1,239^v3^insert_chatgpt"}} ] [.reference_item] [ .reference_list ]

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值