CD Laufwerköffnen.

[Seppel]

Hab ma ein bisschen rum gesurft und bin bei http://www.dsdt.inf daraufgestoßen, wie man ein Laufwekr(CD/DVD) öffnen kann.
Das wollte ich auch machen, alles geht soweil nur ich will, dass man in einem editfeld seinen Laufwerkbuchstaben angibt, das geht leider net.
Combobox könnte man auch machen, aber das geht auch net.

Hier die Procedure:

Delphi-Quellcode:

procedure OpenCDDrive(const ADriveChar: Char; Open: Boolean);
begin
  if mciSendString(PChar('open '+ADriveChar+': type cdaudio alias cdlw'),
                   Nil,
                   0,
                   0) = 0 then
  begin
    if Open then
      mciSendString('set cdlw door open wait', Nil, 0, 0)
    else
      mciSendString('set cdlw door closed wait', Nil, 0, 0);
    mciSendString('close cdlw', Nil, 0, 0);
  end;
end;

Also dort kann man einstellen, welches Laufwerk sich öffnen soll, aber nicht, dass es den Laufwerkbuchstaben aus einem Editfeld bezieghen soll:

Delphi-Quellcode:

//Das öffnet das Laufwerk G.
OpenCDDrive('G', true);
OpenCDDrive(edit1.Text, true); //Das geht leider nicht, wie muss ich den Code, bzw. die Procedure ändern damit es geht?

[DeddyH]

OpenCDDrive erwartet als ersten Parameter ein Zeichen, Du willst aber einen String übergeben. Versuch es mal mit etwas in der Art

Delphi-Quellcode:

if Length(Edit1.Text) > 0 then
  OpenCDDrive(Edit1.Text[1],true);

[Seppel]

ok es geht kannst du mir mal erklären, was der Code denn genau macht, also ich weiß er übernimmt, die Eingabe im Editfeld und übergibt sie der Procedure.
Aber das Edit1.Text[1] steht das dafür, dass nur ein Buchstabe übergeben wird?
Den if Befehl raffe ich schon ,der geht halt an wenn mind. 1 Zeichen darin steht.

[DeddyH]

Im Kartext heißt das: "Wenn im Edit etwas drinsteht, öffne das CD-Laufwerk mit dem Laufwerksbuchstaben, der dem ersten Zeichen des Edits entspricht".
Wenn Du also ins Edit "Hühnersuppe" reinschreibst, wird Laufwerk H geöffnet (sofern es sich um ein CD/DVD-Laufwerk handelt).

[Seppel]

ok danke.

[Mokuba01]

bei mir steht immer:

Zitat:

Zitat von Delphi 4

[Fehler] Unit1.pas(26): Undefinierter Bezeichner: 'mciSendString'

[calculon]

Dann kuck' hier ganz unten nochmal ganz genau hin.

Gruß

Calculon
--

[RavenIV]

Da, wo Du die Funktion OpenCDDrive herhast, steht die Lödung zu "Undefinierter Bezeichner".
Wenn man schon klaut, dann sollte man auch richtig klauen...

/edit:
Huch, der Thread ist ja schon etwas älter.
Naja, egal. Hauptsache meinen Senf dazu gegeben...

[DeddyH]

Ich glaube, das hat sich mittlerweile erledigt ;)

[RavenIV]

Zitat:

Zitat von DeddyH

Ich glaube, das hat sich mittlerweile erledigt ;)

/offtopic
Naja, das nächste mal werde ich vorher schauen, von welchem Datum der Thread ist...