Delphi-Quellcode:
{-----------------------------------------------------------------------------
Procedure : BASSSetTrackPos - Author : Michael Puff
Date : 2003-07-07
Purpose : Have a guess. ;o)
-----------------------------------------------------------------------------}
procedure BASSSetTrackPos(
handle: Cardinal; idx: int64);
begin
if BASS_ACTIVE_PLAYING = BASS_ChannelIsActive(
handle)
then
BASS_ChannelPause(
handle);
if not BASS_ChannelSetPosition(
handle, idx)
then
begin
BASS_Error(BASS_ERRORGetCode,
'
Position im Titel konnte nicht geändert werden.');
exit;
end;
BASS_ChannelResume(
handle);
end;
Aus meinem Player mit der bass.dll.
Und hier noch einer:
TrackPos := BASS_ChannelGetPosition(hFileStream);
Steht aber alles in der Hilfe drin.