局域网读取文件

[iamduo]

按这样的格式，读取带"$"的路径是失败的。比如：“\\Home\file$\temp\a.txt”
var f:file;s:String;
begin
try
AssignFile(f, AFileName);
Reset(f, 1);
ReadLn(f,s);
finally
CloseFile(f);
end;
end;

有没有什么高招？

[iamduo]

var n:Integer;Stream:TFileStream;
begin
Stream:=TFileStream.Create(AFileName,fmOpenRead);
try
n:=stream.Size div SizeOf(TWnStockHistoryQuoteItem);
SetLength(ADiskHisData,n);
stream.ReadBuffer(pointer(@ADiskHisData[0])^, n * SizeOf(TWnStockHistoryQuoteItem));
finally
Stream.free;
end;
end;

结贴。

[iamduo]

写错了。
var f:file;
begin
try
AssignFile(f, AFileName);
Reset(f, 1);
BlockRead(f,xxxxxx//这里用的其实是BlockRead
finally
CloseFile(f);
end;
end;

[hjkto]

up