delphi - 为什么在使用 TStream 类时会出现“抽象错误”？

Question

当我尝试运行以下简单代码序列时，我收到Abstract Error错误消息：

type
  TForm1 = class(TForm)
    Image1: TImage;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

procedure TForm1.Button1Click(Sender: TObject);
var
  ImageStream: TStream;
begin
  ImageStream := TStream.Create;
  Image1.Picture.Bitmap.SaveToStream(ImageStream);
  ...
end;

我需要提取流以TBitmap供以后处理...我做错了什么？

Answer 1

TStream类是一个抽象类，是所有流的基础。

TStream 是流对象的基类类型，可以读取或写入各种存储介质，例如磁盘文件、动态内存等。

使用专门的流对象来读取、写入或复制存储在特定介质中的信息。

您可能想要使用TMemoryStream或TFileStream，顾名思义，它将流内容存储在内存或系统文件中。

procedure TForm1.Button1Click(Sender: TObject);
var
  ImageStream: TMemoryStream;
begin
  ImageStream := TMemoryStream.Create;
  try
    Image1.Picture.Bitmap.SaveToStream(ImageStream);
    ...
  finally
    ImageStream.Free;
  end;
end;