Delphi Tstream & TIdUDPServer

最新推荐文章于 2021-11-09 14:42:41 发布

原创

最新推荐文章于 2021-11-09 14:42:41 发布 · 1.3k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#delphi #function #constructor #buffer #integer #编程

本文介绍了Delphi中TStream类的基本概念和核心方法，如Read、Write、Seek和SetSize。特别讨论了TIdUDPServer1UDPRead事件处理中的TStream使用，并展示了如何从TStream读取数据。此外，还提到了TFileStream和TMemoryStream的创建与使用，以及文件打开模式和共享模式的设置。

procedure TForm1.IdUDPServer1UDPRead(Sender: TObject; AData: TStream;
ABinding: TIdSocketHandle);

中的data是TStream 形式存在，

procedure TForm1.IdUDPServer1UDPRead(Sender: TObject; AData: TStream;
ABinding: TIdSocketHandle);
var
i ,len:integer;
xb:byte;
begin
    BitBtn4.Caption := 'get data'   ;
    len := adata.Size;
    adata.ReadBuffer(xb,1);//注意这里不能取地址，@xb
    if xb= '1' then
      begin
      ShowMessage('x');
     end;
end;

一、Delphi中流的基本概念及函数声明
在Delphi中，所有流对象的基类为TStream类，其中定义了所有流的共同属性和方法。
TStream类中定义的属性介绍如下：
1、Size:此属性以字节返回流中数据大小。
2、Position:此属性控制流中存取指针的位置。
Tstream中定义的虚方法有四个：
1、Read:此方法实现将数据从流中读出。函数原形为：
Function Read(var Buffer;Count:Longint):Longint;virtual;