|
|
|
|
Базовые
классы TStream и THandleStream
В основе иерархии классов потоков лежит класс Tstream. Он обеспечивает выполнение основных операций потока безотносительно к реальному носителю информации. Основными из них являются чтение и запись данных.
Класс Tstream порожден непосредственно от класса TObject.
Потоки также играют важную роль в чтении/записи компонентов из файлов ресурсов (DFM). Большая группа методов обеспечивает взаимодействие компонента и потока, чтение свойств компонента из ресурса и запись значений свойств в ресурс.
Таблица 9.3. Свойства и методы класса Tstream
|
Объявление |
Описание |
|
property Position: Longint; |
Определяет текущую позицию в потоке |
|
property Size: Longint; |
Определяет размер потока в байтах |
function CopyFrom( Source: TStream; Count: Longint) : Longint; |
Копирует из потока Source Count байты, начиная с текущей позиции. Возвращает число скопированных байтов |
|
function Read(var Buffer; Count: Longint) : Longint; virtual; abstract; |
Абстрактный класс, перекрываемый в наследниках. Считывает из потока Count байты в буфер Buffer. Возвращает число скопированных байтов |
|
procedure Read3uffer (var Buffer; Count: Longint) ; |
Считывает из потока Count байты в буфер Buffer. Возвращает число скопированных байтов |
|
function Seek (Off set: Longint; Origin: Word): Longint; virtual; abstract; |
Абстрактный класс, перекрываемый в наследниках. Смещает текущую позицию в реальном носителе данных на Offset байтов в зависимости от условия Origin (см. ниже) |
|
function Write (const Buffer; Count: Longint): Longint; virtual; abstract; |
Абстрактный класс, перекрываемый в наследниках. Записывает в поток Count байты из буфера Buffer. Возвращает число скопированных байтов |
|
procedure WriteBuffer (const Buffer; Count: Longint); |
Записывает в поток Count байты из буфера Buffer. Возвращает число скопированных байтов |
|
function ReadComponent (Instance: TComponent): TComponent; |
Передает данные из потока в компонент instance, заполняя его свойства значениями |
|
function ReadComponentRes (Instance: TComponent) : TComponent; |
Считывает заголовок ресурса компонента Instance и значения его свойств из потока. |
|
procedure ReadResHeader; |
Считывает заголовок ресурса компонента из потока |
|
procedure WriteComponent (Instance: TComponent) ; |
Передает в поток значения свойств компонента Instance |
|
procedure WriteComponentRes (const ResName: string; Instance: TComponent) ; |
Записывает в поток заголовок ресурса компонента Instance и значения его свойств |
Итак, в основе операций считывания и записи данных в потоке лежа! методы Read и Write. Именно они вызываются для реального выполнения операции внутри методов ReadBuffer И WriteBuffer, ReadComponent И WriteComponent. Так как класс TStream является абстрактным, то методы Read и write также являются абстрактными. В классах-наследниках они перекрываются, обеспечивая работу с конкретным физическим носителем данных.
Метод Seek используется для изменения текущей позиции в потоке. "Точка отсчета" позиции зависит от значения параметра Origin:
Группа методов обеспечивает чтение и запись из потока ресурса компонента. Они используются при создании компонента на основе данных о нем, сохраненных в формате файлов ресурсов. Для чтения ресурса используется метод ReadComponentRes, в котором последовательно вызываются:
Класс THandleStream инкапсулирует поток, связанный с физическим носителем данных через дескриптор.
Для создания потока используется конструктор
constructor Create(AHandle: Integer);
в параметре которого передается дескриптор. Впоследствии доступ к дескриптору осуществляется через свойство:
property Handle: Integer;
Релятивисты и позитивисты утверждают, что "мысленный эксперимент" весьма полезный интрумент для проверки теорий (также возникающих в нашем уме) на непротиворечивость. В этом они обманывают людей, так как любая проверка может осуществляться только независимым от объекта проверки источником. Сам заявитель гипотезы не может быть проверкой своего же заявления, так как причина самого этого заявления есть отсутствие видимых для заявителя противоречий в заявлении.
Это мы видим на примере СТО и ОТО, превратившихся в своеобразный вид религии, управляющей наукой и общественным мнением. Никакое количество фактов, противоречащих им, не может преодолеть формулу Эйнштейна: "Если факт не соответствует теории - измените факт" (В другом варианте " - Факт не соответствует теории? - Тем хуже для факта").
Максимально, на что может претендовать "мысленный эксперимент" - это только на внутреннюю непротиворечивость гипотезы в рамках собственной, часто отнюдь не истинной логики заявителя. Соответсвие практике это не проверяет. Настоящая проверка может состояться только в действительном физическом эксперименте.
Эксперимент на то и эксперимент, что он есть не изощрение мысли, а проверка мысли. Непротиворечивая внутри себя мысль не может сама себя проверить. Это доказано Куртом Гёделем.
Понятие "мысленный эксперимент" придумано специально спекулянтами - релятивистами для шулерской подмены реальной проверки мысли на практике (эксперимента) своим "честным словом". Подробнее читайте в FAQ по эфирной физике.
|
|
 |
