我想把BMP图转化成string类型的。用流的方式。用下面的函数为什么会出错呢。给分！

Question

function BmpToString(Bmp: TBitmap): string;var
  BinStream:TMemoryStream;
  StrStream: TStringStream;
  s: string;
begin
  BinStream := TMemoryStream.Create;
  try
    StrStream := TStringStream.Create(s);
    try
      Bmp.SaveToStream(BinStream);
      BinStream.Seek(0, soFromBeginning);      ObjectBinaryToText(BinStream, StrStream); 到这里出错。不知是为什么
    
      StrStream.Seek(0, soFromBeginning);
      Result:= StrStream.DataString;
    finally
      StrStream.Free;
    end;
  finally
    BinStream.Free
  end;
end;
那个S变量如何付值。

Answer 1

ObjectBinaryToText,不是什么对象都能转化成文本的,它转化的是VCL中的组件对象(从TComponent中继承),TBitmap是不行的,但TImage应该可以,你可以试试.另外把BMP转变化字符串,最方便的是base64编码.在Delphi的EncdDecd单元中,里面的几个函数很好用,看看就明白了.

Answer 2

你理解 ObjectBinaryToText 有誤如果你想換, 簡單的, 可用
Memo1.Lines.LoadFromStream();TStringList.LoadFromStream();