View Single Post
 
Old 09-16-2018, 04:38 PM
oxygen oxygen is offline
Junior Member
 
Join Date: May 2018
Posts: 8
Exclamation solution

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 );
Reply With Quote