Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: Mailslots на VB Добавлено: 31.05.03 23:32  

Автор вопроса:  PVA

Есть ли у кого нибудь пример реализации mailslot сервера на Visual Basic? Очень нужно! Возможно, кто нить посоветует как передать текстовую строку в приложение на VB из другого приложения (на том же комптютере) другим способом?

Буду очень признателен.

Ответить

  Ответы Всего ответов: 1  

Номер ответа: 1
Автор ответа:
 PVA



Вопросов: 1
Ответов: 1
  Профиль | | #1 Добавлено: 01.06.03 16:25

Почти разобрался в mailslot'ами. Сообщение приходит, но у меня проблема - как прочитать строку с помощью функции ReadFile?

Пример кода:

Private Sub ReadNextMessage()
    Dim fResult     As Long
    Dim dwMesLen    As DWORD
    Dim dwMesNum    As DWORD
    Dim dwReadTimeout    As Long
    Dim lpszBuffer  As String
    Dim lpNumberOfBytesRead As Long
    Dim lpOverlapped As OVERLAPPED
   
    If hSlot1 > 0 Then
        dwReadTimeout = 500
        fResult = GetMailslotInfo(hSlot1, 0, dwMesLen, dwMesNum, dwReadTimeout)
   
        If dwMesNum > 0 Then
            fResult = ReadFile(hSlot1, lpszBuffer, dwMesLen, lpNumberOfBytesRead, lpOverlapped)
            MsgBox lpszBuffer
        End If
    End If
End Sub

При попытке выполнить ReadFile VB вываливается без всяких сообщений. Может буфер lpszBuffer как-то инициализировать? Как? В оригинале на C используется GlobalAlloc, но как это в VB сделать?

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам