DLL einbinden - libsndfile

TJF

Hallo,

kann mir jemand bitte auf die Sprünge helfen bei der Frage, wie man die libsndfile DLL einbauen kann? Unten ein erster Versuch ... Ich will letztendlich mit sf_command bestimmte Datei-Eigenschaften abfragen. DLL hängt an.

API:
http://www.mega-nerd.com/libsndfile/api.html

Dank und Gruß
Thomas

AutoIt

#include <String.au3>
#include <InetConstants.au3>
#include <MsgBoxConstants.au3>




Global $g_Libsndfile = DllOpen(@ScriptDir & "\libsndfile-1.dll")
Global $file = @ScriptDir & "\test.wav"


$sf_info = DllStructCreate("int64 frames;int samplerate;int channels ;int format ;int sections ;int seekable;")
$stString =  DLLStructCreate("char[260]")
DllStructSetData($stString, 1, $file)


ConsoleWrite(_SF_Open($stString,DllStructGetPtr($sf_info)) & @CRLF)
MsgBox(0,"",DllStructGetPtr($sf_info))
_Close_()






Func _SF_Open($stString,$sfinfo)
	Return DllCall($g_Libsndfile, "int*:cdecl" ,"sf_wchar_open", "ptr", DllStructGetPtr($stString), "int", "SFM_READ","ptr*", DllStructGetPtr($sf_info))
EndFunc


Func _Close_()
	DllClose($g_Libsndfile)
EndFunc

Alles anzeigen

**chesstiger**

Dein Beispiel funktioniert so schon mal:

[autoit]

#include <Array.au3>
#include <WinAPIDiag.au3>

[/autoit][autoit][/autoit][autoit]

$sFile = @ScriptDir & "\test.wav"

[/autoit][autoit][/autoit][autoit]

;structures and constants (from sndfile.h.in)
$SFM_READ = 0x10
$tagSFINFO = "int64 frames; int samplerate; int channels; int format; int sections; int seekable;"

[/autoit][autoit][/autoit][autoit]

$hLibSndFile = DllOpen(@ScriptDir & "\libsndfile-1.dll")
$tSfInfo = DllStructCreate($tagSFINFO)
$aRet = DllCall($hLibSndFile, "int:cdecl", "sf_wchar_open", "wstr", $sFile, "int", $SFM_READ, "ptr", DllStructGetPtr($tSfInfo))
ConsoleWrite("DllCall error: " & @error & @CRLF)
_ArrayDisplay($aRet)
_WinAPI_DisplayStruct($tSfInfo, $tagSFINFO)

[/autoit]

Guck mal, ob du mit der Basis weiterkommst. Für die verschiedenen Enums musst du mal im Quellcode der Bibliothek nachschauen.

TJF

Super! Danke! Ich mache mich mal dran...

TJF

Stehe schon wieder auf dem Schlauch. Das sizeof checke ich nicht in autoit:

http://www.mega-nerd.com/libsndfile/com…AX_ALL_CHANNELS

AutoIt

$SFC_CALC_MAX_ALL_CHANNELS = 0x1042
Local $peaks[2]
$sSF_Command = DllCall($hLibSndFile, "int:cdecl", "sf_command","ptr", $aRet[0],"DOUBLE",$SFC_CALC_MAX_ALL_CHANNELS,"DOUBLE",$peaks,"int","2")
_ArrayDisplay($sSF_Command)

TJF

So funktioniert es:

AutoIt

$SFC_CALC_SIGNAL_MAX = 0x1040
$pointer2 = DllStructCreate("double")
$sSF_Command2 = DllCall($hLibSndFile, "int:cdecl", "sf_command", "ptr", $aRet[0],"int",$SFC_CALC_SIGNAL_MAX,"ptr",DllStructGetPtr($pointer2),"int","8")
_ArrayDisplay($sSF_Command2)
MsgBox(0,"pointer2",DllStructGetData($pointer2,1))

**alpines**

Schön das es klappt. Du solltest allerdings bei DllCalls immer prüfen ob der Rückgabewert überhaupt korrekt ist, oder ob der Call fehlgeschlagen ist, denn sonst crasht dein Script sofort mit "Subscript used with non-array".

Wenn dein Problem gelöst ist würde es mich freuen, wenn du den grünen Haken für gelöst / erledigt setzt indem du den 1. Beitrag in diesem Thread bearbeitest.
Solltest du dennoch weitere Fragen zu diesem Thema oder einem anderen haben bist du natürlich eingeladen sie hier zu posten oder einen neuen Thread aufzumachen.

TJF

Die Wert-Rückgabe stimmt. Muss im letzten Fall nur noch in Dezibel umgerechnet werden. Hier z.B. Rückgabe von "31639" -> (-0.30 dB).

Haken setze ich. Wollte kurz nochmal testen... Danke!