tralivali
16.03.2011, 20:58
Здраствуйте!
Такая проблема. Подключаю ТРМ101 через АС4, приложение типа конфигуратора хочу написать на vb.net. Скачал библиотеку owen_io, описание к ней и примеры с сайта. Пример который на vb6.0 в общем заработал, хоть пришлось и повозиться (там индексы в функциях чтения и записи в ТРМ101 неправильные). Конфигуратор, скачанный с сайта, тоже работает нормально. Переношу код из vb6 в VB.net (VS2008), типы данных исправил. При попытке чтения в функции ReadFloat24 выскакивает исключение "AccessViolationExeption не обработано Попытка чтения или записи в защищенную память. Это часто свидетельствует о том, что другая память повреждена." При этом запись функцией WriteFloat24 происходит без проблем! В огбщем, записывать могу, а считывать нет и в чем дело не понимаю! Код вот такой:
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim value As Single
Dim res As Integer
'res = WriteFloat24(1, 0, "SP", value, -1) 'эту строку вставил просто чтоб убедиться что запись идет норм
res = ReadFloat24(1, 0, "SP", value, -1) 'здесь ошибка
If res >= 0 Then
TextBox2.Text = CStr(value)
Else
TextBox2.Text = "Err " + Str(res)
End If
End Sub
Помогите пожалуйста! Посоветуйте что делать и что это за ошибка. Также очень хотелось бы увидеть рабочий пример использования owen_io в net.
Такая проблема. Подключаю ТРМ101 через АС4, приложение типа конфигуратора хочу написать на vb.net. Скачал библиотеку owen_io, описание к ней и примеры с сайта. Пример который на vb6.0 в общем заработал, хоть пришлось и повозиться (там индексы в функциях чтения и записи в ТРМ101 неправильные). Конфигуратор, скачанный с сайта, тоже работает нормально. Переношу код из vb6 в VB.net (VS2008), типы данных исправил. При попытке чтения в функции ReadFloat24 выскакивает исключение "AccessViolationExeption не обработано Попытка чтения или записи в защищенную память. Это часто свидетельствует о том, что другая память повреждена." При этом запись функцией WriteFloat24 происходит без проблем! В огбщем, записывать могу, а считывать нет и в чем дело не понимаю! Код вот такой:
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim value As Single
Dim res As Integer
'res = WriteFloat24(1, 0, "SP", value, -1) 'эту строку вставил просто чтоб убедиться что запись идет норм
res = ReadFloat24(1, 0, "SP", value, -1) 'здесь ошибка
If res >= 0 Then
TextBox2.Text = CStr(value)
Else
TextBox2.Text = "Err " + Str(res)
End If
End Sub
Помогите пожалуйста! Посоветуйте что делать и что это за ошибка. Также очень хотелось бы увидеть рабочий пример использования owen_io в net.