Содержание:


StreamReadFromDatabase

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

Синтаксис

StreamReadFromDatabase
(ABegin: Extended; AEnd: 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.