![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Новичок
Джуниор
Регистрация: 13.08.2011
Сообщений: 2
|
![]()
Здравствуйте!
есть такой код: procedure TForm1.Button3Click(Sender: TObject); var D1:TFileStream; i:Int64; begin D1 := TFileStream.Create(PChar('\\.\PHYSI CALDRIVE1' + tmp), fmOpenRead); //такой в системе есть размером 1 терабайт mmo1.Lines.Add(IntToStr(D1.Size)); D1.Free; end; Данный код возвращает размер 4294967295. Подскажите, как получит размер больших потоков/файлов? Спасибо. |
![]() |
![]() |
![]() |
#2 |
Старожил
Регистрация: 15.02.2010
Сообщений: 15,830
|
![]() |
![]() |
![]() |
![]() |
#3 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
![]()
каюсь, не смотрел ссылочку p51x (наверняка там правильное решение, я уверен в его квалификации и опыте).
Но, ещё, такие вопросы на форуме неоднократно поднимались. возможно, Вам будет полезно посмотреть примеры кода на форуме ТУТ |
![]() |
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Неверный путь к файлу | adr | JavaScript, Ajax | 0 | 12.01.2010 13:28 |
Неверный формат файла | vetal74 | Microsoft Office Excel | 1 | 28.10.2009 21:54 |
Неверный запрос | Gromsky | SQL, базы данных | 9 | 21.08.2009 18:25 |