Ergebnis der Suchanfrage

• Forum: Netzwerke

  AW: Internet IP herausfinden

   
    by mschaefer, 24. Sep 2011
  Function TForm1.GeExtIP: string;
  var ndx: integer;
  begin
  result:=uppercase(Http1.Get('http:\\www.network-tools.com'));
  if result='' then result:='GET failed' else
  begin
  ndx:=pos('HOST',result);
  if ndx=0 then result:='host not found' else
  begin
  delete(result,1,ndx+4);