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.

 
 


Сейчас этот форум просматривают: Google [Bot] и гости: 1