Falsche Reihenfolge der Laufwerke!

[Garfield]

Zitat von urbanbruhin:

also ist der fehler bei dem programm von deinem letztem anhang auch drin?

Ja. Es ist aber nur ein Darstellungsfehler. Es muss der Befehl:

Delphi-Quellcode:

Text        := IntToStr(TargetID) + ':'
             + IntToStr(AdapterID) + ':'
             + IntToStr(LunID) + ' - '
             + CDRomName;

in

Delphi-Quellcode:

Text        := IntToStr(AdapterID) + ':'
             + IntToStr(TargetID) + ':'
             + IntToStr(LunID) + ' - '
             + CDRomName;

geändert werden und schon passt die Anzeige.

Zitat von urbanbruhin:

kann es auch sein dass es fehler gibt wenn noch zusätzlich ein virtuelles laufwerk verwendet wird? sollte ja nicht oder?

Das könnte sein. Ich habe in meinem Notebook einen DVD-Brenner an 1:0:0. Dazu habe ich die Daemon Tools installiert. Zum Testen habe ich die Anzahl der virtuellen Laufwerke von eins auf vier (Maximum) erhöht. TCDRip findet nur das erste virtuelle Laufwerk. TCDDB findet das erste (2:0:0), dritte (2:2:0) und vierte (2:3:0) virtuelle Laufwerk. Wenn ich meine Source aus http://www.delphipraxis.net/internal...ct.php?t=68064 verwende, werden alle vier virtuellen Laufwerke gefunden. Anschließend findet die TCDDB aus dem anderen Programm auch alle Laufwerke.

In meinem anderen Projekt wurden Inkompatibilitäten in der SptiCD.pas wie folgt gefunden:

Delphi-Quellcode:

Zeile  90 -   Text := @DummyStr[0];
Zeile  95 -  StrPCopy( @buf[0], Format( '\\.\%s:', [
Zeile 191 -   StrPCopy( @buf[0], Format( '\\.\%s:', [
Zeile 362 -   StrPCopy( @buf2[0], Format( '\\.\%s:', [CdRoms.CdRom[i].DriveLetter] ) );
Zeile 408 -  DriveString := @inqData[0];

Vielleicht helfen diese kleinen Korrekturen bereits.

Die Änderung der Anzahl der virtuellen Laufwerke mit Daemon Tools bemerkt TCDRip erst nach dem Neustart. Die TCDDB bemerkt es sofort.