Документация по SCADA системе Simp Light


Содержание:


GetCountRecordToStream

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

GetCountRecordToStream(Stream): Integer
Stream: TStream Поток-приемник
Функция возвращает количество записей в потоке

Пример вызова:

 {Pascal Script}
  Var
    res, f: Integer;
    beginData, endData: TDate;
    stream: TMemoryStream;
    nameChannel: String = 'Температура 1';

  Begin
    beginData := now-1;
    endData := now;
 
    stream := TMemoryStream.Create;
    try
      res := StreamReadFromDatabase(beginData, endData, nameChannel, stream);   
      if res = 0 then
        begin
          f := GetCountRecordToStream(stream);
          AddToDebugLog('Количество записей канала "Температура 1" = ' + intToStr(f));
        end
      else
        AddToDebugLog('Ошибка получения данных канала "Температура 1" = ' + intToStr(res));   

    finally
      stream.Free;
    end;
  end.


Подробную информацию об "Окне отладочной информации" можно почитать здесь.