Excepcion incontrolable al detectar medios extraibles

[dec]

Hola de nuevo,

Estoy pensando que acaso con "DirectoryExists" pase lo mismo que con "FileExists". Existe la posibilidad de obtener todas las unidades disponibles en un momento dado, de manera que, primero de todo, veamos si la letra de la unidad que nos interesa está en la listad de unidades disponibles o no. Echa un vistazo a este hilo, por ejemplo. De todas formas sigo pensando que un "avisador" de que se añade o quita una unidad podría ser útil para el programa...

[champy]

La función GetDriveType me retorna DRIVE_REMOVABLE tanto si la tarjeta está montada como si no.

De hecho si miras el ejemplo que puse al iniciar el hilo verás que eso es exactamente lo que estoy comprobando para distingir la tarjeta del resto de unidades.

Código Delphi [-]
if GetDriveType(Pchar(Letra+':\')) = DRIVE_REMOVABLE then
    begin
           //Solo es una prueba de acceder a la SD
           If FileExists(Letra+':\prueba.txt') then  ShowMessage('Tengo la SD, ahora sincronizo');
    end;

Por cierto, he probado y sí, DirectoryExists tambien hace saltar la puñetera excepción de "Inserte un disco"

De todas formas se agradece la ayuda DEC.

Quizás la solución pase por el componente que posteaste hace un rato y que me notifique la inserción de la tarjeta pero me estoy debanando los sesos para tratar de compilar el Package por que me da un error de una clase no definida.

[champy]

De todas formas, es que estoy seguro que debe haber alguna función en el API de windows que me diga si la unidad extraible tiene un medio insertado o no. Pero por más que busco no encuentro nada.

[dec]

Hola,

No me refería yo tanto a la función "GetDriveType" con esto último que he dicho, sino a obtener la lista de unidades disponibles, por ejemplo, con un código similar a este. De este modo, antes de comprobar que un archivo o directorio exista (con lo que nos exponemos al error que comentas), digo, podremos comprobar que existe realmente la unidad en cuestión. Es decir, tú obtienes una lista como:

C:\
D:\
E:\

Entonces, si tú esperas la unidad en "I:\", ya con la anterior lista puedes comprobar que dicha unidad no se encuentra entre las disponibles. En todo caso, podrías intentar también entrarle por evitar el error que obtienes, bien con alguna directiva de compilación de Delphi, bien utilizando alguna función del API de Windows... pero lamento no poder darte ahora mismo más información sobre esto último.

[beginner01]

Hola.

Prueba con este código.

Código Delphi [-]
var
   Letra: Char;
   OldErrorMode: word;
begin

  OldErrorMode:= SetErrorMode(SEM_FAILCRITICALERRORS);
  try

    for Letra:= 'C' to 'J' do
    begin

        if GetDriveType(Pchar(Letra+':\')) = DRIVE_REMOVABLE then
        begin

               //Solo es una prueba de acceder a la SD
               If FileExists(Letra+':\prueba.txt') then
                  ShowMessage('Tengo la SD, ahora sincronizo');
        end;
    end;

  finally
    SetErrorMode(OldErrorMode);
  end;

end;

SetErrorMode MSDN

[[nlsgarcia]]

champy,

Revisa este código:

Código Delphi [-]
Procedure GetDrive(FileName : String);
var
  Driver: Pchar;
  i, Length: Integer;
  SearchFile : Boolean;

begin

   SearchFile := False;
   GetMem(Driver, 100);
   Length := GetLogicalDriveStrings(100, Driver);

   for i := 0 to Length-1 do
   begin
      if GetDriveType(Pchar(Driver[i] + ':\')) = DRIVE_REMOVABLE then
      begin
         try
            If FileExists(Driver[i] + ':\' + FileName) then
            begin
               MessageDlg('Archivo Sincronizado en Medio Removible', mtinformation, [mbok], 0);
               FreeMem(Driver);
               SearchFile := True;
               break;
            end;
         except
            MessageDlg('Error de I/O', mtinformation, [mbok], 0);
            FreeMem(Driver);
            exit;
         end;
      end;
   end;

   if not Searchfile then
      MessageDlg('Archivo No Sincronizado en Medio Removible', mtinformation, [mbok], 0)

end;

El código anterior busca en todos los medios activos y de tipo removible un archivo determinado hasta hallar la primera ocurrencia o finalizar los drivers activos, fue probado con medios USB y Tarjetas MicroSD vía USB y funciona correctamente.

Espero sea útil

Nelson.

[champy]

Acabo de aterrizar en casa y voy a probarlo ahora mismo. En un ratito cuento algo. Gracias por el aporte

[champy]

Empezado por nlsgarcia

champy,
fue probado con medios USB y Tarjetas MicroSD vía USB y funciona correctamente.

Lo estoy probando con un teléfono android, que a los efectos debería hacer el papel de un lector multitarjetas por USB pero en el momento de conectarlo la tarjeta está capturada por el teléfono (Solo cargar) y por tanto el medio lo da como que no está presente aunque ya le asigna una letra, E: en mi caso.

Una vez pongo el teléfono en modo "unidad de disco" la tarjeta se monta y todo va bien, pero para ese momento ya ha saltado la excepcion como 1 millon de veces.

De todos modos se agradece el aporte