Skip Menu |
 

This queue is for tickets about the Win32-Pipe CPAN distribution.

Report information
The Basics
Id: 79924
Status: new
Priority: 0/
Queue: Win32-Pipe

People
Owner: Nobody in particular
Requestors: leosusanto [...] gmail.com
Cc:
AdminCc:

Bug Information
Severity: Critical
Broken in: 0.024
Fixed in: (no value)



Download (untitled) / with headers
text/plain 849b
Hi, It seems that the 2nd iteration of Connect() is not blocking anymore. Is this a correct behavior? Run Win32API-File.pl first and run Win32-Pipe-Client.pl on another console. Show quoted text
>perl Win32-Pipe.pl
0.024 Creating pipe 'My Named Pipe' 1:Waiting for a client to connect...blocking Client sent us: Time on XXX is: Fri Sep 28 14:30:57 2012 Disconnecting... 2:Waiting for a client to connect...NOT blocking 3:Waiting for a client to connect...NOT blocking 4:Waiting for a client to connect...NOT blocking 5:Waiting for a client to connect...NOT blocking 6:Waiting for a client to connect...NOT blocking 7:Waiting for a client to connect...NOT blocking 8:Waiting for a client to connect...NOT blocking 9:Waiting for a client to connect...NOT blocking 10:Waiting for a client to connect...NOT blocking 11:Waiting for a client to connect...NOT blocking
Subject: Win32API-File.pl
Download Win32API-File.pl
text/x-perl 1.7k
use strict; use Win32; use Win32::API; use Win32API::File qw( :Func ); my $PipeName = "My Named Pipe"; use constant { PIPE_NAME => "//./pipe/X" , PIPE_ACCESS_INBOUND => 0x00000001 , FILE_FLAG_FIRST_PIPE_INSTANCE => 0x00080000 , PIPE_TYPE_MESSAGE => 0x00000004 , PIPE_READMODE_MESSAGE => 0x00000002 }; my $NULL = 0; # Note warning on LPSECURITY_ATTRIBUTES, but used only as NULL pointer Win32::API->Import('kernel32' ,'HANDLE CreateNamedPipe( LPCTSTR lpName ' . ', DWORD dwOpenMode, DWORD dwPipeMode, DWORD nMaxInstances' . ', DWORD nOutBufferSize, DWORD nInBufferSize' . ', DWORD nDefaultTimeOut' . ', LPSECURITY_ATTRIBUTES lpSecurityAttributes)' ); # Note warning on LPOVERLAPPED, but used only as NULL pointer. Win32::API->Import('kernel32' ,'BOOL ConnectNamedPipe(HANDLE hNamedPipe' . ', LPOVERLAPPED lpOverlapped )'); Win32::API->Import('kernel32' ,'BOOL DisconnectNamedPipe(HANDLE hNamedPipe)'); my $pipehandle = CreateNamedPipe( PIPE_NAME , PIPE_ACCESS_INBOUND + FILE_FLAG_FIRST_PIPE_INSTANCE , PIPE_TYPE_MESSAGE + PIPE_READMODE_MESSAGE , 1 , 512 , 512 , 10000 , $NULL ) or die "Unable to create pipe:". Win32::GetLastError() ; my( $res, $message); my $bServerContinue = 1; while( $bServerContinue ) { print "Waiting for a client to connect...\n"; ConnectNamedPipe($pipehandle,$NULL) or die "Connect failed: ". Win32::GetLastError(); $res = ReadFile($pipehandle,$message, 512, [], [] ); print "message: $message\n"; $bServerContinue = 0 if $message eq 'bb'; $res = DisconnectNamedPipe($pipehandle); if( $message eq "exit" ) { last; } } $res = CloseHandle($pipehandle); #http://www.perlmonks.org/?node_id=715874 #http://www.perlmonks.org/?node_id=726593
Subject: Win32-Pipe-Client.pl
use Win32::Pipe; $PipeName = "\\\\localhost\\pipe\\My Named Pipe"; print "Connecting to $PipeName\n"; if( $Pipe = new Win32::Pipe( $PipeName ) ) { my $Data = "Time on " . Win32::NodeName() . " is: " . localtime() . "\n"; print "\nPipe has been opened, writing data to it...\n"; $Pipe->Write( $Data ); $Pipe->Close(); } else { print "Error connecting: " . Win32::FormatMessage( $Win32::Pipe::Error ) . "\n"; }


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.