Beiträge von Aelc

Zitat von Musashi

Der Link zur AccessUDF_rev2_1.rar funktioniert ! Ich habe die UDF aber noch mal (als .zip) "geuppt".

Wenn man keinen Plan hat, sollte man besser nicht mit irgendetwas 'rumschmeißen .

Was hat _FileListToArray (-> listet Dateien und/oder Ordner eines bestimmten Ordners auf) denn bitte mit dem Problem von wuff100 zu tun ?

wuff100 :

Ich gehe mal davon aus, dass die Datenbank vom Typ .mdb ist, wie von der o.a. UDF gefordert.

Zum Testen habe ich die Test.mdb aus dem UDF-Beispiel verwendet.

Der Zugriff erfolgt aber über ADO, d.h. Du benötigst die UDF selbst nicht.

Die Namen der Datenbank und der Tabelle müssen natürlich mit Deinen Werten besetzt werden.

AutoIt

#include <Array.au3>

Global $sTableName    =  "tblTable1"
Global $sDatabaseName = @ScriptDir & "\Test.mdb"
Global $oConnection   = ObjCreate("ADODB.Connection")
$oConnection.Open("Driver=Microsoft Access Driver (*.mdb); DBQ=" & $sDatabaseName)
Global $oRecordSet    = ObjCreate("ADODB.RecordSet")

Global $sQuery = "Select * From " & $sTableName
$oRecordSet.Open($sQuery, $oConnection)
Global $aRecordSetArr = $oRecordSet.GetRows
$oRecordSet.Close()
$oConnection.Close()

_ArrayDisplay($aRecordSetArr, 'Tabelle = ' & $sTableName)

Alles anzeigen

Mit der Testdatei funktioniert es.

Das Zeitverhalten bei Deiner Riesendatei kann ich nicht abschätzen - probiere es einfach mal aus .

Gruß Musashi

Alles anzeigen

oops sorry vertan im befehl - war wohl noch nicht ganz wach

_SQLite_GetTable2d war eigentlich was ich meinte ...

Hey

kannst die nochmal uppen?

der support wurde von seiner seite eingestellt kann die nicht runterladen

dann kann ich mal drüberschauen

Hab keinen plan von access darum schmeiß ich erstmal nur mit _filelisttoarray() rum

Grüße

Hab bei autoitscript.com auch mal angefragt und der code, auf den ich da verwiesen wurde, funktioniert einwandfrei nachdem ich ihn etwas abgeändert hatte...

https://www.autoitscript.com/forum/topic/19…an-application/

#include <WinAPICom.au3>
#include <Process.au3>
#include <Array.au3>


Opt("MustDeclareVars", 1)

Global Const $CLSCTX_INPROC_SERVER = 0x01 + 0x02 + 0x04 + 0x10
Global Enum $eRender, $eCapture, $eAll, $EDataFlow_enum_count
Global Enum $AudioSessionStateInactive, $AudioSessionStateActive, $AudioSessionStateExpired
Global Const $eMultimedia = 1


Global Const $sCLSID_MMDeviceEnumerator = "{BCDE0395-E52F-467C-8E3D-C4579291692E}"
Global Const $sIID_IMMDeviceEnumerator = "{A95664D2-9614-4F35-A746-DE8DB63617E6}"
Global Const $sTagIMMDeviceEnumerator = _
"EnumAudioEndpoints hresult(int;dword;ptr*);" & _
"GetDefaultAudioEndpoint hresult(int;int;ptr*);" & _
"GetDevice hresult(wstr;ptr*);" & _
"RegisterEndpointNotificationCallback hresult(ptr);" & _
"UnregisterEndpointNotificationCallback hresult(ptr)"


Global Const $sIID_IAudioMeterInformation = "{C02216F6-8C67-4B5B-9D00-D008E73E0064}"
Global Const $sTagIAudioMeterInformation = "GetPeakValue hresult(float*);" & _
"GetMeteringChannelCount hresult(dword*);" & _
"GetChannelsPeakValues hresult(dword;float*);" & _
"QueryHardwareSupport hresult(dword*);"


Global Const $sIID_IMMDevice = "{D666063F-1587-4E43-81F1-B948E807363F}"
Global Const $sTagIMMDevice = _
"Activate hresult(clsid;dword;ptr;ptr*);" & _
"OpenPropertyStore hresult(dword;ptr*);" & _
"GetId hresult(wstr*);" & _
"GetState hresult(dword*)"


Global Const $sIID_IAudioSessionManager2 = "{77aa99a0-1bd6-484f-8bc7-2c654c9a9b6f}"
Global Const $sTagIAudioSessionManager = "GetAudioSessionControl hresult(ptr;dword;ptr*);" & _
"GetSimpleAudioVolume hresult(ptr;dword;ptr*);"
Global Const $sTagIAudioSessionManager2 = $sTagIAudioSessionManager & "GetSessionEnumerator hresult(ptr*);" & _
"RegisterSessionNotification hresult(ptr);" & _
"UnregisterSessionNotification hresult(ptr);" & _
"RegisterDuckNotification hresult(wstr;ptr);" & _
"UnregisterDuckNotification hresult(ptr)"


Global Const $sIID_IAudioSessionEnumerator = "{e2f5bb11-0570-40ca-acdd-3aa01277dee8}"
Global Const $sTagIAudioSessionEnumerator = "GetCount hresult(int*);GetSession hresult(int;ptr*)"

Global Const $sIID_IAudioSessionControl = "{f4b1a599-7266-4319-a8ca-e70acb11e8cd}"
Global Const $sTagIAudioSessionControl = "GetState hresult(int*);GetDisplayName hresult(wstr*);" & _
"SetDisplayName hresult(wstr);GetIconPath hresult(wstr*);" & _
"SetIconPath hresult(wstr;ptr);GetGroupingParam hresult(ptr*);" & _
"SetGroupingParam hresult(ptr;ptr);RegisterAudioSessionNotification hresult(ptr);" & _
"UnregisterAudioSessionNotification hresult(ptr);"


Global Const $sIID_IAudioSessionControl2 = "{bfb7ff88-7239-4fc9-8fa2-07c950be9c6d}"
Global Const $sTagIAudioSessionControl2 = $sTagIAudioSessionControl & "GetSessionIdentifier hresult(wstr*);" & _
"GetSessionInstanceIdentifier hresult(wstr*);" & _
"GetProcessId hresult(dword*);IsSystemSoundsSession hresult();" & _
"SetDuckingPreferences hresult(bool);"



While 1
MsgBox ( 64,"",_Sounddetect("AIMP.exe" ),0.5)
WEnd



Func _Sounddetect($process)
Local $aApp = 0
Local $aReturn = False
$aApp = _GetAppsPlayingSound()

If IsArray ( $aApp ) Then
For $i = 0 To UBound ( $aApp ) - 1
If $aApp[$i][0] = $process Then	$aReturn = True
next
EndIf
Return $aReturn
EndFunc

Func _GetAppsPlayingSound()

Local $pIMMDevice = 0
Local $oMMDevice = 0
Local $pIAudioSessionManager2 = 0
Local $oIAudioSessionManager2 = 0
Local $pIAudioSessionEnumerator = 0
Local $oIAudioSessionEnumerator = 0
Local $nSessions = 0
Local $oMMDeviceEnumerator = 0
Local $aApp[0]
Local $pIAudioSessionControl2 = 0
Local $oIAudioSessionControl2 = 0
Local $oIAudioMeterInformation = 0
Local $ProcessID = 0
Local $fPeakValue = 0
Local $iState = 0
Local $iVolume = 0
Local $oErrorHandler = 0

$oErrorHandler = ObjEvent("AutoIt.Error", "_ErrFunc")


$oMMDeviceEnumerator = ObjCreateInterface($sCLSID_MMDeviceEnumerator, $sIID_IMMDeviceEnumerator, $sTagIMMDeviceEnumerator)

If @error Then Return $aApp

If SUCCEEDED($oMMDeviceEnumerator.GetDefaultAudioEndpoint($eRender, $eMultimedia, $pIMMDevice)) Then ;eRender


$oMMDevice = ObjCreateInterface($pIMMDevice, $sIID_IMMDevice, $sTagIMMDevice)

$oMMDevice.Activate($sIID_IAudioSessionManager2, $CLSCTX_INPROC_SERVER, 0, $pIAudioSessionManager2)

$oIAudioSessionManager2 = ObjCreateInterface($pIAudioSessionManager2, $sIID_IAudioSessionManager2, $sTagIAudioSessionManager2)

$oIAudioSessionManager2.GetSessionEnumerator($pIAudioSessionEnumerator)

$oIAudioSessionEnumerator = ObjCreateInterface($pIAudioSessionEnumerator, $sIID_IAudioSessionEnumerator, $sTagIAudioSessionEnumerator)

$oIAudioSessionEnumerator.GetCount($nSessions)


For $i = 0 To $nSessions - 1
$oIAudioSessionEnumerator.GetSession($i, $pIAudioSessionControl2)
$oIAudioSessionControl2 = ObjCreateInterface($pIAudioSessionControl2, $sIID_IAudioSessionControl2, $sTagIAudioSessionControl2)
$oIAudioSessionControl2.GetState($iState)
If $iState = $AudioSessionStateActive Then
$oIAudioSessionControl2.GetProcessId($ProcessID)
$oIAudioMeterInformation = ObjCreateInterface($pIAudioSessionControl2, $sIID_IAudioMeterInformation, $sTagIAudioMeterInformation)
$oIAudioSessionControl2.AddRef
$oIAudioMeterInformation.GetPeakValue($fPeakValue)
If $fPeakValue > 0 Then
ReDim $aApp[UBound($aApp) + 1][2]
$aApp[UBound($aApp) - 1][0] = _ProcessGetName($ProcessID)
$aApp[UBound($aApp) - 1][1] = $fPeakValue
EndIf

EndIf
$fPeakValue = 0
$iState = 0
$ProcessID = 0
$oIAudioMeterInformation = 0
$oIAudioSessionControl2 = 0

Next
$oIAudioSessionEnumerator = 0
$oIAudioSessionManager2 = 0
$oMMDevice = 0
$oMMDeviceEnumerator = 0

If UBound($aApp) = 0 Then $aApp = 0
Return $aApp
Else
Return 0
EndIf


EndFunc   ;==>_GetAppsPlayingSound




Func SUCCEEDED($hr)
Return ($hr >= 0)
EndFunc   ;==>SUCCEEDED

; User's COM error function. Will be called if COM error occurs
Func _ErrFunc($oError)
; Do anything here.
ConsoleWrite(@ScriptName & " (" & $oError.scriptline & ") : ==> COM Error intercepted !" & @CRLF & _
@TAB & "err.number is: " & @TAB & @TAB & "0x" & Hex($oError.number) & @CRLF & _
@TAB & "err.windescription:" & @TAB & $oError.windescription & @CRLF & _
@TAB & "err.description is: " & @TAB & $oError.description & @CRLF & _
@TAB & "err.source is: " & @TAB & @TAB & $oError.source & @CRLF & _
@TAB & "err.helpfile is: " & @TAB & $oError.helpfile & @CRLF & _
@TAB & "err.helpcontext is: " & @TAB & $oError.helpcontext & @CRLF & _
@TAB & "err.lastdllerror is: " & @TAB & $oError.lastdllerror & @CRLF & _
@TAB & "err.scriptline is: " & @TAB & $oError.scriptline & @CRLF & _
@TAB & "err.retcode is: " & @TAB & "0x" & Hex($oError.retcode) & @CRLF & @CRLF)
EndFunc   ;==>_ErrFunc

hilft dir wahrscheinlich aber auch nicht, wenn du noch mehr infos über die Tracks haben willst.

Zitat von alpines

Das musst du nur wenn du Custom-Resizing der Controls unterstützen möchtest. Also bspw. wenn du eine große Editbox hast und daneben eine weitere Editbox obwohl die rechte die Breite behalten und nur in der Höhe wachsen soll wenn du das Fenster verziehst, und die linke sowohl in der Breite als auch Höhe mitwachsen soll. Wenn du das nicht setzt, dann wachsen die Controls alle proportional.

ja genau das dachte ich mir.... meine UDF geht zurzeit von links nach rechts bzw oben nach unten.. dann müsste man ab der "zweiten reihe" die $GUI_DOCKLEFTs weglassen und an der letzten reihe wieder hinzufügen, wobei im moment noch keinen bezug auf die reale größe der GUI besteht - den man dazu auch noch bräuchte, damit er die erste und letzte reihe erkennt bzw. oben und unten

Zitat von alpines

Das ist leider von OS zu OS unterschiedlich, da Win10 harte Kanten verwendet, und Win7 beispielsweise runde Kanten, bzw. das ganze fadet. Ich hab versucht das so genau wie möglich zu machen, aber auch da sind mir die Hände gebunden wenn es bspw. zu Rundungsfehlern kommt.

Das sind auch, wie oben gesagt, nur für pingelige leute fehler - hatte mir aber das script angeguckt und schon gemerkt dass da nicht viel geht ausser vielleicht nen manueller adjust, der nur unter WIN7 stattfindet - was aber auch mit relativ aufwand verbunden ist :x

naja werde auf jeden fall nochmal darauf zurückkommen später

komischer weise funkltioniert das, was bei mir funktioniert auch über die media tasten

okey ich glaube, da ich vorher noch AIMP 2.6er hatte und jetzt einfach nur die neue draufgebügelt habe, da ich gesehen hatte dass dieses plugin erst ab 3.6 läuft, dass ich alles nochmal runterschmeiße und dann auch mit neustarts usw. in ruhe ausprobiere.

naja die events sind halt sehr dünn gewählt... normalerweise müsste eine direkte überwachung (live) sein, die dann je was man braucht auch fast dauerhaft aktualisiert. aber wie schon oben erwähnt, hab ich keinen plan von DLLs..

ich sage nochmal bescheid ob es geklappt hat.

danke erstmal so weit

Unbenannt.PNG ich habe beides probiert.

deswegen inzwischen schon drei templates erstellt... eins für pause alleine, eins für play alleine ( aber verschiedene speicherorte ) und eins von deinen settings übernommen....

auch mit deinen einstellungen noch einmal probiert.

es klappt ja soweit er schreibt mir artist title und letzte spielzeit rein... aber wie oben beschrieben bei play tut sich nichts, wenn vorher pause gedrückt wurde

EDIT: und bei dir läuft das einwandfrei? :o ich meine hast du pause gedrückt und dann wieder play und und du hast dann 2 einträge? (bzw 3 wenn man den start der musik mitrechnet)

Zitat von alpines

Das würde sowieso nicht funktionieren, da der Limiter ja immer auf 100% ist, und nur der grüne Balken auf dem Volume-Slider rumtanzt, der wird aber nachträglich mit ein bisschen GDIPlus-Magie eingefügt (hab sowas ähnliches in meinem Player gemacht).

Ahh deswegen konnte ich verzweifelt das control suchen... hab die GUI komplett auseinander genommen ... mit controlhide auslesen der childs und aller anderen ctrls ;D

Zitat von alpines

Der Player scheint aber ein Plugininterface zu haben, warum erstellst du dir kein Plugin und behandelst das von da aus? Da sitzt du ja direkt im Player drin und kannst so rumfuschen,

ansonsten fällt mir nur ein extern über MemoryRead oder dergleichen auszulesen in welchem Zustand sich der Player befindet.

hmm weil ich keinen plan von DLLs habe an sich und schon immer schwierigkeiten gehabt habe wenn nur eine DLL involviert ist...

und ich habe bisher kein tool dafür gefunden

Zitat von Bitnugger

Mit dem Plugin Current Track Info to Any v1.0 kommst du evtl. an die gewünschten Infos.

Wow danke ! Das kommt dem schon so nahe dass es eigentlich auch komplett funktionieren müsste ... Leider funktioniert aber nur "pause". "play" funktioniert nur, wenn ich vorher auf "stop" war.... keine Ahnung warum

das heißt, mit meiner pause/play taste, die ich eigentlich verwende, läuft das dann nicht -> vielleicht muss ich mich umgewöhnen ;D

Auch wenn ich manuell "Pause" und dann wieder "Play" drücke schreibt der mir nicht "play" in meine txt...

scheint nen bug zu sein. habs auch mit 2 seperaten txts probiert.

btw ich hatte auf der aimp seite schon geguckt aber das iwie übersehen :o

EDIT: lustiger weise funktioniert es auch beim track weiterschalten ... ich denke damit komm ich klar, obwohl es nicht ganz perfekt ist danke an euch

Nicht schlecht und sehr interessant

Bin in dem Thema nicht so bewand hab aktuell sehr viele GUIs erstellt und darauf einfach verzichtet - also nicht skalierbar, weil es mir zu stressig war.

bei vielen controls & mehreren GUIs, zum Beispiel in Verbindung mit der UDF GUITemplate.au3 (die ich persönlich sehr gut finde) sehe ich da allerdings Probleme.

Ich meine ich muss ja trotzdem für jeden Control die $GUI_DOCKs definieren oder sehe ich das falsch?

Ich bin aktuell am schreiben einer UDF die grade, wenn man sehr viele Controls braucht, verwendet werden soll.

Sie errechnet sich selbst die Positionen zum erstellen der Controls bzw bauen die werte aufeinander auf.

Dann werden sie als "Master array" definiert (mit den ganzen werten ,die man braucht)

und ich überlege jetzt das irgendwie mit einzubinden, da das durchaus etwas ist, was komfortabler wirkt für den Anwender, als unskalierbare Fenster.

Ich meine machbar ist das bestimmt, nur hab ich zurzeit kein plan in wie fern xD

Naja werde wohl noch etwas zeit brauchen, bis ich an dem Punkt bin, da ich noch ein anderes riesen Projekt habe, was aber sehr speziell ist...

Auf jeden Fall ist der adjust bei button3 nicht 100%ig, wie ich das sehen konnte. Beim resizen ist der dann irgendwann etwas breiter als der edit darüber, wobei es geringfügig ist und ich schwierigkeiten sehe das einzudämmen.

Alles in allem wie oben schon gesagt sehr interessant und gute arbeit

danke fürs teilen

Hallo zusammen

Ich hab schon ziemlich viel rumgesucht und probiert, doch leider keine Lösung gefunden, die funktioniert.

Ich würde gerne wissen,wie man checken kann, ob AIMP audio ausgibt,also musik spielt, da ich eine Funktion,habe die meine Tastaturbeleuchtung dann per Musik steuert, nur bekomme ich den Output wert nicht raus.

Es soll bei bestimmten Programmen und Spielen dann abgeschaltet werden, weil es mich da nervt. Das Script ist so weit auch fertig, habe es aktuell aber nur auf

If processexist()

basierend, was aber bei pause drücken nicht funktioniert.

Habe schon gesehen das UEZ und eukalyptus einiges vollbracht haben mit AudioOutputMeter, aber konnte es leider nicht umformulieren, sodass ich den Bezug zu AIMP habe.

habe Commandozeilen probiert und auch von windows direkt mit Hilfe der sndvol.exe (wo ich aber den richtigen Control nicht finde, der den angezeigten wert ausgibt bzw. nicht auslesen kann.)

Habe es auch schon mit Hotkeys und _ispressed versucht, jedoch wird die Taste nicht als solches erkannt unter Autoit (Gaming Tastatur halt)

Im Prinzip muss es kein wirklicher wert sein sondern nur gechecked werden ob "play" in AIMP aktiv ist..

Vielen Dank im vorraus!