Unit ip_misc

Classes

Functions

address_from - Parse the n'th email address out of a string

@\\\0000000401*) (*@/// function address_from(const s:string; count: integer):string;
decode_base64 - @\\\0000000201*) (*@/// function decode_base64(source:TStringList):TMemoryStream;
eight2seven_german - @\\\0000000201*) (*@/// function eight2seven_german(const s:string):string;
eight2seven_quoteprint - Convert 8bit to 7bit and back

@\\\0000000701*) (*@/// function eight2seven_quoteprint(const s:string):string;
encode_base64 - Binary stream -> Base64 (MIME) encoded strings and back

@\\\0000001A0E*) (*@/// function encode_base64(data: TStream):TStringList;
filename_of - Parse the filename out of a DOS/UNC file and path name

@\\\0000000C10*) (*@/// function filename_of(const s:string):string;
internet_date - The date in RFC 822 conform string format

@\\\0030000E01000E01000E01*) (*@/// function internet_date(date: TDateTime):string;
ip2string - IP-Address (network order) -> ###.
lookup_hostname - Hostname (or IP-String) -> ip-address (in network order)

@\\\0000001F35*) (*@/// function lookup_hostname(const hostname:string):longint;
my_hostname - Name of the local computer

@\\\0000001209*) (*@/// function my_hostname:string;
my_ip_address - (Main) IP address of the local computer (network order

@\\\*) (*@/// function my_ip_address:longint;
poscn - Find the n'th char unequal from left or from right

@\\\*) (*@/// function poscn(c:char; const s:string; n: integer):integer;
posn - Find n'th occurence of a substring, from left or from right

@/// Some string utility functions *) (*@/// function posn(const s,t:string; count:integer):integer;
resolve_hostname - IP-Address (network order) -> (Main) hostname

@\\\0000001601*) (*@/// function resolve_hostname(ip: longint):string;
setlength - @\\\0000000C0B*) (*@/// procedure setlength(var s:string; l: byte);
seven2eight_quoteprint - @\\\*) (*@/// function seven2eight_quoteprint(const s:string):string;
TimeZoneBias - $endif *) (* The offset to UTC/GMT in minutes of the local time zone

@\\\000000012C*) (*$endif *) (*@\\\0000000201*) (*@/// function TimeZoneBias:longint; // in minutes !
trim - Delphi 1 didn't know these, but they are useful/necessary for D2/D3 *) (*$ifdef ver80

@\\\000000012D*) (*$ifdef ver80 *) (*@/// function trim(const s:string):string;

Types

ta_8u
t_encoding

Constants

INVALID_IP_ADDRESS

Variables

tcpip_ready


Functions


function address_from(const s:string; count: integer):string;

Parse the n'th email address out of a string

@\\\0000000401*) (*@/// function address_from(const s:string; count: integer):string;


function decode_base64(source:TStringList):TMemoryStream;

@\\\0000000201*) (*@/// function decode_base64(source:TStringList):TMemoryStream;

function eight2seven_german(const s:string):string;

@\\\0000000201*) (*@/// function eight2seven_german(const s:string):string;

function eight2seven_quoteprint(const s:string):string;

Convert 8bit to 7bit and back

@\\\0000000701*) (*@/// function eight2seven_quoteprint(const s:string):string;


function encode_base64(data: TStream):TStringList;

Binary stream -> Base64 (MIME) encoded strings and back

@\\\0000001A0E*) (*@/// function encode_base64(data: TStream):TStringList;


function filename_of(const s:string):string;

Parse the filename out of a DOS/UNC file and path name

@\\\0000000C10*) (*@/// function filename_of(const s:string):string;


function internet_date(date: TDateTime):string;

The date in RFC 822 conform string format

@\\\0030000E01000E01000E01*) (*@/// function internet_date(date: TDateTime):string;


function ip2string(ip_address:longint):string;

IP-Address (network order) -> ###.###.###.###

@\\\0000000201*) (*@/// function ip2string(ip_address:longint):string;


function lookup_hostname(const hostname:string):longint;

Hostname (or IP-String) -> ip-address (in network order)

@\\\0000001F35*) (*@/// function lookup_hostname(const hostname:string):longint;


function my_hostname:string;

Name of the local computer

@\\\0000001209*) (*@/// function my_hostname:string;


function my_ip_address:longint;

(Main) IP address of the local computer (network order

@\\\*) (*@/// function my_ip_address:longint;


function poscn(c:char; const s:string; n: integer):integer;

Find the n'th char unequal from left or from right

@\\\*) (*@/// function poscn(c:char; const s:string; n: integer):integer;


function posn(const s,t:string; count:integer):integer;

Find n'th occurence of a substring, from left or from right

@/// Some string utility functions *) (*@/// function posn(const s,t:string; count:integer):integer;


function resolve_hostname(ip: longint):string;

IP-Address (network order) -> (Main) hostname

@\\\0000001601*) (*@/// function resolve_hostname(ip: longint):string;


procedure setlength(var s:string; l: byte);

@\\\0000000C0B*) (*@/// procedure setlength(var s:string; l: byte);

function seven2eight_quoteprint(const s:string):string;

@\\\*) (*@/// function seven2eight_quoteprint(const s:string):string;

function TimeZoneBias:longint;

$endif *) (* The offset to UTC/GMT in minutes of the local time zone

@\\\000000012C*) (*$endif *) (*@\\\0000000201*) (*@/// function TimeZoneBias:longint; // in minutes !


function trim(const s:string):string;

Delphi 1 didn't know these, but they are useful/necessary for D2/D3 *) (*$ifdef ver80

@\\\000000012D*) (*$ifdef ver80 *) (*@/// function trim(const s:string):string;


Types


ta_8u=packed array [0..65530] of byte;
only invalid as a host ip, maybe OK for broadcast
t_encoding=(uuencode,base64,mime);

Constants

INVALID_IP_ADDRESS = $ffffffff


Variables

tcpip_ready : boolean

@\\\