🚀 go-pugleaf

Thanks, the Win32 Help file was what I needed to get started.

The application I'm connecting to is the WinSock server so I don't have to
use CreateNamedPipe, instead I just do a CreateFile to connect to the
existing  pipe. Then I use WriteFile to write to the file. The problem is it
doesn't work! Either CreateFile or WriteFile reports any errors but the
NamedPipes server does not receive anything!

Any ideas?

Regards, Mikael


unit NamedPipeUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

Var OutFile: HFile;
    Buffer: Array [1..100] Of Char;
    S: String;
    Written: DWord;
    I: Integer;
    Overlapped: TOverlapped;

begin

   FillChar(OVerlapped, SizeOf(Overlapped), 0);

   OutFile := CreateFile(PChar('\\10.1.1.246\PIPE\MW32PMOBC2S'), // The name
of the pipe
                         Generic_Read + Generic_Write,
                         File_Share_Read + File_Share_Write,
                         Nil,
                         Open_Existing,
                         File_Attribute_Normal,
                         0);

   If OutFile = INVALID_HANDLE_VALUE Then
   Begin
      ShowMessage('No out-pipe available');
   End
   Else
   Begin

         S := 'My message';

         For I := 1 To Length(S) Do
            Buffer[I] := S[I];

         If Not WriteFile(OutFile, Buffer, Length(S), Written, @Overlapped)
Then
         Begin
            ShowMessage('Write command failed');
         End;

      CloseHandle(OutFile);

   End; // OutFile opened

End;


End.