Como fazer a saida USB do computador virar uma porta serial ?
koe glr, olha eu aqui d nv ksks
eu tenho que fazer a saida USB do meu computador virar uma porta serial, alguém poderia me dar uma ajuda?
eu tenho que fazer a saida USB do meu computador virar uma porta serial, alguém poderia me dar uma ajuda?
João Victor
Curtidas 0
Respostas
Raimundo Pereira
09/03/2018
Compre um conversor usb x serial
GOSTEI 0
Raimundo Pereira
09/03/2018
https://www.kabum.com.br/produto/39466/comtac-cabo-conversor-usb-2-0-para-serial-db9-macho-9037?origem=52&gclid=CjwKCAiA_ojVBRAlEiwAOLRxI9-3N4I0mJmXIkt21IUdht4IVhpwOzg5-JIy_HcgLTYB2ABjwM9smBoC1uIQAvD_BwE
GOSTEI 0
Raimundo Pereira
09/03/2018
R$ 2,00 ou R$ 3,00 você compra em qq loja de informática
GOSTEI 0
João Victor
09/03/2018
não tem nenhum tipo de comando no delphi que eu possa fazer a USB virar serial n?
GOSTEI 0
Raimundo Pereira
09/03/2018
Tudo depende do cabo que você está usando,
Qual a finalidade.
Qual o dispositivo.
É impressão direta?
Nos dê mais detalhes.
Qual a finalidade.
Qual o dispositivo.
É impressão direta?
Nos dê mais detalhes.
GOSTEI 0
João Victor
09/03/2018
vou usar a saida serial para fazer a comunicação entre 2 computadores
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.
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