StreamReadFromDatabase

Функция считывает данные только хорошего качества для указанного канала из базы данных во внутренний поток.

Синтаксис
StreamReadFromDatabase (Begin, End: Extended; ChannelName: String; OutputStream: TStream): Integer
Входные параметры
Имя параметра	Тип параметра	Описание
ABegin	Extended	Начальная дата
AEnd	Extended	Конечная дата
ChannelName	String	Имя канала
OutputStream	TStream	Поток-приемник
Выходные параметры
Тип параметра		Описание
Integer		Возвращаемое значение: 0 - успешное считывание; 1 - ошибка считывания; 2 - переполнение памяти; 3 - указанный канал не найден; 4 - выходной поток не определен.

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

Var
    res: 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
         WriteValue('Virtual channel 99', 'Считывание прошло успешно')
      else
         WriteValue('Virtual channel 99', 'Ошибка считывания: ' + IntToStr(res));

    finally
       stream.Free;
    end;
end.