Wo bekomme ich die NMHTTP Kompo her?

[DeddyH]

Wenn wir schon alte Threads wieder aufwärmen, hätte ich da noch einen Erweiterungsvorschlag:

Delphi-Quellcode:

function getPublicIP:String;
const WebAddress = 'http://www.whatismyip.com/automation/n09230945.asp';
var
  idHttp1: TIdHttp;
begin
  Result := '';
  idHttp1 := TIdHttp.Create(nil);
  try 
    try
      Result := trim(idhttp1.Get(WebAddress));
    except
      on E: Exception do
      begin
        MessageDlg('Could not get IP Address! ' +
          'Please ensure you are connected to ' +
          'the Internet.', mtError, [mbOK], 0);
      end;
    end;
  finally
    idHttp1.Free;
  end;
end;