FindFirst /Next size not work on DOS real with file_size>2 GB
Original Reporter info from Mantis: turylicciardi@tiscali.it
-
Reporter name: Salvatore Licciardi
Original Reporter info from Mantis: turylicciardi@tiscali.it
- Reporter name: Salvatore Licciardi
Description:
See program and comment below...
Program Example43;
{ This program demonstrates the FindFirst function }
Uses SysUtils;
Var Info : TSearchRec;
Count : Longint;
Begin
Count:=0;
// If FindFirst ('z:\--------.nt6\*.iso',faAnyFile and faDirectory,Info)=0 then
If FindFirst ('o:\*.iso',faAnyFile and faDirectory,Info)=0 then
begin
Repeat
Inc(Count);
With Info do
begin
If (Attr and faDirectory) = faDirectory then
Write('Dir : ');
Writeln (Name:40,Size:15);
end;
Until FindNext(info)<>0;
end;
FindClose(Info);
Writeln ('Finished search. Found ',Count,' matches');
End.
// output
Running "c:\temp\d244\ffirst2exe "
Windows Vista ITA_x32.iso -1710178304
Finished search Found 1 matches
// I try Dos version on WinXP and Dos real mode. Under winXp on win32 target , problem is absent. I don't test other target.
// documentation
TSearchRec
Record describing a search handle or result
Declaration
Source position: filutilh.inc line 17
typ e TSearchRec = record
Time: LongInt; Timestamp of the file.
Size: Int64; Size of the file.
Attr: LongInt; Attributes of the file.
Name: TFilename; File name (no directory part)
ExcludeAttr: LongInt; Attributes to exclude from search (do not use).
FindHandle: Pointer; Internal OS handle (do not use).
Mode: TMode; Unix File mode. Only used on Unix systems.
PathOnly: AnsiString; Path component of the file
end;
Mantis conversion info:
- Mantis ID: 20042
- OS: DOS
- OS Build: all possible
- Platform: Go32v2
- Version: 2.4.4
- Monitored by: » @xhajt03 (Tomas Hajny), » turylicciardi@tiscali.it (Salvatore Licciardi)