Wo bekomme ich die NMHTTP Kompo her?

[Klaus01]

Hallo,

ich habe den Code mit dem NMHTTP Client umgebaut
und angepasst.

Delphi-Quellcode:

function getPublicIP:String;
var
  WebAddress: string;
  idHttp1: TIdHttp;
begin
  idHttp1 := TIdHttp.Create(nil);
  WebAddress   := 'http://www.whatismyip.com/automation/n09230945.asp';
  
  try
     result:=idhttp1.Get(WebAddress);
    //NMHTTP1.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;
  result:=trim(result);
  idHttp1.Free;
end;



procedure TForm1.Button1Click(Sender: TObject);
begin
  edit1.Text:=getPublicIp;
end;

Unter dieser Webadresse gibt whatsmyip nur die IP Adresse aus.
Es ist nicht mehr nötig diese aus einer Stringlist oder aus einem TMemo
auszufiltern.

Wie Du siehst wird hier der das Object TidHttp aus der Indy Komponentensammlung
verwendet.
In den Uses sollte dann folgendes stehen:

Delphi-Quellcode:

uses 
  ...,IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient
  IdHTTP;

Ich habe die Indy Version 9 benutzt.

Grüße
Klaus