大家看看为什么会出错，如何解决？

Question

//delphi7 + winXP + NTFS
//'f:\temp\5g.rar'的文件大小是5G;大家看看为什么会出错，如何解决？
procedure TForm1.Button1Click(Sender: TObject);
var
fs:tfilestream;
begin
fs:=tfilestream.Create('f:\temp\5g.rar',fmopenread);
fs.Seek(4508290816,soFromBeginning); //这里出错
showmessage(inttostr(fs.Position));
end;

Answer 1

DELPHI下应该只有4G吧.大于4G应该想其它的方法了.

Answer 2

我看了参数是int64啊，可以大于4G吧

Answer 3

fs:=tfilestream.Create('f:\temp\5g.rar',fmopenread);
fs.position:=0;
fs.Seek(4508290816,soFromBeginning); //这里出错//改小一点吧

Answer 4

但是Seek的第一个参数不是int64类型的啊！
http://community.csdn.net/Expert/topic/3385/3385268.xml?temp=.980343
帮忙看看