Delphi - IP Pubblico (Delphi7)

Forum - Delphi - IP Pubblico (Delphi7) - Pagina 2

Pagine: [ 1 2 ]

camaleonteplus (Normal User)
Pro

Messaggi: 95
Iscritto: 05/03/2009

Postato alle 15:10
Sabato, 07/05/2011

Riguardo a questo codice:

Codice sorgente - presumibilmente Delphi

function TForm1.GetPublicIp: String;
          begin
      IdHttp1.Request.Host:= 'http://www.whatismyip.com/automation/n09230945.asp';
      result := IdHttp1.Get('http://www.whatismyip.com/automation/n09230945.asp');
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  IPPubblico.Caption:= 'IP Pubblico: ' + (GetPublicIp);
end;

L'errore l'ho risolto bisognava inserire l'indirizzo del sito in entrambe le righe. Adesso funziona.

camaleonteplus (Normal User)
Pro

Messaggi: 95
Iscritto: 05/03/2009

Postato alle 15:17
Sabato, 07/05/2011

Dopo aver fatto le modifiche suggerite questo codice funziona:

Codice sorgente - presumibilmente Delphi

Function TForm1.GetMyIP: String;
Var oHttp: TIdHTTP;
    sStream: TStringStream;
    nPos: Integer;
    s:String;
begin
  sStream := TStringStream.Create(s);
  oHttp := TIdHTTP.Create(Nil);
  Result := 'Error';
  Screen.Cursor := crHourGlass;
  try
    Try
      oHttp.Get('http://www.ilmioip.it', sStream);  // tutta la pagina è nello stream
      nPos :=Pos('var IP_CLIENT =', sStream.DataString);
      if nPos>0 then
        Result:= copy(sStream.DataString,npos+17,14);
    Except
      ShowMessage('gestioneerrori');
    End;
  Finally
    freeandnil(sStream);
    freeandnil(oHttp);
    Screen.Cursor := crDefault;
  end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  IP.Caption:= 'IP Pubblico: ' + (GetMyIP);
end;

Ma c'è il problema che l'IP compare a video in questo modo:
191.20.30.1';
questo formato non va bene perchè questi 2 caratteri (') e (

danno fastidio se devo fare un Whois. Sarebbe perfetto se si potrebbero eliminare.

Goblin (Member)
Expert

Messaggi: 375
Iscritto: 02/02/2011

Postato alle 18:06
Sabato, 07/05/2011

modifica la riga 16 mangiando uno o due byte
Result:= copy(sStream.DataString,npos+17,12); oppure
Result:= copy(sStream.DataString,npos+17,13);

Ibis redibis non morieris in bello

smanettone83 (Normal User)
Pro

Messaggi: 124
Iscritto: 20/10/2010

Postato alle 2:41
Domenica, 08/05/2011

Testo quotato

Postato originariamente da Goblin:

modifica la riga 16 mangiando uno o due byte
Result:= copy(sStream.DataString,npos+17,12); oppure
Result:= copy(sStream.DataString,npos+17,13);

oppure piu semplicemente:

Codice sorgente - presumibilmente Plain Text

result:= copy(Sstream.dataStream,1,length(sstream.datastream)-2);// - 2 = elimina gli ultimi 2 caratteri

non lo ho testato provalo

Ultima modifica effettuata da smanettone83 il 08/05/2011 alle 2:43

Goblin (Member)
Expert

Messaggi: 375
Iscritto: 02/02/2011

Postato alle 17:37
Domenica, 08/05/2011

Testo quotato

Postato originariamente da smanettone83:

oppure piu semplicemente:

Codice sorgente - presumibilmente Plain Text

result:= copy(Sstream.dataStream,1,length(sstream.datastream)-2);// - 2 = elimina gli ultimi 2 caratteri

non lo ho testato provalo

dipende, in quanto in sStream.DataString c'e' tutta la pagina, dunque se ti va bene trovi quello cerchi altrimenti trovo sporcizia.

Ibis redibis non morieris in bello

smanettone83 (Normal User)
Pro

Messaggi: 124
Iscritto: 20/10/2010

Postato alle 20:05
Domenica, 08/05/2011

si certo era sottinteso che il contenuto della pagina era formato solo dall'ip

Pagine: [ 1 2 ]