Hallo

Ich möchte gerne die Equalizer Einstellungsdatei von Winamp auslesen und meinem 10 Band Equalizer (10 Trackbars) die Werte übergeben. Gibt es dafür villeicht eine Komponente oder weiß jemand wie diese Datei aufgebaut ist und wie man sie verwendet. Ich packe die Datei mal als Anhang bei.

müsste doch eigentlich hiermit funktionieren...

mfg holle

Hallo Holle

Ich glaube diese Funktion

zusammenfalten · markieren

Delphi-Quellcode:

function TWinAmpControl.GetEQData: TEQData;
var
  wnd : HWND;
begin
  if IsRunning then
  begin
    wnd := GetHandle;
    Result.EQ_60 := SendMessage(wnd, WM_WA_IPC, 0, IPC_GETEQDATA);
    Result.EQ_170 := SendMessage(wnd, WM_WA_IPC, 1, IPC_GETEQDATA);
    Result.EQ_310 := SendMessage(wnd, WM_WA_IPC, 2, IPC_GETEQDATA);
    Result.EQ_600 := SendMessage(wnd, WM_WA_IPC, 3, IPC_GETEQDATA);
    Result.EQ_1k := SendMessage(wnd, WM_WA_IPC, 4, IPC_GETEQDATA);
    Result.EQ_3k := SendMessage(wnd, WM_WA_IPC, 5, IPC_GETEQDATA);
    Result.EQ_6k := SendMessage(wnd, WM_WA_IPC, 6, IPC_GETEQDATA);
    Result.EQ_12k := SendMessage(wnd, WM_WA_IPC, 7, IPC_GETEQDATA);
    Result.EQ_14k := SendMessage(wnd, WM_WA_IPC, 8, IPC_GETEQDATA);
    Result.EQ_16k := SendMessage(wnd, WM_WA_IPC, 9, IPC_GETEQDATA);
    Result.Preamp := SendMessage(wnd, WM_WA_IPC, 10, IPC_GETEQDATA);
    Result.Enabled := SendMessage(wnd, WM_WA_IPC, 11, IPC_GETEQDATA);
    Result.Autoload := SendMessage(wnd, WM_WA_IPC, 12, IPC_GETEQDATA);
  end;
end;

in der WinAmpControl.pas liest die Equalizerdaten nur dann aus wenn Winamp gestartet ist und das bringt mich ja nicht weiter. Ich möchte ja gerne die "Winamp.q1" Datei auslesen und die darin enthaltenen Werte meinem Equalizier übergeben.