ru.cgi.perl

 
 - RU.CGI.PERL ------------------------------------------------------------------
 From : Michael Khodorev                     2:5020/400     19 May 2001  14:33:27
 To : All
 Subject : Подключение DLL
 -------------------------------------------------------------------------------- 
 

 
     Подключаю библиотеку в модуле:
 my $bla = new Win32::API(d:\lib.dll', '_IFBack@4', 'P', 'N');
 Потом определяю указатели:
    my $p_k = Win32::API::PointerTo($k);
    my $p_str2conv = Win32::API::PointerTo($str2conv);
    my $p_strout = Win32::API::PointerTo($strout);
    my $p_stroutlen = Win32::API::PointerTo($stroutlen);
    #create a structure out of pointers
    my $struc = pack("L5", $p_str2conv, $len, $p_strout, $p_stroutlen, $p_k);
 а тут вызываю процедуру:
    my $return = $proc->Call($struc);
 
 И именно на последней строке я получаю ошибку: Wrong number of parameters:
 expected 0, got 1.
 Hа других машинах этот же скрипт с этим же модулем работает прекрасно. Я так
 понимаю, что что-то в настройках Перла, а что - не понимаю. Помогите, кто
 может.
 --- ifmail v.2.15dev5
  * Origin: Microcosmic group (2:5020/400)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор