TStream的问题

Question

uses graphics;procedure TForm1.Button1Click(Sender: TObject);
var s: TStream;
    b: TBitMap;
begin
  s := TStream.Create;
  b := TBitMap.Create;
  b.LoadFromFile('c:\......');
  b.SaveToStream(s);
  //...........
  b.Free;
  s.Free;
end;没问题~~~~~~~~~~~~~~~

Answer 1

再改一下，换成TMemoryStream比较好
uses graphics;procedure TForm1.Button1Click(Sender: TObject);
var s: TMemoryStream;
    b: TBitMap;
begin
  s := TMemoryStream.Create;
  b := TBitMap.Create;
  b.LoadFromFile('c:\aaa.bmp');
  b.SaveToStream(s);
  //...........
  b.Free;
  s.Free;
end;

Answer 2

楼上的老兄，我就是这么用的，错误下面标出了，我现在该怎么办？
uses graphics;procedure TForm1.Button1Click(Sender: TObject);
var s: TMemoryStream;
    b: TBitMap;
begin
  s := TMemoryStream.Create;<<==这行出错（警告错误）！！！！
  b := TBitMap.Create;
  b.LoadFromFile('c:\aaa.bmp');
  b.SaveToStream(s);
  //...........
  b.Free;
  s.Free;
end

Answer 3

可以把它定义成:TFileStream不就可以直接存了吗?
FileStream := TFileStream.Create('C:\test.bmp',fmCreate OR fmShareDenyWrite);
...

Answer 4

错误如下
[Warning] bmpform.pas(129): Constructing instance of 'TStream' containing abstract methods好象是说实例TStream时已经包含构造函数了，可我把Create的调用去掉又说没有初始化，我该怎么办？

Answer 5

恐龙老兄，我不是要保存到文件里，我要用TStream类来处理数据

Answer 6

我这是控件，编译没错，可激活控件时就会出错，错误提示system out of construct

Answer 7

Tstream不能直接使用的，你要用它的派生类。TStream的方法都是些abstract的方法，这些方法是不能直接用的。就象TString和TStringlist一样。

Answer 8

再问一个问题我创建了一个TImage的继承类，怎么一运行程序就提示Class TImage not find
这是怎么回事？

Answer 9

[Warning] bmpform.pas(129): Constructing instance of 'TStream' containing abstract methodsTstream是一抽象类不能直接创建该类的实例。