bw писал(а):Integer и имеет размер 16 бит в FreePascal
Это если не включить режим OBJFPC или DELPHI...
Модератор: Модераторы
bw писал(а):Integer и имеет размер 16 бит в FreePascal
function libvlc_new(argc: Longint; args: Pointer): Pointer; cdecl; external 'libvlc.dll';
begin
WriteLn('*BEGIN*');
libvlc_new(0, nil);
WriteLn('*END*');
end.
Program p1;
Uses
sysutils, initc;
Function libvlc_new(argc: Longint; args: Pointer): Pointer; cdecl; external 'vlc';
Begin
Try
WriteLn('*BEGIN*');
libvlc_new(0, nil);
WriteLn('*END*');
Except On E: Exception Do
WriteLn(E.Message);
End;
ReadLn;
End.
Program p1;
Uses
sysutils, initc;
Function libvlc_new(argc: Longint; args: Pointer): Pointer; cdecl; external 'vlc';
Var
Param: String;
Begin
Try
Param := '-l';
WriteLn('*BEGIN*');
libvlc_new(1, @Param);
WriteLn('*END*');
Except On E: Exception Do
WriteLn(E.Message);
End;
ReadLn;
End.
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 29