Функция возвращает количество записей в потоке, полученного с помощью функции StreamReadFromDatabase.
Синтаксис | ||
GetCountRecordToStream(Stream: TStream): Integer | ||
Входные параметры | ||
Имя параметра | Тип параметра | Описание |
Stream | TStream | Поток-приемник |
Выходные параметры | ||
Тип параметра | Описание | |
Integer | Количество записей в потоке |
Var res, f: Integer; beginData, endData: TDate; nameChannel: String; stream: TMemoryStream; Begin nameChannel := 'Температура 1'; beginData := now()-1; endData := now(); stream := TMemoryStream.Create; try res := StreamReadFromDatabase(beginData, endData, nameChannel, stream); if res = 0 then begin f := GetCountRecordToStream(stream); WriteValue('Virtual channel 99', 'Количество записей: ' + IntToStr(f)); end else WriteValue('Virtual channel 99', 'Ошибка считывания: ' + IntToStr(res)); finally stream.Free; end; end. |