Win32API::CommPort

[Morten P]

Jeg sidder og fors�ger at forst� en del af Win32API::CommPort.

Det g�r s� ikke s� godt :-)

Problemstillingen er at den ikke kan tilg� min COM-port, mens andre
programmer godt kan, eks. HyperTerminal og Putty.

Jeg er kommet dertil at den ikke f�r lov til at skabe en fil [1]

Jeg aner ikke
- Hvad $_CreateFile g�r
- Hvor Call metoden kommer fra

Den returnerer -1 men skulle returnere 1 ved success.

Se [2] for debug udskrift af indholdet i CreateFile() [2].

Er der nogen der kan kaste lidt lys over de huller jeg har i mine Perl
evner? :-)

[1]

594:
$self->{"_HANDLE"}=CreateFile("$self->{NAME}",
0xc0000000,
0,
$null,
3,
0x40000000,
$null);

193:
sub CreateFile {
return $_CreateFile->Call( @_ );
# returns handle
}

[2]

[2]
DB<7> x Dumper $_CreateFile
0 '$VAR1 = bless( {
\'out\' => 1,
\'dll\' => 2088763392,
\'procname\' => \'CreateFile\',
\'cdecl\' => 0,
\'proc\' => 2088770088,
\'dllname\' => \'kernel32\',
\'in\' => [
2,
1,
1,
1,
1,
1,
1
]
}, \'Win32::API\' );
'

DB<8> x Dumper @_
0 '$VAR1 = \'COM10\';
'
1 '$VAR2 = 3221225472;
'
2 '$VAR3 = 0;
'
3 '$VAR4 = 0;
'
4 '$VAR5 = 3;
'
5 '$VAR6 = 1073741824;
'
6 '$VAR7 = 0;
'

DB<9> x Dumper $_
0 '$VAR1 = undef;
'

[Morten P]

> - Hvad $_CreateFile g�r

Windows kald.

> - Hvor Call metoden kommer fra

Windows kald.

Problemet er l�st :-)