Pegar key e simular no keypress com Timer

Delphi

16/07/2003

ola ... tenho essa função que me retorna a string correspondente ao dado lido pela porta serial
Function ReadComm:String;
var 
  BytesLidos: DWord;
   i: Integer;
   ReadStr: String;
begin
 iRet:=ReadFile(hComm, bRead[0], 255, BytesLidos, nil);
 if ord(iRet)=-1 then exit;
 ReadStr:=´´;
 If BytesLidos > 0 Then
 For I:=0 To BytesLidos - 1  do
     if  chr(bRead[i]) in [´0´..´9´,´a´..´z´, ´A´..´Z´] then
       ReadStr:=ReadStr + chr(bRead[i])
     Else
      FlushComm;//limpa com leitura
 Result:=ReadStr;
ClearReadComm;//limpa com
End;



Preciso transformar ela em uma função q retorne o key do caracter lido pela porta, depois tenho um timer q fica simulando esses key no keypress de um componente Edit ... vichiiii será q tem como?
Valew


Fer

Fer

Curtidas 0
POSTAR