Давайте про mailslot только рассуждать чтоб не путаться.
Ну, насколько я понимаю,
что если
1) строка "русская"
2) язык системы для не-юникода - "китайский"
3) WriteFile и ReadFile декларированы как ANSI т.е. (...ByVal lpBuffer As String)
то на выходе все таки получим фигню а не "русский".
Т.е. не сумеет он в общем случае кодировать в ANSI и декодировать из ANSI.
Так? Т.е. все-таки передавать надо Unicode?
>маршаллинг прарметров явно задай
Какая разница в данном случае написать слово Unicode перед ф-цией или лепить <Marshall.> перед as String?.
Задекларировав функции как Declare Unicode Function , ну или прописав маршалинг параметров как Юникод я эту задачу решаю (передается Юникод хз там в какой кодировке согласно API понятиям но без искажений). Естественно хочется As String для простоты использования.
===
Но остается тогда нерешенной следующая задача:
Предположим есть exe, есть mailslot.
Одно приложение шлет в него ANSI (C++, только EN, переписывать/перекомпилировать на Unicode не буду).
Другое приложение шлет в него Unicode.
Как извернуться (с единственным mailslot)?
Объясню почему я вспомнил про StreamWriter/Reader.
Потому что mailslot -по сути файл с операциями записи чтения в него.
В StreamWriter/Reader есть параметр Encoder, применяя который можно задать BOM (явное указание UTF8 например).
Т.е. нельзя ли эту автоматику как то присобачить?
Приходит строка с BOM -конвертируется из UTF8, без BOM -значит ANSI.
Хотя опять же, не уверен. BOM же в начало файла ставится а как это на MailSlot переложить...
Функции для MailSlot у меня со времен VB6 такие, декларации для ANSI и Unicode я привел выше.
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
Public Function MailSlotReadFirst(ByRef m_Message As String, ByRef m_MsgCount As Integer) As Boolean
'ПРИЕМНИК(сервер) ф-ция читает первое сообщение если есть
'возвращает True, если есть хотя бы одно и оно было прочитано
'm_Message (Out)-текст сообщения, если прочли
'm_MsgCount -к-во сообщений оставшихся после чтения (без учета прочитанного)
MailSlotReadFirst = False
Dim lBufferSize As Integer
m_Message = ""
m_MsgCount = 0
GetMailslotInfo(hMailSlotHandle, 0, lBufferSize, m_MsgCount, 0)
If m_MsgCount > 0 Then
Dim sBuffer As String
' Create a buffer
sBuffer = StrDup(lBufferSize, Chr(0))
' Read data: optional параметры ф-ции не используем
If ReadFile(hMailSlotHandle, sBuffer, lBufferSize, 0, IntPtr.Zero) Then
m_Message = sBuffer
m_MsgCount = m_MsgCount - 1
MailSlotReadFirst = True
End If
End If
End Function
Public Function SendMessageToMailSlot(ByVal sMessage As String, ByVal sMailSlot As String, _
Optional ByVal CPP As Boolean = False) As Boolean
'ПЕРЕДАТЧИК(клиент)ф-ция отправляет сообщение sMessage серверу с именем sMailSlot
'если сервер не запущен, то сообщение не отправляется
Dim hFile As IntPtr
Dim m_tSA As SECURITY_ATTRIBUTES
hFile = CreateFile(sMailSlot, _
GENERIC_WRITE, _
FILE_SHARE_READ, _
m_tSA, _
OPEN_EXISTING, _
FILE_ATTRIBUTE_NORMAL, _
IntPtr.Zero)
If hFile = INVALID_HANDLE_VALUE Then Return False
If CPP Then
SendMessageToMailSlot = WriteFile(hFile, sMessage, Strings.Len(sMessage) + 1, 0, IntPtr.Zero) 'добавляем '\0'
Else
SendMessageToMailSlot = WriteFile(hFile, sMessage, Strings.Len(sMessage), 0, IntPtr.Zero) 'при отправке в VB не добавляем '\0'
End If
CloseHandle(hFile)
End Function
Видимо надо тест-проект создавать и играться.
