对导入文件的文件大小进行判断
对导入文件的文件大小进行判断,也就是说,在导入文件时,首先判断该文件的文件大小,如果字节为0时,则不允许导入
[解决办法]
function FSize(FileName: string): LongInt;
var
F: File;
begin
AssignFile(F, FileName);
reset(F,1);
Result := FileSize(F);
CloseFile(F);
end;
[解决办法]
function GetFileSizeValue(pFilePath: string): Int64;
var
hFile:Thandle;
dwSize,dwSizeHigh:DWORD;
begin
try
hFile:=CreateFile(pchar(pFilePath),GENERIC_READ,FILE_SHARE_READ,nil,OPEN_EXISTING,0,0);
dwSize:=GetFileSize(hFile,@dwSizeHigh);
CloseHandle(hFile);
Result:=dwSize;
except
Result:=0;
end;
end;
[解决办法]
直接用API=》 GetFileSize
DWORD GetFileSize(
HANDLE hFile,// handle of file to get size of
LPDWORD lpFileSizeHigh // address of high-order word for file size
);
[解决办法]
1、TFileStream.Size
2、 iFileHandle := FileOpen(OpenDialog1.FileName, fmOpenRead);
iFileLength := FileSeek(iFileHandle,0,2);
