Topic: Don't work 'BASS_GetDeviceInfo' 64bit

[Vitaliy]

Hello. Don't work 'BASS_GetDeviceInfo' in Lazarus 64bit:

Code: [Select]

implementation

{$R *.lfm}

{ TForm5 }
 procedure TForm5.FormCreate(Sender: TObject);
 var
  i: Integer;
  ADeviceInfo: BASS_DEVICEINFO;

 begin
   Device1:=Booltostr(BASS_GetDeviceInfo(1,ADeviceInfo));
i := 1;
while BASS_GetDeviceInfo(i, ADeviceInfo) do
begin
ListBox3.Items.Add(ADeviceInfo.name);
i := i + 1;

end;
 
   end;

procedure TForm5.Button1Click(Sender: TObject);
begin
  Form5.Close;
end;

procedure TForm5.Button2Click(Sender: TObject);
begin
showmessage(Device1);
end;

end. Listbox is empty, 'showmessage' too.
Why does not it work?

[Ian @ un4seen]

I'm not a Lazarus user myself, but I guess it may be using Unicode strings by default? If so, you will probably need to convert the "ADeviceInfo.name" string, perhaps something like this:

Code: [Select]

ListBox3.Items.Add(String(AnsiString(ADeviceInfo.name)));


[Vitaliy]

Don't work.

[Vitaliy]

Code: [Select]

showmessage(booltostr(Device1));return '0'

[Vitaliy]

how to apply?
"BASS_SetConfig(BASS_CONFIG_UNICODE,BOOL unicode);"

[Vitaliy]

Code: [Select]

BASS_SetConfig(BASS_CONFIG_UNICODE,1);
    ListBox3.Items.Add(Pchar(UTF8ToUTF16(ADeviceInfo.name)));
    i := i + 1;
Do not work. :_(

[Vitaliy]

Windows language is russia. maybe it matters.

[Chris]

the BASS_DEVICEINFO.name is a PAnsiChar
so the correct call should be looks like

Code: [Select]

i := 1;
while BASS_GetDeviceInfo(i, ADeviceInfo) do
begin
  ListBox3.Items.Add(string(ADeviceInfo.name));
  inc(i);
end;

if ( ListBox3.Items.count = 0) {looks like something wrong} then
ShowMessage(Inttostr(Bass_ErrorGetCode));
// you can find in the Bass Delphi header the Numeric Codes for the Error(s)


[Vitaliy]

the BASS_DEVICEINFO.name is a PAnsiChar
so the correct call should be looks like

Code: [Select]

i := 1;
while BASS_GetDeviceInfo(i, ADeviceInfo) do
begin
  ListBox3.Items.Add(string(ADeviceInfo.name));
  inc(i);
end;


This code is work, thank you. But cyrilic symbols looks like "".

[Vitaliy]

And I do not understand how to initialize a device from the listbox.

[Vitaliy]

Code: [Select]

d:=ListBox3.ItemIndex;
 BASS_SetDevice(d);

if bass_init(1, 44100, 0, handle, nil)=false then


When I run the program shows an error:  "Access violation".
And if

Code: [Select]

bass_init(-1,.. then 

Code: [Select]

BASS_SetDevice(d); is not work, BASS_SetDevice(0)=(1)=(2)=(3) - no difference.

[Chris]

somethink like that

Code: [Select]

procedure TForm1.FormCreate(Sender: TObject);
var
 Dev:integer;
 ADeviceInfo:Bass_DeviceInfo;
begin
  dev:=1;
   while (BASS_GetDeviceInfo(dev, ADeviceInfo)<> false) do
   begin
     ListBox1.Items.Add(string(ADeviceInfo.name));
     inc(Dev);
     Bass_init(Dev, 44100, 0, handle, Nil);
    end;
end;

about the listbox stuff

Code: [Select]

  if Not Bass_SetDevice(ListBox3.ItemIndex+1)then
     ShowMessage(Inttostr(Bass_ErrorGetCode));// the first index in a listbox is allways 0 so it must then (ListBox3.ItemIndex+1)
//1 is first real output device
about your cryllic symbols
read that
http://wiki.freepascal.org/Unicode_Support_in_Lazarus#What_about_ModeSwitch_UnicodeStrings.3FF   

i did a quick test in Lazarus 1.8.0/FPC 3.0.4. will showing correct the device names