Release 23
git-svn-id: https://svn.code.sf.net/p/synalist/code/trunk@49 7c85be65-684b-0410-a082-b2ed4fbef004
This commit is contained in:
geby
707
synautil.pas
707
synautil.pas
@ -1,11 +1,11 @@
|
||||
{==============================================================================|
|
||||
| Project : Delphree - Synapse | 002.000.000 |
|
||||
| Project : Delphree - Synapse | 002.000.001 |
|
||||
|==============================================================================|
|
||||
| Content: support procedures and functions |
|
||||
|==============================================================================|
|
||||
| The contents of this file are subject to the Mozilla Public License Ver. 1.0 |
|
||||
| The contents of this file are subject to the Mozilla Public License Ver. 1.1 |
|
||||
| (the "License"); you may not use this file except in compliance with the |
|
||||
| License. You may obtain a copy of the License at http://www.mozilla.org/MPL/ |
|
||||
| License. You may obtain a Copy of the License at http://www.mozilla.org/MPL/ |
|
||||
| |
|
||||
| Software distributed under the License is distributed on an "AS IS" basis, |
|
||||
| WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License for |
|
||||
@ -32,428 +32,447 @@ unit SynaUtil;
|
||||
interface
|
||||
|
||||
uses
|
||||
sysutils, classes,
|
||||
SysUtils, Classes,
|
||||
{$IFDEF LINUX}
|
||||
libc;
|
||||
Libc;
|
||||
{$ELSE}
|
||||
windows;
|
||||
Windows;
|
||||
{$ENDIF}
|
||||
|
||||
function timezone:string;
|
||||
function Rfc822DateTime(t:TDateTime):String;
|
||||
function CodeInt(Value:word):string;
|
||||
function DeCodeInt(Value:string;Index:integer):word;
|
||||
function IsIP(Value:string):Boolean;
|
||||
function ReverseIP(Value:string):string;
|
||||
procedure Dump (Buffer:string;DumpFile:string);
|
||||
function SeparateLeft(value,delimiter:string):string;
|
||||
function SeparateRight(value,delimiter:string):string;
|
||||
function getparameter(value,parameter:string):string;
|
||||
function GetEmailAddr(value:string):string;
|
||||
function GetEmailDesc(value:string):string;
|
||||
function StrToHex(value:string):string;
|
||||
function IntToBin(value:integer;digits:byte):string;
|
||||
function BinToInt(value:string):integer;
|
||||
function ParseURL(URL:string; var Prot,User,Pass,Host,Port,Path,Para:string):string;
|
||||
function StringReplace(value,search,replace:string):string;
|
||||
function Timezone: string;
|
||||
function Rfc822DateTime(t: TDateTime): string;
|
||||
function CodeInt(Value: Word): string;
|
||||
function DecodeInt(const Value: string; Index: Integer): Word;
|
||||
function IsIP(const Value: string): Boolean;
|
||||
function ReverseIP(Value: string): string;
|
||||
procedure Dump(const Buffer, DumpFile: string);
|
||||
function SeparateLeft(const Value, Delimiter: string): string;
|
||||
function SeparateRight(const Value, Delimiter: string): string;
|
||||
function GetParameter(const Value, Parameter: string): string;
|
||||
function GetEmailAddr(const Value: string): string;
|
||||
function GetEmailDesc(Value: string): string;
|
||||
function StrToHex(const Value: string): string;
|
||||
function IntToBin(Value: Integer; Digits: Byte): string;
|
||||
function BinToInt(const Value: string): Integer;
|
||||
function ParseURL(URL: string; var Prot, User, Pass, Host, Port, Path,
|
||||
Para: string): string;
|
||||
function StringReplace(Value, Search, Replace: string): string;
|
||||
|
||||
implementation
|
||||
|
||||
{==============================================================================}
|
||||
{timezone}
|
||||
function timezone:string;
|
||||
|
||||
function Timezone: string;
|
||||
{$IFDEF LINUX}
|
||||
var
|
||||
t: TTime_T;
|
||||
UT: TUnixTime;
|
||||
bias:integer;
|
||||
h,m:integer;
|
||||
UT: TUnixTime;
|
||||
bias: Integer;
|
||||
h, m: Integer;
|
||||
begin
|
||||
__time(@T);
|
||||
localtime_r(@T,UT);
|
||||
bias:=ut.__tm_gmtoff div 60;
|
||||
if bias>=0 then result:='+'
|
||||
else result:='-';
|
||||
{$ELSE}
|
||||
localtime_r(@T, UT);
|
||||
bias := ut.__tm_gmtoff div 60;
|
||||
if bias >= 0 then
|
||||
Result := '+'
|
||||
else
|
||||
Result := '-';
|
||||
{$ELSE}
|
||||
var
|
||||
zoneinfo:TTimeZoneInformation;
|
||||
bias:integer;
|
||||
h,m:integer;
|
||||
zoneinfo: TTimeZoneInformation;
|
||||
bias: Integer;
|
||||
h, m: Integer;
|
||||
begin
|
||||
case GetTimeZoneInformation(Zoneinfo) of
|
||||
2: bias:=zoneinfo.bias+zoneinfo.DaylightBias;
|
||||
1: bias:=zoneinfo.bias+zoneinfo.StandardBias;
|
||||
else
|
||||
bias:=zoneinfo.bias;
|
||||
2:
|
||||
bias := zoneinfo.Bias + zoneinfo.DaylightBias;
|
||||
1:
|
||||
bias := zoneinfo.Bias + zoneinfo.StandardBias;
|
||||
else
|
||||
bias := zoneinfo.Bias;
|
||||
end;
|
||||
if bias<=0 then result:='+'
|
||||
else result:='-';
|
||||
if bias <= 0 then
|
||||
Result := '+'
|
||||
else
|
||||
Result := '-';
|
||||
{$ENDIF}
|
||||
bias:=abs(bias);
|
||||
h:=bias div 60;
|
||||
m:=bias mod 60;
|
||||
result:=result+format('%.2d%.2d',[h,m]);
|
||||
bias := Abs(bias);
|
||||
h := bias div 60;
|
||||
m := bias mod 60;
|
||||
Result := Result + Format('%.2d%.2d', [h, m]);
|
||||
end;
|
||||
|
||||
{==============================================================================}
|
||||
|
||||
{Rfc822DateTime}
|
||||
function Rfc822DateTime(t:TDateTime):String;
|
||||
function Rfc822DateTime(t: TDateTime): string;
|
||||
var
|
||||
I: Integer;
|
||||
SaveDayNames: array[1..7] of string;
|
||||
SaveMonthNames: array[1..12] of string;
|
||||
const
|
||||
MyDayNames: array[1..7] of string =
|
||||
('Sun', 'Mon', 'Tue', 'Wed', 'Thu', 'Fri', 'Sat');
|
||||
('Sun', 'Mon', 'Tue', 'Wed', 'Thu', 'Fri', 'Sat');
|
||||
MyMonthNames: array[1..12] of string =
|
||||
('Jan', 'Feb', 'Mar', 'Apr',
|
||||
'May', 'Jun', 'Jul', 'Aug',
|
||||
'Sep', 'Oct', 'Nov', 'Dec');
|
||||
('Jan', 'Feb', 'Mar', 'Apr',
|
||||
'May', 'Jun', 'Jul', 'Aug',
|
||||
'Sep', 'Oct', 'Nov', 'Dec');
|
||||
begin
|
||||
if ShortDayNames[1] = MyDayNames[1]
|
||||
then Result := FormatDateTime('ddd, d mmm yyyy hh:mm:ss', t)
|
||||
if ShortDayNames[1] = MyDayNames[1] then
|
||||
Result := FormatDateTime('ddd, d mmm yyyy hh:mm:ss', t)
|
||||
else
|
||||
begin
|
||||
for I := Low(ShortDayNames) to High(ShortDayNames) do
|
||||
begin
|
||||
SaveDayNames[I] := ShortDayNames[I];
|
||||
ShortDayNames[I] := MyDayNames[I];
|
||||
end;
|
||||
for I := Low(ShortMonthNames) to High(ShortMonthNames) do
|
||||
begin
|
||||
SaveMonthNames[I] := ShortMonthNames[I];
|
||||
ShortMonthNames[I] := MyMonthNames[I];
|
||||
end;
|
||||
Result := FormatDateTime('ddd, d mmm yyyy hh:mm:ss', t);
|
||||
for I := Low(ShortDayNames) to High(ShortDayNames) do
|
||||
ShortDayNames[I] := SaveDayNames[I];
|
||||
for I := Low(ShortMonthNames) to High(ShortMonthNames) do
|
||||
ShortMonthNames[I] := SaveMonthNames[I];
|
||||
end;
|
||||
Result := Result + ' ' + Timezone;
|
||||
end;
|
||||
|
||||
{==============================================================================}
|
||||
|
||||
function CodeInt(Value: Word): string;
|
||||
begin
|
||||
Result := Chr(Hi(Value)) + Chr(Lo(Value))
|
||||
end;
|
||||
|
||||
{==============================================================================}
|
||||
|
||||
function DecodeInt(const Value: string; Index: Integer): Word;
|
||||
var
|
||||
x, y: Byte;
|
||||
begin
|
||||
if Length(Value) > Index then
|
||||
x := Ord(Value[Index])
|
||||
else
|
||||
x := 0;
|
||||
if Length(Value) > (Index + 1) then
|
||||
y := Ord(Value[Index + 1])
|
||||
else
|
||||
y := 0;
|
||||
Result := x * 256 + y;
|
||||
end;
|
||||
|
||||
{==============================================================================}
|
||||
|
||||
function IsIP(const Value: string): Boolean;
|
||||
var
|
||||
n, x: Integer;
|
||||
begin
|
||||
Result := true;
|
||||
x := 0;
|
||||
for n := 1 to Length(Value) do
|
||||
if not (Value[n] in ['0'..'9', '.']) then
|
||||
begin
|
||||
Result := False;
|
||||
Break;
|
||||
end
|
||||
else
|
||||
begin
|
||||
for I := Low(ShortDayNames) to High(ShortDayNames) do
|
||||
begin
|
||||
SaveDayNames[I] := ShortDayNames[I];
|
||||
ShortDayNames[I] := MyDayNames[I];
|
||||
end;
|
||||
for I := Low(ShortMonthNames) to High(ShortMonthNames) do
|
||||
begin
|
||||
SaveMonthNames[I] := ShortMonthNames[I];
|
||||
ShortMonthNames[I] := MyMonthNames[I];
|
||||
end;
|
||||
Result := FormatDateTime('ddd, d mmm yyyy hh:mm:ss', t);
|
||||
for I := Low(ShortDayNames) to High(ShortDayNames) do
|
||||
ShortDayNames[I] := SaveDayNames[I];
|
||||
for I := Low(ShortMonthNames) to High(ShortMonthNames) do
|
||||
ShortMonthNames[I] := SaveMonthNames[I];
|
||||
end;
|
||||
Result:=Result+' '+Timezone;
|
||||
begin
|
||||
if Value[n] = '.' then
|
||||
Inc(x);
|
||||
end;
|
||||
if x <> 3 then
|
||||
Result := False;
|
||||
end;
|
||||
|
||||
{==============================================================================}
|
||||
|
||||
{CodeInt}
|
||||
function CodeInt(Value:word):string;
|
||||
begin
|
||||
Result := Chr(Hi(Value))+ Chr(Lo(Value))
|
||||
end;
|
||||
|
||||
{==============================================================================}
|
||||
|
||||
{DeCodeInt}
|
||||
function DeCodeInt(Value:string;Index:integer):word;
|
||||
function ReverseIP(Value: string): string;
|
||||
var
|
||||
x,y:Byte;
|
||||
x: Integer;
|
||||
begin
|
||||
if Length(Value)>index then x:=Ord(Value[index])
|
||||
else x:=0;
|
||||
if Length(Value)>(Index+1) then y:=Ord(Value[Index+1])
|
||||
else y:=0;
|
||||
Result:=x*256+y;
|
||||
end;
|
||||
|
||||
{==============================================================================}
|
||||
|
||||
{IsIP}
|
||||
function IsIP(Value:string):Boolean;
|
||||
var
|
||||
n,x:integer;
|
||||
begin
|
||||
Result:=true;
|
||||
x:=0;
|
||||
for n:=1 to Length(Value) do
|
||||
if not (Value[n] in ['0'..'9','.'])
|
||||
then begin
|
||||
Result:=False;
|
||||
break;
|
||||
end
|
||||
else begin
|
||||
if Value[n]='.' then Inc(x);
|
||||
end;
|
||||
if x<>3 then Result:=False;
|
||||
end;
|
||||
|
||||
{==============================================================================}
|
||||
|
||||
{ReverseIP}
|
||||
function ReverseIP(Value:string):string;
|
||||
var
|
||||
x:integer;
|
||||
begin
|
||||
Result:='';
|
||||
Result := '';
|
||||
repeat
|
||||
x:=LastDelimiter('.',Value);
|
||||
Result:=Result+'.'+Copy(Value,x+1,Length(Value)-x);
|
||||
Delete(Value,x,Length(Value)-x+1);
|
||||
until x<1;
|
||||
if Length(Result)>0 then
|
||||
if Result[1]='.' then
|
||||
x := LastDelimiter('.', Value);
|
||||
Result := Result + '.' + Copy(Value, x + 1, Length(Value) - x);
|
||||
Delete(Value, x, Length(Value) - x + 1);
|
||||
until x < 1;
|
||||
if Length(Result) > 0 then
|
||||
if Result[1] = '.' then
|
||||
Delete(Result, 1, 1);
|
||||
end;
|
||||
|
||||
{==============================================================================}
|
||||
|
||||
{dump}
|
||||
procedure dump (Buffer:string;DumpFile:string);
|
||||
procedure Dump(const Buffer, DumpFile: string);
|
||||
var
|
||||
n:integer;
|
||||
s:string;
|
||||
f:Text;
|
||||
n: Integer;
|
||||
s: string;
|
||||
f: Text;
|
||||
begin
|
||||
s:='';
|
||||
for n:=1 to Length(Buffer) do
|
||||
s:=s+' +#$'+IntToHex(Ord(Buffer[n]),2);
|
||||
Assignfile(f,DumpFile);
|
||||
if fileexists(DumpFile) then deletefile(PChar(DumpFile));
|
||||
rewrite(f);
|
||||
s := '';
|
||||
for n := 1 to Length(Buffer) do
|
||||
s := s + ' +#$' + IntToHex(Ord(Buffer[n]), 2);
|
||||
AssignFile(f, DumpFile);
|
||||
if FileExists(DumpFile) then
|
||||
DeleteFile(PChar(DumpFile));
|
||||
Rewrite(f);
|
||||
try
|
||||
writeln(f,s);
|
||||
Writeln(f, s);
|
||||
finally
|
||||
closefile(f);
|
||||
CloseFile(f);
|
||||
end;
|
||||
end;
|
||||
|
||||
{==============================================================================}
|
||||
{SeparateLeft}
|
||||
function SeparateLeft(value,delimiter:string):string;
|
||||
|
||||
function SeparateLeft(const Value, Delimiter: string): string;
|
||||
var
|
||||
x:integer;
|
||||
x: Integer;
|
||||
begin
|
||||
x:=pos(delimiter,value);
|
||||
if x<1
|
||||
then result:=trim(value)
|
||||
else result:=trim(copy(value,1,x-1));
|
||||
x := Pos(Delimiter, Value);
|
||||
if x < 1 then
|
||||
Result := Trim(Value)
|
||||
else
|
||||
Result := Trim(Copy(Value, 1, x - 1));
|
||||
end;
|
||||
|
||||
{==============================================================================}
|
||||
{SeparateRight}
|
||||
function SeparateRight(value,delimiter:string):string;
|
||||
|
||||
function SeparateRight(const Value, Delimiter: string): string;
|
||||
var
|
||||
x:integer;
|
||||
x: Integer;
|
||||
begin
|
||||
x:=pos(delimiter,value);
|
||||
if x>0
|
||||
then x:=x+length(delimiter)-1;
|
||||
result:=trim(copy(value,x+1,length(value)-x));
|
||||
x := Pos(Delimiter, Value);
|
||||
if x > 0 then
|
||||
x := x + Length(Delimiter) - 1;
|
||||
Result := Trim(Copy(Value, x + 1, Length(Value) - x));
|
||||
end;
|
||||
|
||||
{==============================================================================}
|
||||
{GetParameter}
|
||||
function getparameter(value,parameter:string):string;
|
||||
|
||||
function GetParameter(const Value, Parameter: string): string;
|
||||
var
|
||||
x,x1:integer;
|
||||
s:string;
|
||||
x, x1: Integer;
|
||||
s: string;
|
||||
begin
|
||||
x:=pos(uppercase(parameter),uppercase(value));
|
||||
result:='';
|
||||
if x>0 then
|
||||
x := Pos(UpperCase(Parameter), UpperCase(Value));
|
||||
Result := '';
|
||||
if x > 0 then
|
||||
begin
|
||||
s := Copy(Value, x + Length(Parameter), Length(Value)
|
||||
- (x + Length(Parameter)) + 1);
|
||||
s := Trim(s);
|
||||
x1 := Length(s);
|
||||
if Length(s) > 1 then
|
||||
begin
|
||||
s:=copy(value,x+length(parameter),length(value)-(x+length(parameter))+1);
|
||||
s:=trim(s);
|
||||
x1:=length(s);
|
||||
if length(s)>1 then
|
||||
begin
|
||||
if s[1]='"'
|
||||
then
|
||||
begin
|
||||
s:=copy(s,2,length(s)-1);
|
||||
x:=pos('"',s);
|
||||
if x>0 then x1:=x-1;
|
||||
end
|
||||
else
|
||||
begin
|
||||
x:=pos(' ',s);
|
||||
if x>0 then x1:=x-1;
|
||||
end;
|
||||
end;
|
||||
result:=copy(s,1,x1);
|
||||
end;
|
||||
end;
|
||||
|
||||
{==============================================================================}
|
||||
{GetEmailAddr}
|
||||
function GetEmailAddr(value:string):string;
|
||||
var
|
||||
s:string;
|
||||
begin
|
||||
s:=separateright(value,'<');
|
||||
s:=separateleft(s,'>');
|
||||
result:=trim(s);
|
||||
end;
|
||||
|
||||
{==============================================================================}
|
||||
{GetEmailDesc}
|
||||
function GetEmailDesc(value:string):string;
|
||||
var
|
||||
s:string;
|
||||
begin
|
||||
value:=trim(value);
|
||||
s:=separateright(value,'"');
|
||||
if s<>value
|
||||
then s:=separateleft(s,'"')
|
||||
else
|
||||
if s[1] = '"' then
|
||||
begin
|
||||
s:=separateright(value,'(');
|
||||
if s<>value
|
||||
then s:=separateleft(s,')')
|
||||
else
|
||||
begin
|
||||
s:=separateleft(value,'<');
|
||||
if s=value
|
||||
then s:='';
|
||||
end;
|
||||
s := Copy(s, 2, Length(s) - 1);
|
||||
x := Pos('"', s);
|
||||
if x > 0 then
|
||||
x1 := x - 1;
|
||||
end
|
||||
else
|
||||
begin
|
||||
x := Pos(' ', s);
|
||||
if x > 0 then
|
||||
x1 := x - 1;
|
||||
end;
|
||||
result:=trim(s);
|
||||
end;
|
||||
|
||||
{==============================================================================}
|
||||
{StrToHex}
|
||||
function StrToHex(value:string):string;
|
||||
var
|
||||
n:integer;
|
||||
begin
|
||||
result:='';
|
||||
for n:=1 to length(value) do
|
||||
Result:=Result+IntToHex(Byte(value[n]),2);
|
||||
result:=lowercase(result);
|
||||
end;
|
||||
|
||||
{==============================================================================}
|
||||
{IntToBin}
|
||||
function IntToBin(value:integer;digits:byte):string;
|
||||
var
|
||||
x,y,n:integer;
|
||||
begin
|
||||
result:='';
|
||||
x:=value;
|
||||
repeat
|
||||
y:=x mod 2;
|
||||
x:=x div 2;
|
||||
if y>0
|
||||
then result:='1'+result
|
||||
else result:='0'+result;
|
||||
until x=0;
|
||||
x:=length(result);
|
||||
for n:=x to digits-1 do
|
||||
result:='0'+result;
|
||||
end;
|
||||
|
||||
{==============================================================================}
|
||||
{BinToInt}
|
||||
function BinToInt(value:string):integer;
|
||||
var
|
||||
x,n:integer;
|
||||
begin
|
||||
result:=0;
|
||||
for n:=1 to length(value) do
|
||||
begin
|
||||
if value[n]='0'
|
||||
then x:=0
|
||||
else x:=1;
|
||||
result:=result*2+x;
|
||||
end;
|
||||
Result := Copy(s, 1, x1);
|
||||
end;
|
||||
end;
|
||||
|
||||
{==============================================================================}
|
||||
{ParseURL}
|
||||
function ParseURL(URL:string; var Prot,User,Pass,Host,Port,Path,Para:string):string;
|
||||
var
|
||||
x:integer;
|
||||
sURL:string;
|
||||
s:string;
|
||||
s1,s2:string;
|
||||
begin
|
||||
prot:='http';
|
||||
user:='';
|
||||
pass:='';
|
||||
port:='80';
|
||||
para:='';
|
||||
|
||||
x:=pos('://',URL);
|
||||
if x>0 then
|
||||
begin
|
||||
prot:=separateleft(URL,'://');
|
||||
sURL:=separateright(URL,'://');
|
||||
end
|
||||
else sURL:=URL;
|
||||
x:=pos('@',sURL);
|
||||
if x>0 then
|
||||
begin
|
||||
s:=separateleft(sURL,'@');
|
||||
sURL:=separateright(sURL,'@');
|
||||
x:=pos(':',s);
|
||||
if x>0 then
|
||||
begin
|
||||
user:=separateleft(s,':');
|
||||
pass:=separateright(s,':');
|
||||
end
|
||||
else user:=s;
|
||||
end;
|
||||
x:=pos('/',sURL);
|
||||
if x>0 then
|
||||
begin
|
||||
s1:=separateleft(sURL,'/');
|
||||
s2:=separateright(sURL,'/');
|
||||
end
|
||||
function GetEmailAddr(const Value: string): string;
|
||||
var
|
||||
s: string;
|
||||
begin
|
||||
s := SeparateRight(Value, '<');
|
||||
s := SeparateLeft(s, '>');
|
||||
Result := Trim(s);
|
||||
end;
|
||||
|
||||
{==============================================================================}
|
||||
|
||||
function GetEmailDesc(Value: string): string;
|
||||
var
|
||||
s: string;
|
||||
begin
|
||||
Value := Trim(Value);
|
||||
s := SeparateRight(Value, '"');
|
||||
if s <> Value then
|
||||
s := SeparateLeft(s, '"')
|
||||
else
|
||||
begin
|
||||
s := SeparateRight(Value, '(');
|
||||
if s <> Value then
|
||||
s := SeparateLeft(s, ')')
|
||||
else
|
||||
begin
|
||||
s1:=sURL;
|
||||
s2:='';
|
||||
s := SeparateLeft(Value, '<');
|
||||
if s = Value then
|
||||
s := '';
|
||||
end;
|
||||
x:=pos(':',s1);
|
||||
if x>0 then
|
||||
begin
|
||||
host:=separateleft(s1,':');
|
||||
port:=separateright(s1,':');
|
||||
end
|
||||
else host:=s1;
|
||||
result:='/'+s2;
|
||||
x:=pos('?',s2);
|
||||
if x>0 then
|
||||
begin
|
||||
path:='/'+separateleft(s2,'?');
|
||||
para:=separateright(s2,'?');
|
||||
end
|
||||
else path:='/'+s2;
|
||||
if host=''
|
||||
then host:='localhost';
|
||||
end;
|
||||
Result := Trim(s);
|
||||
end;
|
||||
|
||||
{==============================================================================}
|
||||
{StringReplace}
|
||||
function StringReplace(value,search,replace:string):string;
|
||||
|
||||
function StrToHex(const Value: string): string;
|
||||
var
|
||||
x,l,ls,lr:integer;
|
||||
n: Integer;
|
||||
begin
|
||||
if (value='') or (Search='') then
|
||||
begin
|
||||
result:=value;
|
||||
Exit;
|
||||
end;
|
||||
ls:=length(search);
|
||||
lr:=length(replace);
|
||||
result:='';
|
||||
x:=pos(search,value);
|
||||
while x>0 do
|
||||
begin
|
||||
l:=length(result);
|
||||
setlength(result,l+x-1);
|
||||
Move(pointer(value)^,Pointer(@result[l+1])^, x-1);
|
||||
// result:=result+copy(value,1,x-1);
|
||||
l:=length(result);
|
||||
setlength(result,l+lr);
|
||||
Move(pointer(replace)^,Pointer(@result[l+1])^, lr);
|
||||
// result:=result+replace;
|
||||
delete(value,1,x-1+ls);
|
||||
x:=pos(search,value);
|
||||
end;
|
||||
result:=result+value;
|
||||
Result := '';
|
||||
for n := 1 to Length(Value) do
|
||||
Result := Result + IntToHex(Byte(Value[n]), 2);
|
||||
Result := LowerCase(Result);
|
||||
end;
|
||||
|
||||
{==============================================================================}
|
||||
|
||||
function IntToBin(Value: Integer; Digits: Byte): string;
|
||||
var
|
||||
x, y, n: Integer;
|
||||
begin
|
||||
Result := '';
|
||||
x := Value;
|
||||
repeat
|
||||
y := x mod 2;
|
||||
x := x div 2;
|
||||
if y > 0 then
|
||||
Result := '1' + Result
|
||||
else
|
||||
Result := '0' + Result;
|
||||
until x = 0;
|
||||
x := Length(Result);
|
||||
for n := x to Digits - 1 do
|
||||
Result := '0' + Result;
|
||||
end;
|
||||
|
||||
{==============================================================================}
|
||||
|
||||
function BinToInt(const Value: string): Integer;
|
||||
var
|
||||
n: Integer;
|
||||
begin
|
||||
Result := 0;
|
||||
for n := 1 to Length(Value) do
|
||||
begin
|
||||
if Value[n] = '0' then
|
||||
Result := Result * 2
|
||||
else
|
||||
if Value[n] = '1' then
|
||||
Result := Result * 2 + 1
|
||||
else
|
||||
Break;
|
||||
end;
|
||||
end;
|
||||
|
||||
{==============================================================================}
|
||||
|
||||
function ParseURL(URL: string; var Prot, User, Pass, Host, Port, Path,
|
||||
Para: string): string;
|
||||
var
|
||||
x: Integer;
|
||||
sURL: string;
|
||||
s: string;
|
||||
s1, s2: string;
|
||||
begin
|
||||
Prot := 'http';
|
||||
User := '';
|
||||
Pass := '';
|
||||
Port := '80';
|
||||
Para := '';
|
||||
|
||||
x := Pos('://', URL);
|
||||
if x > 0 then
|
||||
begin
|
||||
Prot := SeparateLeft(URL, '://');
|
||||
sURL := SeparateRight(URL, '://');
|
||||
end
|
||||
else
|
||||
sURL := URL;
|
||||
x := Pos('@', sURL);
|
||||
if x > 0 then
|
||||
begin
|
||||
s := SeparateLeft(sURL, '@');
|
||||
sURL := SeparateRight(sURL, '@');
|
||||
x := Pos(':', s);
|
||||
if x > 0 then
|
||||
begin
|
||||
User := SeparateLeft(s, ':');
|
||||
Pass := SeparateRight(s, ':');
|
||||
end
|
||||
else
|
||||
User := s;
|
||||
end;
|
||||
x := Pos('/', sURL);
|
||||
if x > 0 then
|
||||
begin
|
||||
s1 := SeparateLeft(sURL, '/');
|
||||
s2 := SeparateRight(sURL, '/');
|
||||
end
|
||||
else
|
||||
begin
|
||||
s1 := sURL;
|
||||
s2 := '';
|
||||
end;
|
||||
x := Pos(':', s1);
|
||||
if x > 0 then
|
||||
begin
|
||||
Host := SeparateLeft(s1, ':');
|
||||
Port := SeparateRight(s1, ':');
|
||||
end
|
||||
else
|
||||
Host := s1;
|
||||
Result := '/' + s2;
|
||||
x := Pos('?', s2);
|
||||
if x > 0 then
|
||||
begin
|
||||
Path := '/' + SeparateLeft(s2, '?');
|
||||
Para := SeparateRight(s2, '?');
|
||||
end
|
||||
else
|
||||
Path := '/' + s2;
|
||||
if Host = '' then
|
||||
Host := 'localhost';
|
||||
end;
|
||||
|
||||
{==============================================================================}
|
||||
|
||||
function StringReplace(Value, Search, Replace: string): string;
|
||||
var
|
||||
x, l, ls, lr: Integer;
|
||||
begin
|
||||
if (Value = '') or (Search = '') then
|
||||
begin
|
||||
Result := Value;
|
||||
Exit;
|
||||
end;
|
||||
ls := Length(Search);
|
||||
lr := Length(Replace);
|
||||
Result := '';
|
||||
x := Pos(Search, Value);
|
||||
while x > 0 do
|
||||
begin
|
||||
l := Length(Result);
|
||||
SetLength(Result, l + x - 1);
|
||||
Move(Pointer(Value)^, Pointer(@Result[l + 1])^, x - 1);
|
||||
// Result:=Result+Copy(Value,1,x-1);
|
||||
l := Length(Result);
|
||||
SetLength(Result, l + lr);
|
||||
Move(Pointer(Replace)^, Pointer(@Result[l + 1])^, lr);
|
||||
// Result:=Result+Replace;
|
||||
Delete(Value, 1, x - 1 + ls);
|
||||
x := Pos(Search, Value);
|
||||
end;
|
||||
Result := Result + Value;
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
Reference in New Issue
Block a user