Array , Löschen von selben verhindern.

[EWeiss]

Wieder mein leidiges Array und pointer problem.

Delphi-Quellcode:

Type  
  PWinampVisInfo = ^TWinampVisInfo;
  TWinampVisInfo = Packed record
    Title:          PChar;
    FileName:       PChar;
    PlaylistLength: integer;
    PlaylistPos:    integer;
    Pos, Len:       QWORD;
    VisHeader:      PWinampVisHeader;
    VisModule:      PWinampVisModule;
    Init, Init2, Rendering: boolean;
    DllInstance:    THandle;
    WinHandle:      THandle;
    PluginId:       DWORD;
    ParentHandle:   DWORD;
    Vis_Atom_Emu:   ATOM;
    Vis_Window_Emu: HWND;
    VisInfoCount:   Integer;
  end;

Var
  VisInfo: array [1..5] of PWinampVisInfo;

Beim erstellen des neuen Threads

Delphi-Quellcode:

    ThreadHandle := BeginThread(nil, 0, @WinampVisWin, VisInfo[VisWinCounter], 0, ThreadId);

Bleibt die Anwendung in der Function

Delphi-Quellcode:

function WinampVisWin(VisInfo : array of PWinampVisInfo): HWND;

beim ersten begin stehen und gibt ein AV aus.
Was ist in der Functionszeile verkehrt?

gruß

[EWeiss]

Hat sich erst mal erledigt!

Delphi-Quellcode:

function WinampVisWin: HWND;

gruß

[EWeiss]

PUSH.. :duck:

Array wird überschrieben bzw.. gelöscht.

Delphi-Quellcode:

  try
    GetMem(VisInfo[VisCounter], SizeOf(TWinampVisInfo));
    ZeroMemory(VisInfo[VisCounter], SizeOf(TWinampVisInfo));
  except
    BassFuncs^.SetError(BASS_ERROR_MEM);
    Exit;
  end;

Solange wie nur ein Plugin gestartet wird läuft alles rund
wenn zwei laufen bekomme ich beim beenden immer einen AV.

Habe es mit ReAllocMem versucht aber irgendwie wird das 1 Plugin mit dem zweiten überschrieben
Bedeutet habe nun zwei index einträge mit den gleichen Plugineigenschaften.

Hmmm ... Ka warum.

gruß

[Sunlight7]

Pushen ist erst nach 24 stunden erlaubt :warn: :zwinker:

Edit: Ich meine da einen Fehler mit den PChar Pointern zu sehen, aber da ich mir nicht sicher bin,
bzw. die Lösung nicht weiß, sag ich lieber nix, es könnte nicht stimmten...

[EWeiss]

Zitat:

Ich meine da einen Fehler mit den PChar Pointern zu sehen

Hmmm im grunde läuft alles so weit was die pointer angeht ;)
Denke das problem liegt daran das ich das array nicht redimensioniere (ReAllocMem)

Weis nicht wo oder wie ich da am besten ansetzen soll.
Meine Versuche gingen komplett daneben.

Alles funktioniert solange kein zweites plugin zur gleichen zeit aufgerufen wurde.

gruß

[Sunlight7]

Ich sagte ja, ich bin mir nicht sicher :wink:
Und es stimmt nicht :pale:

Ich hab das Problem nachgestellt, aber mir ist es nicht gelungen, das das ganze Array gelöscht wurde.

[EWeiss]

Zitat:

Zitat von Sunlight7

Ich sagte ja, ich bin mir nicht sicher :wink:
Und es stimmt nicht :pale:

Ich hab das Problem nachgestellt, aber mir ist es nicht gelungen, das das ganze Array gelöscht wurde.

Nein es löscht nicht!
Es wird überschrieben ..

Quasi befindet sich dann das zweite Plugin in beiden Arrays..
Deshalb bekomme ich dann beim beenden den AV.

Schau die pics der reihe nach dann weißt du was ich meine.

gruß

[Sunlight7]

Äh ja, das meinte ich eigentlich mit "gelöscht".

Bist Du Dir sicher, das der VisCounter richtig gesteuert wird bzw. das es an der Programmstelle hakt?
Sonst fällt mir leider nix mehr dazu ein :gruebel:

[EWeiss]

Zitat:

Zitat von Sunlight7

Äh ja, das meinte ich eigentlich mit "gelöscht".

Bist Du Dir sicher, das der VisCounter richtig gesteuert wird bzw. das es an der Programmstelle hakt?
Sonst fällt mir leider nix mehr dazu ein :gruebel:

Jo werden richtig übergeben.
Na ok Danke.

Dann weiss ich auch nicht weiter :wall:

gruß

[SirThornberry]

Das erste was mir auffiel ist das du ein dynamsiches Array übergibst was aber delphispezifisch ist. Ich kann mir nicht vorstellen das Winamp ein Delphiarray erwartet.

[EWeiss]

Zitat:

Zitat von SirThornberry

Das erste was mir auffiel ist das du ein dynamsiches Array übergibst was aber delphispezifisch ist. Ich kann mir nicht vorstellen das Winamp ein Delphiarray erwartet.

Das Array wird nicht an Winamp übergeben.
Lediglich der Header und das Modul welche sich in PWinampVisInfo befindet
werden aus dem Plugin geladen

Delphi-Quellcode:

    
VisHeader:      PWinampVisHeader; 
VisModule:      PWinampVisModule;

aber auch diese haben nichts mit Winamp zu tun.

Das Array selbst ist Privat.

Gruß

[marabu]

Guten Morgen Emil,

eines ist sicher: der Fehler steckt nicht in den vier Zeilen Code, die du gezeigt hast. Mit denen forderst du nur Speicher an und initialisierst ihn. Interessanter ist dein Code, mit dem du nach dem Löschen eines Eintrags die nachfolgenden Einträge verschiebst. Eventuell wird dabei der Counter nicht rechtzeitig dekrementiert - oder garnicht?.

Freundliche Grüße
von Domstadt zu Domstadt

[DP-Maintenance]

Dieses Thema wurde von "alcaeus" von "Programmieren allgemein" nach "Sonstige Fragen zu Delphi" verschoben.

[EWeiss]

Zitat:

Zitat von marabu

Guten Morgen Emil,

eines ist sicher: der Fehler steckt nicht in den vier Zeilen Code, die du gezeigt hast. Mit denen forderst du nur Speicher an und initialisierst ihn.

Freundliche Grüße
von Domstadt zu Domstadt

Hi marabu

Ja .. das ist mein problem das redimensionieren (verschieben) der Einträge.
Habe es mit ReAllocMem versucht und keinen Erfolg gehabt.

Delphi-Quellcode:

function BASS_WINAMPVIS_CreateVis(f: PChar; module, flags: DWORD; AppHandle: DWORD; AppHDC: boolean; VisCounter: integer): HVIS; stdcall;
var
  mbi:     MEMORY_BASIC_INFORMATION;
  winampVisGetHeader: function: PWinampVisHeader; cdecl;

begin

  Result := 0;
  // Winamp Emulator Fenster HWND
  VisDllHandle := 0;

  // Wenn True Plugin in der Applikation
  // oder eigenen Skin visualisieren
  AppParenthDC := AppHDC;

  // Voller Pfad des Plugin
  FileName := StrPas(f);

  // HWND von der ausführenden Application
  AppParentHandle := AppHandle;

  if (not FileExists(PChar(FileName))) then
  begin
    BassFuncs^.SetError(BASS_ERROR_FILEOPEN);
    Exit;
  end;

  if VisCounter = 0 then
   VisWinCounter := VisCounter;

  try
    GetMem(VisInfo[VisCounter], SizeOf(TWinampVisInfo));
    ZeroMemory(VisInfo[VisCounter], SizeOf(TWinampVisInfo));
  except
    BassFuncs^.SetError(BASS_ERROR_MEM);
    Exit;
  end;

  try
    SetCurrentDirectory(PChar(FileName));
    VisDllHandle := LoadLibrary(PChar(FileName));

  except
    if (VisDllHandle <> 0) then
      FreeLibrary(VisDllHandle);
    FreeMem(VisInfo[VisCounter]);

    BassFuncs^.SetError(BASS_ERROR_START);
    Exit;
  end;

  if (VisDllHandle = 0) then
  begin
    FreeMem(VisInfo[VisCounter]);

    BassFuncs^.SetError(BASS_ERROR_START);
    Exit;
  end;

  @winampVisGetHeader := GetProcAddress(VisDllHandle, 'winampVisGetHeader');
  if (@winampVisGetHeader = nil) then
  begin
    FreeLibrary(VisDllHandle);
    FreeMem(VisInfo[VisCounter]);

    BassFuncs^.SetError(BASS_ERROR_HANDLE);
    Exit;
  end;

  VisInfo[VisCounter]^.VisHeader := winampVisGetHeader;
  if (VisInfo[VisCounter]^.VisHeader = nil) then
  begin
    FreeLibrary(VisDllHandle);
    FreeMem(VisInfo[VisCounter]);

    BassFuncs^.SetError(BASS_ERROR_START);
    Exit;
  end;

  VisInfo[VisCounter]^.VisModule := VisInfo[VisCounter]^.VisHeader^.getModule(module);
  if (VisInfo[VisCounter]^.VisModule = nil) then
  begin
    FreeLibrary(VisDllHandle);
    FreeMem(VisInfo[VisCounter]);

    BassFuncs^.SetError(BASS_ERROR_START);
    Exit;
  end;

  // Überprüfe ob eine neue Instanz erstellt werden soll
  VisInfo[VisCounter]^.Init := ((flags and BASS_VIS_NOINIT) <> BASS_VIS_NOINIT);
  VisInfo[VisCounter]^.DllInstance := VisDllHandle;

  if (VisInfo[VisCounter]^.Init) then

  begin
    VisWinCounter := VisCounter;
    VisInfo[VisWinCounter]^.VisInfoCount := VisWinCounter;

    // Neuen Thread erstellen
    ThreadHandle := BeginThread(nil, 0, @WinampVisWin, VisInfo[VisWinCounter], 0, ThreadId);

    // DLL aus Speicher entfernen wenn ThreadHandle = 0
    if (ThreadHandle = 0) then
    begin
      FreeLibrary(VisDllHandle);
      FreeMem(VisInfo[VisWinCounter]);

      BassFuncs^.SetError(BASS_ERROR_INIT);
      Exit;
    end;
    // Thread schließen
    CloseHandle(ThreadHandle);

  end;


  VirtualQuery(VisInfo[VisCounter]^.VisHeader.description, mbi, SizeOf(MEMORY_BASIC_INFORMATION));
  VisInfo[VisCounter]^.PluginId := DWORD(mbi.AllocationBase);

  W_AppendHandle(DWORD(VisInfo[VisCounter]));
  BassFuncs^.SetError(BASS_OK);


  Result := DWORD(VisInfo[VisCounter]);

end;

Wie schon gesagt es funktioniert alles (und ist keine übersetzung) von einer anderen Quelle

Hier

Delphi-Quellcode:

  try
    GetMem(VisInfo[VisCounter], SizeOf(TWinampVisInfo));
    ZeroMemory(VisInfo[VisCounter], SizeOf(TWinampVisInfo));
  except
    BassFuncs^.SetError(BASS_ERROR_MEM);
    Exit;
  end;

müßte der speicher verschoben werden wenn VisCounter > 1 daran bin ich gescheitert.

EDIT:

Zitat:

Interessanter ist dein Code, mit dem du nach dem Löschen eines Eintrags die nachfolgenden Einträge verschiebst. Eventuell wird dabei der Counter nicht rechtzeitig dekrementiert - oder garnicht?.

Denke das ist in Ordnung
Der Counter bzw.. das plugin was entladen weden soll wird aus der
Hauptanwendung übergeben.

Delphi-Quellcode:

function BASS_WINAMPVIS_Free(handle: HVIS; VisCounter: Integer): boolean; stdcall;


begin
  Result := False;
  VisWinCounter := VisCounter;

  if (not W_ValidHandle(handle)) then
  begin
    BassFuncs^.SetError(BASS_ERROR_HANDLE);
    Exit;
  end;

  VisInfo[VisCounter] := PWinampVisInfo(handle);

  if (VisInfo[VisCounter]^.Init) then
  begin
    PostMessage(VisInfo[VisCounter]^.WinHandle, WM_QUIT, 0, 0);
    FreeLibrary(VisDllHandle);
  end
  else
  begin
    W_RemoveHandle(DWORD(VisInfo[VisCounter]));

    FreeLibrary(VisInfo[VisCounter]^.DllInstance);
    FreeMem(VisInfo[VisCounter]);
  end;
  BassFuncs^.SetError(BASS_OK);
  Result := True;
end;

gruß

[marabu]

Hallo Emil,

Delphi-Quellcode:

// Voller Pfad des Plugin
FileName := StrPas(f);

das muss nicht sein. In der Regel weiß Delphi zwischen PChar und String automatisch zu konvertieren.

Delphi-Quellcode:

if not FileExists(PChar(FileName)) then

f oder FileName genügt - kein casting nötig.

Delphi-Quellcode:

if VisCounter = 0 then
 VisWinCounter := VisCounter;

das ist nicht verständlich - auch weil du so viele globale Variablen benutzt.

Delphi-Quellcode:

  try
    GetMem(VisInfo[VisCounter], SizeOf(TWinampVisInfo));
    ZeroMemory(VisInfo[VisCounter], SizeOf(TWinampVisInfo));
  except
    BassFuncs^.SetError(BASS_ERROR_MEM);
    Exit;
  end;

Wenn VisInfo als statisches Array deklariert ist (siehe Beitrag #1), dann greift der Code hier bei VisCounter = 0 ins Leere.
Kannst du nicht ein dynamisches Array verwenden?

Delphi-Quellcode:

type
  TVisInfo = array of PWinampVisInfo;
var
  VisInfo: TVisInfo;

function AddVisInfo(var vi: TVisInfo): TVisInfo;
begin
  index := Length(vi);
  SetLength(vi, Succ(index));
  New(vi[index]);  // Freigabe mit Dispose(vi[index]) - Borland empfiehlt es
  ZeroMemory(vi[index], SizeOf(vi[index]^));
end;

procedure DeleteVisInfo(var vi: TVisInfo; p: PWinampVisInfo);
var
  index, iFound: Integer;
begin
  // locate pointer
  iFound := -1; // not found
  for index := Low(vi) to Length(vi) do
    if (index < Length(vi)) and (vi[index] = p) then
    begin
      iFound := index;
      Break;
    end;

  if iFound <> -1 then
  // fill the gap
  begin
    Dispose(vi[index]);
    if index <> High(vi) then
      vi[index] := vi[High(vi)];
    SetLength(vi, High(vi));
  end;
end;

An die Stelle der globalen Variable VisCounter könnte dann Length(VisInfo) treten. Wenn du ein statisches Array benutzen musst, dann müsstest du aber ähnlich vorgehen.

Delphi-Quellcode:

// ...
    // SetCurrentDirectory(PChar(FileName));
    // vielleicht besser so:
    SetCurrentDirectory(ExtractFilePath(f));

Jetzt muss ich erstmal eine Pause machen - deine Probleme sind immer so umfangreich...

Freundliche Grüße

[EWeiss]

Zitat:

Delphi-Quellcode:

if VisCounter = 0 then 
VisWinCounter := VisCounter;

das ist nicht verständlich - auch weil du so viele globale Variablen benutzt.

Schwierig zu erklären ich versuchs aber trotzdem mal.

VisCounter = 0 ist reserviert für Plugins welche nicht initialisiert(gestartet) wurden.
VisWinCounter ist der zähler welcher übergreifend im ganzen Code zur identifizierung des in
der PluginListe angeklickten Plugin gilt.
Wurde das Plugin nicht gestartet dann ist VisWinCounter immer null.
Muss also wie oben den wert 0 bekommen.
Dadurch kann ich die configuration der Plugins starten editieren welche selbst nicht initialisiert(gestartet) wurden.

Code:

tmpvis = BASS_WINAMPVIS_CreateVis(alist(IntI), module, BASS_VIS_NOINIT, 0, False, "0")

Hier wird aus der Hauptanwendung tmpvis ermittelt.
BASS_VIS_NOINIT bedeutet das das Plugin nicht gestartet wird deshalb wird VisCounter mit 0 übergeben.

Nun kann ich alle namen der module und des Plugins selbst ermitteln ohne das ein Plugin gestartet wurde.
VisCounter = 0 geht also nie ins leere ..
Wenn 0 dann kann ich mit allen Plugins arbeiten .. config usw.. ohne das die gestarteten
Plugins davon betroffen oder beeinflusst werden.

VisWinCounter wird zweimal übergeben einmal 0 wenn kein Plugin gestartet wird
und hier

Delphi-Quellcode:

  if (VisInfo[VisCounter]^.Init) then

  begin
    VisWinCounter := VisCounter;
    VisInfo[VisWinCounter]^.VisInfoCount := VisWinCounter;

wenn eins gestartet wurde. erst dann wird es hochgezählt.

Zitat:

Jetzt muss ich erstmal eine Pause machen - deine Probleme sind immer so umfangreich...

In diesen Fall bis auf die kleinen konvertierungsfehler eigentlich nicht.
Bin halt übervorsichtig :)

Also beim ersten start 1 Plugin läuft gibt es keinen AV keine anderen Fehler!
Beim zweiten Plugin muss ich nur dafür sorgen das der erste eintrag Array(1) nicht von Array(2) überschrieben wird.

Andere probs habe ich nicht.

gruß

[EWeiss]

Niemand eine Ahnung?

Es muss doch möglich sein ähnlich wie dieser Code (funktioniert nicht ganz)

Delphi-Quellcode:

  if VisCounter = 0 then
   begin
   VisWinCounter := VisCounter;

  try
    GetMem(VisInfo[VisCounter], SizeOf(TWinampVisInfo));
    ZeroMemory(VisInfo[VisCounter], SizeOf(TWinampVisInfo));
  except
    BassFuncs^.SetError(BASS_ERROR_MEM);
    Exit;
  end;
   end else
   begin
   ReAllocMem(VisInfo[VisCounter], VisCounter * SizeOf(TWinampVisInfo));
   end;

im Array(2) die Daten vom 2 plugin zu integrieren.
ohne das Array(1) Daten vom 1 Plugin überschrieben oder gelöscht werden.

gruß

[alzaimar]

Das Array ist ein Array of Pxxxxx, Und Du initialisierst jedes Element, in dem Du SizeOf(Txxxxx) Bytes überschreibst.....

Jedes Element des Arrays enthält doch aber nur SizeOF (Pxxxxx) Bytes, oder?

[EWeiss]

Zitat:

Zitat von alzaimar

Das Array ist ein Array of Pxxxxx, Und Du initialisierst jedes Element, in dem Du SizeOf(Txxxxx) Bytes überschreibst.....

Jedes Element des Arrays enthält doch aber nur SizeOF (Pxxxxx) Bytes, oder?

Jedes Element des Arrays enthält alle Daten(record) von TWinampVisInfo oder was meinst du ?

zum ersten ja! Nochmal die Type welche als Array ausgelegt ist.

Delphi-Quellcode:

Type  
  PWinampVisInfo = ^TWinampVisInfo; 
  TWinampVisInfo = Packed record 
    Title:          PChar; 
    FileName:       PChar; 
    PlaylistLength: integer; 
    PlaylistPos:    integer; 
    Pos, Len:       QWORD; 
    VisHeader:      PWinampVisHeader; 
    VisModule:      PWinampVisModule; 
    Init, Init2, Rendering: boolean; 
    DllInstance:    THandle; 
    WinHandle:      THandle; 
    PluginId:       DWORD; 
    ParentHandle:   DWORD; 
    Vis_Atom_Emu:   ATOM; 
    Vis_Window_Emu: HWND; 
    VisInfoCount:   Integer; 
  end; 

Var 
  VisInfo: array [1..5] of PWinampVisInfo;

so wie in meinen letzten Beispiel müßte es eigentlich gehen was noch fehlt wäre
Das Array(1) zu kopieren wenn ein neues Plugin gestartet wird
Das Array(2) mit den Daten vom Plugin 2 zu füllen
und die kopierten Daten von Array(1) zurück zuschreiben wenn dieses überschrieben wird.(das wird es ja... mein Problem!)

Weiss sonst nicht wie ich das erklären soll.

gruß

[Sunlight7]

Zitat:

Zitat von alzaimar

Jedes Element des Arrays enthält doch aber nur SizeOF (Pxxxxx) Bytes, oder?

Das ergibt doch die Größe der Speicheradresse der Variable, anstatt der Strukturgröße :gruebel:

Edit: Also wenn's echt nur ums kopieren geht: CopyMemory
EDit²: Die fehlenden roten Kasten können einem ganz schön durcheinander bringen :roteyes:

[EWeiss]

Zitat:

Edit: Also wenn's echt nur ums kopieren geht: CopyMemory

Hmm CopyMemory hilft nicht wirklich weiter.
Es können ja bis zu 5 Plugins gleichzeitig gestartet werden
Wie soll das gehen mit dem hin und her kopieren ?

Zitat:

Die fehlenden roten Kasten können einem ganz schön durcheinander bringen

KA was du damit meinst ???

gruß

[Sunlight7]

Zitat:

Zitat von EWeiss

Hmm CopyMemory hilft nicht wirklich weiter.
Es können ja bis zu 5 Plugins gleichzeitig gestartet werden
Wie soll das gehen mit dem hin und her kopieren ?

CopyMemory(@PlugIn[2], @PlugIn[1]); oder o. ä.

Zitat:

Zitat von EWeiss

Die fehlenden roten Kasten können einem ganz schön durcheinander bringen
KA was du damit meinst ???

Wenn Du eine Antwort schreibst und diese abschickst kommt normalerweise eine Meldung, wenn noch wer geantwortet bzw. einen Beitrag editiert hat.
Diese Beiträge sind dann unten rot dargestellt.
Aus irgendeinem Grund funken die bei mir zu 90% nicht (vielleicht Modem zu langsam), so kommt man leicht durcheinander.

[EWeiss]

Hmm Ich verstehe den Kram echt nicht!

Habe es jetzt ein paarmal gestartet einmal gehts dann wieder nicht.
Und das ohne das etwas am Source verändert wurde.

Scheint irgendein Timing problem zu sein oder sonstwas ..

Delphi-Quellcode:

  if (VisInfo[VisCounter]^.Init) then

  begin
    VisWinCounter := VisCounter;
    VisInfo[VisWinCounter]^.VisInfoCount := VisWinCounter;

     if assigned(VisInfo[VisCounter]) then
      begin
       ReAllocMem(VisInfo[VisCounter], VisCounter * SizeOf(TWinampVisInfo));
      end;

    // Neuen Thread erstellen
    ThreadHandle := BeginThread(nil, 0, @WinampVisWin, VisInfo[VisWinCounter], 0, ThreadId);

Zitat:

CopyMemory(@PlugIn[2], @PlugIn[1]); oder o. ä.

Danke Sonnenlicht Nummer 7. ;)
Aber das löst mein Problem nicht wie ich CopyMemory benutzen muss ist mir bekannt :)

gruß

[Sunlight7]

Hast Du lokale Variablen?
Bzw. hat der Thread genug Zeit zum Starten?

Das wäre eine Erklärung für das Verhalten. (Muss aber nicht sein :zwinker: )



Ich verstehe zwar nicht warum, aber es war ja nur ne Idee mit CopyMemory...

[EWeiss]

Zitat:

hat der Thread genug Zeit zum Starten?

Ja das erste Plugin läuft ja bereits wenn das 2 gestartet wird.
Und der zweite Thread (2 Plugin) wird erst dann gestartet wenn der Speicher neu Dimensioniert wurde
und das Array(2) mit neuen Daten gefüllt ist, die sind einmal richtig dann wieder nicht.

Zitat:

Das wäre eine Erklärung für das Verhalten. (Muss aber nicht sein :zwinker: )

Ja ich bin mittlerweile auch nur noch am Raten da ich den Fehler einfach nicht lokalisieren(nachvollziehen) kann
da er nur manchmal auftritt :?

Zitat:

Ich verstehe zwar nicht warum, aber es war ja nur ne Idee mit CopyMemory...

Weil es mit oder ohne das gleiche Resultat ist.

Mal läuft es mal nicht. :wall:

gruß

[Sunlight7]

(CopyMemory) Jetzt hab' ich's kapiert :mrgreen:

Zitat:

Zitat von EWeiss

Delphi-Quellcode:

// Neuen Thread erstellen
ThreadHandle := BeginThread(nil, 0, @WinampVisWin, VisInfo[VisWinCounter], 0, ThreadId);

Ich würde mal test weise nach dieser Zeile ein Sleep(5000); schreiben, wenn es ein Timimg Problem mit dem Thread ist, sollte dann der Fehler nicht mehr sporadisch auftreten, andernfalls weißt Du, das der Fehler woanders sein muß.

[EWeiss]

Zitat:

Ich würde mal test weise nach dieser Zeile ein Sleep(5000); schreiben, wenn es ein Timimg Problem mit dem Thread ist, sollte dann der Fehler nicht mehr sporadisch auftreten, andernfalls weißt Du, das der Fehler woanders sein muß.

Nein das geht gar nicht.
Damit würde ich verhindern das die class Winamp v1.x rechtzeitig erstellt wird.
Dann geht gar nichts mehr.

gruß