REG_BINARY

[kirrun]

Помогите достать REG_BINARY, плиз! Обычными функциями достаются только два первых байта.

И не надо посылать меня в 5 букв. Я там уже был.

[Sirik]

у меня аналогичная проблемма, только мне надо ещё и поставить

[Andrey Fedorov]

Вот кусок кода - поймете куда и как применить?

Код: Выделить всё

Public Function RegQueryByteValue(ByVal hKey As Long, ByVal strValueName As String, mByteArr() As Byte) As Boolean
    Const REG_SZ = 1
    Dim ByteArr() As Byte
    Dim lResult As Long, lValueType As Long, strBuf As String, lDataBufSize As Long
    'retrieve nformation about the key
    lResult = RegQueryValueEx(hKey, strValueName, 0, lValueType, ByVal 0, lDataBufSize)
    If lResult = 0 Then
        If lValueType = REG_BINARY Then
            'Create a buffer
            ReDim ByteArr(lDataBufSize - 1)
            'retrieve the key's content
            lResult = RegQueryValueEx(hKey, strValueName, 0, 0, ByteArr(0), lDataBufSize)
            If lResult = 0 Then
                mByteArr = ByteArr
                RegQueryByteValue = True
            End If
        End If
    End If
End Function


[kirrun]

у меня аналогичная проблемма, только мне надо ещё и поставить

Поставить как нефиг. Я уже разобрался. Целый вечер писал функцию для настроек Радмина (как я понимаю тебе для него надо? )

[kirrun]

Вот кусок кода - поймете куда и как применить?

Код: Выделить всё

Public Function RegQueryByteValue(ByVal hKey As Long, ByVal strValueName As String, mByteArr() As Byte) As Boolean
    Const REG_SZ = 1
    Dim ByteArr() As Byte
    Dim lResult As Long, lValueType As Long, strBuf As String, lDataBufSize As Long
    'retrieve nformation about the key
    lResult = RegQueryValueEx(hKey, strValueName, 0, lValueType, ByVal 0, lDataBufSize)
    If lResult = 0 Then
        If lValueType = REG_BINARY Then
            'Create a buffer
            ReDim ByteArr(lDataBufSize - 1)
            'retrieve the key's content
            lResult = RegQueryValueEx(hKey, strValueName, 0, 0, ByteArr(0), lDataBufSize)
            If lResult = 0 Then
                mByteArr = ByteArr
                RegQueryByteValue = True
            End If
        End If
    End If
End Function


хм... у меня что-то не работает... возвращает "?"

Там какая-то трабла в объявлении массива mByteArr()... Я, видимо не очень понял как это работает. Напиши плиз пример вызова.

[Andrey Fedorov]

Напиши плиз пример вызова.

Код: Выделить всё

Dim mByteArr() As Byte
...
If ERROR_SUCCESS = RegOpenKey(k, sKey, iKey) Then
    If RegQueryByteValue(iKey, ss, mByteArr) Then

[kirrun]

Неа. Не работает. Я в массивах не очень рублю.. посмотри сам че там не так.

[Sirik]

нет, мне надо включать/выключать прокси сервер в IE

так как узнать/поставить если тип=REG_DWORD, сорри но это не бинари ???

[Andrey Fedorov]

Неа. Не работает. Я в массивах не очень рублю.. посмотри сам че там не так.

А мне-то что смотреть - у меня все работает.

[kirrun]

нет, мне надо включать/выключать прокси сервер в IE

так как узнать/поставить если тип=REG_DWORD, сорри но это не бинари ???

Нет. REG_DWORD и REG_BINARY - разнык штуки. с получением\установкой REG_DWORD проблем нету.

Щас поищу примерчики...

[GSerg]

http://bbs.vbstreets.ru/viewtopic.php?p=58911

[kirrun]

Всем спасибо - все свободны! Совсем забыл, что на allapi именно то, что мне нужно в примерах..

[kirrun]

Так все... я пшел вешацца...

ЛЮДИ!!! ВЫРУЧАЙТЕ!!! Теперь помогите поставить REG_BINARY...

Способ с allapi умеет ставить значения до 255 (тк конвертирует в byte).

В ПОИСК НЕ ПОСЫЛАТЬ!!!

[tyomitch]

Оба-на... А тебе какие байты нужны, от 1 до 1000 что ли?

[kirrun]

=)

Да нет. Мне нужно например поставить число 256.

[GSerg]

Ну это уже два байта. Проблема в чём?

[kirrun]

В том что не пихаются! В примере на allip шспользуется Cbyte(), а если ковертировать в 2 байта - TypeMsimatch

[GSerg]

Понятие "байтовый массив" тебе знакомо?..

[kirrun]

ЭЭЭЭ.. Мне очень стыдно, но я об этом не подумал

[kirrun]

хм... я в массивах вобще не очень рублю...

Напиши как можно постаить число 1234 в байтовый массив...

[GSerg]

Слушай, а ты уверен, что тебе надо binary, а не dword?

[kirrun]

Слушай, а ты уверен, что тебе надо binary, а не dword?

Хы... ну и вопросы... Естественно, уверен =)

Задача такая: проге через винсок передается число, а она его пишет в реестр как REG_BINARY

[GSerg]

Хы... ну и ответы. Дык ЧИСЛО - это DWORD. Если оно не больше, чем CDbl(&h7FFFFFFF&)*2

А binary - массив двоичных данных произвольной длины.

[kirrun]

Да я понимаю! Но с другими прогами не спорят! Она свои настройки хранит как REG_BINARY и я ничего не могу с этим поделать! Хочет она чтоб номер порта был REG_BINARY и все! На мой взгляд - ваще записал все в REG_SZ и не мучайся.. так ей подавай бинарные...

[GSerg]

Ладно, чтобы не грузить тебя всякими lset...

redim b(1 to 4)
copymemory b(lbound(b)),value,4
'сохраняем b

[kirrun]

Блин... Ну сегодня у меня день тупости...

Помоги плиз! Есть такая функция:

Код: Выделить всё

Public Function RegSet(ByVal Name As String, ByVal value As Byte)
Dim path
Dim if_error
RegOpenKey HKEY_LOCAL_MACHINE, "System\RAdmin\v2.0\Server\Parameters", path
RegSetValueEx path, Name, 0, 3, value, 4
End Function


Как правильно переписать ее чтобы передать массив? И как его правильно передать?

З.Ы... Да уж.. в массивах я полный ноль... надо хоть почитать че-нить...

[GSerg]

Чё-то не нравится мне эта функция... А где там закрытие ключа? А где проверка на успешность? Не, не хочу юзать эту функцию

Я тебе ссылку же давал

[kirrun]

Ой, сори! Забыл!!! Спасибо!!! Обязательно исправлю!!!

А проверка на успешность не нужна. От нее толку все-равно не будет. Таковая имеется только в функции получения... Но если тебе очень хочется...

Код: Выделить всё

Public Function RegSet(ByVal Name As String, ByVal value As Byte)
Dim path
Dim if_error
RegOpenKey HKEY_LOCAL_MACHINE, "System\RAdmin\v2.0\Server\Parameters", path
if_error = (RegSetValueEx path, Name, 0, 3, value, 4)
regclosekey path
if if_error then
msgbox "ОШИБКА!!!"
end if
End Function


Кста, заметь: в той функции, где нет проверки, осталось объявление переменной if_error... Гыыы... Удалить забыл

[kirrun]

[offtop]
Спасибо GSerg!
Нашел кучу лишнего в своей программе...
[/offtop]

[kirrun]

Топик мертв...