Opened by hummer at 2015-06-11 12:53
User since
2013-06-12
22 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2013-06-12
22 Artikel
BenutzerIn
Hallo,
ich brauche doch noch enmal eure Hilfe.
ich habe den oben genannten Code eingesetzt, um aus einer DLL die Versionsnummer zu bekommen.
Leider gibt mir mein Perl Code nicht die richtige Versionsnummer an, wie es ein DemoScript seitens des Herstellers asgibt.
MeinCode:
Ausgabe:
'reversion' => 0,
'build' => 3,
'version' => 30
'VAR:LONG: = 196638'
Ausgabe Hersteller:
Revision: 0
Build: 28
Version: 31
Benutzt wird die gleiche DLL da diese auf dem PC installiert wurde
Kann mir einer Sagem ,wie es zu diesem Unterschied kommt.
der entsprechende C-Code bitte aus dem 1. Beitrag nehmen.
ich brauche doch noch enmal eure Hilfe.
ich habe den oben genannten Code eingesetzt, um aus einer DLL die Versionsnummer zu bekommen.
Leider gibt mir mein Perl Code nicht die richtige Versionsnummer an, wie es ein DemoScript seitens des Herstellers asgibt.
MeinCode:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
use strict;
use warnings;
use v5.10;
use Win32::API;
use Win32::API::Struct;
use Data::Dumper;
Win32::API->Import("$Dll", 'LONG AdsGetDllVersion()') or die "$!";
$LONG = AdsGetDllVersion() or die "AdsGetDllVersion failed: $^E";
@{$Data}{qw (version reversion build)} = unpack "CCS", pack "l", $LONG;
print Dumper ($Data);
Ausgabe:
'reversion' => 0,
'build' => 3,
'version' => 30
'VAR:LONG: = 196638'
Ausgabe Hersteller:
Revision: 0
Build: 28
Version: 31
Benutzt wird die gleiche DLL da diese auf dem PC installiert wurde
Kann mir einer Sagem ,wie es zu diesem Unterschied kommt.
der entsprechende C-Code bitte aus dem 1. Beitrag nehmen.