Vb & Cdrom

[Dvs]

mipos exei kaneis kapio kodika pou na anoigei to tray enos cdrom (thelo na dialago ego to cdrom , dialdi ama exei 2 cdrom na min vgazei to proto alla kapio sigekrimeno)<P>exo ton kodika pou kanei anoigei to tray alla den mporo na kathoriso pio drive - ama xerete tha itan megali voithia<P>thx

[NickTheGreek]

cd rom tray?Tin touto?<BR>den eipes to dokimases to programma pou sou steila?

[Dvs]

tray den eiani to portaki?<P>to programmataki to exo ftiaxei - tha ginei release sintoma!<P>kamia idea?

[NickTheGreek]

Den exo 2o CD kai den ksero an tha sou doulepsei<P><BR>Private Sub Form_Load()<BR>Dim ret As Long<BR>Dim errorstr As String * 200<P>ret=mciSendString ("open d:\ type cdaudio alias cd wait shareable", 0, 0, Me.hWnd)<BR>If ret <> 0 Then<BR> mciGetErrorString ret, errorstr, Len(errorstr)<BR> MsgBox errorstr<BR> End<BR>End If<P>End Sub<P>Edo isos xreiazontai epipleon error handlers....<BR>Anti gia d:\ ennoeitai oti tha baleis to gramma tou cd pou thes.Meta to d:\ yparxei keno.<P><BR>Private Sub cmdopen_Click()<BR>Dim ret As Long<BR>Dim errorstr As String * 200<P>ret = mciSendString("set cd door open", 0, 0, Me.hWnd)<BR>If ret <> 0 Then<BR> mciGetErrorString ret, errorstr, Len(errorstr)<BR> MsgBox errorstr<BR>End If<BR>End Sub<P>Private Sub cmdclose_Click()<BR>Dim ret As Long<BR>Dim errorstr As String * 200<P>ret = mciSendString("set cd door closed", 0, 0, Me.hWnd)<BR>If ret <> 0 Then<BR> mciGetErrorString ret, errorstr, Len(errorstr)<BR> MsgBox errorstr<BR>End If<BR>End Sub<P><BR>Private Sub Form_Unload(Cancel As Integer)<BR>mciSendString "close all", 0, 0, Me.hWnd<BR>End Sub<P>Se ena module:<P>Declare Function mciGetErrorString Lib "winmm.dll" Alias "mciGetErrorStringA" (ByVal dwError As Long, ByVal lpstrBuffer As String, ByVal uLength As Long) As Long<BR>Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long<P>Auta.Gia to programma gia LAN chat leo.To tropopoiises?<p>[ 28-11-2001: Message edited by: NickTheGreek ]

[Dvs]

1. tha dokimaso ton kodika simera- thx<BR>2. leo gia allo programma :> - <BR>gia to diko sou:<BR>fortonei grigora (para ta 3 mb mnimi pou eipes oti thelei) alla ta grafika se kourazoun - to savato tha to valo na doulepsei & tha sou steilo mail (ekana format kai ola einai baxalo!)

[Dvs]

den douleuei o kodikas! mou xtipaei error gia "Me.hWnd" - kamia alli lisi ?<P><BR>mexri tora xrisimopoio to exis:<P>'Declare for Eject/Close Feature<BR>Private Declare Function mciSendString Lib "winmm.dll" _<BR> Alias "mciSendStringA" _<BR> (ByVal lpstrCommand As String, _<BR> ByVal lpstrReturnString As String, _<BR> ByVal uReturnLength As Long, _<BR> ByVal hwndCallback As Long) As Long<P>kai:<BR> Call mciSendString("Set " & MCI_CDADUIO_DOOR_OPEN & " Wait", 0&, 0&, 0&)<P>alla panta kanei extract to proto cdrom (me alfavitiki seira)- pos mporo na to kano na kanei kapio allo cdrom ? [ama allaxo to Public MCI_CDADUIO_DOOR_OPEN den douleuei i kani pali mono to proto cdrom extaract!)<p>[ 29-11-2001: Message edited by: Dvs ]

[NickTheGreek]

Periergo emena douleuei mia xara.<BR>Anti gia Me.hwnd bale 0&.<P><BR>Pantos gia na xrisimopoiiseis thn<P>mciSendString("Set " & MCI_CDADUIO_DOOR_OPEN & " Wait", 0&, 0&, 0&)<P>tha prepei prota na "anoikseis" to cd-drive me thn<P>mciSendString "open cdaudio alias cd wait shareable", 0, 0, 0&<P>h opoia kai "anoigei" to proto cd tou pc sou. <BR>An tora anti auths xrisimopoiiseis thn <P>mciSendString "open x:\ type cdaudio alias cd wait shareable", 0, 0, 0&<P>,opou x to cddrive pou thes,tha anoiksei to sygkekrimeno cd-drive.<BR>Kala tha einai episis, anti gia call na kaleis thn entoli meso mias metablitis gia na blepeis an h diadikasia oloklirothike epitixos.px ret=mcisendstring....<P>Tis perissoteres fores otan h diadikasia einai epitixis to ret einai 0.

[Dvs]

to 0 einai epitixis diadikasia (apo to help file) - tha to xanadokimaso kai tha xanakano post - thx <P>Asxeto: mipos exeis kamia fotografia apo mixanismo cd i dvd ? <BR>I kapoia fotografia me ta regions ton dvd? (i opoiadipote pliroforia gia auta!) ?

[Dvs]

vazo to exis:<BR> <BR>{sta declarations: Private Const MCI_CDADUIO_DOOR_OPEN = "CDAudio Door Open" }<BR>mciSendString "open f:\ type cdaudio alias cd wait shareable", 0, 0, 0&<BR>ret = mciSendString("Set " & MCI_CDADUIO_DOOR_OPEN & " Wait", 0&, 0&, 0&)<P>alla pali mou anoigei to 1o cdrom! (to proto einai e:\)<BR>I malakia einai oti epistrefei 0! :><P>-- Private Const MCI_CDADUIO_DOOR_OPEN = "E:\" h<BR> Private Const MCI_CDADUIO_DOOR_OPEN = "E:" < ama valo auto sta declarations mou epistrefei error 263<P><BR>sto telos prepei na "kleiso" to drive?

[NickTheGreek]

Giati re ta mperdeueis to pragmata?Den xreiazontai ta private constants.(Ase pou anti gia f edo exeis e ----> Private Const MCI_CDADUIO_DOOR_OPEN = "E:\" )<P>Apla antegrapse ton kodika pou sou edosa kai anti me.hwnd bale 0&.<P>Ektos autou an katalaba kala exeis orisei 2 diaforetikes statheres gia to MCI_CDADUIO_DOOR_OPEN <P>Private Const MCI_CDADUIO_DOOR_OPEN = "CDAudio Door Open" <BR>kai<BR>Private Const MCI_CDADUIO_DOOR_OPEN = "E:\" <P>Antegrapse ton kodika pou sou esteila.An den leitourgei den ksero ti na sou po.Pantos to logiko einai na leitourgisei.Ennoeitai oti prepei na "kleiseis" to cdrom sto telos.Des sto form_upload.

[Dvs]

ok tha to xanadokimaso - apla dokiamsa kai me e:\<P>asxeto: <A HREF="http://www.laserlock.com/Part_5_1.html" TARGET=_blank>http://www.laserlock.com/Part_5_1.html</A> <P>tin laserlock tin exoun ftiaxei ellines<p>[ 02-12-2001: Message edited by: Dvs ]

[Dvs]

to eftiaxa! euxaristo!!!! <BR>i malakia pou ekana itan i exis:<BR>"anoiga" tin sikeui kai meta den tin ekleina (kai epeidi dokimaza panta tin proti siskeui anoiga panta auti!)<P>pos mporo na kleiso MONO mia siskeui?<P><BR>pos sou fainetai? <P>Dim ret As Integer<BR>Dim errorstr As String<BR>Dim SelectedDrv As String<P>SelectedDrv = Combo1.List(Combo1.ListIndex)<P>ret = mciSendString("open " & SelectedDrv & " type cdaudio alias cd wait shareable", 0, 0, Me.hWnd)<BR>If (ret <> 0) Then<BR> mciGetErrorString ret, errorstr, Len(errorstr)<BR> MsgBox errorstr<BR>End If<P>ret = mciSendString("set cd door closed", 0, 0, Me.hWnd)<BR>If (ret <> 0) Then<BR> mciGetErrorString ret, errorstr, Len(errorstr)<BR> MsgBox errorstr<BR>End If<P>mciSendString "close all", 0, 0, Me.hWnd<p>[ 02-12-2001: Message edited by: Dvs ]

[NickTheGreek]

Entaksei fainetai.Den eixes pei oti "xtipouse" sto me.hwnd?<BR>Dose mcisendstring sto search kai isos breis tipota.<P>Telika to programma mou to trekses??

[Dvs]

koita to mail sou