componente TCP

02/02/2003

5

Vi esta dica em minhas leituras, por ai...Uso o delphi 7 e nao encontrei o componte TCP para fazer o teste. Tenho que instalar????, onde ele se encontra???


Use o componente TCP para fazer isso.


procedure TForm1.Button1Click(Sender: TObject);
begin
if TCP1.LocalIp = ´0.0.0.0´ then
ShowMessage(´Você não está conectado na internet!´);
end;


Responder

Posts

03/02/2003

Navoid

seguinte cara inclua a unit socket na claúsula uses.
ai vc terá acesso aos components tcpclient e tcpserver.
vc pode fazer uma unit com uma função register assim
*******
unit instala_tcp;

interface

uses
socket;

procedure register;

implementation

procedure register;
begin
registercomponents(´paleta do componente´, [ttcpclient, ttcpserver];
end;

end.
*****

até


Responder

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários. Para saber mais sobre o uso de cookies,
consulte nossa política de privacidade. Ao continuar navegando em nosso site, você concorda com a nossa política.

Aceitar