Conexión USB con celular!

[ecfisa]

Hola Alan_B.

Como a todos los que se inician te invitamos a que leas nuestra guía de estilo.

No tuve inconvenientes en compilar la unidad.

En un nuevo proyecto : File-> New-> Unit -> Borrar el contenido que predefine Delphi-> Pegar el código que adjuntaste-> File-> SaveAs: USB.PAS -> compilar.

Por si tenes problemas te adjunto el .pas y el .dcu, te aclaro que no probé si el código funciona.

Saludos.

[Alan_B]

Gracias Genio!!! Me estoy iniciando y no sabia esto... Y para agregarlo en mo proyecto como tengo que hacer, para que las funciones lo hagan correctamente???

PD: Gracias por tu respuesta, yo soy de Argentina y la verdad que no logro encontrar cursos de Delphi!! Espero progresar gracias a este foro ;-) Vos me darias tips???

EDITADO! Add to project... Shift + F11

[ecfisa]

Hola Alan_B.

Hay muchos tips en la sección trucos, además muchos te aparecerán en las mismas búsquedas.

Quizá conozcas alguno de los enlaces que te voy a poner, pero si no, espero que te sean útiles:

• FTP Club Delphi - Manuales (Fundamental La cara oculta de Delphi 4)
• FTP Club Delphi - Delphi (Revisar)
• Delphi Basics (Te va a sacar de apuros mas de una vez)
• About (Excelente aunque en inglés)

Y por supuesto en los foros de Club Delphi vas a encontrar respuesta a casi cualquier duda que pudieras presentar.

Un saludo.

[Alan_B]

Porque al querer compilar este code:

procedure TForm1.Button1Click(Sender: TObject);
var s:string;
begin
s:=RWUSB('',32);
usb.USBOpenDriver('\\\USB#VID_0C44&PID_0022#5&17C28CDB&0&1#{feb8d079-0681-11d4-9531-0060089abc08}');
memo1.Lines.add(s);
end;

Me tira estos errores???
[Error] Unit1.pas(31): Too many actual parameters
[Fatal Error] iDEN.dpr(6): Could not compile used unit 'Unit1.pas'

Intente de todo y no logro dar con la posible solucion!!!

Ggracias desde ya!

[cloayza]

El error te indica que estas pasando muchos argumentos a la función.

Si te fijas en la declaración de la función:

Código Delphi [-]
Function USBOpenDriver:boolean;

Esta no recibe argumentos, y tu le estas enviando:

Código Delphi [-]
usb.USBOpenDriver('\\\USB#VID_0C44&PID_0022#5&17C28CDB&0&1#{feb8d079-0681-11d4-9531-0060089abc08}')

Como es una función que evalúa si pudo abrir el puerto USB, debería ser:

Código Delphi [-]
if usb.USBOpenDriver() then
...

Saludos

[Alan_B]

Ahhhhhhh! Es verdad!!! Una función de tipo boolean, devuelve un True o en su defecto un False, verdad? Ahora estoy en mi trabajo pero esta noche pruebo y confirmo por si le sirve a alguien más el dato!

Gracias por tu respuesta!
Alan_B !

[Alan_B]

Perdón por el doble post, no pude editar el anterior... Intenté con la siguiente forma

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var s:string;
begin
s:= RWUSB('1E034D006F007400', 10);
if USB.USBOpenDriver('\\\USB#VID_0C44&PID_0022#5&17C28CDB&0&3#{9d7debbc-c85d-11d1-9eb4-006008c3a19a}') = True then
memo1.Lines.Add('Phone found!') else
memo1.lines.Add('Phone not found!');
end;

end.

Arrojandome los mismos errores antes mencionados... Probe de la siguiente y compila, pero sin resultados exitosos a la hora de lograr conexion...

Código Delphi [-]
  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);

Copie el device path reemplazando "USB1", pero sin exito como mencioné!!!
Sigo probando, si alguien me sigue ayudando soy feliz!!!

Alan_B!