componente TCP
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;
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;
Jadiralberto
Curtidas 0
Respostas
Navoid
02/02/2003
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é
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é
GOSTEI 0