Verificar se ip responde e abrir página.

[wmo.btu]

Boa noite pessoal.

Bom primeiramente gostaria de agradecer as possíveis sugestões e ajudas que virão.

Então vamos lá, não conheço nada de delphi e surgiu 1 desafio pra mim, preciso fazer um sisteminha que verifica 2 números de ip's.

Seria isso:

1° número ex. 192.168.x.x = se esse ip responder eu irei carregar uma página web nele, ex 192.168.x.x:8080, caso não responda irei fazer outro teste em outro ip que seria o 2º número ex. 192.168.y.y = se ele responder irei carregar uma página web nele, ex. 192.168.y.y:8080, caso ele também não responda irei exibir uma mensagem dizendo pra entrar em contato com o administrador e tal....

lembrando que esse ip's são servidores.

É isso q gostaria de verificar e fazer com esse sistema, basicamente saber se o 1° servidor está ok e abrir a página, caso contrário vou para o 2° e estando ok abro a mesma página, caso contrario exibo 1 mensagem de erro e peço q entre em contato.

Seria possível?

Obrigado.

[Jhonas]

voce pode experimentar esse código

uses winsock;

function GetLocalIP : string; 
type 
TaPInAddr = array [0..10] of PInAddr; 
PaPInAddr = ^TaPInAddr; 
var 
phe : PHostEnt; 
pptr : PaPInAddr; 
Buffer : array [0..63] of char; 
I : Integer; 
GInitData : TWSADATA; 
begin 
WSAStartup($101, GInitData); 
Result := ''; 
GetHostName(Buffer, SizeOf(Buffer)); 
phe :=GetHostByName(buffer); 
if phe = nil then Exit; 
pptr := PaPInAddr(Phe^.h_addr_list); 
I := 0; 
while pptr^[I] <> nil do begin 
result:=StrPas(inet_ntoa(pptr^[I]^)); 
result := StrPas(inet_ntoa(pptr^[I]^)); 
Inc(I); 
end; 
WSACleanup; 
end;

ou faça uma pesquisa no forum pela palavra descobrir ip

abraço

[wmo.btu]

Jhonas, obrigado pela ajuda.

Mas como falei não entendo nada de delphi se puder me ajudar com 1 pouco mais de detalhe fico grato.

pois vi esse código e fiquei boiando....rsrsrsr

Desculpe pela falta de conhecimento da minha parte..

Obrigado

[Jhonas]

exemplo de uso

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

uses winsock;

function GetLocalIP : string;
type
   TaPInAddr = array [0..10] of PInAddr;
   PaPInAddr = ^TaPInAddr;
var
   phe : PHostEnt;
   pptr : PaPInAddr;
   Buffer : array [0..63] of char;
   I : Integer;
   GInitData : TWSADATA;
begin
   WSAStartup($101, GInitData);
   Result := '';
   GetHostName(Buffer, SizeOf(Buffer));
   phe :=GetHostByName(buffer);
   if phe = nil then Exit;
   pptr := PaPInAddr(Phe^.h_addr_list);
   I := 0;
   while pptr^[I] <> nil do begin
      result:=StrPas(inet_ntoa(pptr^[I]^));
      result := StrPas(inet_ntoa(pptr^[I]^));
      Inc(I);
   end;
   WSACleanup;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
   showmessage('ENDEREÇO IP = ' + GetLocalIP);
end;

end.

OBS: ao clicar no botão, voce vera a mensagem mostrando o numero do IP da sua conexão

abraço