获取外网地址的方法（使用Synapse and lnet）

bugxiong

1. {$mode objfpc}{$H+}
   
2. 
   
3. uses
   
4.   fphttpclient;
   
5. 
   
6. begin
   
7.   with TFPHTTPClient.Create(nil) do
   
8.     try
   
9.       WriteLn(Get('http://automation.whatismyip.com/n09230945.asp'));
   
10.     finally
    
11.       Free;
    
12.     end;
    
13. end.

复制代码

你可以使用 http://ifconfig.me/ip 使用 LNet 和 HTTPClient 来获取：

1. function TForm1.HTTPClientInput(ASocket: TLHTTPClientSocket; ABuffer: pchar;
   
2.   ASize: integer): integer;
   
3. var
   
4.   oldLength: dword;
   
5.   HTTPBuffer: string;
   
6. begin
   
7.   oldLength := Length(HTTPBuffer);
   
8.   setlength(HTTPBuffer,oldLength + ASize);
   
9.   move(ABuffer^,HTTPBuffer[oldLength + 1], ASize);
   
10.   MemoHTML.Text := HTTPBuffer;
    
11.   MemoHTML.SelStart := Length(HTTPBuffer);
    
12.   Result := aSize; // tell the http buffer we read it all
    
13. end;   

复制代码

piaoxueboy

lazarus在linux下通过调用外部脚本获取外网IP

type
  TResultStatus = record
    ExitStatus: Integer;
    StatusStr: string;
  end;
  
function RunExternalFuncS(FuncName: string; ParaStr: string=''): TResultStatus;
var
  i: Integer;
  AProcess: TProcess;
  AStringList: TStringList;
begin
  Result.ExitStatus := -1;
  Result.StatusStr := '';

  AProcess := TProcess.Create(nil);
  AStringList := TStringList.Create;

  AProcess.CommandLine := FuncName + ' ' + ParaStr;
  AProcess.Options := AProcess.Options + [poWaitOnExit, poUsePipes];
  try
    try
      AProcess.Execute;
      Result.ExitStatus:= AProcess.ExitStatus;
    except
     
    end;
    AStringList.LoadFromStream(AProcess.Output);
    for i := 0 to AStringList.Count - 1 do
      if Trim(AStringList) <> '' then
        begin
          Result.StatusStr := Trim(AStringList);
          Break;
        end;
  finally
    AStringList.Free;
    AProcess.Free;
  end;
end;


function GetPublicNetIP(): string;
var
  rs: TResultStatus;
begin
  Result:= '';
  rs:= RunExternalFuncS('/opt/getpublicnetip');
  if (rs.ExitStatus = 0)  then Result:= rs.StatusStr;
end;   



#!/bin/bash
#Linux下的脚本文件(getpublicnetip)

NEWIP=''

NEWIP=`curl -s -S -t 6 -m 6 http://checkip.dyndns.org`

errorcode=$?
if [ $errorcode -ne 0 ]; then
  echo "don't get publicnetip"
  exit $errorcode
fi

NEWIP=`echo $NEWIP | sed 's/.*Current IP Address: \([0-9\.]*\).*/\1/g'`

if [ "X$NEWIP" != "X" ]; then
  echo "${NEWIP}"
  exit 0
else
  echo "ip is null"
  exit 1
fi