tidtcpclient 控件

服务器端使用的是TIDTCPSERVER,客户端使用的是tidtcpclient,现在的问题是服务器端传递过来的是两个数据大小不同(size)的结构数据,我如何根据tid... 服务器端使用的是TIDTCPSERVER,客户端使用的是tidtcpclient,现在的问题是服务器端传递过来的是两个数据大小不同(size)的结构数据,我如何根据tidtcpclient的实际大小先判断,然后赋值给相应的数据结构。开始以为DataTCPClient.RecvBufferSize是读取出来的缓冲区大小,发现错了,对tidtcpclient不熟悉,谁知道tidtcpclient.**是读取缓冲区的实际大小?感谢 展开
 我来答
cnbubble
2010-12-15 · TA获得超过2606个赞
知道大有可为答主
回答量:1990
采纳率:83%
帮助的人:758万
展开全部
也不太熟悉,看看下面的参考吧,可能对你有帮助:
该控件包装了一个完整的TCP客户端。该客户端包括sock支持。该控件是以下客户端控件的父类:

TIdDayTime, TIdEcho, TIdFinger, TIdFTP, TIdGopher, TIdHTTP, TIdNNTP, TIdPOP3, TIdQUOTD,

TIdSMTP, TIdTelnet, and TIdWhois。

属性
property BoundIP: string;
客户端使用的IP地址。

property BoundPort: Integer;
当前连接的本地端口号。

property BoundPortMax: Integer;
当前连接时可以使用的最大本地端口号。

property BoundPortMin: Integer;
当前连接可以使用的最小本地端口号。

property Host: string;
远程主机名。可以是IP地址,也可以是域名。

property Port: integer;
远程主机端口号。

property Intercept: TIdConnectionIntercept;
对连接进行读写操作时插入的中途截取者(插件)。

property IOHandler: TIdIOHandler;
发送和接受数据时的输入输出源(插件)。

property MaxLineAction: TIdMaxLineAction;
当读数据时已经到了最大缓冲区长度时触发的动作(事件处理器)。

property MaxLineLength: Integer;
读取数据时最大缓冲区长度(字节数)。

property ReadTimeout: Integer;
读取数据时的超时事件,单位毫秒。

property Socket: TIdIOHandlerSocket;
连接时所用的socket。

方法
procedure Connect(const ATimeout: Integer = IdTimeoutDefault); virtual;
打开客户端连接。

function ConnectAndGetAll: string; virtual;
打开客户端连接并获取所有的数据。

function AllData: string; virtual;
得到连接中所有的数据。

procedure CancelWriteBuffer;
停止写入数据。

procedure Capture(ADest: TStream; const ADelim: string = '.'; const AIsRFCMessage: Boolean =

True); overload;
procedure Capture(ADest: TStream; out VLineCount: Integer; const ADelim: string = '.'; const

AIsRFCMessage: Boolean = True); overload;
procedure Capture(ADest: TStrings; const ADelim: string = '.'; const AIsRFCMessage: Boolean

= True); overload;
procedure Capture(ADest: TStrings; out VLineCount: Integer; const ADelim: string = '.';

const AIsRFCMessage: Boolean = True); overload;
将连接中的数据读取到特殊的对象中去。

procedure CheckForDisconnect(const ARaiseExceptionIfDisconnected: boolean = true;
const AIgnoreBuffer: boolean = false); virtual;
决定是否关闭连接。

procedure CheckForGracefulDisconnect(const ARaiseExceptionIfDisconnected: Boolean = True);

virtual;
决定是否正常地关闭连接。
function CheckResponse(const AResponse: SmallInt; const AAllowedResponses: array
of SmallInt): SmallInt; virtual;
检查允许的响应中的合法的响应。

procedure ClearWriteBuffer;
清除写缓冲区。

procedure CloseWriteBuffer;
关闭写缓冲区。

function Connected: Boolean; virtual;
当前连接是否可用。

function CurrentReadBuffer: string;
从协议栈中更新缓冲区。

procedure Disconnect; virtual;
关闭连接。

procedure FlushWriteBuffer(const AByteCount: Integer = -1);
写入缓存的数据,并清除写缓冲区。

procedure ReadBuffer(var ABuffer; const AByteCount: Longint);
从读取缓冲区中读取数据。

procedure Write(const AOut: string); virtual;
向连接写入数据。

procedure WriteBuffer(const ABuffer; AByteCount: Longint; const AWriteNow: Boolean = False);
向当前连接写入缓冲数据。

procedure WriteStream(AStream: TStream; const AAll: Boolean = True; const AWriteByteCount:

Boolean = False; const ASize: Integer = 0); virtual;
向当前连接写入流数据。

procedure ReadStream(AStream: TStream; AByteCount: LongInt = -1; const AReadUntilDisconnect:

boolean = false);
从当前连接中读取流数据

'''''++++++++++++++++++++++++++++++++++++++++++++++
'''''里面的 function ConnectAndGetAll: string; virtual;
打开客户端连接并获取所有的数据。
和:
function AllData: string; virtual;
得到连接中所有的数据。
猜想,用这种函数得到数据(可能是String型的)再判断大小,分割数据,存到特点结构数据中?试试吧

http://blog.sina.com.cn/s/blog_4b665fc101009p0c.html
http://blog.sina.com.cn/s/blog_4b665fc101009p0e.html

参考资料: http://blog.sina.com.cn/s/blog_4b665fc101009p0c.html

威孚半导体技术
2024-08-19 广告
威孚(苏州)半导体技术有限公司是一家专注生产、研发、销售晶圆传输设备整机模块(EFEM/SORTER)及核心零部件的高科技半导体公司。公司核心团队均拥有多年半导体行业从业经验,其中技术团队成员博士、硕士学历占比80%以上,依托丰富的软件底层... 点击进入详情页
本回答由威孚半导体技术提供
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式