Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   MaskEdit y Puerto paralelo (https://www.clubdelphi.com/foros/showthread.php?t=18855)

cesarjbf 24-02-2005 22:06:25

MaskEdit y Puerto paralelo
 
Hola,resulta que tengo un MaskEdit de solo numeros(3 Digitos), el problema es que lo quiero editar desde una interfase que tengo conectada al puerto paralelo, la cual tiene teclas que representan los numeros del 0 al 9, el codigo de la interfase ya lo tengo y funciona, solo que no se como escribir en la maskedit como si estuviera usando el mismo keyboard.....les agradeceria mucho su respuesta ya que este es el ultimo paso para mi proyecto gracias

uso este codigo:

begin
Bit:=GetPortBit(889,7);{procedimientos que se llaman desde la io.dll}
Buffer:=Portin(889); {el cual lee el byte de entrada}
if (Bit=0) and (Teclado=0) then
begin

case buffer of {Buffer es el valor que leyo y convirtio a decimal}
7:Borrar algo; ; {valor binario convertido a funcion u procedimiento}
15:MaskEdit.???? {aqui es donde quiero introducir el digito,no se como}
23:Memo.lines.Add('algo');
87:Atras;
95:Adelante;
127:Memo1.Lines.clear; {si el byte nos da 127 borra el memo}
end;

Teclado:=1;
end;
if (bit=255) and (Teclado=1) then
Teclado:=0;
end;

cesarjbf 24-02-2005 22:35:24

por fin ya lo encontre en esta fabulosa pagina,
use el codigo
keybd_event(Ord('4'), 0, 0, 0);

gracias.......:)


La franja horaria es GMT +2. Ahora son las 06:24:26.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi