Rabata
10-12-2003, 19:02:53
Un Saludo a todos,
Estoy realizando una aplicación en delphi el la k debo conectar por el puerto serie con un dispositivo. Estoy utilizando funciones de la SDK de windows:
CreateFile.- Para abrir el Puerto Serie (Com1)
WriteFile.- Para escribir en el puerto
las 2 funciones me devuelven True, lo k supongo k la operacion se realiza correctamente incluso la funcion de createFile, para abrir la conexion con el com1 me devuelve un identificador valido (1664), no me da error.
Pero si estoy escribiendo esto es porque no me da el resultado esperado, y mi pregunta es la siguiente:
¿Es correscto lo k estoy haciendo, alguien sabe de algo mejor, aunke esto ya lo he probado en otros lenguajes y me va bien, pero mi variante en este caso es k tengo k enviarle un 'ENTER' osea un retorno de carro.
Si me conecto al dispositivo con el hypeterminal me lo hace bien ya que escribo la instruccion y le doi a enter
LCM 1 2 'Enter'
Si hago esto, ok
Pero mi problema es k no se como hacer esto en delphi, lo he intentado haciendo lo siguiente
// El 13 es el enter
ls_comando:= 'LCM 1 2' + Chr(13);
ls_comando:= 'LCM 1 2' + Chr(Enter_Key);
Pero ninguna de las dos opciones me funciona
Alguien sabe como podría hacerlo????
Muchas a Gracias a todos por Vuestra Colaboración!!!!
Estoy realizando una aplicación en delphi el la k debo conectar por el puerto serie con un dispositivo. Estoy utilizando funciones de la SDK de windows:
CreateFile.- Para abrir el Puerto Serie (Com1)
WriteFile.- Para escribir en el puerto
las 2 funciones me devuelven True, lo k supongo k la operacion se realiza correctamente incluso la funcion de createFile, para abrir la conexion con el com1 me devuelve un identificador valido (1664), no me da error.
Pero si estoy escribiendo esto es porque no me da el resultado esperado, y mi pregunta es la siguiente:
¿Es correscto lo k estoy haciendo, alguien sabe de algo mejor, aunke esto ya lo he probado en otros lenguajes y me va bien, pero mi variante en este caso es k tengo k enviarle un 'ENTER' osea un retorno de carro.
Si me conecto al dispositivo con el hypeterminal me lo hace bien ya que escribo la instruccion y le doi a enter
LCM 1 2 'Enter'
Si hago esto, ok
Pero mi problema es k no se como hacer esto en delphi, lo he intentado haciendo lo siguiente
// El 13 es el enter
ls_comando:= 'LCM 1 2' + Chr(13);
ls_comando:= 'LCM 1 2' + Chr(Enter_Key);
Pero ninguna de las dos opciones me funciona
Alguien sabe como podría hacerlo????
Muchas a Gracias a todos por Vuestra Colaboración!!!!