Pastebin

Paste #215:

< previous paste - next paste>

Pasted by Flawless

Download View as text

program testp;

uses
  ctypes, vorbis;

{$LINKLIB 'c'}
{$LINK 'test'}

function ov_open_callbacks_foo(datasource: pointer; var vf: OggVorbis_File; initial: pointer; ibytes: clong; callbacks: ov_callbacks): cint; cdecl; external;

var
  vf: OggVorbis_File;
  cb: ov_callbacks;
begin
  cb.read := read_func(pointer(10));
  cb.seek := seek_func(pointer(20));
  cb.close := close_func(pointer(30));
  cb.tell := tell_func(pointer(40));
  ov_open_callbacks_foo(pointer(1), vf, pointer(3), 4, cb);
end.

New Paste

Go to most recent paste.

Backed by:

PostgreSQL Professional Services

Debian Linux Support