cd's rippen - brauche dringend hilfe!

[Garfield]

Zitat von Marco Steinebach:

... Außerdem sind da, für alle die wollen, gleich die dynamic_bass_cd und die dynamic_bass_enc mit dabei - auch wenn letztere ja nicht funktioniert. *grrr
Für die statische variante einfach in der uses das "dynamic" streichen und im OnShow die LoadBassxxx aufrufe auskommentieren, dann sollte das beispiel laufen.

Die Fehler liegen in der dynamic_bass_enc.pas. Es fehlt an einigen Stellen das 'stdcall;'.

Delphi-Quellcode:

var BASS_Encode_GetVersion: function: DWORD; stdcall;

var BASS_Encode_Start: function (handle:DWORD; cmdline:PAnsiChar; flags:DWORD; proc:ENCODEPROC; user:Pointer): HENCODE; stdcall;
var BASS_Encode_AddChunk: function (handle:HENCODE; id:PAnsiChar; buffer:Pointer; length:DWORD): BOOL; stdcall;
var BASS_Encode_IsActive: function (handle:DWORD): DWORD; stdcall;
var BASS_Encode_Stop: function (handle:DWORD): BOOL; stdcall;
var BASS_Encode_SetPaused: function (handle:DWORD; paused:BOOL): BOOL; stdcall;
var BASS_Encode_Write: function (handle:DWORD; buffer:Pointer; length:DWORD): BOOL; stdcall;
var BASS_Encode_SetNotify: function (handle:DWORD; proc:ENCODENOTIFYPROC; user:Pointer): BOOL; stdcall;
var BASS_Encode_GetCount: function (handle:HENCODE; count:DWORD): QWORD; stdcall;
var BASS_Encode_SetChannel: function (handle:DWORD; channel:DWORD): BOOL; stdcall;
var BASS_Encode_GetChannel: function (handle:HENCODE): DWORD; stdcall;

var BASS_Encode_GetACMFormat: function (handle:DWORD; form:Pointer; formlen:DWORD; title:PAnsiChar; flags:DWORD): DWORD; stdcall;
var BASS_Encode_StartACM: function (handle:DWORD; form:Pointer; flags:DWORD; proc:ENCODEPROC; user:Pointer): HENCODE; stdcall;
var BASS_Encode_StartACMFile: function (handle:DWORD; form:Pointer; flags:DWORD; filename:PAnsiChar): HENCODE; stdcall;

var BASS_Encode_CastInit: function (handle:HENCODE; server,pass,content,name,url,genre,desc,headers:PAnsiChar; bitrate:DWORD; pub:BOOL): BOOL; stdcall;
var BASS_Encode_CastSetTitle: function (handle:HENCODE; title,url:PAnsiChar): BOOL; stdcall;
var BASS_Encode_CastGetStats: function (handle:HENCODE; stype:DWORD; pass:PAnsiChar): PAnsiChar; stdcall;