c++ builder (win32api?) > named pipe > connect

C++ Builder XE4

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include <windows.h>
//#include <conio.h>
#include <tchar.h>

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------

#define BUFSIZE (512)


__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    HANDLE hPipe;
    LPTSTR lpvMessage=TEXT("Default message from client.");
    TCHAR  chBuf[BUFSIZE];
    BOOL   fSuccess = FALSE;
    DWORD  cbRead, cbToWrite, cbWritten, dwMode;
    LPTSTR lpszPipename = TEXT("\\\\.\\pipe\\com_1");

    while(1)
    {
      hPipe = CreateFile(
         lpszPipename,   // pipe name
         GENERIC_READ |  // read and write access
         GENERIC_WRITE,
         0,              // no sharing
         NULL,           // default security attributes
         OPEN_EXISTING,  // opens existing pipe
         0,              // default attributes
         NULL);          // no template file

        // Break if the pipe handle is valid.
        if (hPipe != INVALID_HANDLE_VALUE) {
            break;
        }

        if (GetLastError() != ERROR_PIPE_BUSY) {
            String msg = String().sprintf(L"Could not open pipe. GLE=%d\n", GetLastError());
            Memo1->Lines->Add(msg);
            return; // error
        }

        if (! WaitNamedPipe(lpszPipename, 20000)) {
            Memo1->Lines->Add(L"Could not open pipe: 20 second wait timed out.");
            return; // error
        }
    }

    Memo1->Lines->Add(L"Connected");
}
//---------------------------------------------------------------------------