卡住流媒體文件到字符串

Question

好吧，所以我（很好）最近開始玩拉扎魯斯/免費帕斯卡爾，我有點卡住與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

我從來沒有聽說過關於ObjectBinaryToText()，但看起來像時髦。另外，什麼是EncodeStringBase64()函數？

首先，您不應該將二進制流轉換爲文本進行編碼，而應該直接對二進制數據進行B64編碼。 B64算法旨在處理字節數組。

自Delphi 6以來，有EncdDecd.pas單元，它實現了B64編碼方法。我不知道，如果拉撒路/ 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; 

Answer 2

你得到「非法流圖像」異常，因爲您正在加載的文件可能不是二進制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;