Diese SDL2.pas ist schon mal besser als die Version von
http://www.flashavconverter.com/cont...yer-firemonkey.
Delphi-Quellcode:
var pDeviceName:PChar;
deviceName:String;
deviceNameList:TStringList;
count,i:integer;
begin
count:=SDL_GetNumAudioDevices(0);
deviceNameList:=TStringList.Create();
for i:=0 to count-1 do
begin
pDeviceName:=SDL_GetAudioDeviceName(0,0);
deviceName:=UTF8ToString(pDeviceName^);
deviceNameList.Add(deviceName);
end;
end;
a) Hier kommt jetzt schon mal die richtige Anzahl an Devices zurück (was mir auch schon mal hilft),
b) nur für jedes Device kommt als Name ? zurück bei Verwendung von UTF8ToString(pDeviceName^)
Bei deviceName:=String(pDeviceName) oder deviceName:=StrPas(pDeviceName) oder deviceName:=Copy(pDeviceName, 1, maxInt) oder deviceName:=pDeviceName kommt 䕄䱌匠㈲〴⁔䤨瑮汥刨
楄灳慬畁楤⥯ zurück
Damit bin ich an sich aber schon mal weiter. Nur läuft die Klasse nicht unter MacOS-64 (auch nicht, wenn ich den Type von TClose auf Integer setze).
Ich hoffe, dass Flash-
AV-Converter hier die Tage die Funktion zur Verfügung stellt.
So einfach kann ich kein Beispiel-Projekt generieren, weil ich dies ja mit
http://www.flashavconverter.com/cont...yer-firemonkey baue.
Müsste dann zuerst schauen, ob dies mit der Demo der Library auch gut zusammen geht.