Показать сообщение отдельно
  #9  
Старый 27.02.2013, 13:56
Аватар для Alegun
Alegun Alegun вне форума
LMD-DML
 
Регистрация: 12.07.2009
Адрес: Богородское
Сообщения: 3,025
Версия Delphi: D7E
Репутация: 1834
По умолчанию

Всё прекрасно работает через MemoryStream
Код:
 var
 fs : TFileStream;
 ms : TMemoryStream;
 begin
 fs:= TFileStream.Create(Имя файла, fmOpenRead);
 ms:= TMemoryStream.Create;

fs.Position:= 60;
ms.CopyFrom(fs, 105); //В ms кусок fs с 60 по 105

...

 fs.Free;
 ms.Free;
end;
Ответить с цитированием