Содержание:


GetValueFromStream

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

Синтаксис

GetValueFromStream
(AStream: TStream; ATimeStamp: Extended; AValue: Extended): Boolean

Входные параметры
Имя параметра
Тип параметра
Описание
AStream TStream  Поток-приемник
 считанный функцией
 StreamReadFromDatabase
ATimeStamp Extended  Считанная временная метка
AValue Extended  Считанное значение
Выходные параметры
Тип параметра  
Описание 
Boolean  Возвращаемое значение:
 True - функция считывает
 последовательно записи из
 считанного потока;
 False - конец потока достигнут.

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

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