socket.receive,GetLastError返回10022错误是指什么意思

socket.receive，GetLastError返回10022错误是指什么意思？

Message too long.

A message sent on a datagram socket was larger than the internal message buffer or some other network limit, or the buffer used to receive a datagram was smaller than the datagram itself.

错误代码10040：消息长度太长

你在UDP套接字上所发送的消息长度大于底层网络栈所提供的缓冲区大小或者UDP通信标准数据报的大小上限。

delphi怎样用ClientSocket发送http请求通过需要验证用户和？

ProcedureTForm1.BitBtn1Click(Sender:TObject)

;varI:Integer;BeginforI:=0toServerSocket1.Socket.ActiveConnections-1DoBegin//ifServerSocket1.Socket.Connections[I].SocketHandle=XXXthenServerSocket1.Socket.Connections[I].SendText('amsg')

;//服务端发送End;End;procedureTForm1.ClientSocket1Read(Sender:TObject;Socket:TCustomWinSocket)

;beginSocket.ReceiveText;//客户端接收end;

怎么进行socket通信？

设计思路

本例包括一个服务器端程序和一个客户端程序。客户端程序可以放到多个计算机上运行，同时与服务器端进行连接通信。

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

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）：

unituServerMain;

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;

proceduretbConnectClick(Sender:TObject);

proceduretbDisconnectedClick(Sender:TObject);

procedureServerSocketClientRead(Sender:TObject;Socket:TCustomWinSocket);

procedureServerSocketListen(Sender:TObject;Socket:TCustomWinSocket);

procedureServerSocketClientConnect(Sender:TObject;Socket:TCustomWinSocket);

procedureServerSocketClientDisconnect(Sender:TObject;Socket:TCustomWinSocket);

proceduretbCloseClick(Sender:TObject);

procedureFormCreate(Sender:TObject);

procedureFormClose(Sender:TObject;varAction:TCloseAction);

procedureServerSocketGetSocket(Sender:TObject;Socket:Integer;

varClientSocket:TServerClientWinSocket);

procedureServerSocketClientError(Sender:TObject;

Socket:TCustomWinSocket;ErrorEvent:TErrorEvent;

varErrorCode:Integer);

private

{

Privatedeclarations

}

public

{

Publicdeclarations

}

session:array[0..CMax]ofclient_record;//客户端连接数组

Sessions:integer;//客户端连接数

end;

var

frmServerMain:TfrmServerMain;

implementation

{$R*.DFM}

//打开套接字连接，并使套接字进入监听状态

procedureTfrmServerMain.tbConnectClick(Sender:TObject);

begin

ServerSocket.Open;

end;

//关闭套接字连接，不再监听客户端的请求

procedureTfrmServerMain.tbDisconnectedClick(Sender:TObject);

begin

ServerSocket.Close;

StatusBar.Panels[0].Text:='服务器套接字连接已经关闭，无法接受客户端的连接请求.';

end;

//从客户端读取信息

procedureTfrmServerMain.ServerSocketClientRead(Sender:TObject;Socket:TCustomWinSocket);

var

i:integer;

begin

//将从客户端读取的信息添加到Memo1中

Memo1.Lines.Add(Socket.ReceiveText);

fori:=0tosessionsdo

begin

//取得匹配的客户端

ifsession[i].CHandle=Socket.SocketHandlethen

begin

session[i].CSocket.SendText('回复客户端'+session[i].CAddress+'==>'+Edit1.Text);

end;

//服务器端套接字进入监听状态，以便监听客户端的连接

procedureTfrmServerMain.ServerSocketListen(Sender:TObject;Socket:TCustomWinSocket);

begin

StatusBar.Panels[0].Text:='等待客户端连接...';

end;

//当客户端连接到服务器端以后

procedureTfrmServerMain.ServerSocketClientConnect(Sender:TObject;

Socket:TCustomWinSocket);

var

i,j:integer;

begin

j:=-1;

fori:=0tosessionsdo

begin

//在原有的客户端连接数组中有中断的客户端连接

ifnotsession[i].CUsedthen

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;

ifj=sessionsthen

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;

//当客户端断开连接时

procedureTfrmServerMain.ServerSocketClientDisconnect(Sender:TObject;

Socket:TCustomWinSocket);

var

i:integer;

begin

fori:=0tosessionsdo

begin

ifsession[i].CHandle=Socket.SocketHandlethen

begin

session[i].CHandle:=0;

session[i].CUsed:=False;

Break;

end;

StatusBar.Panels[0].Text:='客户端'+Socket.RemoteHost+'已经断开';

end;

//关闭窗口

procedureTfrmServerMain.tbCloseClick(Sender:TObject);

begin

Close;

end;

procedureTfrmServerMain.FormCreate(Sender:TObject);

begin

sessions:=0;

end;

procedureTfrmServerMain.FormClose(Sender:TObject;varAction:TCloseAction);

begin

ServerSocket.Close;

end;

//当客户端正在与服务器端连接时

procedureTfrmServerMain.ServerSocketGetSocket(Sender:TObject;

Socket:Integer;varClientSocket:TServerClientWinSocket);

begin

StatusBar.Panels[0].Text:='客户端正在连接...';

end;

//客户端发生错误

procedureTfrmServerMain.ServerSocketClientError(Sender:TObject;

Socket:TCustomWinSocket;ErrorEvent:TErrorEvent;

varErrorCode:Integer);

begin

StatusBar.Panels[0].Text:='客户端'+Socket.RemoteHost+'发生错误！';

ErrorCode:=0;

end;

end.

MTU与MSS的区别是什么？

MTU： Maximum Transmit Unit，最大传输单元，即物理接口（数据链路层）提供给其上层（通常是IP层）最大一次传输数据的大小；以普遍使用的以太网接口为例，缺省MTU=1500 Byte，这是以太网接口对IP层的约束，如果IP层有<=1500 byte 需要发送，只需要一个IP包就可以完成发送任务；如果IP层有> 1500 byte 数据需要发送，需要分片才能完成发送，这些分片有一个共同点，即IP Header ID相同。

MSS：Maximum Segment Size ，TCP提交给IP层最大分段大小，不包含TCP Header和 TCP Option，只包含TCP Payload ，MSS是TCP用来限制application层最大的发送字节数，是tcp能发送的分组的最大长度。

MSS是系统默认的，就是系统TCP/IP栈所能允许的最大包。在建立连接时，这个值已经被确定了，这个值并不是客观的值，而是由tcp/ip的实现确定的。

如果底层物理接口MTU= 1500 byte，则 MSS = 1500- 20(IP Header) -20 (TCP Header) = 1460 byte，如果application 有2000 byte发送，需要两个segment才可以完成发送，第一个TCP segment = 1460，第二个TCP segment = 540。

A (MTU 1500) <——Internet ——> (MTU 1492) B

见上图，TCP SYN消息，A 发送给B 的MSS= 1460，告诉B，B发给A最大segment 为1460 byte

TCP SYN消息，B发送给A的MSS= 1452，告诉A，A发给B最大segment 为1452 byte 。

但A最终能一次发给B多大的字节的segment呢？？？我们给它取名为：A_Send_MSS，取决于两个值，一个是B的通告MSS= 1452；另一个是本地物理接口MTU的限制：1500-20-20= 1460。取这两者较小的一个值，则

A_Send_MSS = minimum ( 1452, 1460) = 1452

同理可得

B_Send_MSS = minimum ( 1460，1452）=1452

可以看出这两者最后是相同的，所以可以得到以下结论，通信双方最终的MSS = 双方较小MTU- 40 。

Socket发送和接收缓冲区大小：按照我的理解，socket将TCP实现细节封装成API，Socket虽然不等于TCP，但TCP的 send_buffer 和 receive_buffer 应该和socket 等同，用C语言的说法，就是指针相同，用通俗语言来说就是，相同的内存地址段。接收缓冲区receive_buffer 大小等同于自己通告的window size; 至于send_buffer 大小会影响application放入发送缓冲区的速率，但是它应该不是瓶颈，所以不再讨论它。

TCP Window Size: 如果A发送给B window size = 8192，意思是：B最多可以连续发送8192 byte 给A，在A ACK这8192 byte之前。那A的这个8192byte 怎么来的呢？一般来说，8192byte就是A的接收缓区，A_Receive_Buffer= 8192，如果B不小心发送超过8192 byte，如果application没有及时取走，则超过8192 byte 数据可能会因为A_Receive_Buffer满而被丢弃，所以B会严格遵守A的 advertised window size，如果A通告的window = 0，则B一定不会发送数据。

Window Size 占两个byte，最大值为65535，看完下文你会发现它对对方发送速率影响很大。如果window size 是高速网络带宽的瓶颈，可以采用TCP Option scaling window 这个选项。