Powersock

22/05/2003

1

Não consigo fazer conexão com este componente, fiz o seguinte:

Coloquei em um form os componentes Tmemo, 2 tbutton, 1 tedit e 1 tmaskedit

e o código:

procedure TForm1.Button1Click(Sender: TObject);
begin
try
Powersock1.Host := MskHost.Text;
Powersock1.Port := StrToInt(EdtPorta.Text);
Powersock1.Connect;
except
Memo1.Lines.Add(´Conexão Falhou!´);
end;
end;

procedure TForm1.Powersock1ConnectionFailed(Sender : TObject);
begin
Memo1.Lines.Add(´Conecxão Falhou´);
end;

procedure TForm1.Powersock1Connect(Sender: TObject);
begin
Memo1.Lines.Add(´Conectado´);
Memo1.Lines.Add(´Endereço Local: ´ + Powersock1.LocalIP);
Memo1.Lines.Add(´Endereço Remoto: ´ + Powersock1.RemoteIP);
end;

procedure TForm1.Powersock1HostResolved(Sender: TComponent);
begin
Memo1.Lines.Add(´Host Resolved´);
end;

procedure TForm1.Powersock1Status(Sender: TComponent; Status: String);
begin
Memo1.Lines.Add(Powersock1.Status);
Memo1.Lines.Add(´Ultimo Erro do Winsock: ´ + IntToStr(Powersock1.LastErrorNo));
If Powersock1.BeenCanceled Then
Memo1.Lines.Add(´Operação de Entrada e Saida Cancelada´);
If Powersock1.BeenTimedOut Then
Memo1.Lines.Add(´Operation Timed out´);
end;

procedure TForm1.BtnSairClick(Sender: TObject);
begin
Close;
end;


e defino o timeout com 10000 (10 segundos) o nº de ip da máq e a porta
e nunca funciona tudo OK na rede


Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira