<div dir="ltr"><div class="gmail_extra"><div class="gmail_quote">On Sat, Nov 7, 2015 at 12:13 PM, fecske fecske <span dir="ltr"><<a href="mailto:fecske95@gmail.com" target="_blank">fecske95@gmail.com</a>></span> wrote:<br><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left-width:1px;border-left-color:rgb(204,204,204);border-left-style:solid;padding-left:1ex">or see  this<br>
<a href="http://forum.lazarus.freepascal.org/index.php/topic,17506.msg110917.html#msg110917" rel="noreferrer" target="_blank">http://forum.lazarus.freepascal.org/index.php/topic,17506.msg110917.html#msg110917</a></blockquote></div><div><br></div><div>If you just want to get your external IP using some service like dyndns, you should use pure FCL:</div><div><br></div><div>=== begin code ===</div><div><br></div><div><div>uses fphttpclient, RegExpr;</div><div><br></div><div>procedure TForm1.Button1Click(Sender: TObject);</div><div>begin</div><div>  with TRegExpr.Create('[0-9.]+') do try</div><div>    if Exec(TFPHTTPClient.SimpleGet('<a href="http://checkip.dyndns.org">http://checkip.dyndns.org</a>')) then</div><div>      ShowMessage(Match[0])</div><div>  finally Free; end;</div><div>end;</div></div><div><br></div><div>=== end code ==</div><div><br></div><div>However, if you can use other service like <a href="http://echoip.com">echoip.com</a>, just:</div><div><br></div><div>=== begin code ===</div><div><br></div><div><div>uses  fphttpclient;</div><div><br></div><div>procedure TForm1.Button1Click(Sender: TObject);</div><div>begin</div><div>  ShowMessage(TFPHTTPClient.SimpleGet('<a href="http://echoip.com/')">http://echoip.com/')</a>);</div><div>end;</div></div><div><br></div><div>=== end code ===</div><div><br></div><div>HTH</div><div><br></div>-- <br><div class="gmail_signature"><div dir="ltr"><div>Silvio Clécio</div></div></div>
</div></div>