Opened by hummer at 2015-07-29 18:52
User since
2013-06-12
22 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2013-06-12
22 Artikel
BenutzerIn
Hallo,
also ich habe jetzt probiert und probiert, und eine echt dumme lösung gezaubert, welche echt besser gehen muss.
Alles Ohne Strukturen, ohne Array, usw. stupft, jeder Wert = eine Variable.
mhh, naja bis aufs erste weiß ich zu mindestens, dass die DLL die Werte mir zurück gibt, aber eine Feine Lösung ist das nicht,
Geht das nicht noch eleganter?
Hat jemand eine Lösung
also ich habe jetzt probiert und probiert, und eine echt dumme lösung gezaubert, welche echt besser gehen muss.
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
sub GetLocalAddr0 {
my $self = shift;
my $Param1 = pack ('C6S',0,0,0,0,0,0,0,0 );
# ggf. noch pack NetId und Port
my $Result = $self->{_LocalAddr}->Call($Param1);
print $Result;
my ($A,$B,$C,$D,$E,$F,$P) = unpack('C6S',$Param1);
print "A:$A\n";
print "B:$B\n";
print "C:$C\n";
print "D:$D\n";
print "E:$E\n";
print "F:$F\n";
print "P:$P\n";
}Alles Ohne Strukturen, ohne Array, usw. stupft, jeder Wert = eine Variable.
mhh, naja bis aufs erste weiß ich zu mindestens, dass die DLL die Werte mir zurück gibt, aber eine Feine Lösung ist das nicht,
Geht das nicht noch eleganter?
Hat jemand eine Lösung