Hi,各位先進大家好:
小弟需要將資料的一部份寫入檔案的特定位置(用途:分段下載後寫檔)
如下程式,在Windows是可正常的,
但,在 OSX 中卻是在 fs.WriteBuffer(ms.Memory, ms.Size); 出現 Stream write error
請問,是否有先進通到相同問題?
謝謝!

unit Unit1;
interface
uses
System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
FFileName: String;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.fmx}
procedure TForm1.Button1Click(Sender: TObject);
var
fs: TFileStream;
begin
//創建資料檔案，用0填充
fs := TFileStream.Create(FFileName, fmCreate);
try
fs.Size := 1024000;
finally
fs.Free;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
ms: TMemoryStream;
fs: TFileStream;
begin
ms := TMemoryStream.Create;
ms.SetSize(1024);
fs := TFileStream.Create(FFileName, fmOpenReadWrite or fmShareDenyNone);
fs.Seek(20480, soFromBeginning);
fs.WriteBuffer(ms.Memory, ms.Size);
fs.Free;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
FFileName := './abc.txt';
end;
end.

【fs.WriteBuffer(ms.Memory, ms.Size);】


这一句，在 WINDOWS 底下也会出错。

应该是：

fs.WriteBuffer(ms.Memory^, ms.Size);


注意， Ms.Memory 是一个 Pointer，应该在后面加上 ^ 才表示是这个 Pointer 里面的内容。