Socket

Ficha de Trabalho N.º 4

Duração: 90 min.

(Delphi - Socket)

Ano Lectivo: 2011/2012

Curso: TGPSI
Disciplina: Redes de Comunicação
Módulo 6 – Programação de Sistemas de Comunicação

Ano: 10º E

Nome: _________________________________________ N.º _____

Data: 17/10/2011

Objectivo – Ambientação à interface gráfica do DELPHI 2010

Exercício para a aplicação Cliente
Um GroupBox
• Altere a propriedade Caption do
GroupBox para:
▫ Comando Remoto:
Três Buttons
• Altere a propriedade Caption do
1º Button para:
▫ Ligar
• Altere a propriedade Caption do
2º Button para:
▫ Desligar
• Altere a propriedade Caption do
3º Button para:
▫ Enviar
Dois Labels
▫ Altere a propriedade Caption do 1º Label1 para: IP
▫ Altere na propriedade Font do 1º Label1 o tamanho de letra para: 12
▫ Altere a propriedade Caption do 2º Label2 para: Porta
▫ Altere na propriedade Font do 2º Label2 o tamanho de letra para: 12
Dois Edits
▫ Altere a propriedade Text dos Edits para: (vazio)
▫ O primeiro Edit1 será relativo ao IP
▫ O segundo Edit2 será relativo à Porta
Um ClientSocket
• posicione-os de acordo com a figura abaixo:
▫ Port: 40 (seguir as indicações do professor)
• Esta será a porta que iremos nos comunicar com a aplicação servidora, mas poderia ser qualquer outra porta de comunicação (ao seguir as indicações do professor vamos criar a opção de pudermos activar qualquer porta a partir da aplicação criada).
• No evento OnConnect do ClientSocket coloque o seguinte (vá ao separador Events do Object
Inspector):
Procedure TForm1.ClientSocket1Connect(Sender:
TObject; Socket: TCustomWinSocket); begin Form1.Caption := 'Cliente - Ligado'; end; Quando o cliente se ligar ao servidor a propriedade caption do formulário Form1 mudará.

Professor: @ffaísca RC: M6 - 2011/2012

Página 1

Direcção Regional de Educação do Centro
Equipa de Apoio às Escolas de Leiria

•

Agrupamento de Escolas da Batalha

160301

No evento OnDisconnect do