Разные результаты работы при обычном запуске и при дебаге (использование dll)

@sonea · Регистрация: 16.08.2013

Author24 — интернет-сервис помощи студентам

Есть dll, в ней есть процедура и функция, которые мне надо использовать procedure SetStr(aStr : PChar) stdcall; external 'DLLTest.dll'; и function GetBufLen : integer; stdcall; external 'DLLTest.dll'

Значит в первую передаем просто строку, оно там ее куда-то сохраняет, потом вызываем вторую и забираем какое-то значение, которое было посчитано по переданной строке. Писала dll не я, что там происходит - не знаю))

Пишу скрипт:

Perl

use Win32::API;
 
my $firstRow='aa';
my  $function = Win32::API->new(
      'DLLTest.dll', 'SetStr','P'
  );
 my $return = $function->Call($firstRow);
 
 
  Win32::API->Import('DLLTest.dll', "int GetBufLen()");
 my   $length = GetBufLen();
 
  say "length: $length";

запускаю... выдает всегда 18, какую бы строку не передавала. Ну ладно, взяла от отчаяния решила продебажить.... и магия... ответ 6... всегда 6 какую бы переменную ни передала...

что за мистика, мне кто-нибудь может хотя бы намекнуть?)
Может быть я неправильно строку передаю или неправильно забираю длину?

volodin661 · 08.01.2015, 19:05

безотносительно конкретно этого вызова и
безотносительно того, что я написал ранее,
я бы начал с того, что
первое: проводил эксперименты на ActiveState, а не Strawberry Perl
и второе: сам автор советует использовать Win32::API:More

Perl

#### Method 1: with prototype
 
  use Win32::API;
  $function = Win32::API::More->new(
      'mydll', 'int sum_integers(int a, int b)'
  );
  #### $^E is non-Cygwin only
  die "Error: $^E" if ! $function;
  #### or on Cygwin and non-Cygwin
  die "Error: ".(Win32::FormatMessage(Win32::GetLastError())) if ! $function;
  ####
  $return = $function->Call(3, 2);
 
  #### Method 2: with prototype and your function pointer
 
  use Win32::API;
  $function = Win32::API::More->new(
      undef, 38123456, 'int name_ignored(int a, int b)'
  );
  die "Error: $^E" if ! $function; #$^E is non-Cygwin only
  $return = $function->Call(3, 2);
 
  #### Method 3: with parameter list 
  
  use Win32::API;
  $function = Win32::API::More->new(
      'mydll', 'sum_integers', 'II', 'I'
  );
  die "Error: $^E" if ! $function; #$^E is non-Cygwin only
  $return = $function->Call(3, 2);
     
  #### Method 4: with parameter list and your function pointer
  
  use Win32::API;
  $function = Win32::API::More->new(
      undef, 38123456, 'name_ignored', 'II', 'I'
  );
  die "Error: $^E" if ! $function; #$^E is non-Cygwin only
  $return = $function->Call(3, 2);
  
  #### Method 5: with Import (slightly faster than ->Call)
 
  use Win32::API;
  $function = Win32::API::More->Import(
      'mydll', 'int sum_integers(int a, int b)'
  );
  die "Error: $^E" if ! $function; #$^E is non-Cygwin only
  $return = sum_integers(3, 2);

	08.01.2015, 19:05

Опции темы