Stanje vrata od CD-a

Stanje vrata od CD-a 14.04.2005. u 01:19 · pre 262 meseca #1

Zna li neko kako da proverim da li su vrata CD-a otvorena ili zatvorena i da li su otkljucana ili zakljucana? Znam kako da ih otvorim/zatvori i otkljucam/zakljucam preko DeviceIOControl, ali ne mogu da nadjem funkciju koja bi mi vratila status.

Re: Stanje vrata od CD-a 14.04.2005. u 01:39 · pre 262 meseca #2

http://www.koders.com/delphi/f...84EE52AD4A0D5E94A53789F91.aspx

Re: Stanje vrata od CD-a 14.04.2005. u 11:00 · pre 262 meseca #3

Na ovo sam i ja naleteo trazeci po net-u, ali ovo je namenjeno TurboPascal-u i oslanja se na MSCDEX pod DOS-om, tako da u Delphi-ju nema sanse da ga iskoristim

Ipak bi to moralo da se odradi preko API-ja.

Re: Stanje vrata od CD-a 14.04.2005. u 12:37 · pre 262 meseca #4

Ja sam dosta davno nešto radio preko MCI (Media Control Interface) sa CD-om.

Zaboravio sam već, pokušaj u Win32 Programmer's Help da pronađeš detalje. Evo ti i primer koda koji sam koristio:

Otvaranje tray-a:

Code:
mciSendString('Set cdaudio door open', nil, 0, 0);

Zatvaranje tray-a:

Code:
mciSendString('Set cdaudio door closed', nil, 0, 0);

Edit: Zaboravih - u uses dodaj MMSystem

Re: Stanje vrata od CD-a 14.04.2005. u 15:25 · pre 262 meseca #5

mciSendString je jedna jako lepo zamisljena stvari, ali je u radu sa CD-om prilicno ogranicena i svodi se samo na multimedialne funkcije, znaci mogu se otvoriti i zatvoriti vrata, pustiti audio CD, proveriti broj pesama isl. ali ovo sto sam pitao nazalost ne moze

Hvala u svakom slucaju na pokusaju da mi pomognes

Re: Stanje vrata od CD-a 14.04.2005. u 23:41 · pre 262 meseca #6

To Igore radi bez problema preko poziva Win32 na CD, ali mnogo ti je bolje ako pokusas to da odradis preko ASPI (Win9x) ili jos lakse preko SPTI (WinXP, 2003) Imas sve lepo opisano u Windows SDK Help-u. Inace to se radi tako sto proveravas da li je uredjaj On StandBy ili ne jer ti Result onda govori sta se desava sa uredjajem i onda znas sta ti treba.
A ako ne uspes vec ces me naci i kontaktirati

Potpis

Pozdrav, Peke
Speed IO ADSL+ Rezultat
SpeedTest.NET ADSL+ Rezultat

Re: Stanje vrata od CD-a 16.04.2005. u 00:43 · pre 262 meseca #7

Imam dva CD uredjaja, kako da odaberem koji da otvorim?

Re: Stanje vrata od CD-a 16.04.2005. u 13:02 · pre 262 meseca #8

Evo je funkcija koja ti odradjuje posao, samo joj prosledis slovo od drajva:

Code:

Const
  FILE_DEVICE_MASS_STORAGE = $2D;
  METHOD_BUFFERED          = 0;
  FILE_ANY_ACCESS          = 0;
  FILE_READ_ACCESS         = 1;
  FILE_WRITE_ACCESS        = 2;
  IOCTL_STORAGE_EJECT_MEDIA   = (FILE_DEVICE_MASS_STORAGE shl 16) OR
                                (FILE_READ_ACCESS shl 14)         OR
                                ($202 shl 2)                      OR
                                (METHOD_BUFFERED);
  IOCTL_STORAGE_LOAD_MEDIA    = (FILE_DEVICE_MASS_STORAGE shl 16) OR
                                (FILE_READ_ACCESS shl 14)         OR
                                ($203 shl 2)                      OR
                                (METHOD_BUFFERED);

...

Function EjectCD (Drive : Char) : Boolean;

Var
  CD : THandle;
  Ret: DWORD;

begin
  CD := CreateFile (PChar('\\.\' + Drive + ':'), GENERIC_READ, 0, nil, OPEN_EXISTING, 0, 0);
  If CD <> INVALID_HANDLE_VALUE Then
    Begin
      Result := DeviceIoControl(CD, IOCTL_STORAGE_EJECT_MEDIA, nil, 0, nil, 0, Ret, nil);
      CloseHandle(cd);
    End
  Else
    Result := False;
End;

Ako treba da zatvoris vrata IOCTL_STORAGE_EJECT_MEDIA zameni sa IOCTL_STORAGE_LOAD_MEDIA

Forum kao aplikacija na telefonu

Srodne teme