Форум ZETLAB

Здравствуйте! Раньше - это года два тому назад. Сейчас надо изменить проекты под управлением Vb6. Однако я не могу это сделать так как: Private Sub mnuSigma_Click() Dim i As Long If IfError(0, SRV1.Connect) Then Exit Sub ' соединиться с сервером End Sub Private Function IfError(ByVal mode As Long, ByVal myError As Long) As Boolean Dim msg As String Select Case mode Case 0 ' # SRV1.Connect -- соединиться с сервером Select Case myError Case 0: msg = "" Case -1: msg = "Нет свободного места для подключения к серверу" Case -2: msg = "Не запускается сервер" Case -3: msg = "Нет инициализации сервера" Case -4: msg = "Мало вычислительных ресурсов у процессора" Case -7: msg = "Нет памяти для организации буферов данных" Case -8: msg = "Не хватает хэндлеров памяти в системе. Перезагрузите компьютер!" End Select Case 1 ' # SRV1.Disconnect -- отсоединиться от сервера Select Case myError Case 0: msg = "" Case -1: msg = "Не было подключения к серверу" Case -2: msg = "Сбой в программе сервера" Case -3: msg = "Программа сервера выгружена из памяти" End Select Case 2 ' # SRV1.GetData -- получить данные Select Case myError Case 0: msg = "" Case -1: msg = "На момент вызова метода не было подключения к серверу данных" Case -2: msg = "Программа ZetServer.ocx выгружена из памяти процессора" Case -3: msg = "Параметр lChannel < 0" Case -4: msg = "Параметр lChannel > (QuanChan() - 1)" Case -6: msg = "Серверу данных не хватает памяти для организации буферов данных" Case -7: msg = "Не хватает хэндлеров памяти в системе. Перезагрузите компьютер!" Case -8: msg = "Размер запрашиваемых данных lSize <= 0 или lSize >= DecadeBufferSize()" Case -9: msg = "Номер декады lDecade < 0" Case -10: msg = "Номер декады lDecade > 4" Case -11: msg = "Момент времени dTime больше текущего времени для данного канала" Case -12: msg = "Момент времени dTime < 0" Case -13: msg = "Указатель на массив данных pData = NULL" Case -14: msg = "Момент времени dTime меньше нижней границы кольцевого буфера накопленных данных для данного канала" End Select End Select If Len(msg) > 0 Then MsgBox msg, vbCritical, App.ProductName IfError = True Else IfError = False End If End Function 1) Вызов команды SRV1.Connect под управлением проекта VB6 ошибку "Не хватает хэндлеров памяти в системе. Перезагрузите компьютер!" 2) При повторном вызове данной команды ошибка не проявляется, однако данные в программу не передаются по следующей команде If IfError(2, SRV1.GetData(g_Channel(0), g_Divider, t0, na, mdatat(1))) Then Exit Sub Если бы на форуме можно было бы вложить zip архив, то мог бы дать пример.

Здравствуйте, Андрей! Правильно ли я понял: вы года два тому назад написали программу на VB6 с использованием компонента SRV.ocx и она работала и отлаживалась, а сейчас вы установили последнее ПО ZETLab и пытаетесь сделать некоторые изменения в программе, и возникают описанные вами проблемы? Можете ли вы указать параметры компьютера, на котором хотите запустить приложение: процессор, количество оперативной памяти, количество свободной виртуальной памяти, версию операционной системы. Видимо все проблемы начинаются с того, что первый вызов функции Connect возвращает вам код ошибки -8 и соответственно все дальнейшие действия ни к чему не приводят, потому что подключение к серверу данных было отклонено.

Здравствуйте. 1. В виртуальной машине, наверное, необходимо переключить подключенное устройство в виртуальную машину, чтобы система в виртуальной машине обнаружила устройство Zet. 2. Вы пробовали запускать программу в режиме совместимости с более старыми версиями Windows?

Здравствуйте, Андрей! Ваша скомпилированная в Release программа корректно работает с последним ПО ZETLab (на разных ОС)? Передаются ли данные? Все ли модули подгружаются? И такой же вопрос про скомпилированную в Debug программу?