RU/2: Форум. Общение пользователей и разработчиков OS/2 (eCS). : Ответить на сообщение

Имя:
e-mail:
FIDO:
Home page:
сохранить данные о вас

Тема:

> > > Возможно, ты не так cdecl включил? ;) 
> > А как правильно?
> > > VP собираешь, надеюсь в юните не пишешь external 'uniaud' name 'xxx'? ;) 
> > Пишу. Ну не ругайтесь дядьки, а расскажите как правильно, тем более что раньше работало.
> Коpоче, в VP это самая непpиятная штука - если вот такие импоpты пpописаны в юните, то exeшник будет пpосто битый :) Он не сохpаняет имя модуля и функции- баг такой :)
> Делаешь юнит:
> unit uniaud;
> interface
> {$OrgName+}
> {$L uniaud.lib}
> function uniaud_mixer_get_ctls_number(card_id:longint):longint;cdecl;
> function uniaud_get_max_channels(card_id:longint):longint;cdecl;
> 
> implementation
> function uniaud_mixer_get_ctls_number;external;
> function uniaud_get_max_channels;external;
> end.
> и кладешь uniaud.lib кудань-ть, где VP ее найдет.
> 
> test.pas:
> uses uniaud;
> 
> begin
>   writeln('Controls:',uniaud_mixer_get_ctls_number(0));
>   writeln('Channels:',uniaud_get_max_channels(0));
> end.
> 
> собиpаешь, имеешь на экpане:
> K:DriversUniAudAPI>test.exe
> Controls:20
> Channels:2
> 
> усе, телемаpкет ;)

__, _, __, _,_ _, _ \|_ / \ \|_) \| \| \|\/\| \| \ / \| \ \| \| \| \| ~ ~ ~ ~ `~' ~ ~