使用TFileStream流對象到文件

Question

爲什麼此代碼不起作用？

我正在寫一個應用程序，可以保存和加載自己的文件，並需要知道如何使用FileStream將對象流式傳輸到文件。

procedure TForm1.btnSaveClick(Sender: TObject); 
var 
    fs: TFileStream; 
begin 
    fs := TFileStream.Create('c:\temp\a.my', fmCreate); 
    try 
    fs.WriteBuffer(Image1.Picture.Graphic, SizeOf(TGraphic)); 
    finally 
    fs.Free; 
    end; 

    ShowMessage('ok'); 

    Image1.Picture.Graphic := nil; 
end; 

procedure TForm1.btnLoadClick(Sender: TObject); 
var 
    fs: TFileStream; 
    g: TGraphic; 
begin 
    fs := TFileStream.Create('c:\temp\a.my', fmOpenRead); 
    try 
    fs.ReadBuffer(g, SizeOf(TGraphic)); 

    Image1.Picture.Graphic := g; 
    finally 
    fs.Free; 
    end; 

    ShowMessage('ok'); 

end; 

編輯1： 發現做到這一點，但需要更多的幫助方式：

procedure TForm1.btnSaveClick(Sender: TObject); 
var 
    fs: TFileStream; 
    s: TMemoryStream; 
    buf: TBytes; 
begin 
    fs := TFileStream.Create('c:\temp\a.my', fmCreate); 
    s := TMemoryStream.Create; 
    try 
    Image1.Picture.Graphic.SaveToStream(s); 

    SetLength(buf, s.Size); 
    s.Position := 0; 
    s.ReadBuffer(buf[0], s.Size); 

    //fs.WriteBuffer(, SizeOf(Integer)); <-here how do I save an integer which represents the size of the buffer? (so that when reading back i read this first.) 

    fs.WriteBuffer(buf[0], s.Size); 
    finally 
    s.Free; 
    fs.Free; 
    end; 

    ShowMessage('ok'); 

    Image1.Picture.Graphic := nil; 
end; 

Answer 1

你做了什麼有流的參考，即一個指針。你需要流的是內容。你可以使用SaveToFile和LoadFromFile。

關於您的更新，將s.Size分配給Integer類型的局部變量，然後使用WriteBuffer將其保存。相反，使用ReadBuffer讀入局部變量。

如果我是你，我會直接寫入文件並避免內存條紋。使用TStream的Position屬性來查找文件。所以寫長度爲0，寫入圖形，回溯到開始並寫入長度爲4字節的真實長度。