Início
![[Soucer Codigo] Criando Status do Servidor TCP Empty](https://2img.net/i/empty.gif)
por adicione:
1 Label
2 Edit
1 Button
1 TcpClient
Renomeie:
Button 1 para >>> Conectar/Desconectar
1 Label
2 Edit
1 Button
1 TcpClient
Renomeie:
Button 1 para >>> Conectar/Desconectar
No evento OnConnect do Tcpclient adicione:
Código:
- Código:
Label1.Caption := 'Online';
Label1.Font.Color := clgreen;
No evento OnError do TcpClient adicione:
Código:
- Código:
Label1.Caption := 'Offline';
Label1.Font.Color := clred;
No evento OnDisconnect do TcpClient adicione:
Código:
- Código:
Label1.Caption := 'Offline';
Label1.Font.Color := clred;
No Evento OnClick do Button adicione:
Código:
- Código:
TcpClient1.RemoteHost := Edit1.Text;
TcpClient1.RemotePort := Edit2.Text;
TcpClient1.Connect;
No Evento OnKeyPress do Edit2 adicione:
Código:
- Código:
if Not (key in ['0'..'9',#8]) then
key := #0;
end;
Scan
- Anexos
![[Soucer Codigo] Criando Status do Servidor TCP Attachment](https://2img.net/i/fa/attachment.png)
delphi 7 host On ou Off[srDIEGO].zip - Delphi 7 Host On Ou Off
- Você não tem permissão para fazer download dos arquivos anexados.
- (689 Kb) Baixado 1 vez(es)
![[Soucer Codigo] Criando Status do Servidor TCP I_vote_lcap](https://2img.net/s/t/17/08/32/i_vote_lcap.png){kind=small}
![[Soucer Codigo] Criando Status do Servidor TCP I_voting_bar](https://2img.net/s/t/17/08/32/i_voting_bar.png){kind=small}
![[Soucer Codigo] Criando Status do Servidor TCP I_vote_rcap](https://2img.net/s/t/17/08/32/i_vote_rcap.png){kind=small}