Conexión USB con celular!

[Alan_B]

Gracias por el consejo de todas formas! Te cuento que estoy aprendiendo Delphi7, conozco C# pero me estan pidiendo un code en este lenguaje y vi que este foro tenia muchos años, motivos por los cales me registre, por la experiencia que sin dudas hay en este... Solo pedi una ayuda ya que vi que en otros foros utilizan este "unit" para sus aplicaciones y yo no logro entender como lo hacen, no me comparten la forma en que lo configuran/utilizan... Si cause molestias disculpas, repito solo queria una mano, el code esta escrito solo que no entiendo como utilizarlo...

Saludos y Gracias!

[ecfisa]

Hola Alan_B.

Primero analicemos la funcion USBOpenDriver:

Código Delphi [-]
Function USBOpenDriver:boolean;
begin
  USBPORT := CreateFile('\\?\USB1', GENERIC_WRITE or GENERIC_READ,
  FILE_SHARE_WRITE or FILE_SHARE_READ, nil, OPEN_EXISTING, FILE_FLAG_OVERLAPPED OR FILE_ATTRIBUTE_NORMAL, 0);
  USBOpenDriver:= USBPORT <> INVALID_HANDLE_VALUE;
  if USBPORT = INVALID_HANDLE_VALUE then // error at open port
    result:=false
  else
    result:=true;
end;

1. Llama a la función CreateFile cuyos detalles podes mirar aquí:CrateFile function. El resultado queda en la variable USBPORT de tipo THandle.
2. Asigna a la variable USBPORT el valor obtenido de comparar el resultado de CreateFile con INVALID_HANDLE_VALUE. Esta línea la veo redundante y prescindible(excepto para guardar compatibilidad con Pascal).
3. Nuevamente evalua y asigna el resultado.

Particularmente y sin conocer sobre celulares, la hubiera escrito así:

Código Delphi [-]
function USBOpenDriver(PathToPhone: string):boolean;
begin
  USBPORT := CreateFile(PChar(PathToPhone), GENERIC_WRITE or GENERIC_READ,
    FILE_SHARE_WRITE or FILE_SHARE_READ, nil, OPEN_EXISTING,
    FILE_FLAG_OVERLAPPED OR FILE_ATTRIBUTE_NORMAL, 0);
  Result := USBPORT <> INVALID_HANDLE_VALUE
end;

La llamada correcta a la función es el que te sugirió cloayza, por ejemplo:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  if not USBOpenDriver then  // error
    raise Exception.Create('No se encuentra el celular');
  // demas operaciones
  // ...

end;

Supongo que si la función te muestra el error, será debido a que no encuentra la ruta, pero hasta allí llegan mis conocimientos sobre rutas a celulares...

También podés reescribir la función USBOpenDriver para que admita diferentes rutas

Código Delphi [-]
function USBOpenDriver(PathToPhone: string):boolean;
begin
  USBPORT := CreateFile(PChar(PathToPhone), GENERIC_WRITE or GENERIC_READ,
    FILE_SHARE_WRITE or FILE_SHARE_READ, nil, OPEN_EXISTING,
    FILE_FLAG_OVERLAPPED OR FILE_ATTRIBUTE_NORMAL, 0);
  Result := USBPORT <> INVALID_HANDLE_VALUE
end;

y luego recompilar la unidad...

Saludos.

[[kurono]]

amigo eficas e estado viendo este hilo y analizando el codigo y el ejemplo que hiciste puso la cosa mas claras pero quisiera saber que tipo de direccion hay que poner en este cambio que le hiciste a la funcion si es de tipo C:\,G:\, H:\ etc... o de este tipo USB\VID_0930&PID_6545\001D0F0C73C8B92053110130

y una cosa mas esta libreria funciona solo para dipositivos moviles o para cualquier dipositivo usb como camara,memoria flash,microchip pci etc...

[[AzidRain]]

No te apures. Si ya conoces C te va a ser sencillo adaptarte. Me parece que eficsa ya puso algo que te puede servir sin duda. Creo que el path que utiliza la unit para conectarse al teléfono es la que le sirvió a quien la desarrollo y supongo que cambia de acuerdo al teléfono que se vaya a usar, deduzco eso dado la línea comentada en el código original.
Yo creo que tendrías que llamar primero a Opendriver tal como está en la interface, sin parámetros...y evaluar si te devuelve TRUE ya posteriormente usar las funciones para leer o escribir.

Se parecen mucho a las funciones de bajo nivel que tiene delphi para leer y escribir ficheros.

[ecfisa]

Hola.

La verdad es que es la primera vez que intento acceder a un celular. Pero pensando en que era un dispositivo extraible, este código que uso al efecto, me detecta correctamente si está conectado o no:

Código Delphi [-]
function OpenUSB(aDrv: char): THandle;
var
  Root, Vol: string;
begin
  Root := aDrv + ':\';
  Vol  := Format('\\.\%s:', [aDrv]);
  Result := CreateFile(PChar(Vol),
    GENERIC_READ or GENERIC_WRITE, FILE_SHARE_READ or FILE_SHARE_WRITE,
    nil, OPEN_EXISTING, 0, 0);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   if OpenUSB('F') = INVALID_HANDLE_VALUE then
    raise Exception.Create('Error en la conección.')
  else
    ShowMessage('Todo bién, continuamos...');
end;

Ahora convengamos, sé que es la unidad 'F' por que previamente me fije cuál era. Si agrego un pen drive, situado en la unidad 'E' y uso la función OpenUSB con el argumento 'E' funciona igualmente. Por otro lado estoy accediendo a la memoria del celular no al celular mismo....

La cosa debe pasar por la cadena '\\?\USB#Vid_058b&Pid_0015#5&25ea51ff&0&1#{a5dcbf10-6530-11d2-901f-00c04fb951ed'... Creo, como AzidRain, que es propia de cada teléfono y realmente no sé como obtenerla.

Como dato adicional, en mi caso, cambiando el '?' por la letra 'F' se queda pensando un poco y luego lanza el error INVALID_HANDLE_VALUE.

Saludos.

[[kurono]]

yo tambien probe y igual a ti eficas se queda pensando un poco y luego tira el error de invalido ahora para obtener el codigo \\?\USB#Vid_058b&Pid_0015#5&25ea51ff&0&1#{a5dcbf10-6530-11d2-901f-00c04fb951ed se obtiene en las propiedades de administracion de dipositivo de los puerto usb en la paleta detalle ahi se encuentra eso es obtenido manualmente por codigo ni idea

por lo visto creo que este codigo es para conectarse a dipositivos moviles entonces consiguire un celular para tener algun resultado

[ecfisa]

Hola kurono.

No dejes de avisar los resultados, es feo esto de quedar con la intriga

Si no habrá que esperar que los entendidos en el tema (que los hay en el Club) nos vengan a arrojar un poco de luz...

Saludos

[[escafandra]]

Hola.

Es importante saber que es lo que se pretende obtener del teléfono conectado y peligrosa la escritura.

El acceso a los dispositivos físicos, sean discos o USB, Flash... se realiza igual, con la API CreateFile En caso de desear abrir un dispositivo físico, el nombre debe ser "\\.\PhysicalDriveX" siendo X un número de unidad física que comienza por 0. Si deseamos abrir una unidad lógica, el nombre será "\\.\L:" siendo L la letra de unidad. En cambio \\.\\L:\ abre el directorio raíz.

Empezado por ecfisa

...debe pasar por la cadena '\\?\USB#Vid_058b&Pid_0015#5&25ea51ff&0&1#{a5dcbf10-6530-11d2-901f-00c04fb951ed'... Creo, como AzidRain, que es propia de cada teléfono y realmente no sé como obtenerla.

Esa cadena se extrae del Registro de Windows en la clave: "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\USBSTOR\Enum" donde aparecen cada una de las unidades USB conectadas en un momento dado y específica de cada unidad instalada. Y la forma de asociarla con la letra de unidad es compleja y se basa en encontrar el número de serie, también en el registro en "HKEY_LOCAL_MACHINE\SYSTEM\MountedDevices" en los valores que comienzan por "\DosDevices\" para compararlo con el que también aparece en las cadenas de dispositivo USB (USB\Vid_XXXXXXX.....)

Cuando abrimos una unidad física lo primero que se lee es el MBR (Master Boot Record). En una unidad lógica obtendremos el BPB (BIOS Parameter Block ó BootSector de una partición). Alterar esos datos puede ser fatal si no sabemos lo que hacemos.

Desde el MBR podemos obtener el BMP y de éste acceder a los archivos manejando el sistema de archivos correspondiente, tal y como lo hace el S.O. pero no es fácil.

Estos enlaces pueden dar algo de luz al tema:
1. Trabajar con la FAT32 (o como vacunar un disco extraible)

2. Trabajando con FAT16 y FAT32

En el segundo enlace encontrareis una aplicación escrita en C que gestiona los archivos de una unidad FAT16 ó FAT32 leyendo directamente del dispositivo extraíble el MBR el BPB la tabla de la FAT - Directorio raíz - directorios y archivos leidos cluster a cluster en bruto desde la unidad. Dicha aplicación es experimental y entre otras cosas sirva para extraer imágenes en bruto de dispositivos o restaurarlas. No es la última versión y se debe manejar con cuidado.

En definitiva ¿Que es lo que se quiere obtener de la conexión USB?


Espero haber aportado algo de luz al tema.



Saludos.