Функция 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. |
Подробную информацию об "Окне отладочной информации" можно почитать здесь.