Control bandeja

[REHome]

De esa manera lo había probado, no funciona, es como si no lo hubieran incluido. En C# fíjate que se incluye un evento para que ocurra lo que pido.

[Casimiro Notevi]

Empezado por REHome

De esa manera lo había probado, no funciona, es como si no lo hubieran incluido. En C# fíjate que se incluye un evento para que ocurra lo que pido.

Sí funciona, es que no te da tiempo a verlo.
Ponle una espera antes, algo así:

Código Delphi [-]
Label_Mensaje.Caption := 'Abriendo...';
Sleep(1000);
OpenCd(TRUE);
Label_Mensaje.Caption := 'Abierto.';

Aunque no sé para qué quieres ver "Abriendo", si se abre al momento.

PD: Y no repitas hilos para preguntar lo mismo.

[REHome]

Hola:

Intenté hacerlo con esta función pero no me funciona.

  procedure Abriendo;
  begin
      Label_Mensaje.Caption := 'Abriendo...';
  end;

Código completo:

unit Lector_bandeja;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls, MMSystem;

  // No olvidar añadir en uses MMSystem arriba.

  procedure Abriendo;
  begin
      Label_Mensaje.Caption := 'Abriendo...';
  end;

type
  TForm1 = class(TForm)
    RadioGroup_Bandeja: TRadioGroup;
    Button_Abrir: TButton;
    Button_Cerrar: TButton;
    Label_Mensaje: TLabel;
    procedure Button_AbrirClick(Sender: TObject);
    procedure Button_CerrarClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure OpenCd(AOpen:Boolean);
const
    DoPlay : array[Boolean] of string = ('Set cdaudio door closed wait',
         'Set cdaudio door open wait');
var
   MyError       : LongInt;
   MyErrorString : array[0..MAXERRORLENGTH - 1] of char;
begin
   MyError := mciSendString(pChar(DoPlay[AOpen]), nil, 0, 0);
   if MyError <> 0 then
   begin
     MciGetErrorString(MyError,MyErrorString,MAXERRORLENGTH - 1);
     Showmessage(MyErrorString);
     Exit;
   end;
end;
procedure TForm1.Button_AbrirClick(Sender: TObject);
begin
    //Abriendo;
    OpenCd(TRUE);
    Label_Mensaje.Caption := 'Abierto.';
end;

procedure TForm1.Button_CerrarClick(Sender: TObject);
begin
    Label_Mensaje.Caption := 'Cerrando...';
    OpenCd(FALSE);
    Label_Mensaje.Caption := 'Cerrado.';
end;
end.

¿Se me escapa algo?

Saludos.

Edito:
Te acabo de leer. El método o forma que hiciste, no funciona. Ejecuta pero no funciona.

    Label_Mensaje.Caption := 'Abriendo...';
    Sleep(1000);
    OpenCd(TRUE);
    Label_Mensaje.Caption := 'Abierto.';

Lo quiero hacer porque a parte que no se abre al momento, tarda un tiempo, lo justo para verse abrir la bandeja. Lo mismo para cerrar.

Saludos.

[Casimiro Notevi]

La verdad, no se entiende qué quieres hacer ni qué problema tienes. ¿Abre y cierra la bandeja?

[REHome]

La bandeja abre y cierra. Muestra los mensajes Abierto y Cerrado, pero no aparecen los mensajes Abriendo... y Cerrando... Solo eso.

[Casimiro Notevi]

Empezado por REHome

La bandeja abre y cierra. Muestra los mensajes Abierto y Cerrado, pero no aparecen los mensajes Abriendo... y Cerrando... Solo eso.

Claro, pero no es que no aparezca el mensaje, es que no te da tiempo a verlo, por eso lo de poner un "retraso" para que dé tiempo a leerlo.

Código Delphi [-]
Label_Mensaje.Caption := 'Abriendo...';
OpenCd(TRUE);
Sleep(1000);  // 1 segundo de espera
Label_Mensaje.Caption := 'Abierto.';

[[ElDioni]]

Código Delphi [-]
Label_Mensaje.Caption := 'Abriendo...';
Application.ProcessMessages;
OpenCd(TRUE); 
Sleep(1000);  // 1 segundo de espera 
Label_Mensaje.Caption := 'Abierto.';

[REHome]

Buenas:

@Casimiro Notevi No hace falta poner ningún Sleep para que me de tiempo, no aparece ese mensaje. El tiempo te lo da lo que dure en abrir la bandeja.

Por cierto, ya funciona con Application.ProcessMessages; que puso nuestro compañero @ElDioni.

Dejo el código Delphi completo por si alguien lo pueda necesitar.

unit Lector_bandeja;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls, MMSystem;

  // No olvidar añadir en uses MMSystem arriba.

type
  TForm1 = class(TForm)
    RadioGroup_Bandeja: TRadioGroup;
    Button_Abrir: TButton;
    Button_Cerrar: TButton;
    Label_Mensaje: TLabel;
    procedure Button_AbrirClick(Sender: TObject);
    procedure Button_CerrarClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure OpenCd(AOpen:Boolean);
const
    DoPlay : array[Boolean] of string = ('Set cdaudio door closed wait',
         'Set cdaudio door open wait');
var
   MyError       : LongInt;
   MyErrorString : array[0..MAXERRORLENGTH - 1] of char;
begin
   MyError := mciSendString(pChar(DoPlay[AOpen]), nil, 0, 0);
   if MyError <> 0 then
   begin
     MciGetErrorString(MyError,MyErrorString,MAXERRORLENGTH - 1);
     Showmessage(MyErrorString);
     Exit;
   end;
end;
procedure TForm1.Button_AbrirClick(Sender: TObject);
begin
    Label_Mensaje.Caption := 'Abriendo...';
    Application.ProcessMessages;
    OpenCd(TRUE);
    Label_Mensaje.Caption := 'Abierto.';
end;

procedure TForm1.Button_CerrarClick(Sender: TObject);
begin
    Label_Mensaje.Caption := 'Cerrando...';
    Application.ProcessMessages;
    OpenCd(FALSE);
    Label_Mensaje.Caption := 'Cerrado.';
end;

end.

Muchas gracias a tod@s.