Hi Community
ich verwende die BASS.dll um die Audio Devices auszuelesen.
Diese trage ich dann per Schleife in eine Combobox.
Folgender Code:
Delphi-Quellcode:
var
deviceInfo: BASS_DEVICEINFO;
....
procedure TForm1.FormCreate(Sender: TObject);
var
i : Integer;
begin
// check the correct BASS was loaded
if (HIWORD(BASS_GetVersion) <> BASSVERSION) then
begin
Showmessage('An incorrect version of BASS.DLL was loaded');
Halt;
end;
if (not BASS_Init(-1, 44100, 0, 0, nil)) then
begin
Showmessage('Can''t initialize device');
Halt;
end;
i:= 0;
while (BASS_GetDeviceInfo(i, deviceInfo) <> false) do
begin
if deviceInfo.name <> 'No sound' then cbOutputDevices.Items.Add(PChar(deviceInfo.name));
Inc(i);
end;
end;
ich bekomme aber folgendes Ergebnis, siehe Screenshot.
Warum zum Teufel sieht das so aus ^^
Danke und LG