PUSH
Verzeiht mir nochmal.
Delphi-Quellcode:
for IntI := PlaylistPos to (PlaylistPos + 12) do
PlaylistEntry := PlaylistEntry + playlist.Items[IntI] + ',';
BASS_WINAMPVIS_SetPlaylistEntries(PlaylistPos,
PlaylistEntry,
false);
Diese übergabe wird in der
DLL mit mehr als 80 einträge ausgewertet.
das kann aber nicht sein. Da nur 13 übergeben werden.
Wo liegt hier der fehler ?
Delphi-Quellcode:
procedure BASS_WINAMPVIS_SetPlaylistEntries(PlPos : integer; Title : string;
changed : boolean); stdCall;
Var
IntI : integer;
begin
try
if PlaylistEntries = nil then
PlaylistEntries := TStringList.Create;
if changed then PlaylistEntries.clear;
begin
PlaylistEntries.CommaText := Title;
if PlaylistEntries.Count > 13 then
begin
PlaylistEntries.Free;
exit;
end;
for IntI := PlPos to PlaylistEntries.Count do
PlaylistEntries.Add(PlaylistEntries.Strings[IntI]);
end;
except
PlaylistEntries.Free;
end;
end;
Thread hat sich erledigt ....
Gruss Emil