关于 Indy 的发送与接收 及 不定长度流的见解
系统
1708 0
Delphi2010 的Indy10中各种IOHandler提供了相应的ReadXXX 与 WriteXXX方法。
在一个Client / Server 的通迅中。我们会用到以上方法，当我们写一个流时，我们需要关心的是流的大小。一般做法是先把流大小发送过去，在返回
准备好
之后再发送流。
下面做一个假设：
在一个连接的基础上
Server (1) 发送流大小，等待返回
Client (2)读出流大小，发送
准备好
Client (2)要求发送其它命令
这时 (2) 这一步骤，若要求发送其它命令在前的话，Server 读到的就不是
准备好
命令了。
为了避免或者说为了说明
一次性命令
内容，我们可以使用结构来完成 Server 的要求，即
发送一个带命令的流
。
为了以上目的。我们需要定义一个结构
TCommandContext = Record
Command:string[50];
StreamSize:integer;
end;
这样命令放入 Command 中，后续流的大小放入StreamSize里。
一、读取
Code
var
Context:TCommandContext;
ContextStream,FReadableStream:TMemoryStream;
begin
ContextStream:
=
TMemoryStream.Create;
FReadableStream:
=
TMemoryStream.Create;
FTCPClient.IOHandler.ReadStream(ContextStream,SizeOf(Context),False);
//
读取流的结构部分
ContextStream.Position:
=
0
;
ContextStream.Read(Context,SizeOf(Context));
//
解出结构
//
Context.Command
FTCPClient.IOHandler.ReadStream(FReadableStream,Context.StreamSize,False);
//
根据大小读取剩下的流
..
end
;
二、写入
Code
var
jpg:TJPEGImage;
JpgStream,SendStream:TMemoryStream;
Context:TCommandContext;
begin
jpg:
=
TJPEGImage.Create;
JpgStream:
=
TMemoryStream.Create;
SendStream:
=
TMemoryStream.Create;
try
jpg.Assign(FBlockBMP);
jpg.CompressionQuality:
=
100
;
jpg.Compress;
jpg.SaveToStream(JpgStream);
JpgStream.Position:
=
0
;
with
Context
do
begin
StreamSize:
=
JpgStream.Size;
Command:
=
'
test command
'
;
end
;
SendStream.Write(Context,SizeOf(Context));
SendStream.CopyFrom(JpgStream,JpgStream.size);
FIOHandler.Write(SendStream);
.
end
;
需要注意的是写入流时用到的是 Write方法，不需要加Stream.Size，不然你就会得到一个出错提示。
关于 Indy 的发送与接收 及 不定长度流的见解
更多文章、技术交流、商务合作、联系博主
微信扫码或搜索：z360901061
微信扫一扫加我为好友
QQ号联系： 360901061
您的支持是博主写作最大的动力，如果您喜欢我的文章，感觉我的文章对您有帮助，请用微信扫描下面二维码支持博主2元、5元、10元、20元等您想捐的金额吧，狠狠点击下面给点支持吧，站长非常感激您！手机微信长按不能支付解决办法：请将微信支付二维码保存到相册，切换到微信，然后点击微信右上角扫一扫功能，选择支付二维码完成支付。
【本文对您有帮助就好】元
