Named Pipes und MS Virtual PC

[neolithos]

Da sich bis jetzt noch keiner gefunden hat, der einen Tip hat.

Hier ist mein Versuch:

Delphi-Quellcode:

var dwMode,
    dw,
    hPipe : Cardinal;
    ch : char;
begin
  hPipe := CreateFile(
    '\\.\pipe\my_com1',
    GENERIC_READ or GENERIC_WRITE, 0, nil, OPEN_EXISTING,
    FILE_FLAG_WRITE_THROUGH, 0);
  if hPipe = INVALID_HANDLE_VALUE then
     RaiseLastOSError;
  Writeln('H: ', hPipe);
  try
    dwMode := PIPE_READMODE_BYTE or PIPE_WAIT;
    if not SetNamedPipeHandleState(hPipe, dwMode, nil, nil) then
       RaiseLastOSError;
    repeat
      if not ReadFile(hPipe, ch, 1, dw, nil) then
         Writeln('err');
      Writeln('R: ', ch, ' ### ', dw);
    until ch <> #27;
  finally
    CloseHandle(hPipe);
  end;
end;