Excel VBA: общение через именованный канал

Я пытаюсь настроить связь по named pipe каналу в VBA, к сожалению, по какой-то причине он никогда не попадает в строку Debug.Print "Connected на сервере, и клиент не подключается. Похоже на простой сценарий, но пытался добиться этого ч.

сервер

 Public Sub Server() Const szPipeName = "\\.\pipe\bigtest" Dim hPipe As Long, readVal As Long, readBytes As Long, sendVal As Long, sentBytes As Long Dim sa As SECURITY_ATTRIBUTES 'Create the NULL security token for the pipe pSD = GlobalAlloc(GPTR, SECURITY_DESCRIPTOR_MIN_LENGTH) res = InitializeSecurityDescriptor(pSD, SECURITY_DESCRIPTOR_REVISION) res = SetSecurityDescriptorDacl(pSD, -1, 0, 0) sa.nLength = LenB(sa) sa.lpSecurityDescriptor = pSD sa.bInheritHandle = True 'Create the Named Pipe hPipe = CreateNamedPipe(szPipeName, PIPE_ACCESS_DUPLEX, PIPE_WAIT Or PIPE_TYPE_MESSAGE Or PIPE_READMODE_MESSAGE, 10, 1000, 1000, 10000, sa) 'Create separate thread as client ID = CreateThread(nil, 0, AddressOf ClientThread, nil, 0, nil) Debug.Print "Created thread: " & ID Debug.Print "Connecting named pipe: " & hPipe res = ConnectNamedPipe(hPipe, ByVal 0) 'XXXXXXXXXXXXXXXXX NEVER GETS HERE XXXXXXXXXXXXXXXXXXx Debug.Print "Connected" 'Read/Write data over the pipe res = ReadFile(hPipe, readVal, LenB(readVal), readBytes, ByVal 0) Debug.Print "Read file: " & readVal 'res = WriteFile(hPipe, sendVal , LenB(sendVal ), sendBytes, ByVal 0) res = FlushFileBuffers(hPipe) res = DisconnectNamedPipe(hPipe) 'Close the pipe handle CloseHandle hPipe GlobalFree (pSD) End Sub 

клиент

 Public Sub ClientThread() Const szPipeName As String = "\\.\pipe\bigtest" Dim sentBytes As Long, sendVal As Long, fSuccess As Boolean, readVal As Long, readBytes As Long sendVal = 500 'Give server time to ConnectNamedPipe Sleep 2000 Debug.Print "Connecting to pipe..." fSuccess= CallNamedPipe(szPipeName, sendVal, LenB(sendVal), readVal, LenB(readVal), readBytes, 5000) 'XXXXXXXXXXXXXX NEVER GETS HERE XXXXXXXXXXXXXX Debug.Print "Successful: " & fSuccess '... End Sub 

Interesting Posts

Доступ к Excel через SharePoint с помощью API Графа возвращает неверную ошибку URL-адреса

Почему этот цикл VBA для поиска значения строки заголовка пустой ячейки?

Динамическая функция таблицы сводной таблицы Excel

Специальные символы не отображаются правильно при записи в файл csv в excel

Необходимо сравнить данные из строки текста в 1 ячейке с столбцом данных в другом

Как повторить небольшую строку рядом с большими строками в CSV-файле? (Функция VLOOKUP, может быть?)

Операция с файлом не разрешена. Доступ к пути '' запрещен в файле saveialog.sDialog.OpenFile ()

Как группировать столбец, который находится в часах по дням и месяцам в сводной таблице?

Как я могу использовать VBA для добавления подключения (к внешнему источнику данных) в Excel и сохранить его в списке электронных таблиц Excel в Connections

Кодировка символов при экспорте Excel из PHP

Excel vba, выбранный диапазон Concatenate

Последний метод изменения VBA

Точность отладки VBA

Программно запустить надстройку VSTO с правами администратора

Как изменить имя сохраненного файла на дату и время сохранения файла. пример ниже.

Давайте будем гением компьютера.