🚀 go-pugleaf

Halt! Already found it. Had to send a "dummy" string first to activate the
NamedPipe server.

Thanks anyway...

"Mikael Lenfors" <mikael@lenfors.se> skrev i meddelandet
news:3de24961@newsgroups.borland.com...
> 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.
>
>
>
>
>