Ver Mensaje Individual
  #11  
Antiguo 18-08-2006
Geta Geta is offline
Miembro
 
Registrado: ago 2004
Posts: 27
Reputación: 0
Geta Va por buen camino
Cita:
Empezado por seoane
Suponiendo que ya tienes el puerto abierto y configurado, para escribir una cadena puedes usar algo como esto:

Código Delphi [-]var s: string; Escritos: Cardinal; begin s:= 'hola'; // O puede que s:= 'hola' + #13#10; WriteFile(hPort, PChar(s)^,Length(s), Escritos, nil); end;

Magnifico, asi si que me lo entiende el dispositivo. Le he dicho a si a groso modo que encienda un led con un byte en hexadecimal y se ha encendido. pero se supone me tenia que responder un byte y no lo hace. Leo con ReadFile asi:

Código:
comando: String;
...
...
ReadFile(hPort,comando,length(comando),cuantos,nil);
pero nada.
Responder Con Cita