Использование pipes

[boles]

Добрый день!
Пытаюсь с помощью пайпов передать текст.
Код следующий:

Кто передает:

Dim res&
Dim written&
sndBlocked.Enabled = False
lblStat.Caption = "Waiting for client"
lblStat.Refresh
res = ConnectNamedPipe(pipehnd, 0)
If res <> 0 Or (res = 0 And GetLastError() = ERROR_PIPE_CONNECTED) Then
lblStat.Caption = "Sending data"
lblStat.Refresh
Dim buffer$
buffer$ = String$(200, "aaaaaaaa")
res = WriteFile(pipehnd, buffer, Len(buffer) + 1, written, 0)
Else
MsgBox "Client has disconnected"
End If
lblStat.Caption = "Idle"
sndBlocked.Enabled = True

Кто получает:

res = WaitNamedPipe(txtPipe.Text, 10000)
If res = 0 Then
MsgBox "Pipe is not available at this time"
Exit Sub
End If
pipehandle = CreateFile(txtPipe.Text, GENERIC_READ Or GENERIC_WRITE, 0, 0, OPEN_EXISTING, 0, 0)
If pipehandle = INVALID_HANDLE_VALUE Then
MsgBox "Can't open named pipe"
Exit Sub
End If
Dim inbuf As String
Dim bytesread&, bytesavail&, bytesleft&
res = ReadFile(pipehandle, inbuf, 512, bytesread, 0)
If res Then
Text1.Text = inbuf
End If

Подскажите, как мне нужно переписать выделенные строки, чтобы в окне получателя отобразился передаваемый текст?
Заранее спасибо!

[tyomitch]

inbuf = Space(512) перед чтением.

[boles]

inbuf = Space(512) перед чтением.

попробую завтра на работе... надеюсь, поможет
спасибо!

[boles]

Получилось лишь передать числа... А со строками проблемы...
Вывернулся и стал передавать посимвольно через Asc() и Chr()... получилось...
Однако при попытке запуска на двух различных компах на строчке

pipehandle = CreateFile(txtPipe.Text, GENERIC_READ Or GENERIC_WRITE, 0, 0, OPEN_EXISTING, 0, 0)


pipehandle принимает значение INVALID_HANDLE_VALUE... и передать ничего не получается! Подскажите, где ошибка???

[ANDLL]

Можешь посмотреть тут: http://forum.sources.ru/index.php?showtopic=168882