Fórum Como fazer a saida USB do computador virar uma porta serial ? #591706
09/03/2018
0
eu tenho que fazer a saida USB do meu computador virar uma porta serial, alguém poderia me dar uma ajuda?
João Victor
Curtir tópico
+ 0Posts
09/03/2018
Raimundo Pereira
Gostei + 0
09/03/2018
Raimundo Pereira
Gostei + 0
09/03/2018
Raimundo Pereira
Gostei + 0
10/03/2018
João Victor
Gostei + 0
10/03/2018
Raimundo Pereira
Qual a finalidade.
Qual o dispositivo.
É impressão direta?
Nos dê mais detalhes.
Gostei + 0
10/03/2018
João Victor
COMANDOS QUE EU TO USANDO --->
procedure TForm1.ComPort1RxChar(Sender: TObject; Count: Integer);
var
Buffer : AnsiString;
contador : Integer;
begin
Sleep(500);
Contador := Comport1.InputCount;
ComPort1.ReadStr(Buffer, Contador);
Memo1.Lines.Add(Buffer);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if ComPort1.Connected = True then
Begin
ComPort1.WriteStr(Edit1.Text);
Edit1.Text := '';
end;
end;
end.
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)