![]() |
#1
|
|||
|
|||
![]()
I'm diving in this stuff about two hours but cannot find how to get the size of file to be opened by fileread:
Code:
FileHandle : Integer; fSize: Integer; begin FileHandle := FileOpen('b:\html.txt', fmOpenRead); fSize := fileSize(FileHandle); FileRead(FileHandle, buffer , fSize ); end; I would like to avoid the fileSize function because it has different type then the FileRead input argument no 3. |
#2
|
|||
|
|||
![]()
I found solution
Code:
FileHandle := FileOpen('b:\html\' + SubDirs[m] + '\' + FileList[i], fmOpenRead); fSize := FileSeek(FileHandle,0,soFromEnd); FileSeek(FileHandle,0,soFromBeginning); setLength(buffer, fSize); FileRead(FileHandle, buffer , fSize ); |
![]() |
Thread Tools | |
Display Modes | |
|
|