Print Page - IsReady

Title: IsReady
Post by: ckoehn on March 21, 2010, 05:40:31 PM

How would this be translated into EBASIC?

Function ShowDriveInfo(drvpath)
   Dim fso, d, s, t
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set d = fso.GetDrive(drvpath)
   Select Case d.DriveType
      Case 0: t = "Unknown"
      Case 1: t = "Removable"
      Case 2: t = "Fixed"
      Case 3: t = "Network"
      Case 4: t = "CD-ROM"
      Case 5: t = "RAM Disk"
   End Select
   s = "Drive " & d.DriveLetter & ": - " & t
   If d.IsReady Then 
      s = s & "<BR>" & "Drive is Ready."
   Else
      s = s & "<BR>" & "Drive is not Ready."
   End If
   ShowDriveInfo = s
End Function

Title: Re: IsReady
Post by: Copex on March 22, 2010, 04:20:06 AM

dot net is not supported you would have to use the windows API

a quick search of the forms turned up this http://www.ionicwind.com/forums/index.php/topic,3880.msg30598.html#msg30598

Title: Re: IsReady
Post by: ckoehn on March 22, 2010, 06:47:53 AM

Copex,

Thanks for your response, but that was the problem I had. That code will not let me know if a disk is inserted in a removable drive like a CDROM or DVD. I am searching for a particular file on a removable disk, if it doesn't find it, it waits for a few seconds and searches again. My problem is an error is generated when there is no disk in the drive. EBASIC doesn't have error trapping and there doesn't appear any way to see if there is a disk in a drive. It is VERY unprofessional to have an error message pop up every time it runs through its routine searching for a file.

Isn't there anyway to find if a disk is installed with API calls? IsReady seemed like a good idea. :)

Title: Re: IsReady
Post by: LarryMc on March 22, 2010, 07:06:07 AM

search the windows sdk for IOCTL_STORAGE_CHECK_VERIFY DeviceIoControl
that should provide some help.

LarryMc

Title: Re: IsReady
Post by: REDEBOLT on March 22, 2010, 07:27:20 AM

I searched the api for "ready" and found this:
DlgDirSelectComboBoxEx

I searched the api for "cd" and got about 67 hits.
There may be something in there you can use.

Title: Re: IsReady
Post by: sapero on March 22, 2010, 08:00:22 AM

QuoteMy problem is an error is generated when there is no disk in the drive

Code Select

$include "windowssdk.inc"
SetErrorMode(SEM_NOOPENFILEERRORBOX)

Title: Re: IsReady
Post by: ckoehn on March 22, 2010, 09:22:29 AM

I want to thank all of you for your help. I still am getting that annoying error "There is no disk in the drive. Please insert a disk in Drive D:".

sapero: I entered what you sent which looked like it should work, but I'm still getting that error. Looking up the command says that the "process will handle the error". Is there something I need to do in my window handled to deal with that error?

Title: Re: IsReady
Post by: sapero on March 22, 2010, 12:39:52 PM

No, the function you use for accessing the removable device will just fail, without unwanted system alerts. I have picked the SEM_NOOPENFILEERRORBOX flag without checking it, but I see now that in my ISO maker, I have used another flag: SEM_FAILCRITICALERRORS.
I can't even reproduce this error now, using openfile/loadlibrary/findopen.
...
Ah, I need to mount an .iso, open a file, unmount it, then reading the opened file will pop an error box.
The SEM_FAILCRITICALERRORS flag seems to help, no error box is shown:

Code Select

$include "windowssdk.inc"

SetErrorMode(SEM_FAILCRITICALERRORS) /* try with and without this line*/

MessageBox 0, "mount iso, or insert a cdrom", ""
bfile f
int buffer

if (!openfile(f, "\\\\.\\F:", "r")) /* or any existing file, fike F:\\autorun.inf */
	MessageBox 0, "unmount iso, or eject the cdrom", ""
	read f, buffer
	closefile f
else
	MessageBox 0, "drive not found", ""
endif

Title: Re: IsReady
Post by: ckoehn on March 22, 2010, 01:10:04 PM

Thanks as always sapero, that did the trick.

Later,
Clint

IonicWind Software

IWBasic => General Questions => Topic started by: ckoehn on March 21, 2010, 05:40:31 PM