Содержание:


GetCountRecordToStream

Функция возвращает количество записей в потоке, считанном функцией StreamReadFromDatabase.

Синтаксис

GetCountRecordToStream(AStream: TStream): Integer

Входные параметры
Имя параметра
Тип параметра
Описание
AStream 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.