Fórum Como fazer a saida USB do computador virar uma porta serial ? #591706

09/03/2018

0

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?
João Victor

João Victor

Responder

Posts

09/03/2018

Raimundo Pereira

Compre um conversor usb x serial
Responder

Gostei + 0

09/03/2018

Raimundo Pereira

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
Responder

Gostei + 0

09/03/2018

Raimundo Pereira

R$ 2,00 ou R$ 3,00 você compra em qq loja de informática
Responder

Gostei + 0

10/03/2018

João Victor

não tem nenhum tipo de comando no delphi que eu possa fazer a USB virar serial n?
Responder

Gostei + 0

10/03/2018

Raimundo Pereira

Tudo depende do cabo que você está usando,
Qual a finalidade.
Qual o dispositivo.
É impressão direta?

Nos dê mais detalhes.
Responder

Gostei + 0

10/03/2018

João Victor

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.
Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar