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


Содержание:


GetValueFromStream

Функция GetValueFromStream() считывает последовательно записи из указанного потока (возвращаемое значение — True), пока не будет достигнут конец потока (возвращаемое значение — False).

GetValueFromStream(Stream, TimeStamp, Value): Boolean
Stream: TStream Поток, полученный функцией StreamReadFromDatabase
TimeStamp: Extended Считанная временная метка
Value: Extended Считанное значение
Функция возвращает:
True: функция считывает последовательно записи из указанного потока
False: конец потока достигнут

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

 {Pascal Script}
  Var
    res, f: Integer;
    beginData, endData: TDate;
    dtDate: TDateTime;
    dValue: Double;
    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
            while GetValueFromStream(stream, dtDate, dValue) do
                begin
                    //ваш код работы со значениями dValue ...
                    f := f + 1; // просто подсчитываем записи для проверки работы while-цикла       
                end;
            AddToDebugLog('Обработка ' + intToStr(f) + ' записей завершена.');
        end
  else
     AddToDebugLog('Ошибка считывания = ' + intToStr(res));

  finally  
      stream.Free;
  end;
end.


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