GetCountRecordToStream

Функция возвращает количество записей в потоке, полученного с помощью функции 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.