1º) Você deve acrescentar um componente NMFTP (da paleta FastNet).
2º) Insira o seguinte código no evento OnShow do formulário.
If (NMFtp1.GetLocalAddress <> '0,0,0,0') Then ShowMessage('Você não está conectado!') Else ShowMessage('Você está conectado!');
3º) Execute o programa e veja o resultado.
By Carlos Naves - http://www.carlosnaves.hpg.com.br/
Assinar:
Postar comentários (Atom)
-
function GetIP:string;//--> Declare a Winsock na clausula uses da unit var WSAData: TWSAData; HostEnt: PHostEnt; Name:string; begin...
-
Vamos criar uma API REST simples em Delphi. Para isso, usaremos o Delphi 7 com Indy components (se for o que você tem disponível) ou, se est...
Nenhum comentário:
Postar um comentário