数据流类Tmemorystream与Tstream有什么区别? 如题 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 TCustomMemoryStream = class(TStream) private FMemory: Pointer; FSize, FPosition: Longint; protected procedure SetPointer(Ptr: Pointer; Size: Longint); public function Read(var Buffer; Count: Longint): Longint; override; function Seek(Offset: Longint; Origin: Word): Longint; override; procedure SaveToStream(Stream: TStream); procedure SaveToFile(const FileName: string); property Memory: Pointer read FMemory; end;{ TMemoryStream } TMemoryStream = class(TCustomMemoryStream) private FCapacity: Longint; procedure SetCapacity(NewCapacity: Longint); protected function Realloc(var NewCapacity: Longint): Pointer; virtual; property Capacity: Longint read FCapacity write SetCapacity; public destructor Destroy; override; procedure Clear; procedure LoadFromStream(Stream: TStream); procedure LoadFromFile(const FileName: string); procedure SetSize(NewSize: Longint); override; function Write(const Buffer; Count: Longint): Longint; override; end;就这样的关系 TStream 是一个通用 Stream 抽像, 提供 Position, Read, Write 主要的流操作几个方法&属性相关的有 TMemoryStream , TFileStream, TSocketStream都派生自 TStream, SocketStream 中没有 Position 一个是抽象的一个子类化了TStream 不能直接实例化TmemoryStream可以利用TStream 可以TMemoryStream TFileStream 等等 从TStream继承来的类可以方便地交换传递数据... 庆祝CSDN新版论坛上线!!! listview是否可实现不同列显示不同颜色,及字体大小 报表及打印问题 如何能在WIN2000 个人版能装上SQL SERVER2000服务端? 知道当前路径,将当前路径下的内容完整copy。 realplayer播放器在看电影时如何实现双击全屏。。。急! 初始数据做好备份,到客户那里重新创建数据库,如何恢复初始数据呢 偶的文件夹里总有类似 _note、_host 这样的文件夹,这是不是尼姆达病毒?用什么杀比较彻底? 请问如何让form有更多的颜色? 请教关于delphi的两个问题!! 求助一条SQL语句 如何在组件中加入自定义处理程序
private
FMemory: Pointer;
FSize, FPosition: Longint;
protected
procedure SetPointer(Ptr: Pointer; Size: Longint);
public
function Read(var Buffer; Count: Longint): Longint; override;
function Seek(Offset: Longint; Origin: Word): Longint; override;
procedure SaveToStream(Stream: TStream);
procedure SaveToFile(const FileName: string);
property Memory: Pointer read FMemory;
end;{ TMemoryStream } TMemoryStream = class(TCustomMemoryStream)
private
FCapacity: Longint;
procedure SetCapacity(NewCapacity: Longint);
protected
function Realloc(var NewCapacity: Longint): Pointer; virtual;
property Capacity: Longint read FCapacity write SetCapacity;
public
destructor Destroy; override;
procedure Clear;
procedure LoadFromStream(Stream: TStream);
procedure LoadFromFile(const FileName: string);
procedure SetSize(NewSize: Longint); override;
function Write(const Buffer; Count: Longint): Longint; override;
end;就这样的关系