坚持使用流媒体文件到字符串

Question

好吧，所以我（非常）最近开始玩lazaruz / free pascal，我有点卡在阅读TMemoryStream文件和它的流媒体亲戚。

我正在尝试编写一个简单的base64编码器，它可以编码文本字符串或文件（如图像和WAV），然后在html和javascript中使用。

下面的代码编译得很好但是在尝试加载文件时我得到了EReadError Illegal stream image 。 我将仅包含工作字符串过程以供参考：

procedure TForm1.TextStringChange(Sender: TObject);
    begin
    Memo1.Lines.Text := EncodeStringBase64(TextString.Text);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
   Memo1.Lines.Text := '';
   Form1.BorderIcons :=  [biSystemMenu,biMinimize];
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
    if OpenDialog1.Execute then
    begin
     filename := OpenDialog1.Filename;
     stream := TMemoryStream.Create;
       try
         StrStream := TStringStream.Create(s);
           try
              stream.LoadFromFile(filename);
              stream.Seek(0, soFromBeginning);
              ObjectBinaryToText(stream, StrStream);
              StrStream.Seek(0, soFromBeginning);
              Memo1.Lines.Text := EncodeStringBase64(StrStream.DataString);
           finally
              StrStream.Free;
           end;
       finally
           stream.Free;
       end;
    end;
end;   

谁能帮我吗？

Answer 1

您收到“非法流图像”异常，因为您加载的文件可能不是二进制DFM文件。 这就是ObjectBinaryToText要处理的内容。 它不适用于任意数据。 所以摆脱那个命令。

您也可以跳过TMemoryStream 。 TStringStream已经有一个LoadFromFile方法，所以你可以直接调用它而不是涉及另一个缓冲区。

StrStream.LoadFromFile(filename);

---

但是，在对base64进行编码之前，字符串并不是真正存储文件的正确数据结构。 base64编码的输入是二进制数据; 输出是文本。 使用文本数据结构作为中间格式意味着您可能会在数据中引入错误，因为难以将某些数据编码为有效字符。 编码功能的正确接口是：

function Base64Encode(Data: TStream): string;

在编码之前，您不需要将整个文件加载到内存中。 只需使用TFileStream打开文件并将其传递给编码功能。 使用流的Read方法一次从中读取几个字节，将它们编码为base64，并将它们附加到结果字符串。 （如果您发现需要它们，可以使用中间TStringBuilder来收集结果，并且可以在文件读取周围添加不​​同的缓冲。不过不要担心它们;首先让您的程序正常工作。）

使用这样的东西：

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  filename: string;
  stream: TStream;
begin
  if OpenDialog1.Execute then begin
    filename := OpenDialog1.Filename;
    stream := TFileStream.Create(filename, fmOpenRead);
    try
      Memo1.Lines.Text := Base64Encode(stream);
    finally
      stream.Free;
    end;
  end;
end;

Answer 2

我以前从未听说过ObjectBinaryToText() ，但看起来很时髦。 另外，什么是EncodeStringBase64()函数？

首先，您不应该将二进制流转换为文本来对其进行编码，而应直接对B64编码二进制数据。 B64算法旨在处理字节数组。

从Delphi 6开始，有EncdDecd.pas单元，它实现了B64编码方法。 我不确定Lazarus / FPC是否有这个，但如果他们这样做，你的B64编码文件的代码应该是这样的（将EncdDecd添加到使用列表）：

procedure TForm1.Button1Click(Sender: TObject);
var
  instream : TFileStream;
  outstream: TStringStream;
begin
  if OpenDialog1.Execute then
  begin
    instream := TFileStream.Create(OpenDialog1.FileName, fmOpenRead or fmShareDenyNone);
    try
      outstream := TStringStream.Create;
      try
        EncodeStream(instream, outstream);
        Memo1.Lines.Text := outstream.DataString;
      finally
        outstream.Free;
      end;
    finally
      instream.Free;
    end;
  end;
end;