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; |
|