| IPStr2LWord Function | 
Unit
QESBPCSConvert
Declaration
Function IPStr2LWord(const IPAddr: string): LongWord;
Description
If ESBRaiseIPError is true then an Exception is raised if a IP Address Conversion error occurs, if false just returns 0.
| Parameters | 
| IPAddr | String representing an IP Address. | 
Category
String/Integer Conversion RoutinesImplementation
 
| function IPStr2LWord (const IPAddr: string): LongWord;
var
     I, P: Integer;
     S: string;
     X: Longword;
begin
     Result := 0;
     S := IPAddr;
     for I := 1 to 4 do
     begin
          P := ESBPosCh ('.', S);
          if P > 0 then
          begin
               X := Str2LWord (LeftStr (S, P - 1));
               S := RightAfterStr (S, P);
          end
          else
          begin
               X := Str2LWord (S);
               S := '';
          end;
          if (X > 255) then
          begin
               Result := 0;
               if ESBRaiseIPError then
                    raise EMathError.Create (rsIPAddrComp)
          end
          else
               Result := Result * Int64 (256) + X;
     end;
End; | 
|  |