WriteFile "вешает" систему

[Matew]

Суть: Хочу юзертип переводить в строку и считывать из строки обратно в юзертип(хранить юзертип в БД). Это можно сделать записывая юзертип в файл и считывая из него строку( http://bbs.vbstreets.ru/viewtopic.php?t=22072&start=30 )(может сразу предложите более цивилизованный метод), но я не хочу использовать жесткий диск, поэтому решил попробовать сделать это через Pipe-ы. в процессе изысканий возникла проблема:
WriteFile "вешает" систему. Какие параметры(флаги) нужно передать в функцию, чтобы действие программы продолжалось. В аттаче пример. Там есть кнопка, в которой несколько раз записываются и считываются данные из Pipe-а, но она не работает - зависает после первой операции записи. Как ее заставить работать?

[tyomitch]

Создавай трубу с FILE_FLAG_OVERLAPPED или (хуже) PIPE_NOWAIT

[Matew]

tyomitch, сделал оба флага при создании

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

hPipe = CreateNamedPipe("\\.\pipe\CCC", PIPE_TYPE_BYTE Or PIPE_ACCESS_DUPLEX Or FILE_FLAG_OVERLAPPED, PIPE_NOWAIT, 10, 0, 0, 0, 0)

Попробовал еще несколько комбинаций... Не везет мне на правильные . Статью про пайпы прочел, вроде все должно быть правильно, а все равно "висим".
Вызываю вот так:

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

hPipe2 = CreateFile("\\.\pipe\CCC", GENERIC_READ Or GENERIC_WRITE, FILE_SHARE_WRITE, 0, OPEN_EXISTING, 0, 0)

Из одного и того же приложения не хочет работать
Пишу вот так:

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

WriteFile hPipe2, VarPtr(tpa), LenB(tpa), nWritten, 0

[tyomitch]

Ну ага: создаёшь неждущий хэндл hPipe, а пользуешься дефолтным (ждущим) хэндлом hPipe2.

SetNamedPipeHandleState тебе в помощь.

[Antonariy]

А если загнать в байтомассив через copymemory минуя пляски с бубном вокруг пайпов? А из него при желании можно и строку получить.

[Matew]

tyomitch, не понял, что можно сделать этой функцией?
Antonariy, вот попробовал - не выходит:

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

Private Type a
    d As Long
    c() As Integer
    f As String
End Type
Dim tpa As a

Private Sub Command6_Click()
Dim arr() As Byte, i As Integer
tpa.d = 23
ReDim tpa.c(10)

For i = 0 To UBound(tpa.c())
    tpa.c(i) = Rnd * 100
Next i
tpa.f = "Пример"

ReDim arr(LenB(tpa.d) + LenB(tpa.f) + LenB(tpa.c(0)) * UBound(tpa.c()))
CopyMemory arr(0), tpa, LenB(tpa.d) + LenB(tpa.f) + LenB(tpa.c(0)) * UBound(tpa.c())
' в массив попадает куча странных цифр
'если просто написать Lend(tpa), то возвращает 12 и тогда вообще не работает
Text2.Text = arr()
End Sub

Private Sub Command7_Click()
Dim tpAb As a
Dim arr() As Byte
ReDim arr(Text2.Text)
arr() = Text2.Text
CopyMemory tpAb, arr(0), LenB(arr())
Debug.Print tpAb.d, tpAb.f, UBound(tpAb.c())
End Sub


что не так?
2 All, вот статья про все АПИ для Pipe, если кому-то интересно:
http://www.frolov-lib.ru/books/bsp/v27/ch2.htm

[tyomitch]

tyomitch, не понял, что можно сделать этой функцией?

Повесить режим PIPE_NOWAIT на уже открытый без этой опции (как у тебя) хэндл.

[Хакер]

Matew
Советую пойти другим путём:

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


Private Declare Function SysAllocStringLen Lib "oleaut32.dll" (ByVal pData As Long, ByVal lLen As Long) As String

Private Type some_user_defined_type
    a As Long
    b As Long
    c As Byte
    d As Byte
End Type

Private Sub Form_Load()
    Dim str As String
    Dim e As some_user_defined_type
    e.a = &HE2E8F0CF 'Прив
    e.b = &H2021F2E5 'ет!
    e.c = Asc("Э")
    e.d = Asc("й")
    str = Left(SysAllocStringLen(VarPtr(e), LenB(e)), LenB(e))
    MsgBox str
End Sub


[Antonariy]

Matew
Хм, а как же ты пишешь юзертип в файл, если у тебя строка неопределенной длины и массив Integer неопределенного размера?

В пинципе можно создать запись такого типа: 4 байта d, 1 байт - размер с(x), 2x байт - содержимое массива, 2 байта - длина f, остальное - само f.
В результате имеем:

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

Dim bOut() as Byte, i as a
dim pos as Long
Redim bOut(4 + 1 + (Ubound(i.c)+1) * 2 + 2 + len(i.f) - 1)
pos = 0
CopyMemory bOut(pos), i.d, 4
pos = pos + 4 'len(i.d)
CopyMemory bOut(pos), Ubound(i.c)+1, 1 'при условии, что размер с(x) < 255
pos = pos + 1
CopyMemory bOut(pos), i.c(0), (Ubound(i.c)+1) * 2
pos = pos + (Ubound(i.c)+1) * 2
CopyMemory bOut(pos), len(i.f), 2
pos = pos +1
CopyMemory bOut(pos), i.f, len(i.f)

Вот как-то так я бы сделал...