Select Code to Download

HSTREAM BASSDEF(BASS_StreamCreate)(DWORD freq, DWORD chans, DWORD flag
+s, void *proc, DWORD user);

typedef DWORD (CALLBACK STREAMPROC)(HSTREAM handle, void *buffer, DWOR
+D length, DWORD user);

DWORD CALLBACK stream(HSTREAM handle, char *buffer, int length, DWORD 
+user)
{
...
chan=BASS_StreamCreate(44100,2,0,(STREAMPROC*)stream,0);
BASS_StreamPlay(chan,0,BASS_SAMPLE_LOOP);

#include "EXTERN.h"
#include "perl.h"
...
OUTPUT:
    RETVAL

static SV * streamproccallback = (SV*)NULL;

...
    LEAVE;
    return ret;
}

#!/usr/bin/perl
use strict;
...
BASS_StreamPlay($stream,0,BASS_SAMPLE_LOOP);
sleep(10);
close(FH);