Open File
Font Larger +
Quit
Replace
Save!
Delete Line
Use Case Editor
Paste
URI Links
Reserved for coding use internal
Delete Line
Undo
ref F1 Help to Func List
F2 Syntax Check
F3 Search Next
F4 New Instance
F5 Line Mark /Breakpoint
F6 Goto End
F7 Debug Step Into
F8 Debug Step Out
F9 Compile
F10 Menu
F11 Word Count Highlight
F12 Reserved for coding use internal
AddRegisteredVariable('Application', 'TApplication;
AddRegisteredVariable('Screen', 'TScreen;
AddRegisteredVariable('Self', 'TForm;
AddRegisteredVariable('Memo1', 'TSynMemo;
AddRegisteredVariable('memo2', 'TMemo;
AddRegisteredVariable('maxForm1', 'TMaxform1; //!!
AddRegisteredVariable('debugout', 'Tdebugoutput; //!!
AddRegisteredVariable('hlog','THotlog; //!!
AddRegisteredVariable('mouse','TMouse; //!!
AddRegisteredVariable( it ,Int; //for closure and each loop!!
AddRegisteredVariable( sr ,string; //for closure
AddRegisteredVariable( bt ,boolean; //for closure
AddRegisteredVariable( ft ,double; //for closure
AddRegisteredVariable( srlist ,TStringlist; //for closures
def ReservedWords: array[0..86] of string =
('and', 'array', 'as', 'asm', 'at', 'begin', 'case', 'class', 'const',
'constructor', 'default', 'destructor', 'dispinterface', 'div', 'do',
'downto', 'else', 'end', 'except', 'exports', 'file', 'finalization',
'finally', 'for', 'function', 'goto', 'if', 'implementation', 'in',
'inherited', 'initialization', 'inline', 'interface', 'is', 'label',
'library', 'message', 'mod', 'nil', 'not', 'object', 'of', 'on', 'or',
'out', 'packed', 'procedure', 'program', 'property', 'raise', 'read',
'record', 'repeat', 'resourcestring', 'set', 'shl', 'shr', 'string',
'stored', 'then', 'threadvar', 'to', 'try', 'type', 'unit', 'until',
'uses', 'var', 'while', 'with', 'write', 'xor', 'private', 'protected', xraise
'public', 'published',def,ref,using,typedef ,memo1','memo2','doc','maxform1','it';
AllowedChars: array[0..5] of string = ('(',')', '[', ']',' ',' t,t1,t2,t3:Bool;
//------------------------------------------------------------------------------
//**************End of mX4 Public Tools API ***********************************
//------------------------------------------------------------------------------
maXbox 4 Internal Now Inventory INI Nov 2017
Amount of Functions: 18547
Amount of Procedures: 11143
Amount of Constructors: 1730
Totals of Calls: 31420
SHA1: of 4.5.8.10 FFF8300142CE582DFCC8E15489AD7D5EE2E08062
CRC32: A013C5BC: 28465616 bytes
mX4 executed: 03/01/2018 17:10:09 Runtime: 0:8:5.816 Memload: 29% use
maXbox 4 Internal Now Inventory INI Dez 2019
Amount of Functions: 18929
Amount of Procedures: 11351
Amount of Constructors: 1771
Amount of Destructors: 12
Totals of Calls: 32063
SHA1: of 4.7.1.80 E372D00CE31BDFC30A29F6C1F77600ABD25AFDB8
CRC32: 3C620310: 28952992 bytes
mX4 executed: 03/12/2019 23:15:23 Runtime: 0:9:29.13 Memload: 48% use
V 4.7.4.64
Totals of Func Calls: 32633, 75 Tutorials
SHA1: of 4.7.4.64 DA4C716E31E2A4298013DFFBDA7A98D48650B0C7
CRC32: 3EB27A87: 28.2 MB (29,608,248) bytes
Total of Function Calls: 36354
SHA1: 4.7.6.20 F60338A77B77F2032061BF72A545AFB727F6395F
CRC32: 48455EF8 32.8 MB (34,419,992 bytes)
Compilation Timestamp 2023-01-26 15:36:15 UTC Signtime 26 Jan. 2023 16:41:42
Entry Point 25033256 - Contained Sections 10
Docu: http://www.softwareschule.ch/maxbox_functions.txt
ZIP maxbox4.zip SHA1: CCFC28FE69E5F62590335C406171500ADDE08A9A
************************************************************
Doc Short Manual with 70 Tips! Troublshooter - Errors
************************************************************
- Editor: dont ever load and save a BINARY file in the editor, it saves as CRLF text !
- Install: just save your maxboxdef.ini before and then extract the zip file!
- Toolbar: Click on the red maXbox Sign (right on top) opens your work dir or jump to
- Menu: With you check syntax with you debug and you compile!
- Menu: With you can search for code on examples
- Menu: Open in menu Output a new instance of the box to compare or prepare your scripts
- Menu: Set Interface Naviagator in menu /View/Intf Navigator
- Menu: Switch or toogle between last 2 scripts in menu File/LoadLast(History is set to 9 files)
- Inifile: Set memory report in ini:MEMORYREPORT=Y :report on memoryleaks on shutdown by dialog
- Inifile: Refresh (reload) the inifile after edit with ../Help/Config Update
- Inifile: Set VERSIONCHECK=N and MEMORYREPORT=N to speedup boot and shutdown of box
- Context Menu: You can printout your scripts as a pdf-file or html-export
- Context: You do have a context menu with the right mouse click
- Menu: With the UseCase Editor you can convert graphic formats too.
- Menu: On menu Options you find Addons as compiled scripts
- IDE: Menu Program: Run Only is faster, after F2 - You dont need a mouse use shortcuts
- Menu: Check Options/ProcessMessages! if something is wrong or you cant see graphics in a time
- IDE: Dragndrop scripts in box or model in use case editor(Cut,Copy,Paste always available)
- Editor: You can get templates as code completion with in editor like classp or iinterface or ttimer
(you type classp and then CTRL J),or you type tstringlist and
- Menu: In menu output (console) set output menu in edit mode by unchecking
- Editor: After the end. you can write or copy notes or descriptions concerning the app or code
- Code: If you code a loop till key-pressed use function: isKeyPressed;
- Code: Macro set the macros #name,dmMaxMaxinistratorth, #file,s.txtmaxbox_functions.txtist5.pdf
- Code: change Syntax in autoboot macro 'maxbootscript.txt'
- Editor: - Click on Word in Editor search amount of words with highlighting,Dbl Click on Bookmarks to delete and Click and mark to drag a bookmark
- Menu: To start handling from CD-ROM (read only mode) uncheck in Menu /Options/Save before Compile
- IDE: A file info with system and script information you find in menu Program/Information
- IDE: After change the config file in help you can update changes in menu Help/Config Update
- IDE: Make a screenshot of the content and environment in menu Output/Save Screenshot
- IDE: Use a boot loader script 'maxbootscript.txt' (as auto start) to change box each time start it.
- IDE: With escape or Q you can also leave box or stopscript in menu program - stop program
- Editor: Set Bookmarks to check your work in app or code
- Editor: With you set {$Active Line Color} and F11 you get Word Count Statistic on Output too
- Editor: With {//TODO: some description} or DONE you set code entries for ToDo List in ../Help/ToDo List
- Editor: With you set active URL links in code to test availability in Context Menu
- Editor shortcut Ctrl+Alt+M to jump to output (memo2) console
- IDE with menu /Options/ADO SQL Workbench you can manage your Database
- Context Menu: You can write your docus with RichEdit RTF printout /Editor Form Options/Richedit
- Menu: Set Interface Naviagator also with toogle or /View/Intf Navigator
- Toolbar: In menu /View switch Off Toolbar and Coolbar to get more coding space
- Code: Put some resources in your code /Help/Resource Explorer like bitbtn, forms, dialogs;
- Code Editor: Compile with but also Alt C in case isnt available;
- Code: if you cant run a Func try the second one, for ex. Voice()-Voice2(),inc() - inc1()
- IDE set bookmarks with (0..9) and jump with (0..9)
- IDE menu /Help/Tools/ write with RTF Editor or open a DOS Shell or browse
- IDE menu /Help/Tools/ open the Task Manager
- Editor: set doc section after end. end. in units and interface with begin main end!
- new Style: menu//Output/Darkcolor
http://www.softwareschule.ch/images/maXbox4_darkcolor.png
http://www.softwareschule.ch/images/maXbox4_darkcolor3.png
- Add on write your Requirements in RTF Docu with in context menu
- Add on when no browser is available start /Options/Add ons/Easy Browser
- Add on SOAP Tester with SOP POST File
- Add on IP Protocol Sniffer with List View
- Add on OpenGL mX Robot Demo for android
- Add on Checkers Game, Add on Oscilloscope /View GEO Map View3
- Menu: Help/Tools as a Tool Section with DOS Opener
- Menu Editor: export the code as RTF File
- Menu: Help/Tools/Syn Export your code as available in HTML or RTF
- Menu: Help/Tools/ with you start the DOS Shell
- Context: Auto Detect of Syntax depending on file extension
- Code: some Windows API Func start with w in the name like wGetAtomName();
- IDE Close - if you cant close the box then reset it in menu /Debug
- IDE File Check with menu ..View/File Changes/...
- Context: Create a Header with Create Header in Navigator List at right window
- Code: use SysErrorMessage to get a real Error Description, Ex.
RemoveDir('c:\NoSuchFold;writeln('System Error Message:'+SysErrorMessage(GetLastError));
- IDE getWebScript from a URL with menu ..Help/Get Web Script/...
- Editor: with you can click on hyperlinks in Code - CTRL Click on link
- Editor: with you can write in RTF format with RichEdit link
- Editor: with you can fill your To Do List.
- Editor: with you jump to output window below (memo2).
- Menu: Check Help/Tools! you can use richedit, DOS Shell or Explorer
- Menu: Start View/MyScript of ini file maxboxdef.ini [MYSCRIPT]= path of script
- Indent: close you doc lines with //} for {...}
- Menu: Help/ToDo List add prio and user with {/1.......//}
Name#Prio# example:
{/1 TODO (maxname#7#): do the new task one34 then mX4' //}
- With this code I get an EIdHTTPProtocolException with the message "HTTP/1.1 403 Forbidden".
Set the IdHTTP1.Request.UserAgent to some browser's user agent and you'll get it to work. Server doesn't like the Indy's default one
and rejects its request.
with TIdHTTP.Create(self) do begin
Request.UserAgent:= 'maXbox4 compatible';
get('http://www.softwareschule.ch/examples/robo.txt')
free
end;
use for TRegistry.create constructor TRegistry.Create1
in maxbox_functions.txt add TRegistry.Create1
//In the ServiceAfterUninstall method add these lines:
// begin
// Delete registry entries for event viewer.
Key:= '\SYSTEM\CurrentControlSet\Services\Eventlog\Application\' + Self.Name;
Reg:= TRegistry.Create1(KEY_READ or KEY_WRITE);
try
Reg.RootKey := HKEY_LOCAL_MACHINE;
if Reg.KeyExists(Key) then
Reg.DeleteKey(Key);
finally
Reg.Free;
end;
Func AnsiByteArrayStringLen2(Data: TBytes): Integer;
Func StringToAnsiByteArray2(const S:Str): TBytes;
Func AnsiByteArrayToString2(const Data: TBytes; Count: Integer):Str;
Func BytesOf(const Value: Ansistr): TBytes;
Func BytesOfChar(const Value: AnsiChar): TBytes;
Func StringOf(const Bytes: array of Byte): Ansistr;
- using DLL example in maXbox: //function: {***********************}
Func GetProcessMemoryInfo(Process:THandle;var MemoryCounters:TProcessMemoryCounters;cb:DWORD):BOOL;//stdcall;
External 'GetProcessMemoryInfo@psapi.dll stdcall';
Func OpenProcess(dwDesiredAccess:DWORD;bInheritHandle:BOOL;dwProcessId: DWORD):THandle;
External 'OpenProcess@kernel32.dll stdcall';
Win API direct DLL with array of char result:
//https://docs.microsoft.com/en-us/windows/win32/api/shlobj_core/nf-shlobj_core-shgetfolderpatha
function SHGetFolderPathA(hwnd: HWND; csidl: integer; htoken: THANDLE;
dwflags: DWORD; pszPath: string): HRESULT;
external 'SHGetFolderPathA@Shell32.dll stdcall';
function GetMyPictures: string;
var pStr: string; //array[0..260] of Char;
begin
setLength(pstr, 260-1);
if SHGetFolderPathA(0, CSIDL_MYPICTURES, 0,0, pStr) = S_OK then
Result:= pStr;
end;
>>> GetMyPictures path C:\Users\Max\OneDrive\Pictures
GCC Compile Ex Script
Proc TFormMain_btnCompileClick(Sender: TObject);
begin
AProcess:= TProcess.Create(Nil);
try AProcess.CommandLine := 'gcc.exe "' + OpenDialog1.FileName + '"'
+ ' -o "' + OpenDialog2.FileName + '"';
AProcess.Options:= AProcess.Options + [poWaitOnExit, poUsePipes];
AProcess.Execute;
Memo2.Lines.BeginUpdate;
Memo2.Lines.Clear;
Memo2.Lines.LoadFromStream(AProcess.Output);
Memo2.Lines.EndUpdate;
finally
AProcess.Free;
end;
end;
ref Stopwatch pattern snip
Time1:= Time;
writeln(formatdatetime('"start:" hh:mm:ss:zzz',Time))
if initAndStartBoard then
writeln('Filesize: '+inttoStr(filesize(FILESAVE)));
writeln(formatDateTime('"stop:" hh:mm:ss:zzz',Time))
PrintF('%d %s',[Trunc((Time-Time1)*24),FormatDateTime('"h runtime:" nn:ss:zzz',Time-Time1)])
POST git-receive-pack (chunked)
Pushing to https://github.com/maxkleiner/maXbox3.git
To https://github.com/maxkleiner/maXbox3.git f127d21..c6a98da masterbox2 -> masterbox2
updating local tracking ref 'refs/remotes/maXbox3Remote/masterbox2'
-----------------------------------------------------------------------------
History Shell Hell - Walk the Talk - CoolCode
PCT Precompile Technology , mX4 ScriptStudio
Indy, JCL, Jedi, VCL, Systools, TurboPower, Fundamentals, ExtendedRTL, Synedit
DMath, devC, Graphics32, ExtPascal, mX4, LCL, CLX, FCL, CPort and more
emax layers: system-package-component-unit-class-function-block
new keywords def ref using maXCalcF UML xraise: use case act class state seq pac comp dep - lib lab
FBX Lib, psAPI, SMS Cell Module, OpenGL, Borland Tools
Tutorials, 30 Units add, VCL constructors, controls plus, unit list
2 Tutorials, 36 Units add, Synapse V40, LDAP, OpenSSL, AVScan
1 Report, 15 Units add, DBCtrls, Stream+, IRadio, Wininet
1 DLL Report, 24 Units add, DRTable, Remote+, Cindy functions!
DLL Report, UML Tutor, 32 Units add, DRTable, Remote+, Cindy functions!
Oscilloscope V4, Mixer, 17 Units add, URLMon, Form properties+, mathmax
SendBuffer, Color+Caption hack,ComboSet,SetPrivilege,WakeOnLAN,ParaDice 3DCube Polygraph,OCR
GetScript or GetWebScript, GPS Example, Profiler, Checkers, Toolbox commons
Add 15 Units, Wav resources, RoundTo, OpenOffice, Pipes
TFixedCriticalSection, XPlatform beta, GCC Command Pipe
Inno Install and Setup Routines Add 32 Units, Wav res, RoundTo, OpenOffice, Pipes, GSM2
TFixedCriticalSection, XPlatform beta, GCC Command Pipe
VfW (Video), FindFirst3, ResFiler, AssemblyCache, UnitTest
9 Color LED, LED Resources, Runtime LED, it + sr var , morse generator
Add 5 Units, 1 Tutors, maXmap, OpenStreetView, MAPX
Func Menu/View/GEO Map View, DownloadFile, wgetX, sensors
StreamUtils, IDL Syntax, OpenStreetMap, runByteCode, sensor panel, CGI of Powtils
ByteCode2, IPUtils2, GEOCode, CGI-Powtils, GPS_2, External App, Unit Converter
Add 16 Units, 1 Slide,Tutor, Big Numbers (Decimals, TInt), ModBusTCP, TGEOInfo
Add 36 Units, 1 Tutor, SOAPConn, AVI Res, OLEUtils, ACM, CDS, XMLDoc, DDE
Add 77 Units, 12 Tutors, ChangeTracker, CPP+,OLEUtils2,xmldom,Chess4,3DFrame,XMLRPC,X509
Add 15 Units, 1 Tutor, Pipe Libraray2, KLog, FPlot42, KDialogs, NumEdit, KControls, Kronos
add 12 units and 125 functions - Class Helper - KMemo RTF
add 16 units and 365 functions- WMI Script Type Library - webbox -restbox
V4.6.2.10 Jan 2018:Tutor 56 Neural Network-Python Checker- 3 more Units PascalCoin
V4.7.1.10 Sep 2019:Tutor 57-70, VState Machine,CGI,MachineLearning +20 Units +Tensorflow dll
V4.7.1.82 Dec 2019:Tutor-72,EKON23Fixing,WebSocks/Spider,PHP_CGI,JS,OpenOffice,7+overbyte Units
V4.7.4.64 June 2020: EKON24 Fixing, uPSI_SimpleRSS, Json Base Prometheus, neural CAI, Dendron
V4.7.5.20 Jan 2021: few Fundamentals 5.00, JCL fixes, GraphMathLibrary, StringBuilder
V4.7.5.80 July 2021: RSS+, WDCC, P4D_Beta (Python4Delphi), Wininet Threads
V4.7.5.90 October 2021: FLC Vectors, CAI Neuralnet, SingleListClass
V4.7.6.20 October 2022: Threadslist,CAI Neuralnet3,P4D+,EKON25 fixing,klib,HTTPClient2, -c CLI, PSProc
V4.7.6.20 Jan 2023: Threadslist, CAI Neuralnet3, P4D+, EKON25 fixing, klib, HTTPClient2, -c CLI, PSProc
V4.7.6.50 May 2023: internals - TProcess2 dprocess - xmlstorage -AsphyreTimer -pacman core
Ref:
https://unibe-ch.academia.edu/MaxKleiner
http://www.slideshare.net/maxkleiner1
http://www.scribd.com/max_kleiner
http://www.delphiforfun.org/Programs/Utilities/index.htm
http://www.slideshare.net/maxkleiner1
http://s3.amazonaws.com/PreviewLinks/22959.html
http://www.softwareschule.ch/arduino_training.pdf
http://www.jrsoftware.org/isinfo.php
http://www.be-precision.com/products/precision-builder/express/
http://www.blaisepascal.eu/
http://www.delphibasics.co.uk/
http://www.youtube.com/watch?v=av89HAbqAsI
http://www.angelfire.com/hi5/delphizeus/modal.html
http://www.retroarchive.org/garbo/pc/turbopas/index.html
https://github.com/dilshan/signalman/blob/master/SignalManTemplate.pas
http://delphi.org/2014/01/every-android-api-for-delphi/
https://en.wikipedia.org/wiki/User:Maxkleiner
http://en.wikipedia.org/wiki/Megido_%28Free_Pascal%29
https://bitbucket.org/max_kleiner/maxbox3
https://bitbucket.org/max_kleiner/maxbox3/downloads
https://bitbucket.org/max_kleiner/maxbox3/wiki/maXbox%20Tutorials
http://www.slideshare.net/maxkleiner1/codereview-topics
http://www.abaecker.biz/images/abakus/images/TAbCompass.gif
http://www.softpedia.com/get/Programming/Other-Programming-Files/maXbox.shtml
https://entwickler-konferenz.de/blog/machine-learning-mit-cai/
https://github.com/maxkleiner/python4delphi/blob/master/Source/PythonEngine.pas
http://max.kleiner.com/boxart.htm
https://maxbox4.wordpress.com
https://archive.org/details/maxbox4
UrlGoogleQrCode='http://chart.apis.google.com/chart?chs=%dx%d&cht=qr&chld=%s&chl=%s';
UrlMapQuestAPICode2='http://open.mapquestapi.com/nominatim/v1/search.php?format=%s&json_callback =renderBasicSearchNarrative&q=%s';
UrlMapQuestAPIReverse:= 'http://open.mapquestapi.com/nominatim/v1/reverse.php?format=
%s&json_callback=renderExampleThreeResults&lat=%s&lon=%s';
SAMPLES Snippets Blocks and Error or Errors or Bugs or Bug List or Trouble Bug Fix Errorlist bugfix codes
------------------------------------------------- Troubleshooter
[Error] C:\maXbox\TestApp2\sonysavefeb2014\TestApp\tetris\175_pas_anti_tetris2.txt(1:1): Variable Expected
dont inc an longint in plus Inc(Score+5); ---> solution: Inc(Score);
Editor: index out of bounds error exception in editor after open or modified
03/12/2019 20:10:50 V:4.7.1.20 [Max] MAXBOX10 List index out of bounds (147).
This is due of Editor Indent ../Options/Show Indent
4 Workarounds:
1 simply move cursor to right or left and save (Ctrl+S)
2 Goto to end or line (147) or what it says and return new line or tab
3 Disable in menu
4 Set INDENT=N in maxboxdef.ini for runtime systems
can not see the Form , Form not visible ---> add Show;
frm:= TmyForm.create(self)
with frm do begin
Left := 245
Top := 108
BorderStyle := bsDialog
Caption := 'Suggestions'
ClientHeight := 219
ClientWidth := 297
Color := clBtnFace
//TextHeight := 20
Show; ------------------------->
Exception Handling Raise and XRaise
type EPowerException = Exception;
...end else
Xraise( EPowerException.Create('Infinite Result'));
end;
if (X > 0) then
try
result := exp(N * ln(X));
exit;
except
raise EPowerException.Create('Overflow/Underflow Result');
end;
- Object with an Record inside get first a record instance and second you get the attribute
Proc testprimesPerformance; // Performance Test
var count, beg, j, r: integer;
var f :boolean;
begin
processmessagesOFF
Println(' prime time performance check ?????: ');
count:= 0;
beg:= Random(1000000000)+2;
for it:=beg to beg+5000 do begin
f:= True;
j:= 2;
r:= Round(Sqrt(it));
while f and (j<=r) do
if it mod j = 0 then f:= False
else inc(j);
if f then begin
Print(itoa(it)+' ');
count:= count+ 1;
if count mod 8 = 0 then
Println('');
end;
end;
processmessagesON;
end;
RSS-FEED Rss Feed
IIndyHTTP:=TIdHTTP.create(self);
with TSimpleRSS.create(self) do begin
XMLType:= xtRDFrss;
IndyHTTP:= iindyhttp;
LoadFromHTTP(RSS_NewsFeed)
for it:= 0 to items.count-1 do begin
//Items[it].description
writeln(itoa(it)+': '+Items[it].title+' :'{+items[it].link});
println(GetSentimentStream7(URLSentimentAPI2,Items[it].title));
end;
free;
IIndyHTTP.Free;
end; //}
Ver: 4.7.4.64 (474). Workdir: C:\maXbox\mX47464\maxbox4
mX4 executed: 05/11/2020 17:57:05 Runtime: 0:0:39.224 Memload: 60% use
Func OpenMap(const Data:Str):Bool;
var encURL:Str;
begin
encURL:= Format(UrlMapQuestAPICode2,['html',HTTPEncode(Data)]);
try //HttpGet(EncodedURL, mapStream); //WinInet
Result:= UrlDownloadToFile(Nil,PChar(encURL),PChar(Exepath+'openmapx.html'),0,Nil)= 0;
//OpenDoc(Exepath+'openmapx.html;
S_ShellExecute(Exepath+'openmapx.html','',seCmdOpen);
finally encURL:= '';
end;
end;
Proc GetGEOMap(C_form,apath:Str; const Data:Str);
var encodedURL:Str; mapStream: TMemoryStream;
begin //encodedURL:= Format(UrlGoogleQrCode,[Width,Height,C_Level, HTTPEncode(Data)]);
encodedURL:= Format(UrlMapQuestAPICode2,[c_form,HTTPEncode(Data)]);
mapStream:= TMemoryStream.create;
try
Wininet_HttpGet(EncodedURL, mapStream); //WinInet
mapStream.Position:= 0;
mapStream.Savetofile(apath); // OpenDoc(apath);
S_ShellExecute(apath,'',seCmdOpen);
finally
mapStream.Free;
end;
end;
Web Request API HTTPSend:
//http://synapse.ararat.cz/doc/help/httpsend.THTTPSend.html#@Description
Const aURL='https://api.metadefender.com/v4/file/bzIwMDYxNi1TSW42NDBPVlprTWw3YjRBMQ';
Begin //@main
srlist:= TStringlist.create;
with THTTPSend.create() do begin
Headers.Add('apikey: 6b337c92c792174a54acd715ab1aae64');
writeln(botostr(HTTPMethod('GET',aURl)));
with TJson.create() do begin
Parse(StreamtoString3(Document));
Split(Stringify,'{',srlist)
end;
writeln(itoa(resultCode)+':'+resultString+CRLF+srlist.text);
clear;free;
end;
srlist.Free;
Proc BtnFactory(a,b,c,d:smallint; title,apic:str;
var abtn:TBitBtn; anEvent:TNotifyEvent; afrm:TForm);
begin
abtn:= TBitBtn.create(afrm);
with abtn do begin
parent:= afrm;
setBounds(a,b,c,d)
font.size:= 12;
glyph.LoadFromResourceName(HINSTANCE, apic);
mXButton(5,5,width, height,12,12,handle);
caption:= title;
onClick:= anEvent As TNotifyEvent;
end;
end;
Func GetSystemDirectory2(var S:Str):Bool;
var Len: Int;
begin
Len:= {Windows.}GetSystemDirectory('Nil', 0);
if Len > 0 then begin
SetLength(S, Len); //writeln(itoa(len))
Len:= {Windows.}GetSystemDirectory(PChar(S), Len);
SetLength(S, Len); //writeln(itoa(len))
Result:= Len > 0;
end else
Result:= False;
end;
Func RecordsetToXML2(const Recordset: variant):Str;
var
RS: Variant;
Stream: TStringStream;
begin
Result := '';
//if Recordset = unassigned then Exit;
Stream:= TStringStream.Create(';
try
RS:= CreateOleObject('ADODB.Recordset;
RS:= Recordset;
RS.Save(TStreamAdapter.Create(stream,soReference) as IUnknown, adPersistXML);
Stream.Position := 0;
Result:= Stream.DataString;
finally
Stream.Free;
end;
end;
convert JPEG to Bitmap
if version = '4.7.6.20' then begin
JPGImage:= TJPEGImage.Create;
try
JPGImage.LoadFromStream(TResourceStream.Create(hInstance,'Everest','JPEG'));
with TImage.create(form1) do begin
setbounds(50,500,500,200)
parent:= form1;
Picture.Graphic:= JPGImage;
stretch:= true;
end;
finally
JPGImage.Free;
end; //}
end;
Func BigFactSum(n: integer):Str;
var tbig1, tbig2, tbig3: TInteger;
begin
result:= '0'
tbig1:= TInteger.create(1); //facultry
tbig2:= TInteger.create(0); //assign
tbig3:= Tinteger.create(0);
for it:= 1 to n do begin
tbig2.assign1(it)
tbig1.mult(tbig2)
tbig3.add(tbig1);
end;
result:= tbig3.tostring(false)
tbig3.free;
tbig2.free;
tbig1.free;
end;
No helper class possible or predict:
USES Classes,StrUtils;
TYPE
TStringListHelper = CLASS HELPER FOR TStrings
Func ToSQL :Str;
END;
Func TStringListHelper.ToSQL :Str;
VAR S :Str;
Func QuotedStr(CONST S :Str) :Str;
BEGIN
Result:=''''+ReplaceStr(S,'''','''''')+''''
END;
BEGIN
Result:='';
FOR S IN Self DO BEGIN
IF Result='' THEN Result:='(' ELSE Result:=Result+',';
Result:=Result+QuotedStr(S)
END;
IF Result<>'' THEN Result:=Result+')'
END;
SL:=TStringList.Create;
SL.Add('One');
SL.Add('Two');
SL.Add('Number Three');
SL.Add('It''s number 4');
WRITELN('SELECT * FROM TABLE WHERE FIELD IN '+SL.ToSQL);
SELECT * FROM TABLE WHERE FIELD IN ('One','Two','Number Three','It''s number 4'}
RSA Crypto Demo
965_RSA_IBZ_PrivatePublicKey_Form.pas
const _n = '9516311845790656153499716760847001433441357'; //# p*q = modulus
_e = '65537';
_d = '5617843187844953170308463622230283376298685';
abig:=TInteger.create(1);
abig.Assignhex(ASCIItohex(message));
writeln('big plain text integer: '+abig.Tostring(normal))
s_encrypt:= BigPowMod(abig.Tostring(normal),_e, _n) //bigmulu(ap,aq));
writeln('encrypted text integer '+s_encrypt)
s_decrypt:= BigPowMod(s_encrypt,_d,_n) //bigmulu(ap,aq))
writeln('decrypted text integer '+s_decrypt)
Func ConvertHex(HexString :Str; Len : integer) :Str;
begin
if trim(HexString) = '' then Result := '0' else
Result := IntToStr(StrToInt('$' + trim(HexString)));
while length(Result) < Len do Result := '0' + Result;
end;
Proc SetBit(const a,b:Card);
var d: Int64; // absolute dest;
begin
d:= $F000000000+(Int64(a) shl 21)+b shl 6;
end;
var alabel: TComponent; //Exception: A component named lblCell0 already exists.
lc: integer;
begin
//object frMain: TfrMain
if assigned(TLabel(FindComponent('lblCell'+intToStr(lc)))) then begin
write('exist&Nil ')
TLabel(FindComponent('lblCell'+ IntToStr(lc))).Name:= '';
alabel:= TLabel(FindComponent('lblCell'+ IntToStr(lc)));
alabel:= Nil;
end;
end;
//Discuss the Recursion of findfile!
Proc FindFilePattern3(root:str; pattern:str);
var SR: TFindRec;
begin
root:=IncludeTrailingPathDelimiter(root);
if FindFirst3(root+'*.*',SR) = TRue then begin
repeat
Application.ProcessMessages;
if ((sr.attributes and faDirectory)= SR.Attributes) and
(pos('.',SR.name)=0) then
FindFilePattern3(root+SR.Name,pattern)
else begin
if pos(pattern,SR.Name)>0 then
//Form1.ListBox1.Items.Add(Root+SR.Name);
writeln(Root+SR.Name);
end;
until FindNext3(SR) = False;
FindClose3(SR);
end;
end;
Unicode Encoding Decoding Charset UTF-8 Detection
--------------------------------------------------------------------------
In menu ../Options/Saveas Unicode/ you can save code to UTF-8 with one click
Attention it switches back to ANSI with another click! (no autocheck)
if file load raise Exception: No mapping for the Unicode character exists
in the target multi-byte code page at 0.146
Then you must save the file as utf-8 with notepad or saveStringUC(path):
procedure SaveString2(const AFile, AText: string);
procedure SaveString3(const AFile, AText: string; Append: Boolean); //UTF8
procedure SaveStringUC(const AFile, AText: string; Append: Boolean); //UTF8 - Unicode
function LoadFile3(const FileName: TFileName): string;
function LoadFileUC(const FileName: TFileName): string;
combination test:
writeln(loadfileUC(ExePath+’upsi_allfunctionslist2.txt’));
sleep(700)
savestringUC(ExePath+’upsi_allfunctionslist2save.txt’,
loadfileUC(ExePath+’upsi_allfunctionslist2.txt’),true) //append
Charset Function:
function WideCharsInSet( wcstr:WideString; wcset:TBits):Boolean;
function JSONUnescape(const Source: string; CRLF: string{ = #13#10}): string;
function ParseJsonvalue(jsonutf8: string): string;
procedure setdebugcheck(false);
Here you can find a completer UTF-8 chars conversion list:
http://bueltge.de/wp-content/download/wk/utf-8_kodierungen.pdf
look at in built mX5 class at the bottom
SIRegister_flcUnicodeCodecs
Example with CharsetConversion from call to google translator REST API:
1. trans atext:= 'bonjour mes amis da la ville of coding avec design';
2. json escaped utf8 ["Hola mis amigos en la ciudad de codificaci\u00c3\u00b3n con dise\u00c3\u00b1o","fr"]
3. trans back ParseJsonValue(): ["Hola mis amigos en la ciudad de codificación con diseño","fr"]
writeln('mimecharset '+
CharsetConversion(ParseJsonValue(Text_to_translate_API2(AURL,'dict-chrome-ex','auto','es',
(atext))),UTF_8, ISO_8859_1));
4. mimecharset ["Hola mis amigos en la ciudad de codificación con diseño","fr"]
Example Parse JSON Array:
writeln('len node names: '+itoa(ajar.length))
for it:= 0 to jo2.length-1 do begin
//writeln(JSONUnescape(jo2.getstring(jo2.keys[it]), #13#10));
writeln(CharsetConversion(parsejsonvalue(jo2.getstring(jo2.keys[it])),UTF_8,ISO_8859_1));
//savstr:= savstr + jo2.getstring(jo2.keys[it]);
savstr:= savstr +CharsetConversion(parsejsonvalue(jo2.getstring(jo2.keys[it])),UTF_8,ISO_8859_1);
end;
const tname= 'Subject: =?iso-8859-1?Q?Die_besten_W=FCnsche_zum_Neuen_Jahr_2021?=';
writeln('mimecharset '+CharsetConversion(tn,ISO_8859_1, UTF_8));
writeln('mimecharset '+CharsetConversion(tname,ISO_8859_1, win_1252));
writeln( MimeCharsetToCharsetString(ISO_8859_1) );
solution: writeln(DecodeHeader(tname)); or writeln(ForceDecodeHeader(tname));
-----> Subject: Die besten Wünsche zum Neuen Jahr 2021
writeln(UTF8toAnsi(ALUTF8HTMLdecode('Kaufbestätigung')))
-----> Kaufbestätigung
Inconsistent Case with Charset Detection:
//UTF-8 -> Windows-1251 -> UTF-8 -> Windows-1256 ?
sr:= 'Desinfektionslösungstücher für Flächen';
//sr:= CharsetConversion(sr,UTF_8, win_1251)
writeln('mimecharset2 '+CharsetConversion(sr,UTF_8, win_1256));
>>> mimecharset2 DesinfektionslÃ_sungstÃ_cher fÃ_r FlÃ_chen
https://stackoverflow.com/questions/14980200/converting-special-charactes-such-as-%c3%83%c2%bc-and-%c3%83%c6%92-back-to-their-original-latin-alp
StringtoStream & StreamtoString on 64bit
Function TryStringToMemoryStream(const s: string; var MS: TMemoryStream):Boolean;
begin
Result:= False; if(MS=Nil) then Exit;
try
//SetLength(s, MS.Size - MS.Position);
writeln('debug size2: '+itoa(length(s)));
MS.Write(s, Length(s));
Result:= True;
except
Result:= False;
end;
end;
Function TryMemoryStreamToString(const MS: TMemoryStream; var s: string): Boolean;
begin
Result:= False; if(MS=Nil) then Exit;
try
SetLength(s, MS.Size - MS.Position);
writeln('debug size: '+itoa(length(s)));
MS.Read(s, Length(s));
Result:= True;
except
Result:= False;
end;
end;
RegEx by example:
The Regexlibrary is inbuilt so it works independent of Operating System:
with TPerlregex.create do try
options:= options+ [preungreedy]
subject:= 'I like to sing out at foo bar';
regex:= '([A-Za-z]+) bar';
//back reference on a group operator ()
replacement:= '\1 is the name of the bar I like';
if match then showmessageBig(ComputeReplacement);
finally
free
end //}
Proc RegEX_ExtractDemo;
var regEx: TRegExpr; //or OleVariant if HISUtils;
InStr, ResStr:Str;
begin
ResStr:='';
InStr:= 'Please e-mail us at support@mycompany.com or to sales@mycompany.com';
// Create a regular expression
regEx:= TRegExpr.create; //HISUtils.RegExpr;
// Set regular expression pattern that specifies an e-mail address
regEx.Expression:='\w+(\.[\w-]+)*@([\w-]+\.)+[a-zA-Z]{2,6}';
// Execute search
if regEx.Exec(InStr) then Repeat
ResStr:= ResStr + regEx.Match[0] + '; ';
Until not regEx.ExecNext;
//Log.Message('These e-mails were extracted: '+ResStr);
writeln('These e-mails were extracted: '+ResStr);
// Posts the following to the log:
//'These e-mails were extracted: support@mycompany.com; sales@mycompany.com;'
end;
Proc LoadFilesByMask(lst: TStrings; const SpecDir, WildCard:Str);
var SearchRec: TFindRec;
begin lst.Clear;
if FindFirst3(SpecDir + WildCard, SearchRec) then
repeat
lst.Add(SpecDir + SearchRec.Name);
until FindNext3(SearchRec) = false;
FindClose3(SearchRec);
end;
Proc regExtest; //SynRegExpr unit RegEx Snippet
var RegEx: TRegExpr; // This is a class, need to be freed!
//Match: TMatch;
i: Integer;
begin
with TRegExpr.Create do begin
Expression:= ('^v(ol\.?|olume)?\s*([0-9]+)$');
if Exec('vol.3456') then
for i:=0 to SubExprMatchCount do
PrintF('Group %d : %s', [i, Match[i]]);
//Until not regex.ExecNext;
Free;
end
end;
//(?i) ---> case insensitive
//(?i) case-insensitive mode ON
//(?-i) case-insensitive mode OFF
writeln(getMatchString('(?i)G[a-b].*', 'this GB string'));
PrintF('CountPos: %d',[CountPos(uppercase('Selftest'),uppercase(sr))])
Set Mapping
There are some differences in the use of set operators in PascalScript and Delphi.
In DelphiScript the [...] set operator is not supported or the in operator not always works.
Set mapping with ord(CS) works:
type TMimeCharset = (
CS_DEFAULT1,
CS_NOTMAPPED,
UTF_8,
WIN_1250,
WIN_1254,
WIN_1255,
WIN_1257,
WIN_1258,
ISO_8859_1,
ISO_8859_2)
Cs: TMimeCharSet;
CS:= CS_NOTMAPPED;
I := Ord(CS);
CharsetInfos[I].MimeCharset := CS_NOTMAPPED;
//CharsetInfos[I].CodePage := ERR_CP_NOTMAPPED;
CharsetInfos[I].MimeName := ('');
CharsetInfos[I].FriendlyName := 'sUnicodeUTF844';
EnvironmentString:
envlist:= Tstringlist.create;
StrtoList(GetEnvironmentString, envlist, CR)
writeln(envlist.Text);
writeln('envlist.count: '+itoa(envlist.count));
envlist.Free;
Note arrays in PascalScript cannot be initialized statically.
For instance, the following code raises an error:
var I : array[0..1] of Integer = (3,4) // <-- Error!!!
To solve problem, initialize array elements in your code. There are several ways to do this:
Initializing each element individually:
DelphiScript
var a : array [0..3] of string;
begin
a[0] := 'Element 0';
a[1] := 'Element 1';
a[2] := 'Element 2';
a[3] := 'Element 3';
...
end;
Initializing elements in a loop:
DelphiScript
var a : array [0..3] of string;
begin
for i := 0 to 3 do
a[i] := 'Element ' + IntToStr(i);
...
end;
var array with 2 dimensions:
Var frMain : TfrMain;
iXPos : array [1..3] of array [ 1..3] of Integer;
iOPos : array [1..3] of array [ 1..3] of Integer;
Constructor with override do most have a second one:
var Images : TObjectList;
//Create TObject list with AOwnsObjects set to True means that destroying
//the object list will also destroy all of the objects it contains
//NOTE: On ARC compiler destroying TObjectList will only remove the reference
//to the objects and they will be destroyed only if thir reference count
//drops to 0
Images := TObjectList.Create;
Images := TObjectList.Create1(true); //override
a1 := TStatArray.Create1(0); // Growing array.
Return Values
Use ArcTan3 instead of ArcTan
Func ArcTan3(const X : Extended) : Extended'); //bugfix of ArcTan()
To return a value from a function, use Result instead of Func name. Using Func name will cause an error:
Func Calc(x, y) : Integer;
begin
Calc := (x - y) * (x + y); // Error !!!
Result := (x - y) * (x + y); // Correct variant
end;
Proc TStringsExchange(Index1, Index2: Integer; stlist: TStringlist);
var
TempObject: TObject;
TempString:Str;
begin
stlist.BeginUpdate;
try
TempString := stlist.Strings[Index1];
TempObject := stlist.Objects[Index1];
stlist.Strings[Index1] := stlist.Strings[Index2];
stlist.Objects[Index1] := stlist.Objects[Index2];
stlist.Strings[Index2] := TempString;
stlist.Objects[Index2] := TempObject;
finally
stlist.EndUpdate;
end;
end; //*)
Integer Overflow of a DLL import:
https://forum.lazarus.freepascal.org/index.php?topic=26116.0
usually you set stdcall convention for a dll
Func csoundgetversion: Longint;
external 'csoundGetVersion@csound64.dll stdcall';
but for procedures or void try with cdecl:
Proc csoundSleep(duration: word);
external 'csoundSleep@csound64.dll cdecl'; //no stdcall (int overflow)
[Error]..\maXbox4\examples\558_hirestimer2test2.txt(12:1): program is not allowed at this position cause: strange typecasts like:
TStream(Nil) or TString(null)
set a DLL Template: dll+Ctrl J
//https://docs.microsoft.com/en-us/windows/win32/api/wininet/nf-wininet-internetsetoptiona
Func InternetSetOption(hinternet:HINTERNET; dwoption: DWord;
buffer: Ansistr; bufflen: DWord):Bool;
external 'InternetSetOptionA@wininet.dll stdcall';
{ BOOLAPI InternetSetOptionA(
HINTERNET hInternet,
DWORD dwOption,
LPVOID lpBuffer,
DWORD dwBufferLength
); }
Proc testReverse_Proxy;
var ConnectionHandle: HINTERNET;
UserName: Ansistr;
res:Bool;
EmptyParam: OleVariant;
begin
// Init ConnectionHandle here
... res:= InternetSetOption(ConnectionHandle,
INTERNET_OPTION_PROXY_USERNAME,
UserName, Length(UserName) + 1);
Proc Str() doesnt return a value : use intToStr()
TBytes = array of byte : call of the library problem
Proc SaveBytesToFile(const Data: TBytes; const FileName:Str); //const OK!
Func ShiftByteArray(var A: TBytes): Byte; // var Not OK!
in script
Func ByteToString(var Value: TBytes):Str; // var and const OK!
var I: integer;
S :Str;
Letra: char;
begin
S := '';
for I := Length(Value)-1 Downto 0 do begin
letra := Chr(Value[I] + 48);
S := letra + S;
end;
Result := S;
end;
------------------------------ Func wrapper ---------------------------
Its better to call a Func wrapper than the Func itself:
Proc QuickSortX(StringList : TStringList; L, R: Integer);
Var
I, J, P : Integer;
Begin
P := StringList.Count;
If (L >= P) or (R >= P) Then Exit;
{……………………………………}
Proc SortList(StringList : TStringList); //Func wrapper hides paras
Begin
QuickSortX(StringList, 0, StringList.Count – 1)
End;
—————————————————-
tst:= TStringlist.create;
tst.add(‘7’)
tst.add(‘9’)
writeln(objtostr(tst))
SortList(tst) //call to Func wrapper
Hashmap or Dictionary or stringhash or map
with TStringHashMap.create(CaseSensitiveTraits, 50) do begin
//Add( const s :Str; const p);
data['this is']:= '345'
data['this is2']:= '3456'
data['this is25']:= '3456677'
writeln(botostr(Has('this is2')))
setlength(sr,120)
stri:= pchar(data['this is'][10])
writeln(itoa(length(stri)))
writeln(stri)
writeln(itoa(Count));
writeln(itoa(HashSize))
clear;
free;
end;
Proc stringHashtest;
var hash : TStringHash2;
//Here’s unit with those TIntegerHash2 and TStringHash2, TObjectHash2 described @
basehash: THash2;
begin
hash:= TStringHash2.Create;
try
hash['one']:= 'viens value';
hash['two']:= 'divi value';
//ShowMessage(hash['one']);
//ShowMessage(hash['two']);
if hash.exists('one') then
writeln(hash['one']);
writeln(hash['two']);
hash.Rename('one', 'onerename');
writeln(hash['onerename']);
finally
hash.Free;
end;
end;
// word frequency snippet
for it:= 1 to wordlist.count-1 do begin
//writeln(itoa(it)+' '+Utf8ToAnsi(wordlist[it]));
aword:= lowercase(Utf8ToAnsi(wordlist[it]))
regex.RegEx:= '\w+';
regex.Subject:= aword;
if regex.match then aword:= regex.groups[0]; //word filter
if aword <> '' then
if dict.exists(aword) then
dict[aword]:= inttostr(strtoint(dict[aword])+1) else
dict[aword]:= '1';
end;
// iterate through all values
dict.Restart
for it:= 1 to (dict.itemcount-1) do
if dict.next then
writeln(dict.currentkey+': '+dict.items[dict.currentkey]) ; //}
for each method - for in metheod
theres no for each operator but we can map it:
//for c := 'a' to 'z' do
for c:= ord('a') to ord('z') do
//for ch in adata do begin
for chi:= low(adata) to high(adata) do begin
ch:= adata[chi]
c: AnsiChar; Dec: Ansistr
//for c in Dec do
for it:= 1 to length(dec) do begin
c:= dec[it]
for in and set or include charset
var
include: charset; ex:str;
//if ex[i] in ['a'..'z'] then include:=include+[ex[i]]; -type mismatch
alternatives:
1. if (ex[i] > 'a') and (ex[i] < 'z') then //in ['a'..'z']
2. if ex[i] in StrToCharSet(lowercase(LETTERSET))
then include:= include+strtoCharset(ex[i]);
use strtocharset and chartostrset as helper Func with sets
stest[2]:= '^';
if stest[2] in
StrToCharSet(lowercase(LETTERSET)+'_'+'?'+' '+'-'+'*'+'/'+'ö'+'^') then
writeln('inside') else writeln('outside');
>>> inside
writeln(charsettostr(strtocharset('*'+'?')))
function IsSTRLegal2(c: string): boolean;
begin
//result:= (Length(c)=1) and (c[1] in StrToCharSet('+'+ '-'+ '.'+ DIGISET));
result:= (Length(c)=1) and (c[1] in StrToCharSet('+-.,:'+DIGISET));
end;
Func IsInvalid(s:Str):Bool;
var c: char;
//leters: set of char;
leters: Charset;
firstE:Bool;
begin
//writeln(itoa(IndexStr(s,['k'])));
//Result := (Length(s) < 3) or (s.IndexOf('k') = -1) or (s.Length > 9);
Result:= (Length(s) < 3) or (pos('k',s) = 0) or (Length(s) > 9);
if not Result then begin
leters:= ['d', 'e', 'g', 'k', 'l', 'n', 'o', 'w'];
firstE:= true;
//for c in s do
for it:= 1 to length(s) do begin
c:= s[it];
if c in leters then
if (c = 'e') and (firstE) then
firstE:= false
else
//Exclude(leters, AnsiChar(c))
leters:= leters-strtoChars(c)
else begin
result:= true
exit;
end;
end;
end;
end;
Func TrimRight7(Str:Str):Str;
var i: Integer;
begin
i:= Length(Str);
//while (i > 0) and (Str[i] in [' ', #9]) do
while (i > 0) and (Str[i] in strtocharset(' '+#9)) do
i:= i - 1;
Result:= Copy(Str,1,i);
end;
if MatchesMask('abc.xyz', 'a*.*',true) then
writeln('File name is OK.')
else
writeln('Invalid file name.');
Find all files of a defined date:
8 C:\>dir /s /o N *.dcu | find "16/06/2020" > C:\maXbox\maxboxunitalldisk_sort.txt
Operator Overloading Surrogate:
type complexreal = record
re : real;
im : real;
end;
{ TFR }
{ frequency response }
TFR = record
M, phi: extended; { magnitude and phase }
F: complexreal; { complex FR (F = M(omega) * exp(i * phi(omega)) }
end;
Func cexp (z : complexreal) : complexreal;
{ exponantial : r := exp(z) }
{ exp(x + iy) = exp(x).exp(iy) = exp(x).[cos(y) + i sin(y)] }
var expz : real;
begin
expz := exp(z.re);
cexp.re := expz * cos(z.im);
cexp.im := expz * sin(z.im);
end;
Func complexmulu(z1 : complexreal; r : real): complexreal;
{ multiplication : z := z1 * r }
begin
result.re := z1.re * r;
result.im := z1.im * r;
end;
FFr.F:= FFr.M * cexp(i * FFr.phi); { M and phi encoded in polar coordinates }
//complextemp:= complexmulu(i,FFr.phi);
FFr.F:= complexmulu(cexp(complexmulu(i,FFr.phi)), FFr.M); { M and phi encoded in polar }
replace move with iteration to move()
// big note to move the move to an iteration
For i:= BListLenght downto 1 do BList[i]:= BList[i-1]; //or
move(Blist[0],Blist[1],BListLenght*SizeOf(Blist[0]));
Array of const
you cant set an array like :
{CONST} VAR t : TA;
(* =
((0,3,1,7,5,9,8,6,4,2),
(7,0,9,2,1,5,4,8,6,3),
(4,2,0,6,8,7,1,3,5,9),
(1,7,5,0,9,8,3,4,2,6),
(6,1,2,3,0,4,5,9,7,8),
(3,6,7,4,2,0,9,5,8,1),
(5,8,6,9,7,2,0,1,3,4),
(8,9,4,5,3,6,2,0,1,7),
(9,4,3,8,6,1,7,2,0,5),
(2,5,8,1,4,3,6,7,9,0)); *)
but you can convert:
const arrstr= '0,3,1,7,5,9,8,6,4,2'+
'7,0,9,2,1,5,4,8,6,3'+
'4,2,0,6,8,7,1,3,5,9'+
'1,7,5,0,9,8,3,4,2,6'+
'6,1,2,3,0,4,5,9,7,8'+
'3,6,7,4,2,0,9,5,8,1'+
'5,8,6,9,7,2,0,1,3,4'+
'8,9,4,5,3,6,2,0,1,7'+
'9,4,3,8,6,1,7,2,0,5'+
'2,5,8,1,4,3,6,7,9,0';
procedure InitTable4;
var i,j,k: integer; repl: string;
begin
repl:= StringReplace(arrstr,',','',[rfReplaceAll]);
k:= 0
for i:= 0 to 9 do
for j:= 0 to 9 do begin
inc(k)
t[i][j]:= strtoint(repl[k])
end;
end;
Convert Static Array to Dynamic Array
procedure TForm1Button1Click(Sender: TObject);
var
ADate: TDateTime;
days: array[1..7] of string;
begin
days[1]:= 'Sunday';
days[2]:= 'Monday';
days[3]:= 'Tuesday';
days[4]:= 'Wednesday';
days[5]:= 'Thursday';
days[6]:= 'Friday';
days[7]:= 'Saturday';
ADate := StrToDate('31/01/1981');
ShowMessage('31/01/1981' + ' was a ' + days[{SysUtils.}DayOfWeek(ADate)]);
end;
//Incompatible types: 'Dynamic array' and 'array of string' to open array
procedure TForm1Button1ClickDynArray(Sender: TObject);
var aDate: TDateTime;
days: array of string;
begin
setLength(days,7);
days:=['Sunday','Monday','Tuesday','Wednesday','Thursday','Friday','Saturday'];
aDate:= StrToDate('31/01/1981');
ShowMessage('31/01/1981'+' was a '+ days[{SysUtils.}DayOfWeek(aDate)-1]);
end;
// with SplitStr
begin
aDate:= StrToDate('31/01/1981');
days:= SplitStr('Sunday,Monday,Tuesday,Wednesday,Thursday,Friday,Saturday',',');
writeln('31/01/1981'+' was a '+ days[{SysUtils.}DayOfWeek(aDate)-1]);
end;
AssignFile versus TStringlist
---------------------------------
In addition to the old style file handling routines mentioned above, a new system exists that uses concept of streams
(- of data) at a higher abstraction level. Means data can be read from or written
to any location (disk, memory, hardware ports etc.) by one uniform interface.
In addition, most string handling classes have the ability to load and save content from/to a file. These methods are usually
named SaveToFile and LoadFromFile. in // old style assign file
filelist:= TStringlist.create;
// assignfile(f,opendialog1.filename);
filelist.loadfromfile( filename)
// reset(f);
// while not eof(f) do
for it:= 0 to filelist.count-1 do begin
//readln(f,line);
line:= filelist.strings[it];
writeln(line)
if (length(line)>2) and (copy(line,1,2)='ID') then {skip Id records}
else begin {it's a data record}
if totcount=0 then begin
savedecimalseparator:=decimalseparator;
if pos(',',line)>0 then setdecimalseparator(',')
else setdecimalseparator('.');
end;
errcode:=0;
try
x:=strtofloat(trim(line));
except errcode:=1;
end;
if (errcode=0) and (x>0)and(x<=amaxtime)
then begin
inc(samps[round(maxindex*x)]); {increment the count for the bar for x}
inc(totcount);
end;
end;
end;
// closefile(f);
filelist.Free;
Random Generator:
https://github.com/TurboPack/SysTools/blob/master/source/StRandom.pas
strand:= TStRandomSystem.create(42); //if 0 then randomseed, else randomstate
sleep(200)
writeln(floattostr(strand.asFloat))
writeln(itoa(strand.asInt(10000)))
writeln(itoa(strand.asInt($E15)))
UniformityTest2(strand, ChiSquare, DegsFreedom)
writeln('ChiSquare: '+floattostr(ChiSquare)+' ,degsfreedom:'+itoa(degsfreedom));
UniformityTest3(strand, ChiSquare, DegsFreedom)
writeln('ChiSquare: '+floattostr(ChiSquare)+' ,degsfreedom:'+itoa(degsfreedom));
strand.Free;
Https Post API: http://www.softwareschule.ch/download/maxbox_starter94.pdf
translator for different countries:
var httpReq,hr: Olevariant;
try
hr:= httpReq.Open(‘POST’,’https://libretranslate.pussthecat.org/translate’, false);
httpReq.setRequestheader(‘user-agent’,
‘Mozilla/5.0 (Windows NT 10.0; Win64; x64; rv:98.0) Gecko/20100101 Firefox/98.0’);
httpReq.setRequestheader(‘content-type’,’application/x-www-form-urlencoded’);
//httpReq.setRequestheader(‘X-RapidAPI-Host’,’nlp-translation.p.rapidapi.com’);
if hr= S_OK then HttpReq.Send(‘q=’+HTTPEncode(feedstream)+
‘&source=es’+’&target=en’);
If HttpReq.Status = 200 Then
result:= HttpReq.responseText
Else result:= 'Failed at getting response:'+itoa(HttpReq.Status)+HttpReq.responseText;
//writeln('debug response '+HttpReq.GetAllResponseHeaders);
finally
httpreq:= unassigned;
File Size Reference: filegetsize()
Func FileGetSizeX(const FileName:Str): Int64;
{$ifndef fpc}
var
FileInfo: TSearchRec;
{$endif}
begin
{$ifdef fpc}
Result:= FileUtil.FileSize(FileName);
{$else}
// from LCL FileUtil code
FileInfo.Name:= Filename;
FileInfo.FindHandle:= {Windows.}FindFirstFile({Windows.}{LPTSTR}(FileInfo.Name)
,FileInfo.FindData);
if FileInfo.FindHandle={Windows.}Invalid_Handle_value then begin
Result:=-1;
Exit;
end;
Result:= (int64(FileInfo.FindData.nFileSizeHigh)
Shl 32)+ FileInfo.FindData.nFileSizeLow;
{Windows.}FindCloseW(FileInfo.FindHandle);
{$endif}
end;
{ this func is a wrapper for platform-specific file fns
IE a way to get rid of those portability warnings
and a place to put the equivalent linux fns }
RTL OSLibrary+
Func MySoundcard: Longint; external 'waveOutGetNumDevs@winmm.dll stdcall';
Func isSound:Bool; begin result:= mySoundcard > 0 end;
Func StringtoHex(Data:Str):Str;
Func GetAnsistrRefcount(const S:Str):Card;
Func WideStringToString(const ws: WideString; codePage: Word): Ansistr;
Func StringToWideString(const s: Ansistr; codePage: Word): WideString;
Proc FreeObjectList(List: TObjectList);
Func SecondToTime(const Seconds:Card): Double;
Func CopyDir2(const fromDir, toDir:Str):Bool;;
Func MoveDir(const fromDir, toDir:Str):Bool;;
Func DelDir(dir:Str):Bool;;
Proc DeleteScansRect(Src, Dest: TBitmap; rs, rd: TRect);
Proc FadeIn(ImageFileName: TFileName; aForm1: TForm);
Proc FadeOut(ImageFileName: TFileName);
Proc FadeOut32(const Bmp: TImage; Pause: Int);
Func CheckBDEInstalled:Bool; //IsBDE
Proc SaveStringToStream( const Str :Str; Stream : TStream);
Func LoadStringFromStream( Stream : TStream) :Str;
Func WaitForSyncObject(SyncObject:THandle;Timeout:Card;BlockInput:Bool):Card;
Func ProcessMessage :Bool;
Proc ProcessMessages( Timeout : DWORD); //without application!
Func GetNumberOfEventLogRecords(hEventLog:THandle;var NumberOfRecords:DWORD): BOOL;
Func GetOldestEventLogRecord(hEventLog:THandle; var OldestRecord : DWORD): BOOL;
ex.:EventLog:=RegisterEventSource('0',('maxbox4.exe'));if GetNumberOfEventLogRecords(eventlog,recs)
Proc InitializeLocaleSupport); Proc TerminateLocaleSupport;
Func StrReplaceRegEx(const Subject,Pattern:Ansistr; Args:array of const : Ansistr;
Func TickCountToDateTime( Ticks :Card) : TDateTime;
Proc OutputDebugStringmax( const S :Str);
Proc OutputDebugFormat( const FmtStr :Str; Args : array of const);
Func IsAppRunningInDelphi :Bool;
Func RunExecutable( const AFileName :Str; AWaitForIt :Bool) : DWORD;
Func SystemCodePage : Int;
Func CPUSpd:Str;
Func CPUSpeed:Str;
Func BigFib(n: Int):Str; //BigFibo
Func BigFac(n: Int):Str; //BigFact
Func UpTime:Str;
Func NetLogon(const Server,User,Password:WideString; out ErrorMessage:str) :Bool;
Func NetLogoff( const Server, User, Password : WideString) :Bool;
Proc ErrorNamedPipe( const Message :Str);
Proc BroadcastChange; //method that broadcasts the necessary message WM_SETTINGCHANGE
Func WriteFile2(hFile:THandle;const Buffer,nNumberOfBytesToWrite:DWORD; var lpNumberOfBytesWritten:DWORD; lpOverlapped : Tobject):BOOL;
Func ReadFile2(hFile:THandle;var Buffer,nNumberOfBytesToRead:DWORD;var lpNumberOfBytesRead:DWORD;lpOverlapped : Tobject):BOOL;
// Security helper functions
Proc InitializeSecurity(var SA: TSecurityAttributes);
Proc FinalizeSecurity(var SA: TSecurityAttributes);
// Pipe helper functions
Proc CheckPipeName(Value:Str);
Proc ClearOverlapped(var Overlapped: TOverlapped; ClearEvent:Bool);
Proc CloseHandleClear(var Handle: THandle);
Func ComputerName2:Str;
Proc DisconnectAndClose(Pipe: HPIPE; IsServer:Bool = True);
Func EnumConsoleWindows(Window: HWND; lParam: Int): BOOL; stdcall;
Proc FlushMessages;
Func IsHandle(Handle: THandle):Bool;
Proc RaiseWindowsError;
Func UpTime:Str; //OS uptime
Func CharSetToCP(ACharSet: TFontCharSet): Int;
Func CPToCharSet(ACodePage: Int): TFontCharSet;
Func TwipsToPoints(AValue: Int): Int;
Func PointsToTwips(AValue: Int): Int;
Proc LoadGraphicFromResource(Graphic:TGraphic; const ResName:str; ResType:PChar);
Func SplitStr(sInput:str; Delimiter:str): TStringArray;
Func GetDataFromFile2(sFileName: Ansistr): Ansistr;
Func ExtractFileNameWithoutExt(const FileName:Str):Str;
Func SubstringCount (Substring :Str; Str :Str): Int;
Func loadForm(vx, vy: smallint): TForm; //alias getForm()
Func getForm(vx, vy: smallint): TForm; //alias getForm()
Func getForm2(vx,vy:smallint;acolor:TColor;aname:str):TForm; //sizeable!
Proc paintProcessingstar2(ppform: TForm);
Func ContentTypeGetExtn(Const Content:Str; var CLSID:Str):Str;
Func ContentTypeFromExtn(Const Extension:Str):Str;
Func DateTimeDiff2(Start, Stop : TDateTime) : int64;
Func checkSystem:Str;;
Func getSystemReport:Str;;
Func SystemCheck:Str;;
Func SetThreadDesktop( hDesktop : HDESK) : BOOL;
Func RSAEncrypt(aval, apow, amod:Str):Str;;
Func RSADecrypt(aval, apow, amod:Str):Str;;
Func EncryptRSA(aval, apow, amod:Str):Str;;
Func DecryptRSA(aval, apow, amod:Str):Str;;
Func SwitchToThread : BOOL;
Func CloseDesktop( hDesktop : HDESK) : BOOL;
Func GetThreadDesktop( dwThreadId : DWORD) : HDESK;
Func SetSyscallHook():Bool;;
Func SetSwapcontextHook():Bool;;
Func UnhookAll():Bool;;
Func getWorld:Str;;
Func getIPConfigAll:Str;;
Func getIPConfig:Str;;
Func WinsockEnabled:Bool;
Func HTTPEncode2(const AStr:Str):Str;
RSAEncryptStr(const EncryptionType:TRSAEncryptionType;const PublicKey:TRSAPublicKey;const Plain:Ansistr): Ansistr;
///////////////////////////////////////////////////////////////////////////////
// Object instance functions
///////////////////////////////////////////////////////////////////////////////
Func AllocateHWnd(Method: TWndMethod): HWND;
Proc DeallocateHWnd(Wnd: HWND);
Func DeleteDC( DC : HDC) : BOOL;
Func DeleteMetaFile( p1 : HMETAFILE) : BOOL;
Func DeleteObject( p1 : HGDIOBJ) : BOOL;
Func FormInstanceCount2(AFormClass: TFormClass): Int;;
Func FormInstanceCount(const AFormClassName:Str): Int;;
ClassN(CL.FindClass('Class of TForm'),'TFormClass;
Func ObjToStr( const O : TObject) :Str
MessageBox(0,PChar('CPU speedis '+CPUSpd+' MHz'),'CPU Speed Check',MB_IconInformation+MB_OK);
TKLogEvent', 'Proc (Sender : TObject; Code : TKLogType; const Text :Str);
AddRegisteredVariable('FormatSettings','TFormatSettings; //at sysutils!
AddRegisteredVariable('mouse','TMouse; //at controls HPIPE', 'THandle;
Func ListIdentical2(l1,l2:TStringList):Bool;
begin Result:= False;
if l1.count = l2.count then begin
for it:= 0 to l1.count-1 do
if (l1[it] <> l2[it]) then Exit;
Result:= True;
end;
end;
// Converts String To Hexadecimal Maybe usefull for a hex-editor
// For example: Input = 'ABCD' Output = '41 42 43 44'
Func StringtoHex(Data:Str):Str;
var i, i2: Int; s:Str;
begin
i2:= 1;
for i:= 1 to Length(Data) do begin
Inc(i2);
if i2 = 2 then
s:= s + ' '; i2 := 1;
s:= s + IntToHex(Ord(Data[i]), 2);
end;
Result:= s;
end;
Func XRTLIsInMainThread:Bool;
begin
Result:= GetCurrentThreadID = MainThreadID;
end;
computers:= TStringList.Create;
FindComputers(computers)
for it:= 0 to computers.count-1 do
writeln(computers.strings[it]); computers.free;
s:= (Sender AS TStringGrid).Cells[col,row];
Sender AS TStringGrid).Canvas.Font.Color := clBlack;
twidth:= (Sender AS TStringGrid).Canvas.TextWidth('X;
(Sender AS TStringGrid).Canvas.TextRect(Rect, Rect.Left + twidth div 2,
YCenter(Rect, (Sender AS TStringGrid).Canvas,s),s)
Proc | EXceptionsOnmaXbox; Exception Handling EXceptions On maXbox
var filename,emsg:str;
begin
filename:= '';
try
if filename = '' then
RaiseException(erCustomError, 'Exception: File name cannot be blank;
except
emsg:= ExceptionToString(ExceptionType, ExceptionParam);
//do act with the exception message i.e. email it or save to a log etc
writeln(emsg)
end;
end;
XRaise raise an exception without except block:
if (DLLHandle < HINSTANCE_ERROR) then
Xraise(Exception.Create(DLLName + ' library can not be loaded or not found.'+
SysErrorMessage(GetLastError)));
Proc CallTicker(msecs: Int);
begin
with TStopWatch.create do begin
start
| //Delay2StopWatch(msecs)
stop
writeln('Stop Watch CPU Tester: '+getValueStr)
end;
end;
MessageDlg Example:
mr:=messagedlg('Save clock first?',mtconfirmation,[mbYes,mbNo,mbCancel],0);
if mr=mryes then writeln('yes')
Func getFilefrom
if not (Fileexists('1004unixdict.txt') or fileexists('unixdict.txt')) then
if IsInternet then begin
writeln(dictURL)
wGetX2(dictUrl,Exepath+'1004unixdict.txt');
openFile(Exepath+'1004unixdict.txt')
end; //}
Func IsASCIIDigit(const Ch: Char):Bool;
begin //Result := Ord(Ch) in [Ord('0')..Ord('9')];
Result:= (Ord(Ch) >= Ord('0')) And (ord(ch) <= Ord('9'));
end;
Func RemainingBatteryPercent: Int;
var Stat: {Windows.}TSystemPowerStatus;
begin
{Windows.}GetSystemPowerStatus(Stat);
Result:= Stat.BatteryLifePercent;
if (Result < 0) Or (Result > 100) then
Result:= -1;
end;
// ***********************************************************
// TIdBaseComponent is the base class for all Indy components.
// ***********************************************************
type
TIdBaseComponent = class(TComponent)
public
Func GetVersion:Str;
property Version:Str read GetVersion;
published
end;
if IsInternet then
wGetX('http://www.softwareschule.ch/download/maxbox_starter4.pdf','mywgettestpdf.pdf;
RegEx tester sr := '123.456.789-00$p'
writeln(ReplaceRegExpr('\D',sr,'',true))
>>> 12345678900 //\D is a non-digit, and \W is a non-word character, both should work)
ref: lambda: a+b --> a.+(b) in preparations
namedpipe1:= namedpipe as TNamedpipe;
printF('this is %.18f ',[maxCalc('ln(2)^e')]); this is 0.369248502937272178
printF('this is Area of r=1 %.18f ',[maxCalc('PI*(1^2)')]);
printF('this is Area of d=2r %.18f ',[maxCalc('PI/4*(2^2)')]);
println(ReplaceRegExpr('\d\d{4,12}[},]',
GetSentimentStream7(URLSentimentAPI2,Items[it].title),' ',false))
{"probability": {"neg": 0.5180 "neutral": 0.5201 "pos": 0.4819 , "label": "neutral"}
begin
initCRCarray2;
aStringStream := TStringStream.Create(filetoString(exepath+testFile));
try
//aStringStream.loadfromfile
writeln('CRC32_: '+IntToHex(CalculateCRC32X(aStringStream), 8));
finally
aStringStream.Free;
end;
end;
Proc TForm1Findwindow_Remote_Notepad;
var wnd: HWND; i: Int; s:Str;
begin
wnd := FindWindow('notepad', ';
if wnd <> 0 then begin
wnd := FindWindowEx(wnd, 0, 'Edit', ';
// Write Text in Notepad.
s := 'Hello maXPad 3 ecotronics'+#13#10+'second line:';
for i := 1 to Length(s) do
SendMessage(wnd, WM_CHAR, Ord(s[i]), 0);
// Simulate Return Key.
PostMessage(wnd, WM_KEYDOWN, VK_RETURN, 0);
// Simulate Space.
PostMessage(wnd, WM_KEYDOWN, VK_SPACE, 0);
SendMessage(wnd, WM_CHAR, 5, 0);
//send time of F5 command in notepad!
PostMessage(wnd, WM_KEYDOWN, VK_F5, 0);
end;
end;
Proc XPATHTest; var XML: OLEVariant;
begin
XML:= CreateOleObject('MSXML2.DOMDocument.3.0') ;
XML.async:= false;
XML.SetProperty('SelectionLanguage','XPath');
XML:= unassigned;
end;
with adoQuery do begin //recordset hack
cachesize:= 500;
//commandtext:= 'INSERT INTO Table1 (FirstName, LastName, Phone)'+
'VALUES (''MaXML'', ''Box42810'', ''031-3337788'')';
commandText:= 'SELECT * FROM Table1';
connectionString:='Provider=MSDASQL.1;Persist Security Info=False;Data Source=mX4base';
Open;
Recordset20(recordset).save(Exepath+'recordset6.xml',adPersistXML)
writeln(GetISODateString(1995,12,24))
writeln(botostr(IsValidISODateTimeString(GetISODateString(1995,12,12), true)))
writeln(MicrosoftCodePageToMIMECharset(1252))writeln(GetISOTimeString(12,45,33, true));
writeln(botostr(IsValidISOTimeString(GetISOTimeString(12,45,33, true), true)))
IDoc:= LoadXMLDocument3(BOOKSXML); //('.\books.xml');
INode:= SelectXMLNode(IDoc.getDocumentElement,'/bookstore/book[2]/title');
writeln(FormatXMLFile2String(BOOKSXML));
writeln(DataSetToXML(TDataset(adoquery)));
Proc EnableDEP2; // DEP
const PROCESS_DEP_ENABLE: DWORD=$00000001;
var SetProcessDEPPolicy: function(dwFlags: DWORD): BOOL; stdcall;
begin SetProcessDEPPolicy := GetProcAddress(GetModuleHandle(kernel32),'SetProcessDEPPolicy');
if Assigned(SetProcessDEPPolicy) then begin
//don't bother checking for errors since we don't need to know if it fails
SetProcessDEPPolicy(PROCESS_DEP_ENABLE);
end;
end;
unit uPSI_UTGraphSearch; chNGE tnode to tnode2
procedure SIRegister_TNode2(CL: TPSPascalCompiler);
begin
//with RegClassS(CL,'tObject', 'TNode2') do
with CL.AddClassN(CL.FindClass('tObject'),'TNode') do begin
RegisterProperty('adjacents', 'array of TEdge', iptrw);
RegisterProperty('nbradjacents', 'integer', iptrw);
RegisterProperty('index', 'integer', iptrw);
RegisterProperty('x', 'integer', iptrw);
RegisterProperty('y', 'integer', iptrw);
RegisterMethod('Constructor create');
end;
end;
TList.count and capacity!
RegisterProperty('Q', 'TList', iptrw);
type __Pointer; as TObject cause of NIL
FreeAndNilStream (Output); Output : TStream;
FreeAndNilBmp (Output); Output : TBitmap; sign: About!
Convert a dfm to string: var abt:Bool;
srlist:= TStringlist.create;
if LoadDFMFile2Strings('C:\maXbox\mX42810\backgroundworker\Demo\Primes\Main.dfm',srlist,abt)= 0 then writeln(srlist.text);
srlist.Free; *)
Assert Test: _outd( a1.StandardDeviation );
Assert(trunc(a1.StandardDeviation)=46, 'must = 46 ');
isloc:= WMIStart; iserv:= WMIConnect(isloc,'localhost','','');
wmi_dom:= 'Win32_NetworkAdapterConfiguration';
V 4.7.5.90 VI + 4.7.6.10
Amount of Functions: 20549 Amount of Procedures: 12307
Amount of Constructors: 1937 Amount of Destructors: 14
Totals of Calls: 34807 , Size: 31,974,216 bytes
SHA1: of 4.7.5.90 96DCDE2028125E00B67E42A801721AC513A5EAFC CRC32: BBC3A7E5
mX4 executed: 03/11/2021 15:25:47 Runtime: 0:12:33.807 Memload: 39% use
4.7.6.10 III Totals of Calls: 35218
SHA1: of 4.7.6.10 6647E6200E46702944A6B8175A53EDC1ABEF8E14
CRC32: 1A2922DA: 32,221,000 bytes
mX4 executed: 12/12/2021 10:03:11 Runtime: 0:12:50.630 Memload: 45% use
4.7.6.10 IV Total of Function Calls: 35351
SHA1: of 4.7.6.10 A9C0D35723F9D2E72E9270207640F938FF58555B
CRC32: 8230EA82 31.3 MB (32,917,832 bytes)
4.7.6.10 VII
Amount of Functions: 20994 Amount of Procedures: 12492
Amount of Constructors: 1984 Amount of Destructors: 14
Totals of Calls:35484 SHA1:of 4.7.6.10 EC20D0A371A57AA078762D6D45F7229A370549A1
CRC32: 82E481A4: 33273160 bytes
mX4 executed: 14/03/2022 15:21:38 Runtime: 0:13:41.253 Memload: 42% use
17/03/2022 14:08 194,307 IFSI_WinForm1puzzle.dcu
17/03/2022 20:30 46,854 uPSC_classes.dcu
17/03/2022 19:48 5,226 uPSC_std.dcu
17/03/2022 18:49 53,416 uPSR_classes.dcu
17/03/2022 20:30 19,528 uPSI_SynEditHighlighter.dcu
17/03/2022 16:03 11,784 uPSI_SynEditMiscProcs.dcu
17/03/2022 21:15 173,341 uPSI_TeEngine.dcu
17/03/2022 21:16 30,854 MathsLib.dcu
17/03/2022 20:13 77,627 uPSI_neuralvolume.dcu
17/03/2022 13:10 13,188 uPSI_UcomboV2.dcu
17/03/2022 13:26 14,813 uPSI_UTGraphSearch.dcu
17/03/2022 13:22 21,041 UTGraphSearch.dcu
Release Notes maXbox 4.7.6.10 VIII August 2022 mX476
Amount of Functions: 21179 Amount of Procedures: 12591
Amount of Constructors: 1987 Amount of Destructors: 14
Totals of Calls: 35771
Release Notes maXbox 4.7.6.20 Oct 2022 mX476
Amount of Functions: 21309 Amount of Procedures: 12640
Amount of Constructors: 1989 Amount of Destructors: 14
Totals of Calls: 35952
SHA1: of 4.7.6.20 C0459A5DD0CCC12CE9F3CDEC82E3E0C920D38D9C
CRC32: 498B62AF: 33690392 bytes
mX4 executed: 09/10/2022 20:59:18 Runtime: 0:14:21.810 Memload: 39% use
maXbox4.exe now available as a NFT
sha256: 09eb95c4cc3b7fe60772405b170af4705085da89d190213228c65313c8733499
https://lawrencebarsanti.wordpress.com/2009/11/28/introduction-to-pascal-script/
Amount of Functions: 21538 Amount of Procedures: 12755
Amount of Constructors: 2010 Amount of Destructors: 14
Totals of Calls: 36317
SHA1: of 4.7.6.20 D90222BDC9D9648E75A3A749D4C8EE1DF4655C30
CRC32: 6CB990C1: 34309912 bytes
mX4 executed: 24/01/2023 23:23:35 Runtime: 0:15:16.661 Memload: 44% use
Total of Function Calls: 36317
SHA1: 4.7.6.20 D90222BDC9D9648E75A3A749D4C8EE1DF4655C30
d90222bdc9d9648e75a3a749d4c8ee1df4655c30
CRC32: 6CB990C1 32.7 MB (34,309,912 bytes)
Compilation Timestamp 2023-01-24 21:15:08 UTC Signing time 24 Jan2023 22:18:14
Entry Point 25025064 - Contained Sections 10 sha1: d90222bdc9d9648e75a3a749d4c8ee1df4655c30
sha256: 97943841d5908ea0846dc6763b14941350a0c1aa5d2b6248bfc79ffad7a0314e
https://www.hybrid-analysis.com/
Suspicious Indicators General Found a potential E-Mail address in binary/memory
Network Related Found potential IP address in binary/memory
Remote Access Related Contains indicators of bot communication commands
Contains references to WMI/WMIC Reads terminal service related keys (often RDP related)
Spyware/Information Retrieval Touches files in program files directory
Unusual Characteristics Input file contains API references not part of its Import Address Table (IAT)
Installs hooks/patches the running process
https://www.virustotal.com/gui/file/212f8fda437e877c7f89f771ce40e57814cfb4380ee010c090df78d8dbbc4d9f/behavior
This report is generated from a file or URL submitted to this webservice on December 15th 2022 18:16:53 (UTC)
Guest System: Windows 10 64 bit, Professional, 10.0 (build 16299),
Report generated by Falcon Sandbox v9.5.2 © Hybrid Analysis
1 match for rule Change PowerShell Policies to an Insecure Level by frack113 from Sigma Integrated Rule Set (GitHub) Detects use of
executionpolicy option to set insecure policies
DetectItEasy PE32 Compiler: Borland Delphi (2007) Linker: Turbo Linker (2.25*,Delphi) [GUI32,signed]
5.4% (.EXE) Win64 Executable (generic)- 5.1% (.EXE) DOS Borland compiled Executable (generic)
Total of Function Calls: 36449 SHA1: 4.7.6.50 C56F0A26DFBE706E6A1A9D0E23B6114AFCC09CDC CRC32: 29BCAE4D 33.1 MB (34,724,120 bytes)
Compilation Timestamp 2023-05-21 13:42:16 UTC Signtime 21 May 2023 15:45:22
This report is generated from a file or URL submitted to this webservice on May 21st 2023 18:54:05 (UTC)
Guest System: Windows 7 64 bit, Professional, 6.1 (build 7601), Service Pack 1
Report generated by Falcon Sandbox v10.1.2 © Hybrid Analysis
60.1% (.OCX) Windows ActiveX control 22.2% (.EXE) InstallShield setup
5.4% (.EXE) Win64 Executable (generic) 5.1% (.EXE) DOS Borland compiled Executable (generic)
2.3% (.EXE) Win32 Executable (generic)
Amount of Functions: 21907 Amount of Procedures: 12848
Amount of Constructors: 2029 Amount of Destructors: 14
Totals of Calls: 36798 SHA1: of 4.7.6.50 CAA09249B338ED2814B760FA549DAD47F6C789D2
CRC32: 17A61798: 35033880 bytes
mX4 executed: 30/05/2023 15:46:15 Runtime: 0:16:22.226 Memload: 40% use
Amount of Functions: 21924
Amount of Procedures: 12863
Amount of Constructors: 2033
Amount of Destructors: 14
Totals of Calls: 36834
SHA1: of 4.7.6.50 EDE730F514834A85ECA6D0190DAC8CA6046C26EE
CRC32: 4E7C4A2B: 35117336 bytes
mX4 executed: 31/05/2023 11:30:52 Runtime: 0:15:51.194 Memload: 45% use
Amount of Functions: 21939
Amount of Procedures: 12865
Amount of Constructors: 2034
Amount of Destructors: 14
Totals of Calls: 36852
SHA1: of 4.7.6.50 D4FD4CACFD766EB8F78F2BB7B5EFDDEBB386597A
CRC32: C1DCD693: 35128600 bytes
mX4 executed: 31/05/2023 16:16:38 Runtime: 0:15:26.396 Memload: 38% use
Amount of Functions: 21987
Amount of Procedures: 12906
Amount of Constructors: 2040
Amount of Destructors: 14
Totals of Calls: 36947
SHA1: of 4.7.6.50 C430FDBA9880317E31D4DA2F66C884799298FCC3
CRC32: 5BD9839C: 35257624 bytes
mX4 executed: 06/06/2023 17:16:17 Runtime: 0:15:37.770 Memload: 40% use
Amount of Functions: 22031
Amount of Procedures: 12918
Amount of Constructors: 2045
Amount of Destructors: 14
Totals of Calls: 37008
SHA1: of 4.7.6.50 FDA4E3CE0FEC5F86EF0F95278D5C35FEC42FDA1B
CRC32: 46294349: 35454744 bytes
mX4 executed: 08/06/2023 19:57:04 Runtime: 0:15:51.769 Memload: 46% use
https://www.hybrid-analysis.com/sample/4dfbada6765e47c72b7c2496f831419b3461fa7c4ac6e05e2a941b501e10e022
--- Falcon Sandbox Analysis Summary ---
File Name: maXbox4.exe
Analysis State: SUCCESS
Threat Verdict: no specific threat
Threat Score: n/a/100 AV Detection Ratio: n/a
AV Family Name: Time of analysis: 2023-05-31 14:40:33
File Size (bytes): 35128600
File Type: PE32 executable (GUI) Intel 80386, for MS Windows
Contacted Domains: none Contacted Hosts: none
Environment: Windows 7 64 bit (ID: 120)
--- Falcon Sandbox Analysis Summary ---
File Name: maXbox4.exe Analysis State: SUCCESS
Threat Verdict: no specific threat Threat Score: n/a/100
AV Detection Ratio: n/a AV Family Name:
Time of analysis: 2023-06-06 16:36:58
File Size (bytes): 35257624
File Type: PE32 executable (GUI) Intel 80386, for MS Windows
Contacted Domains: none Contacted Hosts: none
Environment: Windows 7 64 bit (ID: 120)
Submission name: maXbox4.exe
Size: 34MiB Type: peexe executable Mime: application/x-dosexec
SHA256: fa0f30abf34292e91070a5bd4682040eb6af79a8f6c7f55111c9692153120988 Copy SHA256 to clipboard
Last Anti-Virus Scan: 06/12/2023 14:22:38 (UTC)
Last Sandbox Report: 66/12/2023 14:22:30 (UTC)
Amount of Functions: 22257
Amount of Procedures: 13051
Amount of Constructors: 2050
Amount of Destructors: 14
Totals of Calls: 37372
SHA1: of 4.7.6.50 D047DBD5412C3E4A436089018B9C7FACF17A2EB5
CRC32: 38562FA8: 35697944 bytes
mX4 executed: 15/06/2023 09:59:46 Runtime: 0:16:2.832 Memload: 40% use
--- Falcon Sandbox Analysis Summary ---
File Name: maXbox4.exe Analysis State: SUCCESS
Threat Verdict: no specific threat Threat Score: n/a/100
AV Detection Ratio: n/a AV Family Name:
Time of analysis: 2023-06-15 07:31:25 File Size (bytes): 35697944
File Type: PE32 executable (GUI) Intel 80386, for MS Windows
Contacted Domains: none Contacted Hosts: none
Environment: Windows 7 64 bit (ID: 120)
This report is generated from a file or URL submitted to this webservice on June 15th 2023 07:31:25 (UTC)
Guest System: Windows 7 64 bit, Professional, 6.1 (build 7601), Service Pack 1
Report generated by Falcon Sandbox v10.1.5 © Hybrid Analysis
15/06/2023 08:31 7,947 API_services.dcu
15/06/2023 08:40 30,857 MathsLib.dcu
15/06/2023 08:31 81,205 uPSI_GUIUtils.dcu
Recompiled: dir /s /o N *.dcu | find "14/06/2023" > C:\maXbox\maxboxunitalldisk_sort.txt
14/06/2023 14:35 47,303 uPSC_classes.dcu
14/06/2023 14:35 54,393 uPSR_classes.dcu
14/06/2023 15:02 10,731 API_audio.dcu
14/06/2023 11:54 15,783 API_base.dcu
14/06/2023 16:31 56,163 API_files.dcu
14/06/2023 14:54 13,136 API_graphics.dcu
14/06/2023 14:59 12,145 API_ledgrid.dcu
14/06/2023 16:31 30,566 api_strings.dcu
14/06/2023 17:06 40,971 API_tools.dcu
14/06/2023 18:31 8,219 API_winprocess.dcu
14/06/2023 18:40 30,876 MathsLib.dcu
14/06/2023 16:05 72,193 uPSI_GUIAutomation.dcu
14/06/2023 18:34 65,834 uPSI_GUIUtils.dcu
************************************************************
unit List asm internal end units all unitlist unitslist allunits
************************************************************
01 unit RIRegister_StrUtils_Routines(exec); //Delphi
02 unit SIRegister_IdStrings //Indy Sockets
03 unit RIRegister_niSTRING_Routines(Exec); //from RegEx
04 unit uPSI_fMain Functions; //maXbox Open Tools API
05 unit IFSI_WinForm1puzzle; //maXbox
06 unit RIRegister_LinarBitmap_Routines(Exec); //ImageFileLibBCB
07 unit RegisterDateTimeLibrary_R(exec); //Delphi
08 unit RIRegister_MathMax_Routines(exec); //Jedi & Delphi
09 unit RIRegister_IdGlobal_Routines(exec); //Indy Sockets
10 unit RIRegister_SysUtils_Routines(Exec); //Delphi
11 unit uPSI_IdTCPConnection; //Indy some functions
12 unit uPSCompiler.pas; //PS kernel functions
13 unit uPSI_DBCommon; //DB Common_Routines and Types
14 unit uPSI_Printers.pas //Delphi VCL
15 unit uPSI_MPlayer.pas //Delphi VCL
16 unit uPSC_comobj; //COM Functions
17 unit uPSI_Clipbrd; //Delphi VCL
18 unit Filectrl in IFSI_SysUtils_max; //VCL Runtime
19 unit uPSI_SqlExpr; //DBX3
20 unit uPSI_ADODB; //ADODB
21 unit uPSI_StrHlpr; //String Helper Routines
22 unit uPSI_DateUtils; //Expansion to DateTimeLib
23 unit uPSI_FileUtils; //Expansion to Sys/File Utils
24 unit JUtils / gsUtils; //Jedi / Metabase
25 unit JvFunctions_max; //Jedi Functions
26 unit HTTPParser; //Delphi VCL
27 unit HTTPUtil; //Delphi VCL
28 unit uPSI_XMLUtil; //Delphi VCL
29 unit uPSI_SOAPHTTPClient; //Delphi VCL SOAP WebService V3.5
30 unit uPSI_Contnrs; //Delphi RTL Container of Classes
31 unit uPSI_MaskUtils; //RTL Edit and Mask functions
32 unit uPSI_MyBigInt; //big Int class with Math
33 unit uPSI_ConvUtils; //Delphi VCL Conversions engine
34 unit Types_Variants; //Delphi\Win32\rtl\sys
35 unit uPSI_IdHashSHA1; //Indy Crypto Lib
36 unit uPSI_IdHashMessageDigest //Indy Crypto;
37 unit uPSI_IdASN1Util; //Indy ASN1Utility Routines;
38 unit uPSI_IdLogFile; //Indy Logger from LogBase
39 unit uPSI_IdIcmpClient; //Indy Ping ICMP
40 unit uPSI_IdHashMessageDigest_max //Indy Crypto &OpenSSL;
41 unit uPSI_FileCtrl; //Delphi RTL
42 unit uPSI_Outline; //Delphi VCL
43 unit uPSI_ScktComp; //Delphi RTL
44 unit uPSI_Calendar; //Delphi VCL
45 unit uPSI_VListView //VListView;
46 unit uPSI_DBGrids; //Delphi VCL
47 unit uPSI_DBCtrls; //Delphi VCL
48 unit ide_debugoutput; //maXbox
49 unit uPSI_ComCtrls; //Delphi VCL
50 unit uPSC_stdctrls+; //Delphi VCL
51 unit uPSI_Dialogs; //Delphi VCL
52 unit uPSI_StdConvs; //Delphi RTL
53 unit uPSI_DBClient; //Delphi RTL
54 unit uPSI_DBPlatform; //Delphi RTL
55 unit uPSI_Provider; //Delphi RTL
56 unit uPSI_FMTBcd; //Delphi RTL
57 unit uPSI_DBCGrids; //Delphi VCL
58 unit uPSI_CDSUtil; //MIDAS
59 unit uPSI_VarHlpr; //Delphi RTL
60 unit uPSI_ExtDlgs; //Delphi VCL
61 unit sdpStopwatch; //maXbox
62 unit uPSI_JclStatistics; //JCL
63 unit uPSI_JclLogic; //JCL
64 unit uPSI_JclMiscel; //JCL
65 unit uPSI_JclMath_max; //JCL RTL
66 unit uPSI_uTPLb_StreamUtils; //LockBox 3
67 unit uPSI_MathUtils; //BCB
68 unit uPSI_JclMultimedia; //JCL
69 unit uPSI_WideStrUtils; //Delphi API/RTL
70 unit uPSI_GraphUtil; //Delphi RTL
71 unit uPSI_TypeTrans; //Delphi RTL
72 unit uPSI_HTTPApp; //Delphi VCL
73 unit uPSI_DBWeb; //Delphi VCL
74 unit uPSI_DBBdeWeb; //Delphi VCL
75 unit uPSI_DBXpressWeb; //Delphi VCL
76 unit uPSI_ShadowWnd; //Delphi VCL
77 unit uPSI_ToolWin; //Delphi VCL
78 unit uPSI_Tabs; //Delphi VCL
79 unit uPSI_JclGraphUtils; //JCL
80 unit uPSI_JclCounter; //JCL
81 unit uPSI_JclSysInfo; //JCL
82 unit uPSI_JclSecurity; //JCL
83 unit uPSI_JclFileUtils; //JCL
84 unit uPSI_IdUserAccounts; //Indy
85 unit uPSI_IdAuthentication; //Indy
86 unit uPSI_uTPLb_AES; //LockBox 3
87 unit uPSI_IdHashSHA1; //LockBox 3
88 unit uTPLb_BlockCipher; //LockBox 3
89 unit uPSI_ValEdit.pas; //Delphi VCL
90 unit uPSI_JvVCLUtils; //JCL
91 unit uPSI_JvDBUtil; //JCL
92 unit uPSI_JvDBUtils; //JCL
93 unit uPSI_JvAppUtils; //JCL
94 unit uPSI_JvCtrlUtils; //JCL
95 unit uPSI_JvFormToHtml; //JCL
96 unit uPSI_JvParsing; //JCL
97 unit uPSI_SerDlgs; //Toolbox
98 unit uPSI_Serial; //Toolbox
99 unit uPSI_JvComponent; //JCL
100 unit uPSI_JvCalc; //JCL
101 unit uPSI_JvBdeUtils; //JCL
102 unit uPSI_JvDateUtil; //JCL
103 unit uPSI_JvGenetic; //JCL
104 unit uPSI_JclBase; //JCL
105 unit uPSI_JvUtils; //JCL
106 unit uPSI_JvStrUtil; //JCL
107 unit uPSI_JvStrUtils; //JCL
108 unit uPSI_JvFileUtil; //JCL
109 unit uPSI_JvMemoryInfos; //JCL
110 unit uPSI_JvComputerInfo; //JCL
111 unit uPSI_JvgCommClasses; //JCL
112 unit uPSI_JvgLogics; //JCL
113 unit uPSI_JvLED; //JCL
114 unit uPSI_JvTurtle; //JCL
115 unit uPSI_SortThds; unit uPSI_ThSort; //maXbox
116 unit uPSI_JvgUtils; //JCL
117 unit uPSI_JvExprParser; //JCL
118 unit uPSI_HexDump; //Borland
119 unit uPSI_DBLogDlg; //VCL
120 unit uPSI_SqlTimSt; //RTL
121 unit uPSI_JvHtmlParser; //JCL
122 unit uPSI_JvgXMLSerializer; //JCL
123 unit uPSI_JvJCLUtils; //JCL
124 unit uPSI_JvStrings; //JCL
125 unit uPSI_uTPLb_IntUtils; //TurboPower
126 unit uPSI_uTPLb_HugeCardinal; //TurboPower
127 unit uPSI_uTPLb_HugeCardinalUtils; //TurboPower
128 unit uPSI_SynRegExpr; //SynEdit
129 unit uPSI_StUtils; //SysTools4
130 unit uPSI_StToHTML; //SysTools4
131 unit uPSI_StStrms; //SysTools4
132 unit uPSI_StFIN; //SysTools4
133 unit uPSI_StAstroP; //SysTools4
134 unit uPSI_StStat; //SysTools4
135 unit uPSI_StNetCon; //SysTools4
136 unit uPSI_StDecMth; //SysTools4
137 unit uPSI_StOStr; //SysTools4
138 unit uPSI_StPtrns; //SysTools4
139 unit uPSI_StNetMsg; //SysTools4
140 unit uPSI_StMath; //SysTools4
141 unit uPSI_StExpEng; //SysTools4
142 unit uPSI_StCRC; //SysTools4
143 unit uPSI_StExport, //SysTools4
144 unit uPSI_StExpLog, //SysTools4
145 unit uPSI_ActnList; //Delphi VCL
146 unit uPSI_jpeg; //Borland
147 unit uPSI_StRandom; //SysTools4
148 unit uPSI_StDict; //SysTools4
149 unit uPSI_StBCD; //SysTools4
150 unit uPSI_StTxtDat; //SysTools4
151 unit uPSI_StRegEx; //SysTools4
152 unit uPSI_IMouse; //VCL
153 unit uPSI_SyncObjs; //VCL
154 unit uPSI_AsyncCalls; //Hausladen
155 unit uPSI_ParallelJobs; //Saraiva
156 unit uPSI_Variants; //VCL
157 unit uPSI_VarCmplx; //VCL Wolfram
158 unit uPSI_DTDSchema; //VCL
159 unit uPSI_ShLwApi; //Brakel
160 unit uPSI_IBUtils; //VCL
161 unit uPSI_CheckLst; //VCL
162 unit uPSI_JvSimpleXml; //JCL
163 unit uPSI_JclSimpleXml; //JCL
164 unit uPSI_JvXmlDatabase; //JCL
165 unit uPSI_JvMaxPixel; //JCL
166 unit uPSI_JvItemsSearchs; //JCL
167 unit uPSI_StExpEng2; //SysTools4
168 unit uPSI_StGenLog; //SysTools4
169 unit uPSI_JvLogFile; //Jcl
170 unit uPSI_CPort; //ComPort Lib v4.11
171 unit uPSI_CPortCtl; //ComPort
172 unit uPSI_CPortEsc; //ComPort
173 unit BarCodeScaner; //ComPort
174 unit uPSI_JvGraph; //JCL
175 unit uPSI_JvComCtrls; //JCL
176 unit uPSI_GUITesting; //D Unit
177 unit uPSI_JvFindFiles; //JCL
178 unit uPSI_StSystem; //SysTools4
179 unit uPSI_JvKeyboardStates; //JCL
180 unit uPSI_JvMail; //JCL
181 unit uPSI_JclConsole; //JCL
182 unit uPSI_JclLANMan; //JCL
183 unit uPSI_IdCustomHTTPServer; //Indy
184 unit IdHTTPServer //Indy
185 unit uPSI_IdTCPServer; //Indy
186 unit uPSI_IdSocketHandle; //Indy
187 unit uPSI_IdIOHandlerSocket; //Indy
188 unit IdIOHandler; //Indy
189 unit uPSI_cutils; //Bloodshed
190 unit uPSI_BoldUtils; //boldsoft
191 unit uPSI_IdSimpleServer; //Indy
192 unit uPSI_IdSSLOpenSSL; //Indy
193 unit uPSI_IdMultipartFormData; //Indy
194 unit uPSI_SynURIOpener; //SynEdit
195 unit uPSI_PerlRegEx; //PCRE
196 unit uPSI_IdHeaderList; //Indy
197 unit uPSI_StFirst; //SysTools4
198 unit uPSI_JvCtrls; //JCL
199 unit uPSI_IdTrivialFTPBase; //Indy
200 unit uPSI_IdTrivialFTP; //Indy
201 unit uPSI_IdUDPBase; //Indy
202 unit uPSI_IdUDPClient; //Indy
203 unit uPSI_utypes; //for DMath.DLL
204 unit uPSI_ShellAPI; //Borland
205 unit uPSI_IdRemoteCMDClient; //Indy
206 unit uPSI_IdRemoteCMDServer; //Indy
207 unit IdRexecServer; //Indy
208 unit IdRexec; (unit uPSI_IdRexec;) //Indy
209 unit IdUDPServer; //Indy
210 unit IdTimeUDPServer; //Indy
211 unit IdTimeServer; //Indy
212 unit IdTimeUDP; (unit uPSI_IdUDPServer;) //Indy
213 unit uPSI_IdIPWatch; //Indy
214 unit uPSI_IdIrcServer; //Indy
215 unit uPSI_IdMessageCollection; //Indy
216 unit uPSI_cPEM; //Fundamentals 4
217 unit uPSI_cFundamentUtils; //Fundamentals 4
218 unit uPSI_uwinplot; //DMath
219 unit uPSI_xrtl_util_CPUUtils; //ExtentedRTL
220 unit uPSI_GR32_System; //Graphics32
221 unit uPSI_cFileUtils; //Fundamentals 4
222 unit uPSI_cDateTime; (timemachine) //Fundamentals 4
223 unit uPSI_cTimers; (high precision timer) //Fundamentals 4
224 unit uPSI_cRandom; //Fundamentals 4
225 unit uPSI_ueval; //DMath
226 unit uPSI_xrtl_net_URIUtils; //ExtendedRTL
227 unit xrtl_net_URIUtils; //ExtendedRTL
228 unit uPSI_ufft; (FFT) //DMath
229 unit uPSI_DBXChannel; //Delphi
230 unit uPSI_DBXIndyChannel; //Delphi Indy
231 unit uPSI_xrtl_util_COMCat; //ExtendedRTL
232 unit uPSI_xrtl_util_StrUtils; //ExtendedRTL
233 unit uPSI_xrtl_util_VariantUtils; //ExtendedRTL
234 unit uPSI_xrtl_util_FileUtils; //ExtendedRTL
235 unit xrtl_util_Compat; //ExtendedRTL
236 unit uPSI_OleAuto; //Borland
237 unit uPSI_xrtl_util_COMUtils; //ExtendedRTL
238 unit uPSI_CmAdmCtl; //Borland
239 unit uPSI_ValEdit2; //VCL
240 unit uPSI_GR32; //Graphics32 //Graphics32
241 unit uPSI_GR32_Image; //Graphics32
242 unit uPSI_xrtl_util_TimeUtils; //ExtendedRTL
243 unit uPSI_xrtl_util_TimeZone; //ExtendedRTL
244 unit uPSI_xrtl_util_TimeStamp; //ExtendedRTL
245 unit uPSI_xrtl_util_Map; //ExtendedRTL
246 unit uPSI_xrtl_util_Set; //ExtendedRTL
247 unit uPSI_CPortMonitor; //ComPort
248 unit uPSI_StIniStm; //SysTools4
249 unit uPSI_GR32_ExtImage; //Graphics32
250 unit uPSI_GR32_OrdinalMaps; //Graphics32
251 unit uPSI_GR32_Rasterizers; //Graphics32
252 unit uPSI_xrtl_util_Exception; //ExtendedRTL
253 unit uPSI_xrtl_util_Value; //ExtendedRTL
254 unit uPSI_xrtl_util_Compare; //ExtendedRTL
255 unit uPSI_FlatSB; //VCL
256 unit uPSI_JvAnalogClock; //JCL
257 unit uPSI_JvAlarms; //JCL
258 unit uPSI_JvSQLS; //JCL
259 unit uPSI_JvDBSecur; //JCL
260 unit uPSI_JvDBQBE; //JCL
261 unit uPSI_JvStarfield; //JCL
262 unit uPSI_JVCLMiscal; //JCL
263 unit uPSI_JvProfiler32; //JCL
264 unit uPSI_JvDirectories, //JCL
265 unit uPSI_JclSchedule, //JCL
266 unit uPSI_JclSvcCtrl, //JCL
267 unit uPSI_JvSoundControl, //JCL
268 unit uPSI_JvBDESQLScript, //JCL
269 unit uPSI_JvgDigits, //JCL>
270 unit uPSI_ImgList; //TCustomImageList
271 unit uPSI_JclMIDI; //JCL>
272 unit uPSI_JclWinMidi; //JCL>
273 unit uPSI_JclNTFS; //JCL>
274 unit uPSI_JclAppInst; //JCL>
275 unit uPSI_JvRle; //JCL>
276 unit uPSI_JvRas32; //JCL>
277 unit uPSI_JvImageDrawThread, //JCL>
278 unit uPSI_JvImageWindow, //JCL>
279 unit uPSI_JvTransparentForm; //JCL>
280 unit uPSI_JvWinDialogs; //JCL>
281 unit uPSI_JvSimLogic, //JCL>
282 unit uPSI_JvSimIndicator, //JCL>
283 unit uPSI_JvSimPID, //JCL>
284 unit uPSI_JvSimPIDLinker, //JCL>
285 unit uPSI_IdRFCReply; //Indy
286 unit uPSI_IdIdent; //Indy
287 unit uPSI_IdIdentServer; //Indy
288 unit uPSI_JvPatchFile; //JCL
289 unit uPSI_StNetPfm; //SysTools4
290 unit uPSI_StNet; //SysTools4
291 unit uPSI_JclPeImage; //JCL
292 unit uPSI_JclPrint; //JCL
293 unit uPSI_JclMime; //JCL
294 unit uPSI_JvRichEdit; //JCL
295 unit uPSI_JvDBRichEd; //JCL
296 unit uPSI_JvDice; //JCL
297 unit uPSI_JvFloatEdit; //JCL 3.9.8
298 unit uPSI_JvDirFrm; //JCL
299 unit uPSI_JvDualList; //JCL
300 unit uPSI_JvSwitch; ////JCL
301 unit uPSI_JvTimerLst; ////JCL
302 unit uPSI_JvMemTable; //JCL
303 unit uPSI_JvObjStr; //JCL
304 unit uPSI_StLArr; //SysTools4
305 unit uPSI_StWmDCpy; //SysTools4
306 unit uPSI_StText; //SysTools4
307 unit uPSI_StNTLog; //SysTools4
308 unit uPSI_xrtl_math_Int; //ExtendedRTL
309 unit uPSI_JvImagPrvw; //JCL
310 unit uPSI_JvFormPatch; //JCL
311 unit uPSI_JvPicClip; //JCL
312 unit uPSI_JvDataConv; //JCL
313 unit uPSI_JvCpuUsage; //JCL
314 unit uPSI_JclUnitConv_mX2; //JCL
315 unit JvDualListForm; //JCL
316 unit uPSI_JvCpuUsage2; //JCL
317 unit uPSI_JvParserForm; //JCL
318 unit uPSI_JvJanTreeView; //JCL
319 unit uPSI_JvTransLED; //JCL
320 unit uPSI_JvPlaylist; //JCL
321 unit uPSI_JvFormAutoSize; //JCL
322 unit uPSI_JvYearGridEditForm; //JCL
323 unit uPSI_JvMarkupCommon; //JCL
324 unit uPSI_JvChart; //JCL
325 unit uPSI_JvXPCore; //JCL
326 unit uPSI_JvXPCoreUtils; //JCL
327 unit uPSI_StatsClasses; //mX4 a1: TStatArray;
328 unit uPSI_ExtCtrls2; //VCL
329 unit uPSI_JvUrlGrabbers; //JCL
330 unit uPSI_JvXmlTree; //JCL
331 unit uPSI_JvWavePlayer; //JCL
332 unit uPSI_JvUnicodeCanvas; //JCL
333 unit uPSI_JvTFUtils; //JCL
334 unit uPSI_IdServerIOHandler; //Indy
335 unit uPSI_IdServerIOHandlerSocket; //Indy
336 unit uPSI_IdMessageCoder; //Indy
337 unit uPSI_IdMessageCoderMIME; //Indy
338 unit uPSI_IdMIMETypes; //Indy
339 unit uPSI_JvConverter; //JCL
340 unit uPSI_JvCsvParse; //JCL
341 unit uPSI_umath; unit uPSI_ugamma; //DMath
342 unit uPSI_ExcelExport;(Nat:TJsExcelExport) //JCL
343 unit uPSI_JvDBGridExport; //JCL
344 unit uPSI_JvgExport; //JCL
345 unit uPSI_JvSerialMaker; //JCL
346 unit uPSI_JvWin32; //JCL
347 unit uPSI_JvPaintFX; //JCL
348 unit uPSI_JvOracleDataSet; (beta) //JCL
349 unit uPSI_JvValidators; (preview) //JCL
350 unit uPSI_JvNTEventLog; //JCL
351 unit uPSI_ShellZipTool; //mX4
352 unit uPSI_JvJoystick; //JCL
353 unit uPSI_JvMailSlots; //JCL
354 unit uPSI_JclComplex; //JCL
355 unit uPSI_SynPdf; //Synopse
356 unit uPSI_Registry; //VCL
357 unit uPSI_TlHelp32; //VCL
358 unit uPSI_JclRegistry; //JCL
359 unit uPSI_JvAirBrush; //JCL
360 unit uPSI_mORMotReport; //Synopse
361 unit uPSI_JclLocales; //JCL
362 unit uPSI_SynEdit; //SynEdit
363 unit uPSI_SynEditTypes; //SynEdit
364 unit uPSI_SynMacroRecorder; //SynEdit
365 unit uPSI_LongIntList; //SynEdit
366 unit uPSI_devcutils; //DevC
367 unit uPSI_SynEditMiscClasses; //SynEdit
368 unit uPSI_SynEditRegexSearch; //SynEdit
369 unit uPSI_SynEditHighlighter; //SynEdit
370 unit uPSI_SynHighlighterPas; //SynEdit
371 unit uPSI_JvSearchFiles; //JCL
372 unit uPSI_SynHighlighterAny; //Lazarus
373 unit uPSI_SynEditKeyCmds; //SynEdit
374 unit uPSI_SynEditMiscProcs, //SynEdit
375 unit uPSI_SynEditKbdHandler //SynEdit
376 unit uPSI_JvAppInst, //JCL
377 unit uPSI_JvAppEvent; //JCL
378 unit uPSI_JvAppCommand; //JCL
379 unit uPSI_JvAnimTitle; //JCL
380 unit uPSI_JvAnimatedImage; //JCL
381 unit uPSI_SynEditExport; //SynEdit
382 unit uPSI_SynExportHTML; //SynEdit
383 unit uPSI_SynExportRTF; //SynEdit
384 unit uPSI_SynEditSearch; //SynEdit
385 unit uPSI_fMain_back //maXbox;
386 unit uPSI_JvZoom; //JCL
387 unit uPSI_PMrand; //PM
388 unit uPSI_JvSticker; //JCL
389 unit uPSI_XmlVerySimple; //mX4
390 unit uPSI_Services; //ExtPascal
391 unit uPSI_ExtPascalUtils; //ExtPascal
392 unit uPSI_SocketsDelphi; //ExtPascal
393 unit uPSI_StBarC; //SysTools
394 unit uPSI_StDbBarC; //SysTools
395 unit uPSI_StBarPN; //SysTools
396 unit uPSI_StDbPNBC; //SysTools
397 unit uPSI_StDb2DBC; //SysTools
398 unit uPSI_StMoney; //SysTools
399 unit uPSI_JvForth; //JCL
400 unit uPSI_RestRequest; //mX4
401 unit uPSI_HttpRESTConnectionIndy; //mX4
402 unit uPSI_JvXmlDatabase; //update //JCL
403 unit uPSI_StAstro; //SysTools
404 unit uPSI_StSort; //SysTools
405 unit uPSI_StDate; //SysTools
406 unit uPSI_StDateSt; //SysTools
407 unit uPSI_StBase; //SysTools
408 unit uPSI_StVInfo; //SysTools
409 unit uPSI_JvBrowseFolder; //JCL
410 unit uPSI_JvBoxProcs; //JCL
411 unit uPSI_urandom; (unit uranuvag;) //DMath
412 unit uPSI_usimann; (unit ugenalg;) //DMath
413 unit uPSI_JvHighlighter; //JCL
414 unit uPSI_Diff; //mX4
415 unit uPSI_SpringWinAPI; //DSpring
416 unit uPSI_StBits; //SysTools
417 unit uPSI_TomDBQue; //mX4
418 unit uPSI_MultilangTranslator; //mX4
419 unit uPSI_HyperLabel; //mX4
420 unit uPSI_Starter; //mX4
421 unit uPSI_FileAssocs; //devC
422 unit uPSI_devFileMonitorX; //devC
423 unit uPSI_devrun; //devC
424 unit uPSI_devExec; //devC
425 unit uPSI_oysUtils; //devC
426 unit uPSI_DosCommand; //devC
427 unit uPSI_CppTokenizer; //devC
428 unit uPSI_JvHLParser; //devC
429 unit uPSI_JclMapi; //JCL
430 unit uPSI_JclShell; //JCL
431 unit uPSI_JclCOM; //JCL
432 unit uPSI_GR32_Math; //Graphics32
433 unit uPSI_GR32_LowLevel; //Graphics32
434 unit uPSI_SimpleHl; //mX4
435 unit uPSI_GR32_Filters, //Graphics32
436 unit uPSI_GR32_VectorMaps; //Graphics32
437 unit uPSI_cXMLFunctions; //Fundamentals 4
438 unit uPSI_JvTimer; //JCL
439 unit uPSI_cHTTPUtils; //Fundamentals 4
440 unit uPSI_cTLSUtils; //Fundamentals 4
441 unit uPSI_JclGraphics; //JCL
442 unit uPSI_JclSynch; //JCL
443 unit uPSI_IdTelnet; //Indy
444 unit uPSI_IdTelnetServer, //Indy
445 unit uPSI_IdEcho, //Indy
446 unit uPSI_IdEchoServer, //Indy
447 unit uPSI_IdEchoUDP, //Indy
448 unit uPSI_IdEchoUDPServer, //Indy
449 unit uPSI_IdSocks, //Indy
450 unit uPSI_IdAntiFreezeBase; //Indy
451 unit uPSI_IdHostnameServer; //Indy
452 unit uPSI_IdTunnelCommon, //Indy
453 unit uPSI_IdTunnelMaster, //Indy
454 unit uPSI_IdTunnelSlave, //Indy
455 unit uPSI_IdRSH, //Indy
456 unit uPSI_IdRSHServer, //Indy
457 unit uPSI_Spring_Cryptography_Utils; //Spring4Delphi
458 unit uPSI_MapReader, //devC
459 unit uPSI_LibTar, //devC
460 unit uPSI_IdStack; //Indy
461 unit uPSI_IdBlockCipherIntercept; //Indy
462 unit uPSI_IdChargenServer; //Indy
463 unit uPSI_IdFTPServer, //Indy
464 unit uPSI_IdException, //Indy
465 unit uPSI_utexplot; //DMath
466 unit uPSI_uwinstr; //DMath
467 unit uPSI_VarRecUtils; //devC
468 unit uPSI_JvStringListToHtml, //JCL
469 unit uPSI_JvStringHolder, //JCL
470 unit uPSI_IdCoder; //Indy
471 unit uPSI_SynHighlighterDfm; //Synedit
472 unit uHighlighterProcs; in 471 //Synedit
473 unit uPSI_LazFileUtils, //LCL
474 unit uPSI_IDECmdLine; //LCL
475 unit uPSI_lazMasks; //LCL
476 unit uPSI_ip_misc; //mX4
477 unit uPSI_Barcode; //LCL
478 unit uPSI_SimpleXML; //LCL
479 unit uPSI_JclIniFiles; //JCL
480 unit uPSI_D2XXUnit; {$X-} //FTDI
481 unit uPSI_JclDateTime; //JCL
482 unit uPSI_JclEDI; //JCL
483 unit uPSI_JclMiscel2; //JCL
484 unit uPSI_JclValidation; //JCL
485 unit uPSI_JclAnsistrs; {-PString} //JCL
486 unit uPSI_SynEditMiscProcs2; //Synedit
487 unit uPSI_JclStreams; //JCL
488 unit uPSI_QRCode; //mX4
489 unit uPSI_BlockSocket; //ExtPascal
490 unit uPSI_Masks,Utils //VCL
491 unit uPSI_synautil; //Synapse!
492 unit uPSI_JclMath_Class; //JCL RTL
493 unit ugamdist; //Gamma Func //DMath
494 unit uibeta, ucorrel; //IBeta //DMath
495 unit uPSI_SRMgr; //mX4
496 unit uPSI_HotLog; //mX4
497 unit uPSI_DebugBox; //mX4
498 unit uPSI_ustrings; //DMath
499 unit uPSI_uregtest; //DMath
500 unit uPSI_usimplex; //DMath
501 unit uPSI_uhyper; //DMath
502 unit uPSI_IdHL7; //Indy
503 unit uPSI_IdIPMCastBase, //Indy
504 unit uPSI_IdIPMCastServer; //Indy
505 unit uPSI_IdIPMCastClient; //Indy
506 unit uPSI_unlfit; //nlregression //DMath
507 unit uPSI_IdRawHeaders; //Indy
508 unit uPSI_IdRawClient; //Indy
509 unit uPSI_IdRawFunctions; //Indy
510 unit uPSI_IdTCPStream; //Indy
511 unit uPSI_IdSNPP; //Indy
512 unit uPSI_St2DBarC; //SysTools
513 unit uPSI_ImageWin; //FTL //VCL
514 unit uPSI_CustomDrawTreeView; //FTL //VCL
515 unit uPSI_GraphWin; //FTL //VCL
516 unit uPSI_actionMain; //FTL //VCL
517 unit uPSI_StSpawn; //SysTools
518 unit uPSI_CtlPanel; //VCL
519 unit uPSI_IdLPR; //Indy
520 unit uPSI_SockRequestInterpreter; //Indy
521 unit uPSI_ulambert; //DMath
522 unit uPSI_ucholesk; //DMath
523 unit uPSI_SimpleDS; //VCL
524 unit uPSI_DBXSqlScanner; //VCL
525 unit uPSI_DBXMetaDataUtil; //VCL
526 unit uPSI_Chart; //TEE
527 unit uPSI_TeeProcs; //TEE
528 unit mXBDEUtils; //mX4
529 unit uPSI_MDIEdit; //VCL
530 unit uPSI_CopyPrsr; //VCL
531 unit uPSI_SockApp; //VCL
532 unit uPSI_AppEvnts; //VCL
533 unit uPSI_ExtActns; //VCL
534 unit uPSI_TeEngine; //TEE
535 unit uPSI_CoolMain; //browser //VCL
536 unit uPSI_StCRC; //SysTools
537 unit uPSI_StDecMth2; //SysTools
538 unit uPSI_frmExportMain; //Synedit
539 unit uPSI_SynDBEdit; //Synedit
540 unit uPSI_SynEditWildcardSearch; //Synedit
541 unit uPSI_BoldComUtils; //BOLD
542 unit uPSI_BoldIsoDateTime; //BOLD
543 unit uPSI_BoldGUIDUtils; //inCOMUtils //BOLD
544 unit uPSI_BoldXMLRequests; //BOLD
545 unit uPSI_BoldStringList; //BOLD
546 unit uPSI_BoldFileHandler; //BOLD
547 unit uPSI_BoldContainers; //BOLD
548 unit uPSI_BoldQueryUserDlg; //BOLD
549 unit uPSI_BoldWinINet; //BOLD
550 unit uPSI_BoldQueue; //BOLD
551 unit uPSI_JvPcx; //JCL
552 unit uPSI_IdWhois; //Indy
553 unit uPSI_IdWhoIsServer; //Indy
554 unit uPSI_IdGopher; //Indy
555 unit uPSI_IdDateTimeStamp; //Indy
556 unit uPSI_IdDayTimeServer; //Indy
557 unit uPSI_IdDayTimeUDP; //Indy
558 unit uPSI_IdDayTimeUDPServer; //Indy
559 unit uPSI_IdDICTServer; //Indy
560 unit uPSI_IdDiscardServer; //Indy
561 unit uPSI_IdDiscardUDPServer; //Indy
562 unit uPSI_IdMappedFTP; //Indy
563 unit uPSI_IdMappedPortTCP; //Indy
564 unit uPSI_IdGopherServer; //Indy
565 unit uPSI_IdQotdServer; //Indy
566 unit uPSI_JvRgbToHtml; //JCL
567 unit uPSI_JvRemLog, //JCL
568 unit uPSI_JvSysComp; //JCL
569 unit uPSI_JvTMTL; //JCL
570 unit uPSI_JvWinampAPI; //JCL
571 unit uPSI_MSysUtils; //mX4
572 unit uPSI_ESBMaths; //ESB
573 unit uPSI_ESBMaths2; //ESB
574 unit uPSI_uLkJSON; //Lk
575 unit uPSI_ZURL; //Zeos //Zeos
576 unit uPSI_ZSysUtils; //Zeos
577 unit unaUtils internals //UNA
578 unit uPSI_ZMatchPattern; //Zeos
579 unit uPSI_ZClasses; //Zeos
580 unit uPSI_ZCollections; //Zeos
581 unit uPSI_ZEncoding; //Zeos
582 unit uPSI_IdRawBase; //Indy
583 unit uPSI_IdNTLM; //Indy
584 unit uPSI_IdNNTP; //Indy
585 unit uPSI_usniffer; //PortScanForm //mX4
586 unit uPSI_IdCoderMIME; //Indy
587 unit uPSI_IdCoderUUE; //Indy
588 unit uPSI_IdCoderXXE; //Indy
589 unit uPSI_IdCoder3to4; //Indy
590 unit uPSI_IdCookie; //Indy
591 unit uPSI_IdCookieManager; //Indy
592 unit uPSI_WDosSocketUtils; //WDos
593 unit uPSI_WDosPlcUtils; //WDos
594 unit uPSI_WDosPorts; //WDos
595 unit uPSI_WDosResolvers; //WDos
596 unit uPSI_WDosTimers; //WDos
597 unit uPSI_WDosPlcs; //WDos
598 unit uPSI_WDosPneumatics; //WDos
599 unit uPSI_IdFingerServer; //Indy
600 unit uPSI_IdDNSResolver; //Indy
601 unit uPSI_IdHTTPWebBrokerBridge; //Indy
602 unit uPSI_IdIntercept; //Indy
603 unit uPSI_IdIPMCastBase; //Indy
604 unit uPSI_IdLogBase; //Indy
605 unit uPSI_IdIOHandlerStream; //Indy
606 unit uPSI_IdMappedPortUDP; //Indy
607 unit uPSI_IdQOTDUDPServer; //Indy
608 unit uPSI_IdQOTDUDP; //Indy
609 unit uPSI_IdSysLog; //Indy
610 unit uPSI_IdSysLogServer; //Indy
611 unit uPSI_IdSysLogMessage; //Indy
612 unit uPSI_IdTimeServer; //Indy
613 unit uPSI_IdTimeUDP; //Indy
614 unit uPSI_IdTimeUDPServer; //Indy
615 unit uPSI_IdUserAccounts; //Indy
616 unit uPSI_TextUtils; //mX4
617 unit uPSI_MandelbrotEngine; //mX4
618 unit uPSI_delphi_arduino_Unit1; //mX4
619 unit uPSI_DTDSchema2; //mX4
620 unit uPSI_fplotMain; //DMath
621 unit uPSI_FindFileIter; //mX4
622 unit uPSI_PppState; (JclStrHashMap) //PPP
623 unit uPSI_PppParser; //PPP
624 unit uPSI_PppLexer; //PPP
625 unit uPSI_PCharUtils; //PPP
626 unit uPSI_uJSON; //WU
627 unit uPSI_JclStrHashMap; //JCL
628 unit uPSI_JclHookExcept; //JCL
629 unit uPSI_EncdDecd; //VCL
630 unit uPSI_SockAppReg; //VCL
631 unit uPSI_PJFileHandle; //PJ
632 unit uPSI_PJEnvVars; //PJ
633 unit uPSI_PJPipe; //PJ
634 unit uPSI_PJPipeFilters; //PJ
635 unit uPSI_PJConsoleApp; //PJ
636 unit uPSI_UConsoleAppEx; //PJ
637 unit uPSI_DbxSocketChannelNative, //VCL
638 unit uPSI_DbxDataGenerator, //VCL
639 unit uPSI_DBXClient; //VCL
640 unit uPSI_IdLogEvent; //Indy
641 unit uPSI_Reversi; //mX4
642 unit uPSI_Geometry; //mX4
643 unit uPSI_IdSMTPServer; //Indy
644 unit uPSI_Textures; //mX4
645 unit uPSI_IBX; //VCL
646 unit uPSI_IWDBCommon; //VCL
647 unit uPSI_SortGrid; //mX4
648 unit uPSI_IB; //VCL
649 unit uPSI_IBScript; //VCL
650 unit uPSI_JvCSVBaseControls; //JCL
651 unit uPSI_Jvg3DColors; //JCL
652 unit uPSI_JvHLEditor; //beat //JCL
653 unit uPSI_JvShellHook; //JCL
654 unit uPSI_DBCommon2 //VCL
655 unit uPSI_JvSHFileOperation; //JCL
656 unit uPSI_uFilexport; //mX4
657 unit uPSI_JvDialogs; //JCL
658 unit uPSI_JvDBTreeView; //JCL
659 unit uPSI_JvDBUltimGrid; //JCL
660 unit uPSI_JvDBQueryParamsForm; //JCL
661 unit uPSI_JvExControls; //JCL
662 unit uPSI_JvBDEMemTable; //JCL
663 unit uPSI_JvCommStatus; //JCL
664 unit uPSI_JvMailSlots2; //JCL
665 unit uPSI_JvgWinMask; //JCL
666 unit uPSI_StEclpse; //SysTools
667 unit uPSI_StMime; //SysTools
668 unit uPSI_StList; //SysTools
669 unit uPSI_StMerge; //SysTools
670 unit uPSI_StStrS; //SysTools
671 unit uPSI_StTree, //SysTools
672 unit uPSI_StVArr; //SysTools
673 unit uPSI_StRegIni; //SysTools
674 unit uPSI_urkf; //DMath
675 unit uPSI_usvd; //DMath
676 unit uPSI_DepWalkUtils; //JCL
677 unit uPSI_OptionsFrm; //JCL
678 unit yuvconverts; //mX4
679 uPSI_JvPropAutoSave; //JCL
680 uPSI_AclAPI; //alcinoe
681 uPSI_AviCap; //alcinoe
682 uPSI_ALAVLBinaryTree; //alcinoe
683 uPSI_ALFcnMisc; //alcinoe
684 uPSI_ALStringList; //alcinoe
685 uPSI_ALQuickSortList; //alcinoe
686 uPSI_ALStaticText; //alcinoe
687 uPSI_ALJSONDoc; //alcinoe
688 uPSI_ALGSMComm; //alcinoe
689 uPSI_ALWindows; //alcinoe
690 uPSI_ALMultiPartFormDataParser; //alcinoe
691 uPSI_ALHttpCommon; //alcinoe
692 uPSI_ALWebSpider, //alcinoe
693 uPSI_ALHttpClient; //alcinoe
694 uPSI_ALFcnHTML; //alcinoe
695 uPSI_ALFTPClient; //alcinoe
696 uPSI_ALInternetMessageCommon; //alcinoe
697 uPSI_ALWininetHttpClient; //alcinoe
698 uPSI_ALWinInetFTPClient; //alcinoe
699 uPSI_ALWinHttpWrapper; //alcinoe
700 uPSI_ALWinHttpClient; //alcinoe
701 uPSI_ALFcnWinSock; //alcinoe
702 uPSI_ALFcnSQL; //alcinoe
703 uPSI_ALFcnCGI; //alcinoe
704 uPSI_ALFcnExecute; //alcinoe
705 uPSI_ALFcnFile; //alcinoe
706 uPSI_ALFcnMime; //alcinoe
707 uPSI_ALPhpRunner; //alcinoe
708 uPSI_ALGraphic; //alcinoe
709 uPSI_ALIniFiles; //alcinoe
710 uPSI_ALMemCachedClient; //alcinoe
711 unit uPSI_MyGrids; //mX4
712 uPSI_ALMultiPartMixedParser //alcinoe
713 uPSI_ALSMTPClient //alcinoe
714 uPSI_ALNNTPClient; //alcinoe
715 uPSI_ALHintBalloon; //alcinoe
716 unit uPSI_ALXmlDoc; //alcinoe
717 unit uPSI_IPCThrd; //VCL
718 unit uPSI_MonForm; //VCL
719 unit uPSI_TeCanvas; //Orpheus
720 unit uPSI_Ovcmisc; //Orpheus
721 unit uPSI_ovcfiler; //Orpheus
722 unit uPSI_ovcstate; //Orpheus
723 unit uPSI_ovccoco; //Orpheus
724 unit uPSI_ovcrvexp; //Orpheus
725 unit uPSI_OvcFormatSettings; //Orpheus
726 unit uPSI_OvcUtils; //Orpheus
727 unit uPSI_ovcstore; //Orpheus
728 unit uPSI_ovcstr; //Orpheus
729 unit uPSI_ovcmru; //Orpheus
730 unit uPSI_ovccmd; //Orpheus
731 unit uPSI_ovctimer; //Orpheus
732 unit uPSI_ovcintl; //Orpheus
733 uPSI_AfCircularBuffer; //AsyncFree
734 uPSI_AfUtils; //AsyncFree
735 uPSI_AfSafeSync; //AsyncFree
736 uPSI_AfComPortCore; //AsyncFree
737 uPSI_AfComPort; //AsyncFree
738 uPSI_AfPortControls; //AsyncFree
739 uPSI_AfDataDispatcher; //AsyncFree
740 uPSI_AfViewers; //AsyncFree
741 uPSI_AfDataTerminal; //AsyncFree
742 uPSI_SimplePortMain; //AsyncFree
743 unit uPSI_ovcclock; //Orpheus
744 unit uPSI_o32intlst; //Orpheus
745 unit uPSI_o32ledlabel; //Orpheus
746 unit uPSI_AlMySqlClient; //alcinoe
747 unit uPSI_ALFBXClient; //alcinoe
748 unit uPSI_ALFcnSQL; //alcinoe
749 unit uPSI_AsyncTimer; //mX4
750 unit uPSI_ApplicationFileIO; //mX4
751 unit uPSI_PsAPI; //VCLé
752 uPSI_ovcuser; //Orpheus
753 uPSI_ovcurl; //Orpheus
754 uPSI_ovcvlb; //Orpheus
755 uPSI_ovccolor; //Orpheus
756 uPSI_ALFBXLib, //alcinoe
757 uPSI_ovcmeter; //Orpheus
758 uPSI_ovcpeakm; //Orpheus
759 uPSI_O32BGSty; //Orpheus
760 uPSI_ovcBidi; //Orpheus
761 uPSI_ovctcary; //Orpheus
762 uPSI_DXPUtils; //mX4
763 uPSI_ALMultiPartBaseParser; //alcinoe
764 uPSI_ALMultiPartAlternativeParser; //alcinoe
765 uPSI_ALPOP3Client; //alcinoe
766 uPSI_SmallUtils; //mX4
767 uPSI_MakeApp; //mX4
768 uPSI_O32MouseMon; //Orpheus
769 uPSI_OvcCache; //Orpheus
770 uPSI_ovccalc; //Orpheus
771 uPSI_Joystick, //OpenGL
772 uPSI_ScreenSaver; //OpenGL
773 uPSI_XCollection, //OpenGL
774 uPSI_Polynomials, //OpenGL
775 uPSI_PersistentClasses, //9.86 //OpenGL
776 uPSI_VectorLists; //OpenGL
777 uPSI_XOpenGL, //OpenGL
778 uPSI_MeshUtils; //OpenGL
779 unit uPSI_JclSysUtils; //JCL
780 unit uPSI_JclBorlandTools; //JCL
781 unit JclFileUtils_max; //JCL
782 uPSI_AfDataControls, //AsyncFree
783 uPSI_GLSilhouette; //OpenGL
784 uPSI_JclSysUtils_class; //JCL
785 uPSI_JclFileUtils_class; //JCL
786 uPSI_FileUtil; //JCL
787 uPSI_changefind; //mX4
788 uPSI_cmdIntf; //mX4
789 uPSI_fservice; //mX4
790 uPSI_Keyboard; //OpenGL
791 uPSI_VRMLParser, //OpenGL
792 uPSI_GLFileVRML, //OpenGL
793 uPSI_Octree; //OpenGL
794 uPSI_GLPolyhedron, //OpenGL
795 uPSI_GLCrossPlatform; //OpenGL
796 uPSI_GLParticles; //OpenGL
797 uPSI_GLNavigator; //OpenGL
798 uPSI_GLStarRecord; //OpenGL
799 uPSI_GLTextureCombiners; //OpenGL
800 uPSI_GLCanvas; //OpenGL
801 uPSI_GeometryBB; //OpenGL
802 uPSI_GeometryCoordinates; //OpenGL
803 uPSI_VectorGeometry; //OpenGL
804 uPSI_BumpMapping; //OpenGL
805 uPSI_TGA; //OpenGL
806 uPSI_GLVectorFileObjects; //OpenGL
807 uPSI_IMM; //VCL
808 uPSI_CategoryButtons; //VCL
809 uPSI_ButtonGroup; //VCL
810 uPSI_DbExcept; //VCL
811 uPSI_AxCtrls; //VCL
812 uPSI_GL_actorUnit1; //OpenGL
813 uPSI_StdVCL; //VCL
814 unit CurvesAndSurfaces; //OpenGL
815 uPSI_DataAwareMain; //AsyncFree
816 uPSI_TabNotBk; //VCL
817 uPSI_udwsfiler; //mX4
818 uPSI_synaip; //Synapse!
819 uPSI_synacode; //Synapse
820 uPSI_synachar; //Synapse
821 uPSI_synamisc; //Synapse
822 uPSI_synaser; //Synapse
823 uPSI_synaicnv; //Synapse
824 uPSI_tlntsend; //Synapse
825 uPSI_pingsend; //Synapse
826 uPSI_blcksock; //Synapse
827 uPSI_asn1util; //Synapse
828 uPSI_dnssend; //Synapse
829 uPSI_clamsend; //Synapse
830 uPSI_ldapsend; //Synapse
831 uPSI_mimemess; //Synapse
832 uPSI_slogsend; //Synapse
833 uPSI_mimepart; //Synapse
834 uPSI_mimeinln; //Synapse
835 uPSI_ftpsend, //Synapse
836 uPSI_ftptsend; //Synapse
837 uPSI_httpsend; //Synapse
838 uPSI_sntpsend; //Synapse
839 uPSI_smtpsend; //Synapse
840 uPSI_snmpsend; //Synapse
841 uPSI_imapsend; //Synapse
842 uPSI_pop3send; //Synapse
843 uPSI_nntpsend; //Synapse
844 uPSI_ssl_cryptlib; //Synapse
845 uPSI_ssl_openssl; //Synapse
846 uPSI_synhttp_daemon; //Synapse
847 uPSI_NetWork; //mX4
848 uPSI_PingThread; //Synapse
849 uPSI_JvThreadTimer; //JCL
850 unit uPSI_wwSystem; //InfoPower
851 unit uPSI_IdComponent; //Indy
852 unit uPSI_IdIOHandlerThrottle; //Indy
853 unit uPSI_Themes; //VCL
854 unit uPSI_StdStyleActnCtrls; //VCL
855 unit uPSI_UDDIHelper; //VCL
856 unit uPSI_IdIMAP4Server; //Indy
857 uPSI_VariantSymbolTable, //VCL //3.9.9.92
858 uPSI_udf_glob, //mX4
859 uPSI_TabGrid, //VCL
860 uPSI_JsDBTreeView, //mX4
861 uPSI_JsSendMail, //mX4
862 uPSI_dbTvRecordList, //mX4
863 uPSI_TreeVwEx, //mX4
864 uPSI_ECDataLink, //mX4
865 uPSI_dbTree, //mX4
866 uPSI_dbTreeCBox, //mX4
867 unit uPSI_Debug; //TfrmDebug //mX4
868 uPSI_TimeFncs; //mX4
869 uPSI_FileIntf, //VCL
870 uPSI_SockTransport, //RTL
871 unit uPSI_WinInet; //RTL
872 unit uPSI_Wwstr; //mX4
873 uPSI_DBLookup, //VCL
874 uPSI_Hotspot, //mX4
875 uPSI_HList; //History List //mX4
876 unit uPSI_DrTable; //VCL
877 uPSI_TConnect, //VCL
878 uPSI_DataBkr, //VCL
879 uPSI_HTTPIntr; //VCL
880 unit uPSI_Mathbox; //mX4
881 uPSI_cyIndy, //cY
882 uPSI_cySysUtils, //cY
883 uPSI_cyWinUtils, //cY
884 uPSI_cyStrUtils, //cY
885 uPSI_cyObjUtils, //cY
886 uPSI_cyDateUtils, //cY
887 uPSI_cyBDE, //cY
888 uPSI_cyClasses, //cY
889 uPSI_cyGraphics, //3.9.9.94_2 //cY
890 unit uPSI_cyTypes; //cY
891 uPSI_JvDateTimePicker, //JCL
892 uPSI_JvCreateProcess, //JCL
893 uPSI_JvEasterEgg, //JCL
894 uPSI_WinSvc, //3.9.9.94_3 //VCL
895 uPSI_SvcMgr //VCL
896 unit uPSI_JvPickDate; //JCL
897 unit uPSI_JvNotify; //JCL
898 uPSI_JvStrHlder //JCL
899 unit uPSI_JclNTFS2; //JCL
900 uPSI_Jcl8087 //math coprocessor //JCL
901 uPSI_JvAddPrinter //JCL
902 uPSI_JvCabFile //JCL
903 uPSI_JvDataEmbedded; //JCL
904 unit uPSI_U_HexView; //mX4
905 uPSI_UWavein4, //mX4
906 uPSI_AMixer, //mX4
907 uPSI_JvaScrollText, //mX4
908 uPSI_JvArrow, //mX4
909 unit uPSI_UrlMon; //mX4
910 U_Oscilloscope4 in 'U_Oscilloscope4.pas' //mX4
911 unit uPSI_U_Oscilloscope4; //TOscfrmMain; //DFF
912 unit uPSI_DFFUtils; //DFF
913 unit uPSI_MathsLib; //DFF
914 uPSI_UIntList; //DFF
915 uPSI_UGetParens; //DFF
916 unit uPSI_UGeometry; //DFF
917 unit uPSI_UAstronomy; //DFF
918 unit uPSI_UCardComponentV2; //DFF
919 unit uPSI_UTGraphSearch; //DFF
920 unit uPSI_UParser10; //DFF
921 unit uPSI_cyIEUtils; //cY
922 unit uPSI_UcomboV2; //DFF
923 uPSI_cyBaseComm, //cY
924 uPSI_cyAppInstances, //cY
925 uPSI_cyAttract, //cY
926 uPSI_cyDERUtils //cY
927 unit uPSI_cyDocER; //cY
928 unit uPSI_ODBC; //mX
929 unit uPSI_AssocExec; //mX
930 uPSI_cyBaseCommRoomConnector, //cY
931 uPSI_cyCommRoomConnector, //cY
932 uPSI_cyCommunicate, //cY
933 uPSI_cyImage; //cY
934 uPSI_cyBaseContainer //cY
935 uPSI_cyModalContainer, //cY
936 uPSI_cyFlyingContainer; //cY
937 uPSI_RegStr, //VCL
938 uPSI_HtmlHelpViewer; //VCL
939 unit uPSI_cyIniForm //cY
940 unit uPSI_cyVirtualGrid; //cY
941 uPSI_Profiler, //DA
942 uPSI_BackgroundWorker, //DA
943 uPSI_WavePlay, //DA
944 uPSI_WaveTimer, //DA
945 uPSI_WaveUtils; //DA
946 uPSI_NamedPipes, //TB
947 uPSI_NamedPipeServer, //TB
948 unit uPSI_process, //TB
949 unit uPSI_DPUtils; //TB
950 unit uPSI_CommonTools; //TB
951 uPSI_DataSendToWeb, //TB
952 uPSI_StarCalc, //TB
953 uPSI_D2_XPVistaHelperU //TB
954 unit uPSI_NetTools //TB
955 unit uPSI_Pipes //TB
956 uPSI_ProcessUnit, //mX
957 uPSI_adGSM, //mX
958 unit uPSI_BetterADODataSet; //mX
959 unit uPSI_AdSelCom; //FTT //mX
960 unit unit uPSI_dwsXPlatform; //DWS
961 uPSI_AdSocket; //mX Turbo Power
962 uPSI_AdPacket; //mX
963 uPSI_AdPort; //mX
964 uPSI_PathFunc; //Inno
965 uPSI_CmnFunc; //Inno
966 uPSI_CmnFunc2; //Inno Setup //Inno
967 unit uPSI_BitmapImage; //mX4
968 unit uPSI_ImageGrabber; //mX4
969 uPSI_SecurityFunc, //Inno
970 uPSI_RedirFunc, //Inno
971 uPSI_FIFO, (MemoryStream) //mX4
972 uPSI_Int64Em, //Inno
973 unit uPSI_InstFunc; //Inno
974 unit uPSI_LibFusion; //Inno
975 uPSI_SimpleExpression; //Inno
976 uPSI_unitResourceDetails, //XN
977 uPSI_unitResFile, //XN
978 unit uPSI_simpleComport; //mX4
979 unit uPSI_AfViewershelpers; //Async
980 unit uPSI_Console; //mX4
981 unit uPSI_AnalogMeter; //TB
982 unit uPSI_XPrinter, //TB
983 unit uPSI_IniFiles; //VCL
984 unit uPSI_lazIniFiles; //FP
985 uPSI_testutils; //FP
986 uPSI_ToolsUnit; (DBTests) //FP
987 uPSI_fpcunit //FP
988 uPSI_testdecorator; //FP
989 unit uPSI_fpcunittests; //FP
990 unit uPSI_cTCPBuffer; //Fundamentals 4
991 unit uPSI_Glut, //Open GL
992 uPSI_LEDBitmaps, //mX4
993 uPSI_FileClass, //Inno
994 uPSI_FileUtilsClass, //mX4
995 uPSI_ComPortInterface; //Kit //mX4
996 unit uPSI_SwitchLed; //mX4
997 unit uPSI_cyDmmCanvas; //cY
998 uPSI_uColorFunctions; //DFF
999 uPSI_uSettings; //DFF
1000 uPSI_cyDebug.pas //cY
1001 uPSI_cyColorMatrix; //cY
1002 unit uPSI_cyCopyFiles; //cY
1003 unit uPSI_cySearchFiles; //cY
1004 unit uPSI_cyBaseMeasure; //cY
1005 unit uPSI_PJIStreams; //DD
1006 unit uPSI_cyRunTimeResize; //cY
1007 unit uPSI_jcontrolutils; //cY
1008 unit uPSI_kcMapViewer; (+GEONames) //kc
1009 unit uPSI_kcMapViewerDESynapse; //kc
1010 unit uPSI_cparserutils; (+GIS_SysUtils) //kc
1011 unit uPSI_LedNumber; //TurboPower
1012 unit uPSI_StStrL; //SysTools
1013 unit uPSI_indGnouMeter; //LAZ
1014 unit uPSI_Sensors; //LAZ
1015 unit uPSI_pwmain; //cgi of powtils //Pow
1016 unit uPSI_HTMLUtil; //Pow
1017 unit uPSI_synwrap1; //httpsend //Pow
1018 unit StreamWrap1 //Pow
1019 unit uPSI_pwmain; //Pow
1020 unit pwtypes //Pow
1021 uPSI_W32VersionInfo //LAZ
1022 unit uPSI_IpAnim; //LAZ
1023 unit uPSI_IpUtils; //iputils2(TurboPower) //TP
1024 unit uPSI_LrtPoTools; //LAZ
1025 unit uPSI_Laz_DOM; //LAZ
1026 unit uPSI_hhAvComp; //LAZ
1027 unit uPSI_GPS2; //mX4
1028 unit uPSI_GPS; //mX4
1029 unit uPSI_GPSUDemo; // formtemplate TFDemo//mX4
1030 unit uPSI_NMEA; // GPS //mX4
1031 unit uPSI_ScreenThreeDLab; //mX4
1032 unit uPSI_Spin; //VCL
1033 unit uPSI_DynaZip; //mX4
1034 unit uPSI_clockExpert; //TB
1035 unit debugLn //mX4
1036 uPSI_SortUtils; //Jcl
1037 uPSI_BitmapConversion; //Jcl
1038 unit uPSI_JclTD32; //Jcl
1039 unit uPSI_ZDbcUtils; //Zeos
1040 unit uPSI_ZScriptParser; //Zeos
1041 uPSI_JvIni, //JCL
1042 uPSI_JvFtpGrabber; //JCL
1043 unit uPSI_NeuralNetwork; //OCL
1044 unit uPSI_StExpr; //SysTools
1045 unit uPSI_GR32_Geometry; //GR32
1046 unit uPSI_GR32_Containers; //GR32
1047 unit uPSI_GR32_Backends_VCL, //GR32
1048 unit uPSI_StSaturn;//Venus+Mercury+Mars++ //SysTools
1049 unit uPSI_JclParseUses; //JCL
1050 unit uPSI_JvFinalize; //JCL
1051 unit uPSI_panUnit1; //GLScene
1052 unit uPSI_DD83u1; //Arduino Tester //mX4
1053 unit uPSI_BigIni //Hinzen
1054 unit uPSI_ShellCtrls; //VCL
1055 unit uPSI_fmath; //FMath
1056 unit uPSI_fComp; //FMath
1057 unit uPSI_HighResTimer; //Lauer
1058 unit uconvMain; (Unit Converter) //PS
1059 unit uPSI_uconvMain; //PS
1060 unit uPSI_ParserUtils; //PS
1061 unit uPSI_uPSUtils; //PS
1062 unit uPSI_ParserU; //PS
1063 unit uPSI_TypInfo; //VCL
1064 unit uPSI_ServiceMgr; //mX
1065 unit uPSI_UDict; //DFF
1066 unit uPSI_ubigFloatV3; //DFF
1067 unit uPSI_UBigIntsV4; //DFF
1068 unit uPSI_ServiceMgr2; //mX
1069 unit uPSI_UP10Build; //PS
1070 unit uPSI_UParser10; //PS
1071 unit uPSI_IdModBusServer; //MB
1072 unit uPSI_IdModBusClient; //MB
1073 unit uPSI_ColorGrd; //VCL
1074 unit uPSI_DirOutln; //VCL
1075 unit uPSI_Gauges; //VCL
1076 unit uPSI_CustomizeDlg; //VCL
1077 unit uPSI_ActnMan; //VCL
1078 unit uPSI_CollPanl; //VCL
1079 unit uPSI_Calendar2; //VCL
1080 unit uPSI_IBCtrls; //VCL
1081 unit uPSI_IdStackWindows; //Indy
1082 unit uPSI_CTSVendorUtils; //DBX
1083 unit uPSI_VendorTestFramework; //DBX
1084 unit uPSI_TInterval; //mX4
1085 unit uPSI_JvAnimate //JCL
1086 unit uPSI_DBXCharDecoder; //DBX
1087 unit uPSI_JvDBLists; //JCL
1088 unit uPSI_JvFileInfo; //JCL
1089 unit uPSI_SOAPConn; //VCL
1090 unit uPSI_SOAPLinked; //VCL
1091 unit uPSI_XSBuiltIns; //VCL
1092 unit uPSI_JvgDigits; //JCL
1093 unit uPSI_JvDesignUtils;
1094 unit uPSI_JvgCrossTable;
1095 unit uPSI_JvgReport;
1096 unit uPSI_JvDBRichEdit;
1097 unit uPSI_JvWinHelp;
1098 unit uPSI_WaveConverter;
1099 unit uPSI_ACMConvertor;
1100 unit XSBuiltIns_Routines
1101 unit uPSI_ComObjOleDB_utils.pas
1102 unit uPSI_SMScript;
1103 unit uPSI_CompFileIo;
1104 unit uPSI_SynHighlighterGeneral;
1105 unit uPSI_geometry2;
1106 unit uPSI_MConnect;
1107 unit uPSI_ObjBrkr;
1108 unit uPSI_uMultiStr;
1109 unit uPSI_WinAPI.pas;
1110 unit uPSI_JvAVICapture;
1111 unit uPSI_JvExceptionForm;
1112 unit uPSI_JvConnectNetwork;
1113 unit uPSI_MTMainForm;
1114 unit uPSI_DdeMan;
1115 unit uPSI_DIUtils;
1116 unit uPSI_gnugettext;
1117 unit uPSI_Xmlxform;
1118 unit uPSI_SvrHTTPIndy;
1119 unit uPSI_CPortTrmSet;
1120 unit SvrLog; ---------------------------------------------------------------
1121 unit uPSI_IndySockTransport.pas (+IdHTTPHeaderInfo) //mX4
1122 unit uPSI_HTTPProd.pas
1123 unit uPSI_CppParser.pas
1124 unit uPSI_SynHighlighterCpp.pas
1125 unit uPSI_CodeCompletion.pas
1126 unit uPSI_U_IntList2.pas
1127 unit uPSI_SockHTTP.pas
1128 uPSI_SockAppNotify.pas
1129 uPSI_NSToIS.pas
1130 unit uPSI_DBOleCtl.pas
1131 unit uPSI_xercesxmldom;
1132 unit uPSI_xmldom;
1133 unit uPSI_Midas;
1134 unit uPSI_JclExprEval;
1135 uPSI_Gameboard;
1136 unit uPSI_ExtUtil;
1137 unit uPSI_FCGIApp;
1138 unit uPSI_ExtPascal;
1139 unit uPSI_PersistSettings;
1140 IdHTTPHeaderInfo.pas
1141 uPSI_SynEditAutoComplete;
1142 uPSI_SynEditTextBuffer.pas
1143 unit uPSI_JclPCRE;
1144 unit uPSI_ZConnection;
1145 unit uPSI_ZSequence;
1146 unit uPSI_ChessPrg;
1147 unit uPSI_ChessBrd;
1148 unit uPSI_Graph3D;
1149 uPSI_SysInfoCtrls2.pas
1150 unit uPSI_RegUtils;
1151 unit uPSI_VariantRtn;
1152 uPSI_StdFuncs,
1153 unit uPSI_SqlTxtRtns;
1154 unit uPSI_BSpectrum;
1155 unit IPAddressControl;
1156 unit uPSI_Paradox;
1157 unit uPSI_Environ;
1158 uPSI_GraphicsPrimitivesLibrary;
1159 uPSI_DrawFigures,
1160 unit uPSI_synadbg;
1161 unit uPSI_BitStream;
1162 unit uPSI_xrtl_util_FileVersion;
1163 uPSI_XmlRpcCommon,
1164 unit uPSI_XmlRpcClient;
1165 unit uPSI_XmlRpcTypes;
1166 unit uPSI_XmlRpcServer;
1167 unit uPSI_SynAutoIndent;
1168 unit uPSI_synafpc;
1169 unit uPSI_RxNotify;
1170 unit uPSI_SynAutoCorrect;
1171 unit uPSI_rxOle2Auto;
1172 unit uPSI_Spring_Utilsmx;
1173 unit uPSI_ulogifit;
1174 unit uPSI_HarmFade;
1175 unit uPSI_SynCompletionProposal;
1176 unit uPSI_rxAniFile;
1177 uPSI_ulinfit,
1178 uPSI_usvdfit;
1179 unit uPSI_JclStringLists;
1180 unit uPSI_ZLib;
1181 unit uPSI_MaxTokenizers; //WANT
1182 unit uPSI_MaxStrUtils;
1183 unit uPSI_MaxXMLUtils;
1184 unit uPSI_MaxUtils;
1185 unit uPSI_VListBox;
1186 unit uPSI_MaxDOM;
1187 unit uPSI_MaxDOMDictionary;
1188 unit uPSI_MaxDOMDictionary_Routines;
1189 unit uPSI_cASN1;
1190 unit uPSI_cX509Certificate;
1191 unit uPSI_uCiaXml;
1192 unit uPSI_StringsW;
1193 unit uPSI_FileStreamW; //WideString D7X
1194 unit Drawingutils;
1195 unit uPSI_InetUtilsUnified;
1196 unit uPSI_FileMask;
1197 unit uPSI_StrConv;
1198 unit uPSI_Simpat;
1199 unit uPSI_Tooltips.pas
1200 unit uPSI_StringGridLibrary.pas
1201 unit uPSI_ChronCheck.pas
1202 unit uPSI_REXX.pas
1203 uPSI_SysImg.pas
1204 unit uPSI_Tokens;
1205 unit uPSI_KFunctions;
1206 unit uPSI_KMessageBox;
1207 unit uPSI_CPUSpeed.pas
1208 uPSI_RoboTracker.pas
1209 unit uPSI_NamedPipesImpl.pas
1210 unit uPSI_KLog.pas
1211 unit uPSI_NamedPipeThreads.pas
1212 unit uPSI_MapFiles.pas //map stream of memory-mapped files
1213 unit uPSI_BKPwdGen, //Password Generator
1214 unit uPSI_Kronos, // big chrono date time library
1215 unit uPSI_TokenLibrary2;
1216 uPSI_KDialogs,
1217 uPSI_Numedit,
1218 unit uPSI_StSystem2;
1219 unit uPSI_KGraphics;
1220 uPSI_KGraphics_functions;
1221 uPSI_umaxPipes.pas
1222 unit uPSI_KControls;
1223 unit SysUtils_max2;
1224 uPSI_IdAntiFreeze.pas
1225 uPSI_IdLogStream.pas
1226 unit uPSI_IdThreadSafe;
1227 unit uPSI_IdThreadMgr;
1228 unit uPSI_IdAuthentication;
1229 unit uPSI_IdAuthenticationManager;
1230 uPSI_OverbyteIcsConApp
1231 unit uPSI_KMemo;
1232 unit uPSI_OverbyteIcsTicks64;
1233 unit uPSI_OverbyteIcsSha1.pas
1234 unit uPSI_KEditCommon.pas
1235 unit uPSI_UtilsMax4.pas
1236 unit uPSI_IdNNTPServer;
1237 unit uPSI_UWANTUtils;
1238 unit uPSI_UtilsMax5.pas;
1239 unit uPSI_OverbyteIcsAsn1Utils;
1240 unit uPSI_IdHTTPHeaderInfo; //mX4 response headers
1241 uPSI_wmiserv.pas {uPSI_SimpleSFTP.pas}
1242 uPSI_WbemScripting_TLB.pas
1243 unit uPSI_uJSON;
1244 uPSI_RegSvrUtils.pas
1245 unit uPSI_osFileUtil;
1246 unit uPSI_SHDocVw; //TWebbrowser
1247 unit uPSI_SHDocVw_TLB
1248 uPSC_classes.pas V2
1249 uPSR_classes.pas V2
1250 uPSI_U_Oscilloscope4_2
1251 uPSI_xutils.pas
1252 uPSI_ietf.pas
1253 uPSI_iso3166.pas
1254 uPSI_dateutil_real.pas //Optima ISO 8601
1255 uPSI_dateext4.pas
1256 uPSI_locale.pas //ISO Formater & Tests
1257 file charset.inc //IANA Registered character sets
1258 unit uPSI_Strings;
1259 unit uPSI_crc_checks; //ISO 3309 and ITU-T-V42
1260 unit uPSI_extDOS;
1261 uPSI_uBild; //Steganography
1262 unit uPSI_SimpleTCP;
1263 unit uPSI_IdFTPList;
1264 uPSI_uTPLb_CryptographicLibrary.pas
1265 uPSI_uTPLb_RSA_Engine.pas
1266 uPSI_cHugeInt.pas
1267 unit uPSI_SimpleTCPServer;
1268 unit uPSI_xBase.pas
1269 unit uPSI_ImageHistogram.pas
1270 unit uP_PersistSettings2;
1271 uPSI_WDosDrivers.pas
1272 unit uPSI_cCipherRSA;
1273 uPSI_CromisStreams, (TStreamStorage)
1274 unit uPSI_Streams,
1275 uPSI_BitStream,
1276 uPSI_UJSONFunctions.pas
1277 uPSI_uTPLb_BinaryUtils.pas
1278 unit uPSI_USha256.pas //PascalCoin Blockchain
1279 uPSI_uTPLb_HashDsc.pas
1280 uPSI_uTPLb_Hash.pas
1281 SIRegister_Series(X); (uPSI_Series) //4.2.6.10
1282 unit uPSI_UTime; (UTime); uPSI_mimeinln2;
1283 uPSI_uTPLb_StreamCipher.pas
1284 uPSI_uTPLb_BlockCipher.pas
1285 uPSI_uTPLb_Asymetric.pas
1286 uPSI_uTPLb_CodecIntf.pas
1287 uPSI_uTPLb_Codec.pas
1288 uPSI_ADOInt.pas
1289 uPSI_MidasCon.pas
1290 uPSI_XMLDoc.pas
1291 uPSI_XMLIntf.pas
1292 uPSI_ProxyUtils.pas
1293 unit uPSI_maxXMLUtils2;
1294 unit_StDict_Routines(S: TPSExec);
1295 unit uPSI_Hashes2
1296 unit uPSI_IdCoderHeader;
1297 unit uPSI_BackgroundWorker2
1298 uPSI_uMRU.pas
1299 unit FANN.pas
1300 unit uPSI_FannNetwork.pas
1301 unit uPSI_RTLDateTimeplus.pas
1302 uPSI_ULog.pas
1303 uPSI_UThread.pas
1304 uPSI_UTCPIP.pas
1305 Synapse_OpenSSLv11
1306 PascalCoin configuration config.inc
1307 unit uPSI_statmach, {StateMachine} //46310
1308 uPSI_uTPLb_RSA_Primitives,
1309 unit uPSI_UMatrix,
1310 uPSI_DXUtil,
1311 uPSI_crlfParser,
1312 unit uPSI_DCPbase64;
1313 unit uPSI_FlyFilesUtils;
1314 uPSI_PJConsoleApp.pas
1315 uPSI_PJStreamWrapper.pas
1316 uPSI_LatLonDist, //DFF
1317 uPSI_cHash2.pas //Fundamentals
1318 uPSI_ZLib2.pas
1319 unit uPSI_commDriver
1320 unit uPSI_PXLNetComs.pas //PXL
1321 unit uPSI_PXLTiming.pas //PXL
1322 uPSI_Odometer.pas
1323 unit uPSI_UIntList2;
1324 uPSI_UIntegerpartition.pas
1325 unit uPSI_idPHPRunner.pas //prepare for PHP4D
1326 unit uPSI_idCGIRunner.pas
1327 uPSI_DrBobCGI, //4.7.1.20
1328 uPSI_OverbyteIcsLogger, / / n e w c o u n t 1 2 2 8 - - > 1 3 2 8
1329 uPSI_OverbyteIcsNntpCli, testset
1330 uPSI_OverbyteIcsCharsetUtils,
1331 uPSI_OverbyteIcsMimeUtils,
1332 uPSI_OverbyteIcsUrl(CL: TPSPascalCompiler);
1333 uPSI_uWebSocket.pas
1334 uPSI_KhFunction.pas
1335 uPSI_ALOpenOffice.pas
1336 unit uPSI_ALLibPhoneNumber
1337 unit uPSI_ALPhpRunner2;
1338 unit uPSI_ALWebSpider2;
1339 unit uPSI_ALFcnHTML2; // RunJavaScript2
1340 unit uPSI_ALExecute2.pas
1341 uPSI_ALIsapiHTTP.pas
1342 uPSI_ALOpenOffice_Routines
1343 unit uPSI_uUsb;
1344 uPSI_uWebcam.pas
1345 uPSI_PersistSettings.pas //fixing & refactoring
1346 uPSI_uTPLb_MemoryStreamPool.pas
1347 uPSI_uTPLb_Signatory.pas
1348 unit uPSI_uTPLb_Constants.pas //TurboPower
1349 uPSI_uTPLb_Random.pas
1350 unit uPSI_uTPLb_PointerArithmetic;
1351 unit uPSI_EwbCoreTools.pas
1352 unit uPSI_EwbUrl.pas
1353 unit uPSI_SendMail_For_Ewb.pas
1354 unit uPSI_MaskEdit.pas FCL
1355 unit uPSI_SimpleRSSTypes; BlueHippo
1356 unit uPSI_SimpleRSS; BlueHippo
1357 unit uPSI_psULib.pas Prometheus
1358 unit uPSI_psUFinancial; Prometheus
1359 uPSI_PsAPI_2.pas mX4
1360 uPSI_PersistSettings_2 mX4
1361 uPSI_rfc1213util2.pas IP
1362 uPSI_JTools.pas JCL
1363 unit uPSI_neuralbit.pas CAI
1364 unit uPSI_neuralab.pas CAI f
1365 unit uPSI_winsvc2.pas TEK
1366 unit uPSI_wmiserv2.pas TEK
1367 uPSI_neuralcache.pas CAI
1368 uPSI_neuralbyteprediction CAI
1369 unit uPSI_USolarSystem; glscene.org
1370 uPSI_USearchAnagrams.pas DFF
1371 uPSI_JsonsUtilsEx.pas Randolph
1372 unit uPSI_Jsons.pas Randolph
1373 unit uPSI_HashUnit; DFF
1374 uPSI_U_Invertedtext.pas DFF
1375 unit uPSI_Bricks; Dendron
1376 unit uPSI_lifeblocks.pas Dendron
1377 unit uPSI_SystemsDiagram.pas Dendron
1378 unit uPSI_qsFoundation.pas Dendron
1379 uPSI_JclStringLists2 JCL
1380 uPSI_cInternetUtils2 FLC
1381 uPSI_cWindows.pas FLC
1382 uPSI_flcSysUtils.pas +TBytes utils
1383 unit uPSI_RotImg.pas DA
1384 uPSI_SimpleImageLoader.pas LAZ
1385 uPSI_HSLUtils.pas LAZ
1386 uPSI_GraphicsMathLibrary.pas EF
1387 unit uPSI_umodels.pas DMath
1388 uPSI_flcStatistics.pas FLC5
1389 uPSI_flcMaths.pas FLC5
1390 uPSI_flcCharSet.pas FLC5
1391 uPSI_flcBits32.pas
1392 uPSI_flcTimers.pas
1393 uPSI_cBlaiseParserLexer.pas
1394 uPSI_flcRational.pas
1395 uPSI_flcComplex.pas
1396 unit uPSI_flcMatrix (uPSI_flcVectors.pas)
1397 unit uPSI_flcStringBuilder.pas
1398 unit PJResFile_Routines;
1399 uPSI_flcASCII.pas
1400 uPSI_flcStringPatternMatcher;
1401 unit uPSI_flcUnicodeChar.pas
1402 unit uXmlDates.pas;
1403 unit uPSI_SemaphorGrids;
1404 unit uXmlDates2;
1405 unit uPSI_JclTimeZones;
1406 unit uPSI_XmlDocRssParser.pas
1407 unit uPSI_RssParser.pas
1408 uPSI_SimpleParserRSS.pas
1409 unit uPSI_SimpleRSSUtils;
1410 unit uPSI_RssModel; _BlueHippo
1411 unit uPSI_StrUtil; _FIBPlus
1412 unit uPSI_TAChartUtils; _TEE
1413 unit uPSI_PythonEngine.pas _P4D_Beta
1414 unit uPSI_VclPythonGUIInputOutput;
1415 unit uPSI_VarPyth;
1416 unit JclUsesUtils;
1417 unit uPSI_cParameters;
1418 unit uPSI_WDCCMisc; (uPSI_cFileTemplates);
1419 uPSI_WDCCOleVariantEnum.pas
1420 unit uPSI_WDCCWinInet.pas _WDCC
1421 uPSI_PythonVersions.pas _P4D_
1422 unit uPSI_PythonAction.pas _P4D_
1423 uPSI_SingleList.pas
1424 unit uPSI_AdMeter.pas; Async Professional
1425 unit uPSI_neuralplanbuilder; CAI
1426 unit uPSI_neuralvolume.pas; CAI
1427 unit uPSI_neuralvolumev.pas; CAI
1428 unit uPSI_DoubleList4; CapJack
1429 unit uPSI_ByteListClass; CapJack
1430 unit uPSI_flcVectors4; FLC5
1431 unit uPSI_flcMatrix4; FLC5
1432 uPSI_CurlHttpCodes.pas
1433 unit uPSI_NeuralNetwork.pas; CAI
1434 unit unit uPSI_neuralfit; CAI
1435 unit uPSI_neuraldatasets; CAI
1436 unit uPSI_neuraldatasetsv.pas CAI
1437 uPSI_flcFloats.pas FLC5
1438 unit UBigIntsForFloatV4.pas DFF
1439 unit uPSI_CustApp.pas Pas2js
1440 unit uPSI_NeuralNetworkCAI.pas CAI
1441 unit uPSI_neuralgeneric.pas; CAI
1442 unit uPSI_neuralthread.pas; CAI
1443 unit uPSI_uSysTools; TuO
1444 unit upsi_neuralsets; mX4
1445 unit uPSI_uWinNT.pas mX4
1446 unit uPSI_URungeKutta4.pas ICS
1447 unit uPSI_UrlConIcs.pas ICS
1448 unit uPSI_OverbyteIcsUtils.pas ICS
1449 unit uPSI_Numedit2 mX4
1450 unit uPSI_PsAPI_3.pas mX4
1451 unit uPSI_SeSHA256.pas
1452 unit IdHashMessageDigest_max2;
1453 unit uPSI_BlocksUnit.pas
1454 unit uPSI_DelticsCommandLine.pas
1455 unit uPSI_DelticsStrUtils;
1456 unit uPSI_DelticsBitField;
1457 unit uPSI_DelticsSysUtils;
1458 unit uPSI_ALIniFiles2.pas
1459 unit uPSI_StarCalc2.pas
1460 unit uPSI_IdHashMessageDigest2.pas
1461 unit uPSI_U_Splines;
1462 unit uPSI_U_CoasterB.pas;
1463 U_SpringMass2.pas
1464 uPSI_MARSCoreUtils;
1465 unit uPSI_clJsonParser.pas
1466 unit uPSI_SynHighlighterPython.pas
1467 unit uPSI_DudsCommonDelphi;
1468 unit uPSI_AINNNeuron;
1469 unit uPSI_PJConsoleApp2; Console Application Runner
1470 unit uPSI_PJPipeFilters2; CAR
1471 unit uPSI_uHTMLBuilder;
1472 unit uPSI_PJPipe2;
1473 uPSI_WinApiDownload.pas
1474 uPSI_pxQRcode, //
1475 unit uPSI_neuralplanbuilder2
1476 unit uPSI_DelphiZXingQRCode;
1477 unit uPSI_RestJsonUtils;
1478 unit UtilsTimeCode;
1479 unit uPSC_classes2.pas; //TList
1480 unit uPSC_std2.pas
1481 unit uPSI_TBytes.pas
1482 unit uPSI_DelticsSysUtils2.pas
1483 unit uPSI_maxIniFiles.pas
1484 unit uROPSImports.pas
1485 unit uROPSServerLink.pas
1486 unit KLibVC_Redist.pas;
1487 unit HTTPApp2.pas;
1488 unit uPSI_XCollection2;
1489 unit uPSI_KLibWindows;
1490 unit KlibConstants;
1491 unit uPSI_AzuliaUtils.pas
1492 unit uPSI_ALHttpClient2;
1493 unit uPSI_ALWininetHttpClient2;
1494 unit uPSI_UtilsMax41.pas
1495 unit uPSI_JclSysUtils1;
1496 unit uPSI_RestUtils;
1497 unit uPSI_TeEngine2.pas
1498 unit uPSI_Chart2.pas; (uPSI_TeCanvas2.pas)
1499 unit uPSI_PSResources.pas
1500 unit uPSI_TeCanvas2_1.pas
1501 unit uPSI_DataSetConverter4DUtil;
1502 unit uPSI_neuralfit2.pas;
1503 unit uPSI_SynCrtSock.pas
1504 uPSI_RunElevatedSupport.pas
1505 unit synTHttpRequest.pas;
1506 unit uPSI_VelthuisFloatUtils.pas
1507 unit HttpConnection.pas
1508 unit uPSI_HttpConnectionWinInet.pas
1509 unit UHexUtils.pas
1510 unit UExeFileType.pas
1511 unit uPSI_UConsoleApp.pas
1512 unit uPSI_CompilersURunner.pas
1513 unit uPSI_HttpConnection.pas
1514 unit uPSI_DataSetUtils.pas
1515 unit uPSI_HTTPSender.pas
1516 unit AES_Cryptobox4.pas
1517 unit uPSI_JsonConverter.pas
1518 unit uPSI_RestClient.pas
1519 unit JsonToDataSetConverter;
1520 unit JsonListAdapter; (superobject)
1521 unit uPSI_OpenApiUtils.pas;
1522 unit uPSI_WinHttp_TLB.pas;
1523 unit uPSI_NovusConsole;
1524 unit NovusShell.pas;
1525 unit NovusWebUtils.pas;
1526 unit NovusStreamUtils.pas;
1527 unit uPSI_dprocess; TProcess2
1528 unit uPSI_uXmlStorage.pas
1529 unit uPSI_AsphyreTimer.pas
1530 unit uPSI_Pas2JSUtils.pas
1531 unit uPSI_pacMain; (Form1pac: TForm1pac;)
1532 unit dwsWebUtils.pas; DWS
1533 unit uPSI_dwsWebUtils.pas; DWS
1534 unit uPSI_RestUtils2.pas;
1535 unit uPSI_Pas2jsFileUtils.pas; beta
1536 unit uPSI_JPerson.pas;
1537 unit uPSI_OldRttiMarshal;
1538 unit uPSI_superxmlparser;
1539 unit uPSI_superobject.pas; beta
1540 uPSI_NovusWindows.pas
1541 uPSI_NovusStringUtils.pas
1542 unit uPSI_NovusUtilities.pas;
1543 unit uPSI_NovusNumUtils;
1544 unit uPSI_NovusFileUtils;
1545 unit uPSI_NovuscURLUtils.pas; curl beta
1546 unit uPSI_uDM.pas;
1547 unit uPSI_dpipes.pas;
1548 unit uPSI_ShellAPI2;
1549 uPSI_NovusStringBuilder.pas
1550 unit NovusDateDiffUtil.pas
1551 unit NovusDateUtils;
1252 unit NovusDateStringUtils;
1553 unit uPSI_PJCBView;
1554 uPSI_NovusWinVersionUtils.pas
1555 unit uPSI_PJResFile.pas;
1556 unit PJResFile_Routines2;
1557 unit uPSI_JvCreateProcess2
1558 unit uPSI_JVCLHelpUtils.pas
1559 unit uPSI_ModuleLoader;
1560 unit uPSI_JvLogClasses;
1561 uPSI_uExporter.pas;
1562 unit uExporterDestinationCSV.pas;
1563 uPSI_uOptionParser.pas
1564 uPSI_TOptionDefs;
1565 unit uPSI_GUIUtils.pas
1566 unit uPSI_GUIAutomation.pas;
1567 unit uPSI_GUIActionRecorder; //dunit
1568 unit TypeHelpers.pas //dunit
1569 unit uPSI_API_base; //API
1570 unit uPSI_API_audio; //API
1571 unit uPSI_API_ledgrid;
1572 uPSI_API_graphics.pas;
1573 uPSI_API_files.pas;
1574 uPSI_API_tools.pas;
1575 unit uPSI_API_winprocess;
1576 unit API_strings.pas;
1577 unit uPSI_API_services.pas
Total of Function Calls: 37372
SHA1: 4.7.6.50 D047DBD5412C3E4A436089018B9C7FACF17A2EB5
CRC32: 38562FA8 34.04 MB (35,697,944 bytes)
Compilation Timestamp 2023-06-15 06:40:19 UTC Signtime 15 June 2023 08:42:33
Entry Point 25484072 - Contained Sections 10
sha1: d047dbd5412c3e4a436089018b9c7facf17a2eb5
sha256: 193679043c46821c4b2460269111ff112e7c67b49e9cd9d951854e61bceedac7
Docu: http://www.softwareschule.ch/maxbox_functions.txt
ZIP maxbox4.zip SHA1: CEAB242D25E264FB95D5792EBC569C4EAD31B732
https://www.hybrid-analysis.com/sample/193679043c46821c4b2460269111ff112e7c67b49e9cd9d951854e61bceedac7
Total of Function Calls: 37121
SHA1: 4.7.6.50 9E9D9D10762AE0D0BC8AFD747C2381EA5478AE49
CRC32: 01B431EE 33.91 MB (35,558,168 bytes)
Compilation Timestamp 2023-06-12 13:17:28 UTC Signtime 12 June 2023 15:20:10
Entry Point 25377544 - Contained Sections 10
sha1: 9e9d9d10762ae0d0bc8afd747c2381ea5478ae49
sha256: fa0f30abf34292e91070a5bd4682040eb6af79a8f6c7f55111c9692153120988
Docu: http://www.softwareschule.ch/maxbox_functions.txt
Total of Function Calls: 37008
SHA1: 4.7.6.50 FDA4E3CE0FEC5F86EF0F95278D5C35FEC42FDA1B
fda4e3ce0fec5f86ef0f95278d5c35fec42fda1b
CRC32: 46294349 33.81 MB (35,454,744 bytes)
Compilation Timestamp 2023-06-08 17:00:33 UTC Signtime 08 June 2023 19:04:06
Entry Point 25320128 - Contained Sections 10
sha1: fda4e3ce0fec5f86ef0f95278d5c35fec42fda1b
sha256: 882ddadb9b330318bfff73d8db66d1a33be575be4cede3960374bfeb7c49c968
Total of Function Calls: 36947
SHA1: 4.7.6.50 C430FDBA9880317E31D4DA2F66C884799298FCC3
CRC32: 5BD9839C 33.62 MB (35,257,624 bytes)
Compilation Timestamp 2023-06-06 14:16:08 UTC Signtime 06 June 2023 16:22:14
Entry Point 25287360 - Contained Sections 10
Total of Function Calls: 36852
SHA1: 4.7.6.50 D4FD4CACFD766EB8F78F2BB7B5EFDDEBB386597A
CRC32: C1DCD693 33.50 MB (35,128,600 bytes)
Compilation Timestamp 2023-05-31 12:44:17 UTC Signtime 31 May 2023 14:48:34
Entry Point 25234104 - Contained Sections 10
sha1: d4fd4cacfd766eb8f78f2bb7b5efddebb386597a
sha256: 4dfbada6765e47c72b7c2496f831419b3461fa7c4ac6e05e2a941b501e10e022
Total of Function Calls: 36834
SHA1: 4.7.6.50 EDE730F514834A85ECA6D0190DAC8CA6046C26EE
ede730f514834a85eca6d0190dac8ca6046c26ee
CRC32: 4E7C4A2B 33.49 MB (35,117,336 bytes)
Compilation Timestamp 2023-05-31 08:25:23 UTC Signtime 31 May 2023 10:33:00
Entry Point 25225912 - Contained Sections 10
sha1: ede730f514834a85eca6d0190dac8ca6046c26ee
sha256: 168f85cff6ecdfcc4e7614758bbdb333a38f4896f94b7056f3e53af8fd15a66b
Total of Function Calls: 36798
SHA1: 4.7.6.50 CAA09249B338ED2814B760FA549DAD47F6C789D2
CRC32: 94780E06 33.41 MB (35,033,880)
Compilation Timestamp 2023-05-30 13:17:50 UTC Signtime 30 May 2023 15:20:39
Entry Point 25217720 - Contained Sections 10
http://www.softwareschule.ch/maxbox_functions.txt
sha1: caa09249b338ed2814b760fa549dad47f6c789d2
Total of Function Calls: 36354
SHA1: 4.7.6.20 F60338A77B77F2032061BF72A545AFB727F6395F
CRC32: 48455EF8 32.8 MB (34,419,992 bytes)
Compilation Timestamp 2023-01-26 15:36:15 UTC Signtime 26 Jan. 2023 16:41:42
Entry Point 25033256 - Contained Sections 10
ZIP maxbox4.zip SHA1:7E6C1A422CCE02B90CC96A8AB994BDD235A4D02A
http://www.softwareschule.ch/maxbox_functions.txt
mX4 executed: 26/01/2023 17:27:09 Runtime: 0:15:27.415 Memload: 48% use
Total of Function Calls: 35958
SHA1: 4.7.6.20 D4619B18E231839334AB0FE0B90D4018DC6276A7
CRC32: 9E995FA2 32.2 MB (33,805,592 bytes)
Compilation Timestamp 2022-10-17 09:27:44 UTC Signing time 17 Oct 2022 11:48:48
Entry Point 24783132 - Contained Sections 10
*****************************************************************
Release Notes maXbox 4.7.6.20 January 2023 mX476
****************************************************************
Add 86 Units + 25 Tutorials
1441 unit uPSI_neuralgeneric.pas; CAI
1442 unit uPSI_neuralthread.pas; CAI
1443 unit uPSI_uSysTools; TuO
1444 unit upsi_neuralsets; mX4
1445 unit uPSI_uWinNT.pas mX4
1446 unit uPSI_URungeKutta4.pas ICS
1447 unit uPSI_UrlConIcs.pas ICS
1448 unit uPSI_OverbyteIcsUtils.pas ICS
1449 unit uPSI_Numedit2 mX4
1450 unit uPSI_PsAPI_3.pas mX4
1451 unit uPSI_SeSHA256.pas
1452 unit IdHashMessageDigest_max2;
1453 unit uPSI_BlocksUnit.pas
1454 unit uPSI_DelticsCommandLine.pas
1455 unit uPSI_DelticsStrUtils;
1456 unit uPSI_DelticsBitField;
1457 unit uPSI_DelticsSysUtils;
1458 unit uPSI_ALIniFiles2.pas
1459 unit uPSI_StarCalc2.pas
1460 unit uPSI_IdHashMessageDigest2.pas
1461 unit uPSI_U_Splines;
1462 unit uPSI_U_CoasterB.pas;
1463 U_SpringMass2.pas
1464 uPSI_MARSCoreUtils;
1465 unit uPSI_clJsonParser.pas
1466 unit uPSI_SynHighlighterPython.pas
1467 unit uPSI_DudsCommonDelphi;
1468 unit uPSI_AINNNeuron;
1469 unit uPSI_PJConsoleApp2;
1470 unit uPSI_PJPipeFilters2;
1471 unit uPSI_uHTMLBuilder;
1472 unit uPSI_PJPipe2;
1473 uPSI_WinApiDownload,
1474 uPSI_pxQRcode, //beta
1475 unit uPSI_neuralplanbuilder2
1476 unit uPSI_DelphiZXingQRCode;
1477 unit uPSI_RestJsonUtils;
1478 unit UtilsTimeCode;
1479 unit uPSC_classes2.pas; //TList
1480 unit uPSC_std2.pas
1481 unit uPSI_maxIniFiles.pas
1482 unit uROPSImports.pas
1483 unit uROPSServerLink.pas
1484 unit uPSI_KLibUtils;
1485 unit uPSI_PathFunc2; //inno setup
1486 unit KLibVC_Redist.pas;
1487 unit HTTPApp2.pas;
1488 unit uPSI_XCollection2;
1489 unit uPSI_KLibWindows;
1490 unit KlibConstants;
1491 unit uPSI_AzuliaUtils.pas
1492 unit uPSI_ALHttpClient2;
1493 unit uPSI_ALWininetHttpClient2;
1494 unit uPSI_UtilsMax41.pas
1495 unit uPSI_JclSysUtils1;
1496 unit uPSI_RestUtils;
1497 unit uPSI_TeEngine2.pas
1498 unit uPSI_Chart2.pas; (uPSI_TeCanvas2.pas)
1499 unit uPSI_PSResources.pas
1500 unit uPSI_TeCanvas2_1.pas
1501 unit uPSI_DataSetConverter4DUtil;
1502 unit uPSI_neuralfit2.pas;
1503 unit uPSI_SynCrtSock.pas
1504 uPSI_RunElevatedSupport.pas
1505 unit synTHttpRequest.pas;
1506 unit uPSI_VelthuisFloatUtils.pas
1507 unit HttpConnection.pas
1508 unit uPSI_HttpConnectionWinInet.pas
1509 unit UHexUtils.pas
1510 unit UExeFileType.pas
1511 unit uPSI_UConsoleApp.pas
1512 unit uPSI_CompilersURunner.pas
1513 unit uPSI_HttpConnection.pas
1514 unit uPSI_DataSetUtils.pas
1515 unit uPSI_HTTPSender.pas
1516 unit AES_Cryptobox4.pas
1517 unit uPSI_JsonConverter.pas
1518 unit uPSI_RestClient.pas
1519 unit JsonToDataSetConverter;
1520 unit JsonListAdapter; (superobject)
1521 unit uPSI_OpenApiUtils.pas;
1522 unit uPSI_WinHttp_TLB.pas;
1523 unit uPSI_NovusConsole;
1524 unit NovusShell.pas;
1525 unit NovusWebUtils.pas;
1526 unit NovusStreamUtils.pas;
****************************************************************
Release Notes maXbox 4.7.6.10 November 2021 mX476
****************************************************************
Add 5 Units + 2 Tutorials
1441 unit uPSI_neuralgeneric.pas; CAI
1442 unit uPSI_neuralthread.pas; CAI
1443 unit uPSI_uSysTools; TuO
1444 unit upsi_neuralsets; mX4
1445 unit uPSI_uWinNT.pas mX4
Total of Function Calls: 34880
SHA1: of 4.7.6.10 CF939E3A8D4723DB1DEF383C5FC961E06728C58F
CRC32: 38F88218 30.5 MB (32,022,344 bytes)
V 4.7.5.90 VI
Amount of Functions: 20549
Amount of Procedures: 12307
Amount of Constructors: 1937
Amount of Destructors: 14
Totals of Calls: 34807
SHA1: of 4.7.5.90 96DCDE2028125E00B67E42A801721AC513A5EAFC
CRC32: BBC3A7E5: 31974216 bytes
mX4 executed: 03/11/2021 15:25:47 Runtime: 0:12:33.807 Memload: 39% use
Amount of Functions: 20994
Amount of Procedures: 12492
Amount of Constructors: 1984
Amount of Destructors: 14
Totals of Calls: 35484
SHA1: of 4.7.6.10 EC20D0A371A57AA078762D6D45F7229A370549A1
CRC32: 82E481A4: 33273160 bytes
mX4 executed: 14/03/2022 15:21:38 Runtime: 0:13:41.253 Memload: 42% use
Amount of Functions: 21907
Amount of Procedures: 12848
Amount of Constructors: 2029
Amount of Destructors: 14
Totals of Calls: 36798
SHA1: of 4.7.6.50 CAA09249B338ED2814B760FA549DAD47F6C789D2
CRC32: 17A61798: 35033880 bytes
mX4 executed: 30/05/2023 15:46:15 Runtime: 0:16:22.226 Memload: 40% use
// Project: State Machine
// Module: statmach.pas
// Description: Visual Finite State Machine.
// Version: 2.2a - Release: 6
source of the new units: http://sourceforge.net/projects/maxbox/files/Docu/SourceV4/
http://www.slideshare.net/maxkleiner1/codereview-topics
///////////////////////////////////////////////////////////////////////////////
//Form Template Library FTL
///////////////////////////////////////////////////////////////////////////////
FTL For Form Building Lib out of the Script, eg. 399_form_templates.txt
045 unit uPSI_VListView TFormListView;
263 unit uPSI_JvProfiler32; TProfReport
270 unit uPSI_ImgList; TCustomImageList
278 unit uPSI_JvImageWindow; TJvImageWindow
317 unit uPSI_JvParserForm; TJvHTMLParserForm
497 unit uPSI_DebugBox; TDebugBox
513 unit uPSI_ImageWin; TImageForm, TImageForm2
514 unit uPSI_CustomDrawTreeView; TCustomDrawForm
515 unit uPSI_GraphWin; TGraphWinForm
516 unit uPSI_actionMain; TActionForm
518 unit uPSI_CtlPanel; TAppletApplication
529 unit uPSI_MDIEdit; TEditForm //RichEditApp
535 unit uPSI_CoolMain; {browser} TWebMainForm
538 unit uPSI_frmExportMain; TSynexportForm
585 unit uPSI_usniffer; {//PortScanForm} TSniffForm
600 unit uPSI_ThreadForm; TThreadSortForm;
618 unit uPSI_delphi_arduino_Unit1; TLEDForm
620 unit uPSI_fplotMain; TfplotForm1
660 unit uPSI_JvDBQueryParamsForm; TJvQueryParamsDialog
677 unit uPSI_OptionsFrm; TfrmOptions;
718 unit uPSI_MonForm; TMonitorForm
742 unit uPSI_SimplePortMain; TPortForm1
770 unit uPSI_ovccalc; TOvcCalculator //widget
810 unit uPSI_DbExcept; TDbEngineErrorDlg
812 unit uPSI_GL_actorUnit1; TglActorForm1 //OpenGL Robot
846 unit uPSI_synhttp_daemon; TTCPHttpDaemon, TTCPHttpThrd, TPingThread
867 unit uPSI_Debug; TfrmDebug
901 unit uPSI_JvAddPrinter TJvAddPrinter //JCL
904 unit uPSI_U_HexView; THexForm2
911 unit uPSI_U_Oscilloscope4; (OscfrmMain) TOscfrmMain
959 unit uPSI_AdSelCom; TComSelectForm
1029 unit uPSI_GPSUDemo; TFDemo
1031 unit uPSI_ScreenThreeDLab; TFormLab3D
1051 unit uPSI_panUnit1; TPanForm1 //GLScene
1052 unit uPSI_DD83u1; {Arduino Tester Frm} TDD83f1
1059 unit uPSI_uconvMain; TfconvMain //PS
1076 unit uPSI_CustomizeDlg; TCustomizeDlg / TJvAddPrinterDialog;
1111 unit uPSI_JvExceptionForm; TJvErrorDialog //ShowException
1113 unit uPSI_MTMainForm; TvtMainForm
1119 unit uPSI_CPortTrmSet; TComTrmSetForm
1146 unit uPSI_ChessPrg; TChessForm1
1216 uPSI_KDialogs, TKBrowseFolderDialog
1217 eg.execStr('from delphivcl import *'); LoadPyClass
1231 unit uPSI_pacMain; (Form1pac: TForm1pac;) TForm1pac;
FormTemplates with J
[myformtemplate | formtemplate statement | Borland.EditOptions.Pascal] //with
[myFastForm | class declaration | Borland.EditOptions.Pascal] //Dialog Form
[myForm | class declaration | Borland.EditOptions.Pascal] //with Events
[aForm | class declaration | Borland.EditOptions.Pascal] //single Form
[getForm(x,y)] of object TForm [loadForm(x,y)]
[ticker | ticker statement | Borland.EditOptions.Pascal]
[except | exception statement | Borland.EditOptions.Pascal]
Dark Color Style Darkcolor:
memo1.color:= RGB2TColor(32,32,32) //20,18,18
memo2.color:= RGB2TColor(20,18,18)
Proc SIRegister_JvDesignUtils(CL: TPSPascalCompiler);
begin
Func DesignClientToParent(const APt: TPoint; AControl,AParent: TControl) : TPoint;
Func DesignMin(AA, AB : Int):Int);
Func DesignMax(AA, AB: Int): Int;
Func DesignRectWidth( const ARect : TRect) : Int;
Func DesignRectHeight( const ARect : TRect) : Int;
Func DesignValidateRect( const ARect : TRect) : TRect;
Func DesignNameIsUnique( AOwner : TComponent; const AName :Str) :Bool;
Func DesignUniqueName( AOwner : TComponent; const AClassName :Str) :Str;
Proc DesignPaintRubberbandRect(AContainer:TWinControl;ARect:TRect;APenStyle:TPenStyle);
Proc DesignPaintGrid(ACanvs:TCanvas;const ARect:TRect;ABackClr:TColr;AGridClr:TColor;ADivPixels:Int)
Proc DesignPaintRules(ACanvas:TCanvas;const ARect:TRect;ADivPixels:Int;ASubDivs:Bool;
Proc DesignSaveComponentToStream( AComp : TComponent; AStream : TStream);
Func DesignLoadComponentFromStream(AComp:TComponent;AStram:TStream;AOnError:TReaderError):TComponent;
Proc DesignSaveComponentToFile( AComp : TComponent; const AFileName :Str);
Proc DesignLoadComponentFromFile(AComp:TComp;const AFileName:str;AOnError:TReaderError);
end;
ex.:with TEditForm.create(self) do begin
caption:= 'Template Form Tester';
FormStyle:= fsStayOnTop;
with editor do begin
Lines.LoadFromFile(Exepath+'\docs\Readme_rus_mX2.rtf
SelStart:= 0; Modified:= False;
end;
end;
with TWebMainForm.create(self) do begin
URLs.Text:= 'http://www.kleiner.ch';
URLsClick(self); Show;
end;
with TSynexportForm.create(self) do begin
Caption:= 'Synexport HTML RTF tester';
Show;
end;
with TThreadSortForm.create(self) do begin
showmodal; free;
end;
with TCustomDrawForm.create(self) do begin
width:=820; height:=820;
image1.height:= 600; //add properties
image1.picture.bitmap:= image2.picture.bitmap;
//SelectionBackground1Click(self) CustomDraw1Click(self);
Background1.click;
bitmap1.click; Tile1.click;
Showmodal;
Free;
end;
with TfplotForm1.Create(self) do begin
BtnPlotClick(self);
Showmodal; Free;
end;
with TOvcCalculator.create(self) do begin
parent:= aForm; //free;
setbounds(550,510,200,150);
displaystr:= 'maXcalc';
end;
with THexForm2.Create(self) do begin
ShowModal;
Free;
end;
Func CheckBox:Str;
var idHTTP: TIDHTTP;
begin
result:= 'version not found';
if IsInternet then begin
idHTTP:= TIdHTTP.Create(NIL);
try
result:= idHTTP.Get(MXVERSIONFILE2);
result:= result[1]+result[2]+result[3]+result[4]+result[5];
if result = MBVER2 then begin
//Speak(' A new Version '+vstr+' of max box is available! ;
result:= ('!!! OK. You have latest Version: '+result+' available at '+MXSITE);
end; //idhttp.get2('http://www.softwareschule.ch/maxbox.htm')
finally
idHTTP.Free
end;
end;
end;
charinset make your own charinset to prevent typematch:
Func CharInSet4(C: AnsiChar; const CharSet: TSysCharSet):Bool;
begin
Result:= C in CharSet;
end;
Func CharInSet5(C: AnsiChar; const CharSet: CharSet):Bool;
begin
Result:= C in CharSet;
end;
//Runtimer Spec Functions Edition 190 and more code blocks
Func ApWinExecAndWait32(FileName:PChar;CommandLine:PChar; Visibility:Int):Int;
Func KillTask(ExeFileName:Str): Int;
Proc KillProcess(hWindowHandle: HWND);
Func FindWindowByTitle(WindowTitle:Str): Hwnd;
Func OpenIE(aURL:Str):Bool;
Func XRTLIsInMainThread:Bool;
Func IsInMainThread:Bool;
Func IntToFloat(i: Int): double;
Func AddThousandSeparator(S:Str; myChr: Char):Str;
Func mciSendString(cmd: PChar; ret: PChar; len: Int; callback: Int):Card;
Proc FormAnimation(Sender: TObject; adelay: Int);
Proc LoadResourceFile2(aFile:str; ms:TMemoryStream);
Func putBinResTo(binresname: pchar; newpath:Str):Bool;
Proc ExecuteHyperlink(Sender:TObject;HyperLinkClick:TJvHyperLinkClickEvent;const LinkName:str);
Func IsHyperLink(Canvas:TCanvas;Rect:TRect;const Text:str;MouseX,MouseY:Int;var HyperLink:str):Bool
Func GetWindowThreadProcessId( hWnd : HWND; var dwProcessId : DWORD) : DWORD;;
Func GetWindowTask( hWnd : HWND) : THandle;
Func LoadBitmap( hInstance : HINST; lpBitmapName : PChar) : HBITMAP;
Func GetCommConfig(hCommDev: THandle; var lpCC: TCommConfig; var lpdwSize: DWORD): BOOL;
Func WinExecAndWait32(FileName:Str; Visibility: Int): Longword;
Func MakeHash( const s : TbtString) : Longint;
Func GetUsedUnitList( list : Tstringlist) :Str;
Func ConsoleCapture(const _dirName, _exeName, _cmdLine:Str; amemo: TStringlist): Bool;
Func ConsoleCaptureDOS(const _dirName, _exeName, _cmdLine:Str; amemo: TStrings): Bool;
srlist:= TStringlist.create;
ConsoleCapture('C:\', 'cmd.exe', '/c dir *.*',srlist);
writeln(srlist.text); srlist.Free;
Func RunCaptured(const _dirName, _exeName,_cmdLine:str; amemo:TStringlist):Bool;;
Func SamePropTypeName( const Name1, Name2 : ShortString) :Bool;
Func FloatToStrEx( Value : Extended) :Str;
Func StrToFloatEx( const S :Str) : Extended;
Proc PerformanceDelayMS(ams: Int); //microsecond resolution delay!
//http://www.swissdelphicenter.ch/en/showcode.php?id=2179
Func ExecuteProcess(FileName:Str;Visibility:Int; BitMask:Int; Synch:Boolean):Longword;
Func ExecuteMultiProcessor(FileName:str;Visibility:Int;BitMask:Int;Synch:Bool):Longword;
if ExecuteMultiProcessor('notepad.exe', SW_SHOW, 2, true) = 0 then
writeln('Multiprocessing Runs on CPU 2;
Proc StartServiceAfterInstall(aserv: TService);
Func GetDllVersion2(DllName:Str; var DLLVersionInfo: TDLLVersionInfo):Bool;
Proc SendCopyMessage(amess,astation:str); //comunicate process-spanned with WM_COPYDATA
Func BrowseComputer2(DialogTitle:Str; var CompName:Str; bNewStyle: Bool): Bool;
Func ChangeAlphaTo(input:Str; aoffset: byte):Str;;
Func CheckIBAN(iban:Str):Bool;;
Func CreateIDStack; //instance to IdStack of CreateStack
Func GetRecordCount(DataSet: TBDEDataSet): Longint;;
Func CountPos(const subtxt:Str; Text:Str): Int;
Proc HTMLtoRTF(html:Str; var rtf: TRichedit);
Proc ReversePlay(const szFileName:Str);
Func ADOConnectionString(ParentHandle:THandle;InitialStr:WideString;out NewString:str):Bool;
Proc ShowEOleException(AExc: EOleException; Query:str);
Func UpdateBlob(Connection:TADOConnection;Spalte:str;Tabelle:str;Where:str;var ms:TMemoryStream):Bool;..save HTML pages as MHTML(HTML Archiv Format)
http://www.swissdelphicenter.ch/en/showcode.php?id=2300
Func SaveToMHT(const AUrl,AFileName:Str; AShowErrorMessage:Boolean = False):Bool;
Func FileType2MimeType(const AFileName:Str):Str;
Func DownloadURL_NOCache(const aUrl:Str; var s:Str):Bool;
Func IsCOMObjectActive(ClassName:Str):Bool;
Proc CopyHTMLToClipBoard(const str:Str; const htmlStr:Str = ';
Func CheckCreditCard(c:Str): Int;
0: Card is invalid or unknown 1: is a AmEx 2: is a Visa 3: is a valid MasterCard
Func GetNewGUID:Str;
Func FormatGUID(const GUID:Str):Str;
Func GetNewFormatedGUID:Str;
Func getFormRes(classname:Str):Str; //shows DFM Res of Exe!
Proc OutputDebugString(PChar(Format('[%s][%s]%s',[aCaption,GetFormatDT(StartDT),aText])));
Proc ScanNetworkResources(ResourceType, DisplayType: DWord; List: TStrings);
Func PrepareConstraint(Src:Tstrings):str;
Proc DeleteEmptyStr(Src:Tstrings);
Func NormalizeSQLText(const SQL:Str;MacroChar:Char):Str;
Func CountSelect(const SrcSQL:str):str;
Func GetModifyTable(const SQLText:str;AlreadyNormal:boolean):str;
Func GetCharFromVKey(vkey: Word):Str;
Func Xls_To_StringGrid(AGrid: TStringGrid; AXLSFile:Str):Bool;
Func IsObjectActive(ClassName:Str):Bool;
Func GetActiveObject(ClassID:TGUID; anil:TObject; aUnknown:IUnknown):HRESULT;;
Func RegisterOCX(FileName:Str):Bool;
Func UnRegisterOCX(FileName:Str):Bool;
Func RegisterServer2(const aDllFileName:Str; aRegister:Bool):Bool;
Proc mIRCDDE(Service, Topic, Cmd:Str); //mIRCDDE('mIRC', 'COMMAND', '/say Hallo von SwissDelphiCenter.ch;
Func OpenIE(aURL:Str):Bool;
Func XRTLIsInMainThread:Bool;
Func IsInMainThread:Bool;
TryConvertStrToDateTime(const s, format:str; out value: TDateTime):Boolean;;
ConvertStrToDateTime(const s, format:Str): TDateTime;;
Func CreateNotifyThread2(const FolderName:Str; WatchSubtree:Bool;Filter:TFileChangeFilters2):TNotifyThread;
Proc DetectImage(const InputFileName:Str; BM: TBitmap);
Func BitmapToString(Bitmap: TBitmap):Str;
Func StringToBitmap(S:Str): TBitmap;
Func RemoveChar(CONST s:Str; CONST c: CHAR):Str;
Proc SecureClearStr(var S: Ansistr);;
Proc movestring(const Source:str; var Destination:str; CopyCount : Int );
Proc movestringJV(const Source:str; var Destination:str; CopyCount : Int );
Proc moveint(const Source:Int; var destination: Int; CopyCount : Int );
Proc movefloat(const Source:double; var destination: double; CopyCount : Int );
Proc moveextended(const Source:extended;var Destination:extended;CopyCount:Int);
Proc ShowFilePropertiesSH(Files: TStrings; aWnd: HWND);
//ScanNetworkResources(RESOURCETYPE_DISK, RESOURCEDISPLAYTYPE_SERVER, ListBox1.Items);
Func GrabLine(const s:Str; ALine: Int):Str;
Func GrabLineFast(const s:Str; ALine: Int):Str;
Func IsTextFile(const sFile: TFileName):Bool;
Func getODBC: Tstringlist;
Func getODBCString:Str;
Proc GetJPGSize(const sFile:Str; var wWidth, wHeight: Word);
Proc GetPNGSize(const sFile:Str; var wWidth, wHeight: Word);
function GetPNGSize2(const FileName: string): TSize;
Proc GetGIFSize(const sGIFFile:Str; var wWidth, wHeight: Word);
// note: using TForm's BorderIcons, etc. is slow (form blinks) and not reliable (for some
// reson it causes TListView.Items to lose all associated objects and other things happen).
Proc ChangeWindowStyle(const Form: HWND; Style: DWord; AddIt:Bool);
Func VarByteArrayOf(const s:Str): OleVariant;
type TView = (normal, Scientific);
Func bigdiv2(aval1:Str; aval2: integer):Str;
Func modbig(aval:Str; amod: integer): integer;
Func bigmod(aval:Str; amod: integer): integer;
Func modPowBig3(aval, apow, amod:Str):Str;;
Func BigPowMod(aval, apow, amod:Str):Str;;
Function BigLog(atwo:String; sig: integer):String;
Func RSAEncrypt(aval, apow, amod:Str):Str;;
Func RSADecrypt(aval, apow, amod:Str):Str;;
Func SwitchToThread : BOOL;
Func SetThreadDesktop( hDesktop : HDESK) : BOOL;
Func CloseDesktop( hDesktop : HDESK) : BOOL;
Func GetThreadDesktop( dwThreadId : DWORD) : HDESK;
Func SetSyscallHook():Bool;;
Func SetSwapcontextHook():Bool;;
Func UnhookAll():Bool;;
Func getWorld:Str;;
Func getIPConfigAll:Str;;
Func getIPConfig:Str;;
Func WinsockEnabled:Bool;
Func HTTPEncode2(const AStr:Str):Str;
Func ComputePEChecksum(FileName:Str): DWORD;
if not DynamicDllCallName(user32, 'LockWorkStation',true,returned,parameters) then begin
Func DynamicDllCallNames(Dll:Str; const Name:Str; HasResult:Bool; var Returned:Card; const Parameters: array of string):Bool;;
Proc GetMIDASAppServerList(List: TStringList; const RegCheck :Str);
Proc SQLDropField(dbName, tblName, fldName:Str); {Field Name to Drop}
type TCastType = (ctSmallInt, ctInt, ctDecimal, ctNumeric, ctFloat,
ctChar, ctVarChar, ctDate, ctBoolean, ctBLOB, ctTime,
ctTimeStamp, ctMoney, ctAutoInc, ctBytes);
{Blob definition type 1 = Memo, 2 = Binary, 3 = Formatted Memo, 4 = OLE Object, 5 = Graphic}
Proc SQLAddField(dbName,tblName,fldName:str;fldType:TCastType;fldLength,precisOrBlobLen,scaleOrBlobType:Int);
const
UrlGeoLookupInfo ='http://ipinfodb.com/ip_query.php?timezone=true&ip=%s';
UrlGeoLookupInfo2 ='http://backup.ipinfodb.com/ip_query.php?timezone=true&ip=%s'; //backup
http://ip-api.com/csv/
Proc GetGeoInfo(const IpAddress:str;var GeoInfo:TGeoInfo;const UrlGeoLookupInfo:str);
TGeoInfo','record status:Str; countrycode : '
+string; countryname:str; regioncode:Str;city:Str;zippostalcode:Str;latitude:Str;longitude:str;timezonename:str;gmtoffset:str;isdst:str;end;
Proc SIRegister_ubigFloatV3(CL: TPSPascalCompiler);
begin
TMaxSig', 'Int;
TView', '( normal, Scientific );
SIRegister_TFloatInt(CL); SIRegister_TBigFloat(CL);
end;
Proc SIRegister_UBigIntsV4(CL: TPSPascalCompiler);
begin TDigits', 'array of int64; SIRegister_TInt(CL);
Proc SetBaseVal( const newbase : Int);
Func GetBasePower : Int;
Func GetBase : Int;
Proc SetThreadSafe( newval :Bool);
Func bigdiv2(aval1:Str; aval2: integer):Str;
Func modbig(aval:Str; amod: integer): integer; ;
Func bigmod(aval:Str; amod: integer): integer; ;
Func modPowBig3(aval, apow, amod:Str):Str;;
Func BigPowMod(aval, apow, amod:Str):Str;;
Func BigLog(atwo:String; sig: integer):String; //UBigFloat3
Func RSAEncrypt(aval, apow, amod:Str):Str;;
Func RSADecrypt(aval, apow, amod:Str):Str;;
Func SwitchToThread : BOOL;
end;
Func BigDiv(aone, atwo:Str):Str;
var tbig1, tbig2: TInt;
begin
tbig1:= TInt.create(10);
tbig2:= TInt.create(10);
try
tbig1.assign2(atwo)
tbig2.assign2(aone)
tbig2.Divide(tbig1)
finally
result:= tbig2.ConvertToDecimalString(false)
tbig1.Free;
tbig2.free;
end;
end;
Function BigLog(atwo:String; sig: integer):String;
var tbig2: TBigFloat;
begin
tbig2:= TBigFloat.create;
try
tbig2.assign8(atwo)
tbig2.log(sig)
finally
result:= tbig2.tostring(normal)
tbig2.free;
end;
end;
Proc SIRegister_UDict(CL: TPSPascalCompiler);
begin 'dichighletter','String').SetString( 'z;
SIRegister_TDicForm(CL);
SIRegister_TDic(CL);
end;
Proc SetArrayLength2Char2(var arr: T2CharArray; asize1, asize2: Int);
var i: Int;
begin setlength(arr, asize1);
for i:= 0 to asize1-1 do SetLength(arr[i], asize2);
end;
//3D example as cube array
//t_vector = array of extended;
//t_matrix = array of t_vector;
//t_array3d = array of t_matrix; (t_Tensor)
Procedure SetArrayLen2Extend3(var arr: t_matrix; asize1, asize2: Integer);
var i: Integer;
begin setlength(arr, asize1); //2D
for i:= 0 to asize1-1 do SetLength(arr[i], asize2); //3D
end;
setLength( weights, amountLayers - 1 ); //1D
setLength( gradientWeights, amountLayers - 1 );
for I:= 0 to amountLayers - 2 do begin
SetArrayLen2Extend3(weights[I],StrToInt(layerSizes[I+1]),StrToInt(layerSizes[I]));
SetArrayLen2Extend3(gradientWeights[I],StrToInt(layerSizes[I+1]),StrToInt(layerSizes[I]));
end;
https://sourceforge.net/projects/maxbox/files/Examples/13_General/1234_UNeuralNetwork_withGUI_1.pas/download
https://github.com/breitsch2/TNeuralNetwork
https://github.com/breitsch2/Neural-Network-in-Delphi
Example of dynamic array of panels:
Proc SetArrayLength2Panels(var arr: array of array of TPanel;
asize1, asize2: Integer);
var i: Integer;
begin setlength(arr, asize1);
for i:= 0 to asize1-1 do SetLength(arr[i], asize2);
end;
Proc TMyFormInitialisePanels(aform: Tform; RowCount,ColCount: Integer);
var aLeft,aTop,aWidth,aHeight, row,col: Integer;
Panel: TPanel;
FPanels: array of array of TPanel;
begin
//SetLength(FPanels, RowCount, ColCount);
SetArrayLength2Panels(Fpanels, RowCount, ColCount)
aTop:= 0;
for Row:= 0 to RowCount-1 do begin
aLeft:= 0;
aHeight:= (aform.ClientHeight-aTop) div (RowCount-Row);
for Col:= 0 to ColCount-1 do begin
Panel:= TPanel.Create(Self);
FPanels[Row][Col]:= Panel;
Panel.Parent:= aform; //Self;
//panel.parentcolor:= false;
panel.ParentBackground:= false;
panel.color:= random(clred)
aWidth:= (aform.ClientWidth-aLeft) div (ColCount-Col);
Panel.SetBounds(aLeft, aTop, aWidth, aHeight);
inc2(aLeft, aWidth);
end;
inc2(aTop, aHeight);
end;
end;
aform:= TForm.create(self)
aform.setbounds(10,10,600,500);
TMyFormInitialisePanels(aform, 26, 19);
aform.show;
Proc SIRegister_UP10Build(CL: TPSPascalCompiler);
begin Proc ParseFunction(FunctionString:str; Variables:TStringlist; FunctionOne,FunctionTwo:TStringList;UsePascalNumbers:bool;
var FirstOP:{TObject}POperation;var Error:bool);
end;
Proc SIRegister_ComObj2(CL: TPSPascalCompiler);
begin
ClassN(CL.FindClass('TOBJECT'),'TComObjectFactory;
SIRegister_TComServerObject(CL);
SIRegister_ADOConst(CL);
FieldTypeNames: array[0..41] of string = (
Unknown', 'String', 'SmallInt', 'Int', 'Word', 'Boolean', 'Float',
'Currency', 'BCD', 'Date', 'Time', 'DateTime', 'Bytes', 'VarBytes',
'AutoInc', 'Blob', 'Memo', 'Graphic', 'FmtMemo', 'ParadoxOle',
'dBaseOle', 'TypedBinary', 'Cursor', 'FixedChar', 'WideString',
'LargeInt', 'ADT', 'Array', 'Reference', 'DataSet', 'HugeBlob', 'HugeClob',
'Variant', 'Interface', 'Dispatch', 'Guid', 'SQLTimeStamp', 'FMTBcdField',
FixedWideChar', 'WideMemo', 'SQLTimeStamp', 'String;
TFactoryProc', 'Proc (Factory : TComObjectFactory);
TCallingConvention','(ccRegister, ccCdecl, ccPascal, ccStdCall, ccSafeCall);
SIRegister_TComClassManager(CL);
SIRegister_IServerExceptionHandler(CL); SIRegister_TComObject(CL);
//TComClass', 'class of TComObject;
TClassInstancing', '(ciInternal,ciSingleInstance,ciMultiInstance );
TThreadingModel', '(tmSingle, tmApartment, tmFree, tmBoth, tmNeutral );
SIRegister_TComObjectFactory(CL); SIRegister_TTypedComObject(CL);
//TTypedComClass', 'class of TTypedComObject;
SIRegister_TTypedComObjectFactory(CL);
TConnectEvent2','Procedure(const Sink : IUnknown; Connecting :Bool);
ClassN(CL.FindClass('TOBJECT'),'TAutoObjectFactory;
SIRegister_TAutoObject(CL); //TAutoObject2 ?? in OleAuto and ComObj
//TAutoClass', 'class of TAutoObject;
SIRegister_TAutoObjectFactory(CL); SIRegister_TAutoIntfObject(CL);
//ClassN(CL.FindClass('TOBJECT'),'EOleError;
ClassN(CL.FindClass('Exception'),'EOleError;
SIRegister_EOleSysError(CL); SIRegister_EOleException(CL);
ClassN(CL.FindClass('TOBJECT'),'EOleRegistrationError;
//Proc DispatchInvoke(const Dispatch:IDispatch;CallDesc:PCallDesc;DispIDs:PDispIDList;Params:Pointer;Result: PVariant);
//Proc DispatchInvokeError( Status : Int; const ExcepInfo : TExcepInfo);
//Func HandleSafeCallException(ExceptObject:TObject;ExceptAddr:Pointer;const ErrorIID TGUID;const ProgID,HelpFileName:WideString):HResult;
Func CreateComObject( const ClassID : TGUID) : IUnknown;
Func CreateRemoteComObject(const MachineName: WideString;const ClassID:TGUID):IUnknown;
//Func CreateOleObject(const ClassName :Str): IDispatch;
//Func GetActiveOleObject(const ClassName:str): IDispatch;
Proc OleError2( ErrorCode : HResult);
Proc OleCheck2( Result : HResult);
Func StringToGUID2( const S :Str) : TGUID;
Func GUIDToString2( const ClassID : TGUID) :Str;
Func ProgIDToClassID2( const ProgID :Str) : TGUID;
Func ClassIDToProgID2( const ClassID : TGUID) :Str;
Proc CreateRegKey(const Key,ValueName,Value:str;RootKey:DWord);
Proc DeleteRegKey(const Key :Str; RootKey : DWord);
Func GetRegStringValue( const Key, ValueName :Str; RootKey : DWord) :Str;
//Func StringToLPOLESTR( const Source :Str) : POleStr;
Proc RegisterComServer( const DLLName :Str);
Proc RegisterAsService( const ClassID, ServiceName :Str);
Func CreateClassID2:Str;
Proc InterfaceConnect(const Srce:IUnknown;const IID:TIID;const Sink:IUnknown;var Connectin:Longint);
Proc InterfaceDisconnect(const Source:IUnknown;const IID:TIID;var Connection:Longint);
Func GetDispatchPropValue(Disp: IDispatch; DispID : Int) : OleVariant;;
Func GetDispatchPropValue1(Disp: IDispatch; Name : WideString) : OleVariant;;
Proc SetDispatchPropValue2(Disp:IDispatch;DispID:Int;const Value:OleVariant);
Proc SetDispatchPropValue3(Disp: IDispatch; Name:WideString; const Value:OleVariant);;
Func ComClassManager : TComClassManager;
// from ADODB OLE Utils
TOleEnum', 'LongWord; //DataTypeEnum = TOleEnum;
DataTypeEnum', 'TOleEnum;
Func CreateADOObject( const ClassID : TGUID) : IUnknown;
Func ADOTypeToFieldType(const ADOType:DataTypeEnum; EnableBCD:Boolean):TFieldType;
Func FieldTypeToADOType(const FieldType: TFieldType):DataTypeEnum;
Func StringToVarArray( const Value :Str) : OleVariant;
Func VarDataSize( const Value : OleVariant) : Int;
Func OleEnumToOrd( OleEnumArray : array of TOleEnum; Value : TOleEnum) : Int;
Func GetStates( State : Int) : TObjectStates;
Func ExecuteOptionsToOrd(ExecuteOptions:TExecuteOptions): Int;
Func OrdToExecuteOptions(Options: Int) : TExecuteOptions;
Func ExtractFieldName( const Fields : WideString; var Pos : Int) : WideString;
Func GetFilterStr( Field : TField; Value : Variant; Partial :Bool) : WideString;
Func FieldListCheckSum( DataSet : TDataset) : Int;
Func GlobalAllocString(s: Ansistr): HGlobal;
Func ScanTime(const S:Str; var Pos: Int; var Time: TDateTime):Bool;
Func ScanChar(const S:Str; var Pos: Int; Ch: Char):Bool;
Func ScanNumber(const S:Str; var Pos: Int; var Number: Word):Bool;
Func ScanString(const S:Str; var Pos: Int; const Symbol:Str):Bool;
Proc LV_InsertFiles(strPath:Str; ListView: TListView; ImageList: TImageList);
Func GetPasteLinkInfo(var Service:Str; var Topic:str; var Item:Str):Boolean;
Func IPToHostName(const IP:Str):Str;
Proc GetZoneIcon(IconPath:Str; var Icon: TIcon);
Func GetZoneAttributes(const URL:Str): TZoneAttributes;
//unit uPSI_PsAPI;
Proc CGITester;
//CGI will take name and email address from command line and place it into HTML
Proc CreateBrowserOnForm(aform: TForm; aurl:Str);
Proc WebOnForm(aform: TForm; aurl:Str);;
Proc WebToForm(aform: TForm; aurl:Str);;
Proc SearchAndHighlightWebText(aform: TForm; aurl:Str; aText:Str);
Proc SaveImagesOnWeb(aurl, apath:Str);
Func GetProcessNameFromWnd(Wnd: HWND):Str; //get EXE path from window handle
Func getallEvents(aform: TForm): TStringlist;
Proc GetKLList(List: TStrings);;
Proc GetKeyboardList(List: TStrings);;
Func SetSuspendState(Hibernate:Boolean;ForceCritical:Boolean;DisableWakeEvent:Bool):bool;
call: SetSuspendState(True, False, False);
Func ServiceRunning(sMachine, sService: PChar):Bool;
Func isServiceRunning(sMachine, sService: PChar):Bool;
Proc CloseOpenSockets( Sockets : array of TIdStackSocketHandle);
//SIRegister_SvrHTTPIndy - Linux
Proc TransformError( const Msg :Str);
Proc StringToFile2( const S, FileName :Str);
Func GetXMLData( DataSet : TClientDataSet) :Str;
Proc EditComTerminal( ComTerminal : TCustomComTerminal); //TComTrmSetForm
Func search_adapter_key_networkcard:Str; //at registry
Func getNetworkCard:Str;;
Func GetMacAddresses2(const Machine:Str; const Addresses: TStrings): Int;
Func ConnectDrive(_drvLetter:str;_netPath:str;_showError:Bool;_reconnect:Bool):DWORD;
Func ConnectPrinterDevice(_lptPort:str;_netPath:str;_showError:Bool;_reconnect:Bool):DWORD;
Func DisconnectNetDrive(_locDrive:str;_showError:Bool;_force:Bool; _save:Bool): DWORD;
//ConnectDrive('k:', '\\Servername\C', True, True);
//DisconnectNetDrive('k:', True, True, True);
Func GetConnectionKind(var strKind:Str):Bool; MODEM =1; LAN=2; PROXY=4; BUSY= 8;
Func DownloadJPGToBitmap(const URL :Str; ABitmap: TBitmap):Bool;
Proc GetImageLinks(AURL:Str; AList: TStrings);
Func GetCharEncoding( alias :Str; var _name :Str) : Int;
Func MicrosoftCodePageToMIMECharset( cp : word) :Str;
Func MicrosoftLangageCodeToISOCode( langcode : Int) :Str;
Proc CopyHTMLToClipBoard(const str:Str; const htmlStr:Str = ';
Func RFC1123ToDateTime(Date:Str): TDateTime;
Func DateTimeToRFC1123(aDate: TDateTime):Str;
Proc CopyHTMLToClipBoard(const str:Str; const htmlStr:Str);;
Proc DumpDOSHeader(const h: IMAGE_DOS_HEADER; Lines: TStrings);;
Proc DumpPEHeader(const h: IMAGE_FILE_HEADER; Lines: TStrings);;
Proc DumpOptionalHeader(const h: IMAGE_OPTIONAL_HEADER; Lines: TStrings);;
IPToHostName
//from ADOInt.pas // TOleEnum = type LongWord;
TypeS('CursorOptionEnum', 'TOleEnum;
Interface(CL.FindInterface('IUNKNOWN'),_Recordset, '_Recordset;
//TypeS('_RecordsetDisp', 'dispinterface;
Interface(CL.FindInterface('IUNKNOWN'),_Command, '_Command;
Interface(CL.FindInterface('IUNKNOWN'),_Connection, '_Connection;
// SIRegister__Recordset(CL); // SIRegister__Command(CL);
Const IID_Recordset20','TGUID').SetString('{0000054F-0000-0010-8000-00AA006D2EA4}''];
'IID__Recordset','string').SetString( '00000555-0000-0010-8000-00AA006D2EA4;
//test with stringToGUID
//'CLASS_Command','TGUID').SetString( '{00000507-0000-0010-8000-00AA006D2EA4};
// 'CLASS_Recordset','TGUID').SetString( '{00000535-0000-0010-8000-00AA006D2EA4};
{ TypeS('Connection', '_Connection;
TypeS('Command', '_Command; TypeS('Recordset', '_Recordset;
TypeS('Parameter', '_Parameter; TypeS('DataSpace', 'IDataspace;
TypeS('SearchDirection', 'SearchDirectionEnum; }
//TypeS('Command', '_Command; //TypeS('Recordset', '_Recordset;
end;
Proc SIRegister_DIUtils(CL: TPSPascalCompiler);
begin
//'CRLF','String').SetString( #$0D#$0A);
'REPLACEMENT_CHARACTER','LongWord').SetUInt( $FFFD);
'HANGUL_SBase','LongWord').SetUInt( $AC00);
'HANGUL_LBase','LongWord').SetUInt( $1100);
'HANGUL_VBase','LongWord').SetUInt( $1161);
'HANGUL_TBase','LongWord').SetUInt( $11A7);
'HANGUL_LCount','LongInt').SetInt( 19);
'HANGUL_VCount','LongInt').SetInt( 21);
'HANGUL_TCount','LongInt').SetInt( 28);
'KEY_WOW64_32KEY','LongWord').SetUInt( $0200);
'KEY_WOW64_64KEY','LongWord').SetUInt( $0100);
'KEY_WOW64_RES','LongWord').SetUInt( $0300);
TypeS('TAnsiCharSet', 'set of AnsiChar;
TypeS('TIsoDate', 'Cardinal;
TypeS('TJulianDate', 'Int;
//TypeS('PJulianDate', '^TJulianDate // will not work;
TypeS('TValidateCharFunc', 'function(const c: Char):Bool;;
// TValidateCharFunc = function( const c: Char):Bool;
TypeS('TProcedureEvent', 'Procedure;
'MT19937_N','LongInt').SetInt( 624);
'MT19937_M','LongInt').SetInt( 397);
SIRegister_TMT19937(CL);
//SIRegister_TWideStrBuf(CL);
TypeS('TDITextLineBreakStyle', '( tlbsLF, tlbsCRLF, tlbsCR );
Func AdjustLineBreaksW(const s:UnicodeStr;const Style:TDITextLineBreakStyle):UnicodeStr;
Func BrightenColor( const Color : Int; const amount : Byte) : Int;
Func BSwap4( const Value :Card) :Card;;
Func BSwap5( const Value : Int) : Int;;
//Func BufCompNumIW(p1:PWideChar; l1:Int; p2 : PWideChar; l2 : Int) : Int;
Func BufSameA( p1, p2 : PChar; l :Card) :Bool;
// Func BufSameW( p1, p2 : PWideChar; l :Card) :Bool;
Func BufSameIA( p1, p2 : PChar; l :Card) :Bool;
//Func BufSameIW( p1, p2 : PWideChar; l :Card) :Bool;
Func BufPosCharA(const Buf:PChar;l:Card;const c:AnsiChar;const Start:Card):Int;
Func BufPosCharsA(const Buf:PChar;l:Card;const Search:TAnsiCharSet;const Start:Card):Int;
Func BufStrSame(const Buf:PChar;const BufCharCount:Card;const s:Str):Bool;
Func BufStrSameA(const Buf:PChar; const BufCharCount:Card;const s:RawByteString):Bool;
Func BufStrSameI(const Buf:PChar; const BufCharCount:Card; const s :Str):Bool;
Func BufStrSameIA(const Buf:PChar;const BufCharCount:Card;const s:RawByteString): Bool;
Func diChangeFileExt(const FileName,Extension:Str):Str;
Func ChangeFileExtA( const FileName, Extension : Ansistr) : Ansistr;
Func ChangeFileExtW( const FileName, Extension : UnicodeString) : UnicodeString;
//Func CharDecomposeCanonicalW( const c : WideChar) : PCharDecompositionW;
Func CharDecomposeCanonicalStrW( const c : WideChar) : UnicodeString;
//Func CharDecomposeCompatibleW( const c : WideChar) : PCharDecompositionW;
Func CharDecomposeCompatibleStrW( const c : WideChar) : UnicodeString;
Func CharIn8( const c, t1, t2 : WideChar) :Bool;;
Func CharIn9( const c, t1, t2, t3 : WideChar) :Bool;;
Proc ConCatBuf(const Buffer: PChar;const CharCount:Card;var d:str;var InUse:Card);
Proc ConCatBufA(const Buff:PChar;const AnsiCharCount:Card;var d:RawByteStr;var InUse:Card);
Proc ConCatChar( const c : Char; var d :Str; var InUse :Card);
Proc ConCatCharA( const c : AnsiChar; var d : RawByteString; var InUse :Card);
// Proc ConCatCharW( const c : WideChar; var d : UnicodeString; var InUse :Card);
Proc ConCatStr( const s :Str; var d :Str; var InUse :Card);
Proc ConCatStrA( const s: RawByteString; var d : RawByteString; var InUse :Card);
//Proc ConCatStrW(const w:UnicodeString; var d : UnicodeString; var InUse :Card);
Func diCountBitsSet( const Value : Int) : Byte;
//Func Crc32OfStrA( const s : RawByteString) : TCrc32;
//Func Crc32OfStrW( const s : UnicodeString) : TCrc32;
Func CurrentDay : Word;
Func CurrentJulianDate : TJulianDate;
Func CurrentMonth : Word;
Func CurrentQuarter : Word;
Func diCurrentYear : Int;
Func DarkenColor( const Color : Int; const amount : Byte) : Int;
Func diDeleteFile( const FileName :Str) :Bool;
Func DeleteFileA( const FileName : Ansistr) :Bool;
//Func DeleteFileW( const FileName : UnicodeString) :Bool;
Func diDirectoryExists( const Dir :Str) :Bool;
Func DirectoryExistsA( const Dir : Ansistr) :Bool;
//Func DirectoryExistsW( const Dir : UnicodeString) :Bool;
Func diDiskFree( const Dir :Str) : Int64;
Func DiskFreeA( const Dir : Ansistr) : Int64;
//Func DiskFreeW( const Dir : UnicodeString) : Int64;
Func diExpandFileName( const FileName :Str) :Str;
Func ExpandFileNameA(const FileName: Ansistr): Ansistr;
//Func ExpandFileNameW( const FileName : UnicodeString) : UnicodeString;
Proc diExcludeTrailingPathDelimiter( var s :Str);
Proc ExcludeTrailingPathDelimiterA( var s : RawByteString);
//Proc ExcludeTrailingPathDelimiterW( var s : UnicodeString);
Func diExtractFileDrive( const FileName :Str) :Str;
Func ExtractFileDriveA( const FileName : RawByteString) : RawByteString;
//Func ExtractFileDriveW( const FileName : UnicodeString) : UnicodeString;
Func diExtractFileExt( const FileName :Str) :Str;
Func ExtractFileExtA( const FileName : RawByteString) : RawByteString;
//Func ExtractFileExtW( const FileName : UnicodeString) : UnicodeString;
Func diExtractFileName( const FileName :Str) :Str;
Func ExtractFileNameA(const FileName: Ansistr): Ansistr;
//Func ExtractFileNameW( const FileName : UnicodeString) : UnicodeString;
Func diExtractFilePath( const FileName :Str) :Str;
Func ExtractFilePathA( const FileName : RawByteString) : RawByteString;
//Func ExtractFilePathW( const FileName : UnicodeString) : UnicodeString;
Func ExtractNextWord10(const s:str;const ADelimiter:Char;var AStartIndex:Int):str;);
Func ExtractNextWordA11(const s:RawByteStr;const ADelimiter:AnsiChar;var AStartIndex:Int): RawByteStr;
Func ExtractNextWordW12(const s:UnicodeStr;const ADelimiter:WideChar;var AStartIndex:Int): UnicodeStr;
Func ExtractNextWord13(const s:str;const ADelims:TAnsiCharSet;var AStartIndex:Int):str;
Func ExtractNextWordA14(const s:RawByteString;const ADelimitrs:TAnsiCharSet;var AStartIndex:Int):RawByteString;
Func diExtractWord(const Number:Card;const s:RawByteString;const Delimiters:TAnsiCharSet): RawByteString;
Func ExtractWordA const Numb:Card;const s RawByteStr;const Delimiters:TAnsiCharSet): RawByteStr;
Func ExtractWordStartsA(const s:RawByteString;const MaxCharCount:Card;const WordSeparators:TAnsiCharSet):
RawByteString;
Func diFileExists( const FileName :Str) :Bool;
Func FileExistsA( const FileName : Ansistr) :Bool;
//Func FileExistsW( const FileName : UnicodeString) :Bool;
Func diGCD( x, y :Card) :Card;
Func diGetTempFolder :Str;
Func GetTempFolderA : Ansistr;
//Func GetTempFolderW : UnicodeString;
Func diGetUserName( out UserName :Str) :Bool;
Func GetUserNameA( out UserName : Ansistr) :Bool;
//Func GetUserNameW( out UserName : UnicodeString) :Bool;
Func HexCodePointToInt( const c :Card) : Int;
Func diHexToInt( const s :Str) : Int;
Func HexToIntA( const s : RawByteString) : Int;
//Func HexToIntW( const s : UnicodeString) : Int;
Func BufHexToInt( p : PChar; l :Card) : Int;
Func BufHexToIntA( p : PChar; l :Card) : Int;
//Func BufHexToIntW( p : PWideChar; l :Card) : Int;
Proc IncludeTrailingPathDelimiterByRef( var s :Str);
Proc IncludeTrailingPathDelimiterByRefA(var s:RawByteString);
//Proc IncludeTrailingPathDelimiterByRefW(var w:UnicodeString);
Func IntToHex16(const Value: Int; const Digits : NativeInt) :Str;;
Func IntToHex17(const Value: Int64; const Digits : NativeInt) :Str;;
Func IntToHex18(const Value: UInt64; const Digits : NativeInt) :Str;;
Func IntToHexA( Value : UInt64; const Digits : NativeInt) : RawByteString;
//Func IntToHexW(Value : UInt64; const Digits : NativeInt) : UnicodeString;
Func IntToStrA19(const i: Int) : RawByteString;;
Func IntToStrW20(const i: Int) : UnicodeString;;
Func IntToStrA21(const i: Int64) : RawByteString;;
Func IntToStrW22(const i: Int64) : UnicodeString;;
Func CharDecomposeHangulW(const c: WideChar) : UnicodeString;
Func diIsPathDelimiter( const s :Str; const Index :Card) :Bool;
Func IsPathDelimiterA( const s : RawByteString; const Index :Card) :Bool;
//Func IsPathDelimiterW( const s : UnicodeString; const Index :Card) :Bool;
Func IsPointInRect( const Point : TPoint; const Rect : TRect) :Bool;
Func JulianDateToIsoDateStr(const Julian: TJulianDate):str;
Func JulianDateToIsoDateStrA( const Julian : TJulianDate) : RawByteString;
//Func JulianDateToIsoDateStrW( const Julian : TJulianDate) : UnicodeString;
Func LeftMostBit( Value :Card) : ShortInt;;
Func LeftMostBit2( Value : UInt64) : ShortInt;;
//Func MakeMethod( const AData, ACode : Pointer) : TMethod;
Func StrIsEmpty( const s :Str) :Bool;
Func StrIsEmptyA( const s : RawByteString) :Bool;
//Func StrIsEmptyW( const s : UnicodeString) :Bool;
Func PadLeftA(const Source:RawByteString;const Count:Card;const c:AnsiChar):RawByteStr;
//Func PadLeftW(const Source: UnicodeString; const Count :Card; const c : WideChar): UnicodeString;
Func PadRightA(const Source:RawByteString;const Count:Cardi;const c:AnsiChar):RawByteStr;
//Func PadRightW(const Source:UnicodeString;const Count:Cardi;const c WideChar):UnicodeStr;
Func ProperCase( const s :Str) :Str;
Func ProperCaseA( const s : RawByteString) : RawByteString;
//Func ProperCaseW( const s : UnicodeString) : UnicodeString;
Proc ProperCaseByRefA( var s : RawByteString);
//Proc ProperCaseByRefW( var s : UnicodeString);
Func RegReadRegisteredOrganization( const Access : REGSAM) :Str;
Func RegReadRegisteredOrganizationA( const Access : REGSAM) : Ansistr;
//Func RegReadRegisteredOrganizationW( const Access : REGSAM) : UnicodeString;
Func RegReadRegisteredOwner( const Access : REGSAM) :Str;
Func RegReadRegisteredOwnerA( const Access : REGSAM) : Ansistr;
//Func RegReadRegisteredOwnerW( const Access : REGSAM) : UnicodeString;
Func RegReadStrDef(const Key:HKEY; const SubKey:Str;const ValueName:Str;const Default:str;const Access:REGSAM):Str;
Func RegReadStrDefA(const Key:HKEY;const SubKey:Ansistr;const ValueName:Ansistr;const Default:Ansistr; const Access:REGSAM):Ansistr;
Func StrDecodeUrlA( const Value : RawByteString): RawByteString;
Func StrEncodeUrlA( const Value : RawByteString): RawByteString;
Func diStrEnd( const s : PChar) : PChar;
Func StrEndA( const s : PChar) : PChar;
//Func StrEndW( const s : PWideChar) : PWideChar;
Proc StrIncludeTrailingChar( var s :Str; const c : Char);
Proc StrIncludeTrailingCharA( var s : RawByteString; const c : AnsiChar);
//Proc StrIncludeTrailingCharW( var s : UnicodeString; const c : WideChar);
Func diStrLen( const s : PChar) : NativeUInt;
Func StrLenA( const s : PChar) : NativeUInt;
//Func StrLenW( const s : PWideChar) : NativeUInt;
Func StrRandom(const ASeed:RawByteStr;const ACharacters:str;const ALength:Card):str);
Func StrRandomA(const ASeed:RawByteString;const ACharacters:RawByteString;const ALength:Card):RawByteStr;
Proc StrRemoveFromToIA(var Source:RawByteString;const FromString,ToString:RawByteString);
//Proc StrRemoveFromToIW(var Source:UnicodeString;const FromString, ToString : UnicodeString);
Proc StrRemoveSpacingA(var s:RawByteStr;const SpaceChars:TAnsiCharSet;const ReplaceChar:AnsiChar);
Proc diStrReplaceChar(var Source:Str;const SearchChar,ReplaceChar:Char);
Proc StrReplaceChar8(var s:Utf8String;const SearchChar,ReplaceChar:AnsiChar);
Proc StrReplaceCharA(var s:RawByteString;const SearchChar,ReplaceChar: AnsiChar);
//Proc StrReplaceCharW(var s:UnicodeString; const SearchChar, ReplaceChar : WideChar);
Func diStrReplace( const Source, Search, Replace :Str) :Str;
Func StrReplaceA( const Source, Search, Replace : RawByteString) : RawByteString;
//Func StrReplaceW( const Source, Search, Replace : UnicodeString) : UnicodeString;
Func StrReplaceI( const Source, Search, Replace :Str) :Str;
Func StrReplaceIA( const Source, Search, Replace : RawByteString) : RawByteString;
//Func StrReplaceIW( const Source, Search, Replace : UnicodeString) : UnicodeString;
Func StrReplaceLoopA( const Source, Search, Replace : RawByteString) : RawByteString;
//7Func StrReplaceLoopW( const Source, Search, Replace: UnicodeString) : UnicodeString;
Func StrReplaceLoopIA( const Source, Search, Replace : RawByteString) : RawByteString;
//Func StrReplaceLoopIW( const Source, Search, Replace: UnicodeString) : UnicodeString;
Func RightMostBit( const Value :Card) : ShortInt;;
Func RightMostBit2( const Value : UInt64) : ShortInt;;
Func LoadStrFromFile(const FileName:str; var s:RawByteString):Boolean;;
Func FileToStr( const FileName :Str; var s :Str) :Bool;;
Func LoadStrAFromFileA(const FileName:Ansistr;var s:RawByteString):Boolean;
//Func LoadStrAFromFileW(const FileName:UnicodeString; var s: RawByteString) :Bool;
Func LoadStrWFromFile28(const FileName:str;var s:UnicodeString):Boolean;;
Func LoadStrWFromFileA(const FileName: Ansistr;var s:UnicodeString):Bool;
//Func LoadStrWFromFileW(const FileName:UnicodeString;var s:UnicodeString):Bool;
Func QuotedStrW( const s : UnicodeString; const Quote : WideChar) : UnicodeString;
Func SaveStrToFile( const s :Str; const FileName :Str) :Bool;
Func StrToFile( const s :Str; const FileName :Str) :Bool;
Func SaveStrAToFile(const s:RawByteString;const FileName :Str) :Bool;
Func SaveStrAToFileA( const s : RawByteString; const FileName : Ansistr) :Bool;
//Func SaveStrAToFileW(const s:RawByteString; const FileName: UnicodeString) :Bool;
Func SaveStrWToFile(const s:UnicodeString;const FileName :Str):Boolean;
Func SaveStrWToFileA(const s: UnicodeString;const FileName:Ansistr): Bool;
//Func SaveStrWToFileW(const s:UnicodeString; const FileName : UnicodeString):Bool;
Func StrPosChar(const Source:str; const c:Char;const Start:Card):Card;
Func StrPosCharA(const Source:RawByteString;const c:AnsiChar;const Start:Car):Card;
//Func StrPosCharW(const Source:UnicodeStr;const c:WideChar;const Start:Cardi):Card;
Func StrPosCharBack(const Source:Str;const c:Char;const Start:Card):Card;
Func StrPosCharBackA(const Source:RawByteStr;const c:AnsiChar;const Start:Cardi):Card);
Func StrPosCharsA(const Sourc:RawByteStr;const Search:TAnsiCharSet;const Start:Cardi):Cardi;
Func StrPosCharsBackA(const Src:RawByteStr;const Search:TAnsiCharSet;const Start:Cardi):Cardi;
Func StrPosNotCharsA(const Src:RawByteStr;const Search:TAnsiCharSet;const Start:Cardi):Cardi;
Func StrPosNotCharsBackA(const Source:RawByteString;const Search:TAnsiCharSet; const Start:Card):Card;
Func SetFileDate(const FileHandle:THandle;const Year:Int;const Month,Day:Word):Bool);
Func SetFileDate2( const FileName :Str; const JulianDate : TJulianDate) :Bool;
Func SetFileDateA( const FileName: Ansistr; const JulianDate:TJulianDate) :Bool;
//Func SetFileDateW(const FileName:UnicodeString;const JulianDate:TJulianDate):Boolean;
Func SetFileDateYmd(const FileName:str;const Year:Int;const Month,Day:Word):Bool;
Func SetFileDateYmdA(const FileName:Ansistr;const Year:Int;const Month,Day:Word):Bool;
Func SetFileDateYmdW(const FileName:UnicodeStr;const Year:Int;const Month,Day:Word):Bool;
Func StrContainsChar(const s:str; const c:Char; const Start :Card) :Bool;
Func StrContainsCharA(const s:RawByteString;const c:AnsiChar;const Start:Card):Bool;
//Func StrContainsCharW(const s:UnicodeString;const c:WideChar;const Start:Cardi):Bool;
Func StrContainsCharsA(const s:RawByteStr;const Chars:TAnsiCharSet;const Start:Card):Bool;
Func diStrSame( const s1, s2 :Str) :Bool;
Func StrSameA( const s1, s2 : RawByteString) :Bool;
//Func StrSameW( const s1, s2 : UnicodeString) :Bool;
Func StrSameI( const s1, s2 :Str) :Bool;
Func StrSameIA( const s1, s2 : RawByteString) :Bool;
//Func StrSameIW( const s1, s2 : UnicodeString) :Bool;
Func StrSameStart( const s1, s2 :Str) :Bool;
Func StrSameStartA( const s1, s2 : RawByteString) :Bool;
//Func StrSameStartW( const s1, s2 : UnicodeString) :Bool;
Func StrSameStartI( const s1, s2 :Str) :Bool;
Func StrSameStartIA( const s1, s2 : RawByteString) :Bool;
//Func StrSameStartIW( const s1, s2 : UnicodeString) :Bool;
Func diStrComp( const s1, s2 :Str) : Int;
Func StrCompA( const s1, s2 : RawByteString) : Int;
//Func StrCompW( const s1, s2 : UnicodeString) : Int;
Func StrCompI( const s1, s2 :Str) : Int;
Func StrCompIA( const s1, s2 : RawByteString) : Int;
//Func StrCompIW( const s1, s2 : UnicodeString) : Int;
Func StrCompNum( const s1, s2 :Str) : Int;
Func StrCompNumA( const s1, s2 : RawByteString) : Int;
// Func StrCompNumW( const s1, s2 : UnicodeString) : Int;
Func StrCompNumI( const s1, s2 :Str) : Int;
Func StrCompNumIA( const s1, s2 : RawByteString) : Int;
// Func StrCompNumIW( const s1, s2 : UnicodeString) : Int;
Func StrContains(const Search,Source:str; const Start:Card):Bool;
Func StrContainsA(const Search,Source:RawByteString;const Start:Card):Bool;
//Func StrContainsW(const ASearch,ASource:UnicodeString;const AStartPos:Card):Bool;
Func StrContainsI(const Search, Source :Str; const Start :Card) :Bool;
Func StrContainsIA(const Search,Source:RawByteString; const Start:Card):Bool;
//Func StrContainsIW(const ASearch,ASource:UnicodeString;const AStartPos:Card):Bool;
Func StrCountChar(const ASource:str;const c:Char;const AStartIdx:Card):Card;
Func StrCountCharA(const ASource:RawByteStr;const c:AnsiChar;const AStartIdx:Cardi):Card;
Func StrMatchesA(const Search,Source:RawByteString; const AStartIdx:Card):Bool;
Func StrMatchesIA(const Search,Source:RawByteString;const AStartIdx:Card):Bool;
Func StrMatchWild(const Source,Mask:str;const WildChar:Char;const MaskChar:Char):Bool;
Func StrMatchWildA(const Src,Mask:RawByteString;const WildChr:AnsiChar;const MaskChr:AnsiChar):Bool;
Func StrMatchWildI(const Source,Mask:str;const WildChar:Char;const MaskChar:Char):Bool;
Func StrMatchWildIA(const Source,Mask:RawByteString;const WildChar:AnsiChar;const MaskChar:AnsiChar):Bool;
Func diStrPos( const ASearch, ASource :Str; const AStartPos :Card) :Card;
Func StrPosA(const ASearch,ASource:RawByteString;const AStartPos:Card):Card;
//Func StrPosW(const ASearch,ASource:UnicodeString;const AStartPos:Card):Card;
Func StrPosI( const ASearch, ASource :Str; const AStartPos :Card) :Card;
Func StrPosIA(const ASearch,ASource:RawByteString; const AStartPos:Card):Card;
//Func StrPosIW(const ASearch, ASource:UnicodeString;const AStartPos:Card):Card;
Func StrPosBackA( const ASearch, ASource: RawByteString; AStart :Card) :Card;
Func StrPosBackIA(const ASearch, ASource: RawByteString; AStart :Card) :Card;
//Func StrToIntDefW( const w : UnicodeString; const Default : Int) : Int;
Func StrToInt64DefW( const w : UnicodeString; const Default : Int64) : Int64;
Func StrToUpper( const s :Str) :Str;
Func StrToUpperA( const s : RawByteString) : RawByteString;
//Func StrToUpperW( const s : UnicodeString) : UnicodeString;
Proc StrToUpperInPlace( var s :Str);
Proc StrToUpperInPlaceA( var s : Ansistr);
//Proc StrToUpperInPlaceW31( var s : WideString);;
//Proc StrToUpperInPlaceW32( var s : UnicodeString);;
Func StrToLower( const s :Str) :Str;
Func StrToLowerA( const s : RawByteString) : RawByteString;
//Func StrToLowerW( const s : UnicodeString) : UnicodeString;
Proc StrToLowerInPlace( var s :Str);
Proc StrToLowerInPlaceA( var s : Ansistr);
//Proc StrToLowerInPlaceW33( var s : WideString);;
//Proc StrToLowerInPlaceW34( var s : UnicodeString);;
Proc StrTimUriFragmentA( var Value : RawByteString);
//Proc StrTrimUriFragmentW( var Value : UnicodeString);
//Func StrExtractUriFragmentW( var Value : UnicodeString): UnicodeString;
Func StrCountUtf8Chars(const AValue: Utf8String) :Card;
Func StrDecodeUtf8( const AValue: Utf8String): UnicodeString;
Func StrEncodeUtf8( const AValue: UnicodeString): Utf8String;
Func diSysErrorMessage( const MessageID :Card) :Str;
Func SysErrorMessageA(const MessageID:Card): Ansistr;
//Func SysErrorMessageW( const MessageID :Card) : UnicodeString;
Func TextExtentW( const DC : HDC; const Text : UnicodeString) : TSize;
Func TextHeightW( const DC : HDC; const Text : UnicodeString) : Int;
Func TextWidthW( const DC : HDC; const Text : UnicodeString) : Int;
Func diStrTrim( const Source :Str) :Str;
Func StrTrimA( const Source : RawByteString) : RawByteString;
//Func StrTrimW( const w : UnicodeString) : UnicodeString;
Func StrTrimCharA(const Source:RawByteString;const CharToTrim:AnsiChar): RawByteString;
Func StrTrimCharsA(const Source:RawByteStr;const CharsToTrim:TAnsiCharSet):RawByteString;
//Func StrTrimCharsW(const s:UnicodeStr;const IsCharToTrim:TValidateCharFuncW):UnicodeStr;
Proc TrimLeftByRefA( var s : RawByteString; const Chars : TAnsiCharSet);
Func TrimRightA( const Source : RawByteString; const s : TAnsiCharSet) : RawByteString;
Proc TrimRightByRefA( var Source : RawByteString; const s : TAnsiCharSet);
Proc StrTrimCompressA(var s:RawByteString;const TrimCompressChars:TAnsiCharSet;const ReplaceChar:AnsiChar);
Func TryStrToIntW( const w : UnicodeString; out Value : Int) :Bool;
Func TryStrToInt64W( const w : UnicodeString; out Value : Int64) :Bool;
Func ValInt( const p : PChar; const l : Int; out Code : Int) : Int;;
Func ValIntA36( p : PChar; l : Int; out Code : Int) : Int;;
//Func ValIntW37( p : PWideChar; l : Int; out Code : Int) : Int;;
Func ValInt2(const s:Str; out Code : Int): Int;;
Func ValIntA39( const s : RawByteString; out Code : Int) : Int;;
Func ValIntW40( const s : UnicodeString; out Code : Int) : Int;;
Func ValInt64A41( p : PChar; l : Int; out Code : Int) : Int64;;
//Func ValInt64W42( p : PWideChar; l : Int; out Code : Int) : Int64;;
Func ValInt64A43( const s : RawByteString; out Code : Int) : Int64;;
Func ValInt64W44( const s : UnicodeString; out Code : Int) : Int64;;
Func YmdToIsoDateStr(constYear:Int;const Month:Word;const Day:Word):str;
Func YmdToIsoDateStrA(const Year:Int;const Month:Word; const Day:Word):RawByteString;
Func YmdToIsoDateStrW(const Year:Int;const Month:Word; const Day:Word):UnicodeString;
Func CharIsLetterW( const c : WideChar) :Bool;
Func CharIsLetterCommonW( const c : WideChar) :Bool;
Func CharIsLetterUpperCaseW(const c : WideChar) :Bool;
Func CharIsLetterLowerCaseW(const c : WideChar) :Bool;
Func CharIsLetterTitleCaseW(const c : WideChar) :Bool;
Func CharIsLetterModifierW(const c : WideChar) :Bool;
Func CharIsLetterOtherW(const c : WideChar) :Bool;
Func CharIsMarkW( const c : WideChar) :Bool;
Func CharIsMarkNon_SpacingW( const c : WideChar) :Bool;
Func CharIsMarkSpacing_CombinedW(const c: WideChar):Bool;
Func CharIsMarkEnclosingW( const c : WideChar) :Bool;
Func CharIsNumberW( const c : WideChar) :Bool;
Func CharIsNumber_DecimalW( const c : WideChar) :Bool;
Func CharIsNumber_LetterW( const c : WideChar) :Bool;
Func CharIsNumber_OtherW( const c : WideChar) :Bool;
Func CharIsPunctuationW( const c : WideChar) :Bool;
Func CharIsPunctuation_ConnectorW( const c : WideChar) :Bool;
Func CharIsPunctuation_DashW( const c : WideChar) :Bool;
Func CharIsPunctuation_OpenW( const c : WideChar) :Bool;
Func CharIsPunctuation_CloseW( const c : WideChar) :Bool;
Func CharIsPunctuation_InitialQuoteW( const c : WideChar) :Bool;
Func CharIsPunctuation_FinalQuoteW( const c : WideChar) :Bool;
Func CharIsPunctuation_OtherW( const c : WideChar) :Bool;
Func CharIsSymbolW( const c : WideChar) :Bool;
Func CharIsSymbolMathW( const c : WideChar) :Bool;
Func CharIsSymbolCurrencyW( const c : WideChar) :Bool;
Func CharIsSymbolModifierW( const c : WideChar) :Bool;
Func CharIsSymbolOtherW( const c : WideChar) :Bool;
Func CharIsSeparatorW( const c : WideChar) :Bool;
Func CharIsSeparatorSpaceW( const c : WideChar) :Bool;
Func CharIsSeparatorLineW( const c : WideChar) :Bool;
Func CharIsSeparatorParagraphW( const c : WideChar) :Bool;
Func CharIsOtherW( const c : WideChar) :Bool;
Func CharIsOtherControlW( const c : WideChar) :Bool;
Func CharIsOtherFormatW( const c : WideChar) :Bool;
Func CharIsOtherSurrogateW( const c : WideChar) :Bool;
Func CharIsOtherPrivateUseW( const c : WideChar) :Bool;
Func BitClear( const Bits, BitNo : Int) : Int;
Func BitSet( const Bits, BitIndex : Int) : Int;
Func BitSetTo( const Bits, BitIndex : Int; const Value :Bool) : Int;
Func BitTest( const Bits, BitIndex : Int) :Bool;
Func CharCanonicalCombiningClassW( const Char : WideChar) :Card;
Func CharIsAlphaW( const c : WideChar) :Bool;
Func CharIsAlphaNumW( const c : WideChar) :Bool;
Func CharIsCrLf( const c : Char) :Bool;
Func CharIsCrLfA( const c : AnsiChar) :Bool;
//Func CharIsCrLfW( const c : WideChar) :Bool;
Func diCharIsDigit( const c : Char) :Bool;
Func CharIsDigitA( const c : AnsiChar) :Bool;
//Func CharIsDigitW( const c : WideChar) :Bool;
Func CharIsHangulW( const Char : WideChar) :Bool;
Func CharIsHexDigitW( const c : WideChar) :Bool;
Func CharIsWhiteSpaceW( const c : WideChar) :Bool;
Func CharToCaseFoldW( const Char : WideChar) : WideChar;
Func CharToLowerW( const Char : WideChar) : WideChar;
Func CharToUpperW( const Char : WideChar) : WideChar;
Func CharToTitleW( const Char : WideChar) : WideChar;
Func DayOfJulianDate( const JulianDate : TJulianDate) : Word;
Func diDayOfWeek( const JulianDate : TJulianDate) : Word;
Func DayOfWeekYmd( const Year : Int; const Month, Day : Word) : Word;
Func diDaysInMonth( const JulianDate : TJulianDate) : Word;
Func DaysInMonthYm( const Year : Int; const Month : Word) : Word;
Proc DecDay( var Year : Int; var Month, Day : Word);
Proc DecDays( var Year : Int; var Month, Day : Word; const Days : Int);
Func diDeleteDirectory( const Dir :Str; const DeleteItself :Bool) :Bool;
Func DeleteDirectoryA( Dir : Ansistr; const DeleteItself :Bool) :Bool;
//Func DeleteDirectoryW( Dir : UnicodeString; const DeleteItself :Bool) :Bool;
Func diEasterSunday( const Year : Int) : TJulianDate;
Proc EasterSundayYmd( const Year : Int; out Month, Day : Word);
Func diFirstDayOfWeek( const JulianDate : TJulianDate) : TJulianDate;
Proc FirstDayOfWeekYmd( var Year : Int; var Month, Day : Word);
Func diFirstDayOfMonth( const Julian : TJulianDate) : TJulianDate;
Proc FirstDayOfMonthYmd( const Year : Int; const Month : Word; out Day : Word);
Func diForceDirectories( const Dir :Str) :Bool;
Func ForceDirectoriesA( Dir : Ansistr) :Bool;
//Func ForceDirectoriesW( Dir : UnicodeString) :Bool;
Proc FreeMemAndNil( var Ptr: TObject);
Func diGetCurrentFolder :Str;
Func GetCurrentFolderA : Ansistr;
//Func GetCurrentFolderW : UnicodeString;
Proc SetCurrentFolder( const NewFolder :Str);
Proc SetCurrentFolderA( const NewFolder : Ansistr);
//Proc SetCurrentFolderW( const NewFolder : UnicodeString);
Func diGetDesktopFolder :Str;
Func GetDesktopFolderA : Ansistr;
//Func GetDesktopFolderW : UnicodeString;
Func diGetFileSize( const AFileName :Str) : Int64;
Func GetFileSizeA( const AFileName : Ansistr) : Int64;
//Func GetFileSizeW( const AFileName : UnicodeString) : Int64;
Func diGetDesktopDirectoryFolder :Str;
Func GetDesktopDirectoryFolderA : Ansistr;
//Func GetDesktopDirectoryFolderW : UnicodeString;
Func GetFileLastWriteTime(const FileName:Str; out FileTime : TFileTime) :Bool;
Func GetFileLastWriteTimeA(const FileName:Ansistr; out FileTime:TFileTime):Boolean;
//Func GetFileLastWriteTimeW(const FileName:UnicodeString;out FileTime:TFileTime):Bool;
Func diGetPersonalFolder( const PersonalFolder : Int) :Str;
Func GetPersonalFolderA : Ansistr;
//Func GetPersonalFolderW : UnicodeString;
Func GetSpecialFolder( const SpecialFolder : Int) :Str;
Func GetSpecialFolderA( const SpecialFolder : Int) : Ansistr;
//Func GetSpecialFolderW( const SpecialFolder : Int) : UnicodeString;
Proc diIncMonth( var Year : Int; var Month, Day : Word);
Proc diIncMonths(var Year :Int; var Month, Day:Word; const NumberOfMonths:Int);
Proc diIncDay( var Year : Int; var Month, Day : Word);
Proc IncDays( var Year : Int; var Month, Day : Word; const Days : Int);
Func IsDateValid( const Year : Int; const Month, Day : Word) :Bool;
Func IsHolidayInGermany( const Julian : TJulianDate) :Bool;
Func IsHolidayInGermanyYmd( const Year : Int; const Month, Day : Word) :Bool;
Func diIsLeapYear( const Year : Int) :Bool;
Func ISODateToJulianDate( const ISODate : TIsoDate) : TJulianDate;
Proc ISODateToYmd(const ISODate: TIsoDate; out Year : Int; out Month, Day : Word);
Func IsCharLowLineW( const c : WideChar) :Bool;
Func IsCharQuoteW( const c : WideChar) :Bool;
Func IsShiftKeyDown :Bool;
Func IsCharWhiteSpaceOrAmpersandW( const c : WideChar) :Bool;
Func IsCharWhiteSpaceOrNoBreakSpaceW( const c : WideChar) :Bool;
Func IsCharWhiteSpaceOrColonW( const c : WideChar) :Bool;
Func CharIsWhiteSpaceGtW( const c : WideChar) :Bool;
Func CharIsWhiteSpaceLtW( const c : WideChar) :Bool;
Func CharIsWhiteSpaceHyphenW( const c : WideChar) :Bool;
Func CharIsWhiteSpaceHyphenGtW( const c : WideChar) :Bool;
Func IsCharWordSeparatorW( const c : WideChar) :Bool;
Func diISOWeekNumber( const JulianDate : TJulianDate) : Word;
Func ISOWeekNumberYmd( const Year : Int; const Month, Day : Word) : Word;
Func ISOWeekToJulianDate(const Year:Int;const WeekOfYear:Word;const DayOfWeek:Word):TJulianDate);
Func JulianDateIsWeekDay( const JulianDate : TJulianDate) :Bool;
Func JulianDateToIsoDate( const Julian : TJulianDate) : TIsoDate;
Proc JulianDateToYmd(const JulianDate:TJulianDate;out Year: Int;out Month,Day:Word);
Func LastDayOfMonth( const JulianDate : TJulianDate) : TJulianDate;
Proc LastDayOfMonthYmd( const Year : Int; const Month : Word; out Day : Word);
Func LastDayOfWeek( const JulianDate : TJulianDate) : TJulianDate;
Proc LastDayOfWeekYmd( var Year : Int; var Month, Day : Word);
Func LastSysErrorMessage :Str;
Func LastSysErrorMessageA : Ansistr;
Func LastSysErrorMessageW : UnicodeString;
Func diMax( const a : Int; const b : Int) : Int;;
Func diMax3( const a, b, c : Int) : Int;
Func MaxCard( const a :Card; const b :Card) :Card;;
Func MaxCard3( const a :Card; const b :Card; const c :Card):Card;;
Func diMaxint64( const a : Int64; const b : Int64) : Int64;;
Func dimaxint643( const a : Int64; const b : Int64; const c : Int64) : Int64;;
Func diMin( const a, b : Int) : Int;;
Func diMin3( const a, b, c : Int) : Int;
Func MinCard( const a, b :Card) :Card;;
Func Mincard3( const a, b, c :Card) :Card;;
Func diMinint64( const a, b : Int64) : Int64;;
Func diMinint643( const a, b, c : Int64) : Int64;;
Func diMinint64U( const a, b : UInt64) : UInt64;;
Func diMinint643U( const a, b, c : UInt64) : UInt64;;
Func MonthOfJulianDate( const JulianDate : TJulianDate) : Word;
Func YearOfJuilanDate( const JulianDate : TJulianDate) : Int;
Func YmdToIsoDate( const Year : Int; const Month, Day : Word) : TIsoDate;
Func YmdToJulianDate( const Year : Int; const Month, Day : Word) : TJulianDate;
end;
Func FiboMaxE2(n: Int): Extended;
begin
result:= (pow((1+SQRT5)/2,n)-pow((1-SQRT5)/2,n))/SQRT5
end;
TDLLVersionInfo=Record
cbSize, // Size of the structure, in bytes.
dwMajorVersion, // Major version of DLL
dwMinorVersion, // Minor version of DLL
dwBuildNumber, // Build number of DLL
dwPlatformID: DWord; //Identifies the platform for which the DLL was built
end;
{$IFDEF MSWINDOWS}
Proc TIdAntiFreeze_Process;
var Msg: TMsg;
ApplicationHasPriority:Bool;
begin
if ApplicationHasPriority then begin
Application.ProcessMessages;
end else begin
// This guarantees it will not ever call Application.Idle
if PeekMessage(Msg, 0, 0, 0, PM_NOREMOVE) then begin
Application.HandleMessage;
end;
end;
end;
{$ENDIF}
with lockbox you do sha1 with strings and hex:
writeln(SHA1ofStr(loadstringj(exepath+’maxbox4.exe’)))
// ¢‘ÞRL‘mÍÕïݧlÎÓðî
tempstr:= SHA1ofStr(loadstringj(exepath+’maxbox4.exe’))
writeln(‘ ‘)
for i:= 1 to 20 do
Write(charToHexStr(tempstr[i]));
A291DE524C1B916DCDD502EFDDA76C0BCED3F0EE
Example with WMI:
Func TestWMIOS2:Str;
var wmiService, computerName, objectsList: OLEvariant;
sysID:Str;
isloc: ISWBemLocator; isser: ISWBemServices;
iset: ISWbemObjectSet; ENum: IEnumVariant;
tempObj: OleVariant;
begin
computerName := ‘.’;
isloc:= WMIStart;
isser:= WMIConnect2(isloc, ‘\root\cimv2',’maxbox10',’max’,”); //: ISWBemServices;
//Exception: incorrect credentials. WMI connection failed.
//Set wmiService = GetObject(“WinMgmts:{impersonationLevel=impersonate, “&_
// “(SystemTime, Shutdown)}!\\” & computerName & “\root\cimv2”)
//Set objectsList = wmiService.InstancesOf(“Win32_OperatingSystem”)
//For Each ObjService in objectsList
iset:= WMIExecQuery(isser,’Select * from Win32_OperatingSystem’)
result:=(botoStr(WMIRowFindFirst(iset, ENum, tempObj)));
repeat
sysid:= (‘OSid: ‘+vartoStr(tempobj.csname)+
‘ – ‘+vartoStr(tempobj.name)+
‘ — ‘+vartoStr(tempobj.caption))
until not WMIRowFindNext(ENum, tempobj); //}
tempObj:= unassigned;
result:= result+’ ‘+sysID;
//Call Log.Message(“SysInfo”, sysID)
End; // Sub
>>> Sysid2: TRUE OSid: MAXBOX10 – Microsoft Windows 10 Home|C:\WINDOWS|\Device\Harddisk0\Partition4 — Microsoft Windows 10 Home
command1:= 'play "'+songpath+'maxbox.wav"'; command2:= 'play "'+songpath+'moon.wav"';
SendMCICommand('open waveaudio shareable; //parallels
SendMCICommand('play "G:\sonysavefeb2014\maxbox\maxbox3_back\examples\maxbox.wav";
SendMCICommand('play "G:\sonysavefeb2014\maxbox\maxbox3_back\examples\moon.wav";
SendMCICommand('close waveaudio;
//MakeSound(Frequency{Hz},Duration{mSec}:Int;Volume:TVolumeLevel;savefilePath:str);
if Not fileexists(exepath+'\mytest1.wav') then begin
Writeln('Generate 2 sounds with 440 and 443 Hz');
MakeSound(440,5000, 80, Exepath+'\mytest1.wav');
MakeSound(443,5000, 80, Exepath+'\mytest2.wav');
end else begin
Writeln('Play Beat of 2 sounds together with 3 Hz Amp Mod:');
mciSendString('PLAY "'+exepath+'\mytest1.wav'+'"', 'Nil', 0, 0);
mciSendString('PLAY "'+exepath+'\mytest2.wav'+'"', 'Nil', 0, 0);
end;
Strings (and other non ordinals) in Case Statements
This has to be most requested feature by far in history of D imho, sure to make many long time D fans happy.}
writeln(floattostr(pow(256,200000)))
//writeln(itoa(length(bigpow(256,200000)))) //481648
sr:= sworld;
case sr of
'hello' : xi := 1;
'goodbye' : xi := 2;
sWorld : xi := 3; //sWorld is a string constant
end;
writeln('res of case '+itoa(xi));
initialization XRaise
type
EPointsArrayIsNotAssigned = Exception;
writeln(itoa(length(aptsarr)));
setlength(aptsarr, 2)
writeln(itoa(length(aptsarr)));
if length(aptsarr) = 0 then begin
Xraise(EPointsArrayIsNotAssigned.Create('Points array is not assigned...'));
//Exit;
end;
maXbox SSL fox471 for
The first step the following components, maybe we will add further in the future:
1. Orpheus (Win32 and Win64)
2. Abbrevia (Win32, Win64, MacOSX, iOS and Android)
3. Virtual Tree (Win32 and Win64)
4. SynEdit (Win32 and Win64)
5. LockBox (Win32, Win64, MacOSX, iOS and Android)
6. Async Professional (Win32)
7. PowerPDF (Win32 and Win64)
Tutorials list
//////////////////////////////////////////////////////////////////////////////
All maXbox Tutorials Table of Content 2014/2015/2016/2017/2018/2019/2020/2021/2022/2023/2024
///////////////////////////////////////////////////////////////////////////////
Tutorial 00 Function-Coding (Blix the Programmer)
Tutorial 01 Procedural-Coding
Tutorial 02 OO-Programming
Tutorial 03 Modular Coding
Tutorial 04 UML Use Case Coding
Tutorial 05 Internet Coding
Tutorial 06 Network Coding
Tutorial 07 Game Graphics Coding
Tutorial 08 Operating System Coding
Tutorial 09 Database Coding
Tutorial 10 Statistic Coding
Tutorial 10_1 Probability Coding
Tutorial 11 Forms Coding
Tutorial 12 SQL DB Coding
Tutorial 13 Crypto Coding
Tutorial 14 Parallel Coding
Tutorial 15 Serial RS232 Coding
Tutorial 16 Event Driven Coding
Tutorial 17 Web Server Coding
Tutorial 18 Arduino System Coding
Tutorial 18_3 RGB LED System Coding
Tutorial 19 WinCOM /Arduino Coding
Tutorial 20 Regular Expressions RegEx
Tutorial 21 Android Coding (coming 2013)
Tutorial 22 Services Programming
Tutorial 23 Real Time Systems
Tutorial 24 Clean Code
Tutorial 25 maXbox Configuration I+II
Tutorial 26 Socket Programming with TCP
Tutorial 27 XML & TreeView
Tutorial 28 DLL Coding (available)
Tutorial 29 UML Scripting (2014)
Tutorial 30 Web of Things (2014)
Tutorial 31 Closures (2014)
Tutorial 32 SQL Firebird (2014)
Tutorial 33 Oscilloscope (available)
Tutorial 34 GPS Navigation (2014)
Tutorial 35 Web Box (available)
Tutorial 36 Unit Testing (avail)
Tutorial 37 API Coding (avail)
Tutorial 38 3D Coding (coming 2015)
Tutorial 39 GEO Map Coding (available)
Tutorial 39_1 GEO Map Layers Coding (available)
Tutorial 40 REST Coding (coming 2015)
Tutorial 41 Big Numbers Coding (2015)
Tutorial 42 Parallel Processing (2015)
Tutorial 43 Code Metrics: June2016
Tutorial 44 IDE Extensions
Tutorial 45 Robotics: July2016
Tutorial 46 WineHQ: Dez2016
Tutor 47 RSA Crypto Jan2017
Tutor 48 Microservice Jan2017
http://www.softwareschule.ch/download/maxbox_starter48.pdf
Tutorial 49 Refactoring: March 2017
Tutorial 50 Big Numbers II: April 2017
Tutorial 51 5 Use Cases April 2017
Tutorial 52 Work with WMI Mai 2017
Tutorial 53 Real Time UML 2017
Tutor 54 Microservice II Nov 2017
Tutor 55 ASCII Talk Dez 2017
Tutor 56 Neural Network 2018
Tutor 57 Neural Network II
Tutor 58 Data Science
Tutor 59 Big Data Feb 2018
Tutor 60 Machine Learning March 2018
Tutor 60.1 Sentiment Analysis
Tutor 60.2 ML II
Tutor 63 Machine Games
Tutor 64 Install Routines
Tutor 65 Machine Learning III
Tutor 66 Machine Learning IV
Tutor 67 Machine Learning V
Tutor 68 Machine Learning VI
Tutor 69 Machine Learning VII
Tutor 70 No GUI Shell
Tutor 71 CGI and WebSocket
Tutor 72 Multilanguage
Tutor 73 EKON 24 Edition
Tutor 74 BASTA 2020 Vision
Tutor 75 Object Detection
Tutor 76 Image Classifier CAI
Tutor 77 Image Classifier Matrix
Tutor 78 Portable pixmap format(PPM)
Tutor 79 Unit Testing with Asserts
Tutor 80 My Tips & Tricks
Tutor 81 RSS Feeds of BBC News - Digital Forensic March 2021
Tutorial 82 JSON Code API
Tutorial 82_2 Sentiment NLTK API Code
#Tutorial 83 Unicode + Bayes Theorem & Confusion Matrix April 2021
#Tutorial 84 JSON Primer Mai 2021
Tutorial 83 Machine Learning XI Classification April 2021
Tutorial 84 Machine Learning XII Baseline Mai 2021
Tutorial 85 JSON4Delphi Automation Mai 2021
Tutorial 86 Python4Delphi P4D June 2021 (Part 1-4)
Tutorial 87 Image Detection with Lazarus
Tutorial 88 Performance Tuning
Tutorial 89 CAI mX4
Tutorial 89_1 CAI mX4 model define
Tutorial 89_2 CAI mX4 model fits
Tutorial 90 Python CheatSheet Nov. 2021
Tutorial 91 CAI CheatSheet Faker SynDat Dez. 2021
Tutorial 92 Python_CAI CheatSheet Jan. 2022
Tutorial 92_1 VCL4Python Feb. 2022
Tutorial 93 Geocoding March 2022
Tutorial 94 Post API Services April 2022
Tutorial 95 Language Services April 2022
Tutorial 96 CNN Pipeline June 2022
Tutor 97 Operating System Services OSS
Tutor 98 Python Integration
Tutorial 99 DataScience API October 2022
Tutorial 100 Data Science Story November 2022
Tutorial 101 Data Science Story2 Dezember 2022
Tutorial 102 Interpreter versus Compiler December 2022
Tutorial 103 Image to Text API January 2023
Tutorial 104 Restcountries API January 2023
Tutorial 105 Classify CNN February 2023
Tutorial 106 Air Distance and Bearing, March 2023
Tutorial 107 pas2js, March 2023
Tutorial 108 Hacking your Märklin, March 2023
Tutorial 109 Google Translate API, April 2023
Tutorial 109_1 OpenAI ChatGPT API, April 2023
Tutorial 110 Code Overview Samples, April 2023
Tutorial 111 PPas2JS Integration, August 2023
Tutorial 112 The Machine Learning Package, August 2023
Tutorial 113 Migrate to 64-bit Report, October 2023
Tutorial 114 Cannonball Simulation, September 2023
Tutorial 115 64-bit 2 Points in Space, November 2023
Tutorial 116 64-bit 2 Debugging, December 2023
The-mystery-of-IStream_, December 2023
Tutorial 117 Mystery of IStream, December 2023
Tutorial 118 Code Signing, January 2024
Tutorial 119 Multicode_, February 2024
Tutorial 120 Unicode_Sign, March 2024
Tutorial 121 Geocoding IV, March 2024
Tutorial 122 Geocoding V, March 2024
Tutorial 123 OCR with a Neural Net II, April 2024
https://linuxschweizag.wordpress.com/2023/04/06/tutorials/
Doc ref Docu for all Type Class and Const in maXbox_types.pdf
using Docu for this file is maxbox_functions_all.pdf
PEP - Pascal Education Program Low Lib Lab ShellHell in UDEMY
https://bitbucket.org/max_kleiner/maxbox3/wiki/maXbox%20Tutorials
http://stackoverflow.com/tags/pascalscript/hot
http://www.jrsoftware.org/ishelp/index.php?topic=scriptfunctions
http://sourceforge.net/projects/maXbox #locs:62000
http://sourceforge.net/apps/mediawiki/maXbox
http://www.blaisepascal.eu/
https://github.com/maxkleiner/maXbox3.git
https://github.com/maxkleiner/maXbox4.git
http://www.heise.de/download/maxbox-1176464.html
http://www.softpedia.com/get/Programming/Other-Programming-Files/maXbox.shtml
https://www.facebook.com/pages/Programming-maXbox/166844836691703
http://www.softwareschule.ch/arduino_training.pdf
http://www.delphiarea.com
http://www.freepascal.org/docs-html/rtl/strutils/index-5.html
http://entwickler-konferenz.de/2014/speakers/max-kleiner
http://www.heise.de/download/maxbox-1176464.html
https://www.udemy.com/learn-coding-from-the-scratch
http://www.slideshare.net/maxkleiner1/codesign-2015
https://www.dropbox.com/s/yolconwmg4oqta4/Blaise_2and3_SP_Total.pdf?dl=0
http://www.softwareschule.ch/download/maxbox_promo.png
http://max.kleiner.com/maxbox_functions_all.htm
http://max.kleiner.com/boxart.htm
http://www.jurgott.org/linkage/util.htm
http://www.swissdelphicenter.ch/en/niklauswirth.php
http://www.softwareschule.ch/images/maxbox_20years_delphi.jpg
https://softwareschule.code.blog/
https://repl.it/@MaxKleiner/machinelearning4#main.py
https://github.com/project-jedi/jvcl/tree/master/jvcl/examples/JvChartDemo
https://github.com/maxkleiner/python4delphi/blob/master/Source/PythonEngine.pas
{$ All maXbox 4 or 5 Examples List Exampleslist }
https://github.com/maxkleiner/maXbox3/releases
https://github.com/maxkleiner/maXbox4/releases
http://www.softwareschule.ch/download/exampleedition2016.zip
*********************************************************************************************
000_pas_baseconvert.txt 282_fadengraphik.txt
000_pas_baseconvert.txt_encrypt 283_SQL_API_messagetimeout.txt
000_pas_baseconvert.txt_decrypt 284_SysTools4.txt
001_1_pas_functest - Kopie.txt 285_MineForm_GR32.TXT
001_1_pas_functest.txt 285_MineForm_GR32main.TXT
001_1_pas_functest2.txt 285_MineForm_GR32mainsolution.TXT
001_1_pas_functest_clx2.txt 285_MineForm_propas.TXT
001_1_pas_functest_clx2_2.txt 285_MineForm_propas2.TXT
001_1_pas_functest_openarray.txt 285_minesweeper2.TXT
001_pas_lottogen.txt 285_Patterns_process.txt
001_pas_lottogen_template.txt 286_colormixer_jpeg_charcounter.txt
001_pas_lottogen.txtcopy 286_colormixer_jpeg_charcounter2.txt
002_pas_russianroulette.txt 287_eventhandling.txt
002_pas_russianroulette.txtcopy 287_eventhandling2.txt
002_pas_russianroulette.txtcopy_decrypt 287_eventhandling2_negpower.txt
002_pas_russianroulette.txtcopy_encrypt 288_bitblt.txt
003_pas_motion.txt 288_bitblt_resize.txt
003_pas_motion.txtcopy 289_regression.txt
004_pas_search.txt 289_regression2.txt
004_pas_search_replace.txt 290_bestofbox.txt
004_search_replace_allfunctionlist.txt 290_bestofbox2.txt
005_pas_oodesign.txt 290_bestofbox3.txt
005_pas_shelllink.txt 291_3sort_visual_thread.txt
006_pas_oobatch.txt 292_refactoring2.txt
007_pas_streamcopy.txt 293_bold_utils.txt
008_EINMALEINS_FUNC.TXT 293_ib_utils.txt
008_explanation.txt 293_ib_utils_timetest.txt
008_pas_verwechselt.txt 294_maxcalc_demo.txt
008_pas_verwechselt_ibz_bern_func.txt 294_maxcalc_demo2.txt
008_stack_ibz.TXT 295_easter_calendar.txt
009_pas_umlrunner.txt 295_easter_calendar2.txt
009_pas_umlrunner_all.txt 295_easter_combobox.txt
009_pas_umlrunner_componenttest.txt 297_atomimage.txt
009_pas_umlrunner_solution.txt 297_atomimage2.txt
009_pas_umlrunner_solution_2step.txt 297_atomimage3.txt
010_pas_oodesign_solution.txt 297_atomimage4.txt
011_pas_puzzlepas_defect.txt 297_maxonmotor.TXT
012_pas_umlrunner_solution.txt 297_maxon_atomimage9.txt
012_pas_umlrunner_solution2.txt 298_bitblt_animation.txt
013_pas_linenumber.txt 298_bitblt_animation2.txt
014_pas_primetest.txt 298_bitblt_animation3.txt
014_pas_primetest_first.txt 298_bitblt_animation4.txt
014_pas_primetest_sync.txt 298_bitblt_animation4_screensaver.txt
015_pas_designbycontract.txt 298_bitblt_animation5_screensaver.txt
015_pas_designbycontract_solution.txt 299_animation.txt
016_pas_searchrec.txt 299_animationmotor_arduino.txt
017_chartgen.txt 299_animation_formprototype.txt
018_data_simulator.txt 299_realtimeclock_arduino.txt
019_dez_to_bin.txt 299_realtimeclock_arduino2.txt
019_dez_to_bin_grenzwert_ibz.txt 300_treeview.txt
020_proc_feedback.txt 300_treeview_test.txt
021_pas_symkey.txt 300_treeview_test2.txt
021_pas_symkey_solution.txt 300_treeview_test3.txt
022_pas_filestreams.txt 301_LED_Arduino3.txt
023_pas_find_searchrec.txt 301_led_arduino3_simple.txt
023_pas_pathfind.txt 301_led_arduino3_simplecode.txt
024_pas_TFileStream_records.txt 301_log_arduino.txt
025_prime_direct.txt 301_log_arduino2.txt
026_pas_memorystream.txt 301_SQL_DBfirebird3.txt
027_pas_shellexecute_beta.txt 301_SQL_DBfirebird4.txt
027_pas_shellexecute_solution.txt 302_LCLActivity_java.txt
028_pas_dataset.txt 302_LED_DataLogger.txt
029_pas_assignfile.txt 303_Android_LCLActivity_java.txt
029_pas_assignfile_dragndropexe.txt 303_webserver.txt
030_palindrome_2.txt 303_webserver2.txt
030_palindrome_tester.txt 303_webserver_alldocs2.txt
030_pas_recursion.txt 303_webserver_alldocs2_tester.txt
030_pas_recursion2.txt 303_webserver_minimal.txt
031_pas_hashcode.txt 303_webserver_simple.txt
032_pas_crc_const.txt 304_st_system.txt
033_pas_cipher.txt 305_indy_elizahttpserver.TXT
033_pas_cipher_def.txt 305_indy_elizahttpserver2.TXT
033_pas_cipher_file_2_solution.txt 305_indy_elizahttpserver3.TXT
034_pas_soundbox.txt 305_indy_elizahttpserver4file.TXT
035_pas_crcscript.txt 305_webserver_arduino.txt
035_pas_CRCscript_modbus.txt 305_webserver_arduino2.txt
036_pas_includetest.txt 305_webserver_arduino3.txt
036_pas_includetest_basta.txt 305_webserver_arduino3ibz.txt
037_pas_define_demo32.txt 305_webserver_arduino3ibz_rgb_led.txt
038_pas_box_demonstrator.txt 305_webserver_arduino3test.txt
039_pas_dllcall.txt 306_SPS_http_command.txt
040_paspointer.txt 307_all_booleanlogic.txt
040_paspointer_old.txt 308_bitbox3.txt
041_pasplotter.txt 308_bitbox3_exec.txt
041_pasplotter_plus.txt 308_boolean_animation.txt
042_pas_kgv_ggt.txt 308_boolean_animation2.txt
043_pas_proceduretype.txt 309_regex_power.txt
044_pas_14queens_solwith14.txt 309_regex_powertester2.txt
044_pas_8queens.txt 309_regex_powertester3.txt
044_pas_8queens_sol2.txt 310_regex_decorator.TXT
044_pas_8queens_solutions.txt 312_ListView.txt
044_queens_performer.txt 313_dmath_dll.txt
044_queens_performer2.txt 314_fundamentals4_tester.TXT
044_queens_performer2tester.txt 315_funcplot_dmath.TXT
045_pas_listhandling.txt 316_cfileutils_cdatetime_tester.TXT
046_pas_records.txt 317_excel_export_tester.TXT
047_pas_modula10.txt 318_excel_export.TXT
048_pas_romans.txt 318_excel_export2.TXT
049_pas_ifdemo.txt 318_excel_export3.TXT
049_pas_ifdemo_BROKER.txt 318_excel_export3_tester.TXT
050_pas_primetest2.txt 319_superfunctions_math.TXT
050_pas_primetester_thieves.txt 319_superfunctions_mathdefect.TXT
050_program_starter.txt 320_superfunctions.TXT
050_program_starter_performance.txt 320_superfunctions2.TXT
051_pas_findtext_solution.txt 321_SQL_Excel.txt
052_pas_text_as_stream.txt 321_SQL_Excel2.txt
052_pas_text_as_stream_include.txt 321_SQL_Excel_Export.txt
053_pas_singleton.txt 321_SQL_ExportExec.txt
054_pas_speakpassword.txt 321_SQL_ExportTest.txt
054_pas_speakpassword2.txt 321_SQL_SAS_tester3.txt
054_pas_speakpassword_searchtest.txt 321_SQL_SAS_tester3_selfcompile.txt
055_pas_factorylist.txt 321_SQL_SAS_tester3_selfcompile2.txt
056_pas_demeter.txt 321_SQL_SAS_tester4.txt
057_pas_dirfinder.txt 321_SQL_SAS_updater.txt
058_pas_filefinder.txt 322_timezones.TXT
058_pas_filefinder_pdf.txt 323_datefind_fulltext_search.txt
058_pas_filefinder_screview.txt 323_datefind_fulltext_searchtester.txt
058_pas_filefinder_screview2.txt 324_interfacenavi.TXT
058_pas_filefinder_screview3.txt 325_ampelsteuerung.txt
059_pas_timertest.txt 325_analogclock.txt
059_pas_timertest_2.txt 326_world_analogclock.txt
059_pas_timertest_time_solution.txt 326_world_analogclock2.txt
059_timerobject_starter2.txt 327_atomimage_clock.txt
059_timerobject_starter2_ibz2_async.txt 328_starfield.txt
059_timerobject_starter2_uml.txt 329_starfield2.txt
059_timerobject_starter2_uml_main.txt 330_myclock.txt
059_timerobject_starter4_ibz.txt 330_myclock2.txt
060_pas_datefind.txt 331_SQL_DBfirebird4.txt
060_pas_datefind_exceptions2.txt 332_jprofiler.txt
060_pas_datefind_exceptions_CHECKTEST.txt 332_jprofiler_form.txt
060_pas_datefind_fulltext.txt 332_jprofiler_form2.txt
060_pas_datefind_plus.txt 333_querybyexample.txt
060_pas_datefind_plus_mydate.txt 333_querybyexample2.txt
061_pas_randomwalk.txt 334_jvutils_u.txt
061_pas_randomwalk_plus.txt 335_atomimage5.txt
062_paskorrelation.txt 335_atomimage6.txt
063_pas_calculateform.txt 335_atomimage7.txt
063_pas_calculateform_2list.txt 336_digiclock.txt
064_pas_timetest.txt 336_digiclock2.txt
065_pas_bitcounter.txt 336_digiclock2test.txt
066_pas_eliza.txt 336_digiclock3.txt
066_pas_eliza_include_sol.txt 337_4games.txt
067_pas_morse.txt 337_4games_inone.txt
068_pas_piezo_sound.txt 338_compress.txt
069_LED_Matrix_R1_3_6_NV_PSchaer.TXT 338_compress2.txt
069_my_LEDBOX.TXT 339_ntfs.txt
069_pas_ledmatrix.txt 340_docutype.txt
069_pas_LEDMATRIX_Alphabet.txt 340_logsimulation.txt
069_pas_LEDMATRIX_Alphabet_run.txt 340_logsimulation2.txt
069_pas_LEDMATRIX_Alphabet_tester.txt 340_soundControltype.txt
069_PAS_LEDMATRIX_COLOR.TXT 341_blix_clock.txt
069_pas_ledmatrix_fixedit.txt 341_blix_clock2.txt
069_pas_LEDMATRIX_soundbox.txt 341_blix_clock_tester.txt
069_pas_LEDMATRIX_soundbox2.txt 342_set_enumerator.txt
069_Richter_MATRIX.TXT 343_dice2.txt
070_pas_functionplot.txt 344_pe_header.txt
070_pas_functionplotter2.txt 344_pe_header2.txt
070_pas_functionplotter2_mx4.txt 345_velocity.txt
070_pas_functionplotter2_tester.txt 346_conversions.txt
070_pas_functionplotter3.txt 347_pictureview.txt
070_pas_functionplotter4.txt 348_duallistview.txt
070_pas_functionplotter_digital.txt 349_bigInt.txt
070_pas_functionplotter_elliptic.txt 350_parserform.txt
070_pas_function_helmholtz.txt 351_chartform.txt
070_pas_textcheck_experimental.txt 351_chartform2.txt
071_pas_graphics.txt 351_chartform3.txt
071_pas_graphics_drawsym.txt 352_array_unittest.txt
071_pas_graphics_drawsym_save.txt 353_smtp_email.txt
071_pas_graphics_random.txt 353_smtp_email2.txt
072_pas_fractals.txt 354_josephus.txt
072_pas_fractals_2.txt 355_life_of_PI.txt
072_pas_fractals_blackhole.txt 356_3D_printer.txt
072_pas_fractals_perfomance.txt 357_fplot.TXT
072_pas_fractals_perfomance_new.txt 358_makesound.txt
072_pas_fractals_perfomance_sharp.txt 359_charsetrules.TXT
072_pas_fractals_performance.txt 360_allobjects.TXT
072_pas_fractals_performance_mX4.txt 360_JvPaintFX.TXT
073_pas_forms.txt 361_heartbeat_wave.TXT
074_pas_chartgenerator.txt 362_maxonmotor2.TXT
074_pas_chartgenerator_solution.txt 363_compress_services.txt
074_pas_chartgenerator_solution_back.txt 363_compress_services2.txt
074_pas_charts.txt 364_pdf_services.txt
075_bitmap_Artwork2.txt 365_memorystream.txt
075_pas_bitmappuzzle.txt 365_memorystream2.txt
075_pas_bitmappuzzle24.prod.txt 365_memorystream_test.txt
075_pas_bitmappuzzle2_prod.txt 365_U_HexView.txt
075_pas_bitmappuzzle3.txt 366_mp3player.txt
075_pas_bitmapsolve.txt 366_mp3player2.txt
075_pas_bitmap_Artwork.txt 366_mp3player2_themestest.txt
075_pas_puzzlepas_solution.txt 367_silvi_player_widgets.txt
076_pas_3dcube.txt 367_silvi_player_widgets2.txt
076_pas_circle.txt 367_widgets.txt
077_pas_mmshow.txt 368_configuration_demo.txt
078_pas_pi.txt 369_macro_demo.txt
079_pas_3dcube_animation.txt 370_callback2grid.TXT
079_pas_3dcube_animation4.txt 370_richedit.txt
079_pas_3dcube_plus.txt 370_richedit_highlight.txt
080_pas_hanoi.txt 370_synedit.txt
080_pas_hanoi2.txt 370_synedit2.txt
080_pas_hanoi2_file.txt 370_synedit2_mxtester.txt
080_pas_hanoi2_sol.txt 370_synedit2_mxtester2.txt
080_pas_hanoi2_tester.txt 371_maXbook_v4tester.txt
080_pas_hanoi2_tester_fast.txt 372stackibz2_memoryalloc.TXT
080_pas_hanoi3.txt 372_synedit_export.txt
081_pas_chartist2.txt 373_batman.txt
082_pas_biorythmus.txt 373_fractals_tvout.txt
082_pas_biorythmus_solution.txt 374_realtime_random.txt
082_pas_biorythmus_solution_3.txt 374_realtime_random2.txt
082_pas_biorythmus_test.txt 374_realtime_randomtest.txt
083_pas_GITARRE.txt 374_realtime_randomtest2.txt
083_pas_soundbox_tones.txt 375_G9_musicbox.txt
084_pas_waves.txt 376_collections_list.txt
085_mxsinus_logo.txt 377_simpleXML.txt
085_sinus_plot_waves.txt 377_smartXML.txt
086_pas_graph_arrow_heart.txt 377_smartXMLWorkshop.txt
087_bitmap_loader.txt 377_smartXMLWorkshop2.txt
087_pas_bitmap_solution.txt 378_queryperformance3.txt
087_pas_bitmap_solution2.txt 378_REST1.txt
087_pas_bitmap_subimage.txt 378_REST2.txt
087_pas_bitmap_test.txt 379_timefunc.txt
088_pas_soundbox2_mp3.txt 379_timefunctesterfilemon.txt
088_pas_soundbox_mp3.txt 380_coolfunc.txt
088_pas_sphere_2.txt 380_coolfunc2.txt
089_pas_gradient.txt 380_coolfunc_tester.txt
089_pas_maxland2.txt 381_bitcoin_simulation.txt
090_pas_sudoku4.txt 382_GRMath.TXT
090_pas_sudoku4_2.txt 382_GRMath_PI_Proof.TXT
091_pas_cube4.txt 382_GRMath_Riemann.TXT
092_pas_statistics4.txt 383_MDAC_DCOM.txt
093_variance.txt 384_TeamViewerID.TXT
093_variance_debug.txt 386_InternetRadio.TXT
094_pas_daysold.txt 387_fulltextfinder.txt
094_pas_stat_date.txt 387_fulltextfinder_cleancode.txt
095_pas_ki_simulation.txt 387_fulltextfinder_fast.txt
096_pas_geisen_problem.txt 387_fulltext_getscripttest.txt
096_pas_montyhall_problem.txt 388_TCPServerSock.TXT
097_lotto_proofofconcept.txt 388_TCPServerSock2.TXT
097_pas_lottocombinations_beat_plus.txt 388_TCPServerSockClient.TXT
097_pas_lottocombinations_beat_plus2.txt 389_TAR_Archive.TXT
097_pas_lottocombinations_universal.txt 389_TAR_Archive_test.TXT
097_pas_lottosimulation.txt 389_TAR_Archive_test2.TXT
098_pas_chartgenerator_plus.txt 390_Callback3.TXT
099_pas_3D_show.txt 390_Callback3Rec.TXT
200_big_numbers.txt 390_CallbackClean.TXT
200_big_numbers2.txt 390_StringlistHTML.TXT
201_streamload_xml.txt 391_ToDo_List.TXT
202_systemcheck.txt 392_Barcode.TXT
203_webservice_simple_intftester.txt 392_Barcode2.TXT
204_webservice_simple.txt 392_Barcode23.TXT
205_future_value_service.txt 392_Barcode2scholz.TXT
206_DTD_string_functions.txt 392_Barcode3scholz.TXT
207_ibz2_async_process.txt 393_QRCode.TXT
208_crc32_hash.txt 393_QRCode2.TXT
209_cryptohash.txt 393_QRCode2Direct.TXT
210_public_private.txt 393_QRCode2DirectIndy.TXT
210_public_private_cryptosystem5_ibz_spektrum.txt
210_public_private_cryptosystem.txt 393_QRCode2Direct_detlef.TXT
211_wipe_pattern.txt 393_QRCode3.TXT
211_wipe_pattern2.txt 394_networkgraph.TXT
211_wipe_pattern_solution.txt 394_networkgraph_depwalkutilstest.TXT
212_pas_statisticmodule4.TXT 394_networkgraph_depwalkutilstest2.TXT
212_pas_statisticmoduletxt.TXT 395_USBController.TXT
212_statisticmodule4.txt 396_Sort.TXT
213_pas_BBP_Algo.txt 397_Hotlog.TXT
214_mxdocudemo.txt 397_Hotlog2.TXT
214_mxdocudemo2.txt 398_ustrings.txt
214_mxdocudemo3.txt 399_form_templates.txt
215_hints_test.TXT 400_fplottchart.TXT
216_warnings_test.TXT 400_fplottchart2.TXT
217_pas_heartbeat.txt 400_fplottchart2teetest.TXT
218_biorythmus_studio.txt 400_QRCodeMarket.TXT
219_cipherbox.txt 401_tfilerun.txt
219_crypt_source_comtest_solution.TXT 402_richedit2.txt
220_cipherbox_form.txt 403_outlookspy.txt
220_cipherbox_form2.txt 404_simplebrowser.txt
221_bcd_explain.txt 405_datefinder_today.txt
222_memoform.txt 406_portscan.txt
223_directorybox.txt 407_indydemo.txt
224_dialogs.txt 408_testroboter.txt
225_sprite_animation.txt 409_excel_control.txt
226_ASCII_Grid2.TXT 410_keyboardevent.txt
227_animation.txt 411_json_test.txt
227_animation2.txt 412_Zeosutils.txt
228_android_calendar.txt 413_listview2.txt
229_android_game.txt 414_avrdude_flash.txt
229_android_game_tester.txt 415_avrdude_writehex.txt
230_DataProvider.txt 416_sonar_startscriptEKON.TXT
230_DataSetProvider.txt 416_sonar_startscriptEKON_reporting.TXT
230_DataSetXMLBackupScholz.txt 417_GRMath_PI_Proof2.TXT
231_DBGrid_access.txt 418_functional_paradigm.txt
231_DBGrid_XMLaccess.txt 419_archimedes_spiral.txt
231_DBGrid_XMLaccess2.txt 419_archimedes_spiral2.txt
231_DBGrid_XMLaccess_locatetester.txt 420_archimedes_arduino.txt
231_DBGrid_XML_CDS_local.txt 420_Lissajous.txt
232_outline.txt 421_PI_Power.TXT
232_outline_2.txt 421_PI_Power2.TXT
233_modular_form.txt 422_world_bitboxx.txt
234_debugoutform.txt 423_game_of_life.TXT
235_fastform.TXT 423_game_of_life2.TXT
236_componentpower.txt 423_game_of_life3.TXT
236_componentpower_back.txt 423_game_of_life3_test.TXT
237_pas_4forms.txt 423_game_of_life4.TXT
238_lottogen_form.txt 423_game_of_life4_kryptum.TXT
239_pas_sierpinski.txt 424_opengl_tester.txt
239_pas_sierpinski2.txt 425_reversi_game.txt
240_unitGlobal_tester.txt 426_IBUtils.TXT
241_db3_sql_tutorial.txt 427_IBDatabase.TXT
241_db3_sql_tutorial2.txt 428_SortGrid.TXT
241_db3_sql_tutorial2fix.txt 429_fileclass.txt
241_db3_sql_tutorial3.txt 430_fileoperation.txt
241_db3_sql_tutorial3connect.txt 430_fileoperation_tester.txt
241_db3_sql_tutorial3_fptest.txt 431_performance_index.txt
241_RTL_SET2.txt 432_shortstring_routines.txt
241_RTL_SET2_tester.txt 433_video_avicap.txt
242_Component_Control.txt 433_video_avicap2.txt
243_tutorial_loader.txt 434_GSM_module.TXT
244_script_loader_loop.txt 435_httpcommon.txt
245_formapp2.txt 436_GraphicSplitter.txt
245_formapp2_tester.txt 436_GraphicSplitter_form.txt
245_formapp2_testerX.txt 436_GraphicSplitter_form2.txt
246_httpapp.txt 436_teetest_screen.TXT
247_datecalendar.txt 436_teetest_screen2.TXT
248_ASCII_Grid2_sorted.TXT 437_WinAPItop.txt
249_picture_grid.TXT 437_WinAPItop_Firebirdtester.txt
250_tipsandtricks2.txt 438_OvcInternational.txt
250_tipsandtricks3.txt 439_AsyncFreeDemo.txt
250_tipsandtricks3api.txt 439_AsyncFreeDemoForm.txt
250_tipsandtricks3_admin_elevation.txt 440_DLL_Tutor.txt
250_tipsandtricks3_tester.txt 440_DLL_Tutor2.txt
250_tipsandtricks4_tester.txt 440_XML_Tutor.txt
250_tipsandtricks4_tester2.txt 440_XML_Tutor2.txt
251_compare_noise_gauss.txt 441_make_app.txt
251_whitenoise.txt 442_arduino_rgb_led.txt
251_whitenoise2.txt 443_webserver_arduino_rgb_light.txt
252_hilbert_turtle.txt 443_webserver_arduino_rgb_light4.txt
252_pas_hilbert.txt 444_webserver_arduino3ibz_rgb_led_basta.txt
253_opearatingsystem3.txt 445_datagrid.txt
254_dynarrays.txt 445_datagrid2.txt
255_einstein.txt 445_datagrid_android_arduino.txt
256_findconsts_of_EXE.txt 446_arduino_timer.txt
256_findfunctions2_of_EXE.txt 447_patternFrm_mx3.txt
256_findfunctions2_of_EXEaverp.txt 448_Synapse.txt
256_findfunctions2_of_EXEspec.txt 448_Synapse2.txt
256_findfunctions3.txt 449_dweb_start_tester.txt
256_findfunctions_of_EXE.txt 450_Synapse_HTTPS.txt
257_AES_Cipher.txt 450_Synapse_Mime.txt
258_AES_cryptobox.txt 450_Synapse_ScanPing.txt
258_AES_cryptobox2.txt 451_ocx_player.txt
258_AES_cryptobox2_passdlg.txt 451_OCX_WinPlayer2.txt
259_AES_crypt_directory.txt 452_dbtreeview.txt
260_sendmessage_2.TXT 452_dbtreeview2.txt
260_sendmessage_beta.TXT 453_stdfuncs.txt
261_probability.txt 454_fileStream.txt
262_mxoutputdemo4.txt 455_functionfun.txt
263_async_sound.txt 455_functionfun2.txt
264_vclutils.txt 455_functionfun2_test.txt
264_VCL_utils2.txt 457_ressource_grid.txt
265_timer_API.txt 458_atomimageX.txt
266_serial_interface.txt 459_cindyfunc.txt
266_serial_interface2.txt 459_cindyfunc2.txt
266_serial_interface3.txt 460_TopTenFunctions.txt
267_ackermann_rec.txt 461_sqlform_calwin.txt
267_ackermann_variants.txt 462_caesarcipher.txt
268_DBGrid_tree.txt 463_global_exception.txt
269_record_grid.TXT 464_function_procedure.txt
270_Jedi_FunctionPower.txt 464_function_procedure2.txt
270_Jedi_FunctionPowertester.txt 464_function_procedure3.txt
271_closures_study.txt 465_U_HexView.txt
271_closures_study_workingset2.txt 466_moon.txt
272_pas_function_show.txt 466_moon_inputquery.txt
273_pas_function_show2.txt 4671_cardmagic.txt
274_library_functions.txt 467_helmholtz_graphic.txt
275_turtle_language.txt 468_URLMon.txt
275_turtle_languagehouse2_time2.txt
275_turtle_language_save.txt 468_URLMon2.txt
276_save_algo.txt 469_formarrow.txt
276_save_algo2.txt 469_formarrow_datepicker.txt
277_functionsfor39.txt 469_formarrow_datepicker_ibz_result.txt
278_DB_Dialogs.TXT 469_ibzresult.txt
279_hexer2.TXT 470_DFFUtils_compiled.txt
279_hexer2macro.TXT 470_DFFUtils_ScrollingLED.txt
279_hexer2macroback.TXT 470_Oscilloscope.txt
280_UML_process.txt 470_Oscilloscope_code.txt
280_UML_process_knabe2.txt 471_cardmagic.txt
280_UML_process_knabe3.txt 471_cardmagic2.txt
280_UML_process_TIM_Botzenhardt.txt 472_allcards.TXT
280_UML_TIM_Seitz.txt 473_comboset.txt
281_picturepuzzle.txt 474_wakeonlan.txt
281_picturepuzzle2.txt 474_wakeonlan2.txt
281_picturepuzzle3.txt 476_getscripttest.txt
281_picturepuzzle4.txt 477_filenameonly.txt
479_inputquery.txt 480_regex_pathfinder.txt
480_regex_pathfinder2.txt 481_processList.txt
482 processPipe.txt 482 processPipeGCC.txt
483_PathFuncTest_mX.txt 484_filefinder3.txt
485_InnoFunc.txt 486_VideoGrabber.txt
487_asyncKeyState.txt 488_asyncTerminal.txt
489_simpleComport.txt 490_webCamproc.txt
491_analogmeter.txt 492_snowflake2.txt
493_gadgets.txt 495_fourierfreq.txt
496_InstallX.txt 497_LED.txt
498_UnitTesting.txt 499_mulu42.txt
500_diceoflifes.txt 501_firebird_datasnap_tests.txt
502_findalldocs.txt 503_led_switch.txt
504_fileclass.txt 505_debug.txt
506_colormatrix.txt 507_derutils.txt
508_simplecomportmorse.txt 509_GEOMap2.txt
509_509_GEOMap2_SReverse.TXT 510_510_bonn_gpsdata_mX4.pas
511_LEDLabel.txt 512_LED_moon.txt
513_StreamIntegration.txt 514_LED_moon2.txt
515_ledclock3.txt 516_mapview.txt
517_animation7.txt 518_sensors_meter.txt
519_powtils.txt 520_run_bytecode.txt
521_iputils2.txt 522_getgeocode.txt
523_NMEA.txt 524_NAV_Utils.txt
525_GEO84s.txt 526_Compass_meter.txt
527_GPSDemo.txt 528_linescount.txt
529_profilertest.txt 530_3DLab.txt
531_profilertest.txt 532_mcicommand.txt
533_syncasync_demo.txt 534_arduino_cockpit.TXT
535_Battleship3.pas 536_ressource_grid2.txt
537_iniplus.TXT 538_shellbatch.txt
539_timeturtle123.txt 540_NeuralNetwork.pas
541_webserver_arduino_motorturtle.txt 542_arduino_sound.txt
543_MATH_TurboP.PAS 544_UTIL01.PAS
545_strips.TXT 546_fourier3.pas
547_regexmaster.TXT 548_STExpressions.TXT -Services
549_3D_Panorama.txt 550_Expressions.TXT - 550_ADO_OLEDB.txt
551_ArduinoTester.txt 552_WaitExec32.txt
553_ArduinoCockBit3.txt 554_Watdchdog.txt - 555_CODEsign2.txt
556_stringlistrandom.TXT 557_4dice2015.txt
558_highrestimer.TXT -559_higthrestimer2 560_PSUtils.TXT
561_newfunctions399160.txt 562_shellctrldemo.txt
563_moonpaper.txt 564_queryperformance.txt
565_ConsoleCapture.txt 566_queryperformance2.txt
567_SquareWordGrids2.txt 568_U_BigFloatTestscript2.pas
569_keylog.txt - 569_ServiceMgr2.TXT 570_turingspeech.txt
571_myPing.txt 572_shellctrlplus.txt
573_modbusfrm_Main.pas 574_arduino_cockpit5.TXT
575_TARTARUGA_Desktop.txt 576_outlineEX11.PAS
577_listbox2list.txt 578_access_db_logsimulation3.txt
579_numbersystems_sort.txt 580_indystacksearch_geo.txt
581_stringstream.txt 582_indystackwin.txt
583_VirtualConstructor_savereport.txt 584_ProcessList2fontwidth.txt last
585_fulltextfinder_cleancode_override.txt 586_STRandom.txt
587_one_function.txt 588_XSBuiltins.txt
589_avi_animate.txt 590_HTML_to_RTF.txt
591_emailattach.txt 592_getTypeLibList.txt
593_round_time.txt 594_check_creditcard.txt
595_check_memory.txt 596_time_delays.txt
597_ole_commands.txt 598_software_list.txt
599_bug.txt 600_surprise_nice.txt
601_PECheckSum.txt 602_multilang_game.txt (moonbug)
603_cupids_arrow.TXT 604_GEOCodeReverse4.TXT
605_maxonmotor3DTage2BASTA2015.TXT 606_U_FibonacciSunflower.TXT
607_DataSetProvider_CDS_ADO.txt 608_ColorMixer_Arduino2.txt
609_ScriptExecutor (beta) 610_3D_DLL.txt
611_Arduino_COMOutputs.txt 612_MTerminal.pas
611_Arduino_COMOutputs_TMP36_3.txt
613_uPSI_DIUtils_test.pas 614_inbrowserock.txt
615_SONAR_51_Starter.txt 616_ComTerminalDlg.pas
(589_AVI_Throbber.res.txt) 589_avi_animate.txt
616_ComTerminalDlg.pas //end for 3.9.9.195
617_API_coding_tut37.txt 617_API_coding_tut39.txt
618_bayes_filter.txt 618_bayes_filter_dic.txt
618_bayes_filter_dic2.txt 619_crypto_package_demo.txt
619_crypto_package_demo_policy.txt 619_crypto_packr.txt
620_serialtimer.txt 621_bruteforceattack_dic.txt
622_netsh_master_restore4.psb 622_netsh_master_sonar.pas
623_exspawnu.pas 623_exspawnu_buffoverflow.pas
624_Misctest_lexscanner.pas 624_Misctest_lexscanner2.pas
625_binominal_bigint3_testcase.txt 626_lorentztransformation.TXT
627_4gewinnt_main3.txt 628_FormatFloat.pas
629_Word_FORMULA.PAS 630_multikernel2.TXT
630_multikernel3.TXT 631_dmath_testfunc_mx3.pas
632_safecalll2.txt 632_safecheck2.txt
632_safecheck2_regex_basta.txt 633_gamma_func.txt
634_briefcase_XMLDB.xml 634_BriefcaseMain2.pas
634_maxbase3server.mdb 635_bitcount_bytecodestudy.txt
636_rest_apiexamples.txt 637_psnconvert3.TXT
637_psnconvert4.TXT 637_startscript_psnconvert2.TXT
638_Mathslib_prime.pas.txt 639_prime_factors.txt
640_rest_geocode.txt 640_rest_weather_report.txt
640_weather_cockpit5.TXT 640_weather_cockpit6.TXT
641_voicecommand.TXT 642_BDE_export.PAS
643_EKON19_Tester3_OLE_Reg.TXT 644_Synapse_Mimetest_regEx3.txt
645_age_guess_REX.pas 646_pi_evil.TXT
646_pi_evil2.TXT 647_StringtoHTMLBasta.TXT
648_SYNEdit_ExportDemo.TXT 649_dayio.pas
649_StringlistHTMLtestBasta.TXT 650_sched.pas
650_http_server2tester.txt 650_time_routines.txt
650_dbblober.txt 650_drawdice2016.txt
651_StrUtilmaxbase.pas 652_graph3DMainUnit2.pas
653_PdoxTstbox.pas 654_spectrum_dice2016_3.txt
655_arduino_chess.txt 655_arduino_chess2.txt
656_XML_RpcCommon.pas 656_XML_RpcCommon2.pas
657_PEM_Cert.txt 658_ASN1_Cert.txt
659_VirtListBox.txt 660_X509_Cert.pas
660_InetUtils_Rest.txt 661_REXX.pas
662__VisualChronForm.pas 663_Tokens.pas
664_DataAnnotationsValid.pas.pas 665_keditcommon.pas.pas
666_SysInfoCtrls.pas.pas 667_URobo1.pas.pas
667_URobo2.pas.pas 668_U_SoundGen3.pas.pas
669_uptime.txt.pas 700_interestingX.txt
670_interesting_birthday_paradox.txt 671_replacedigit.txt //File
672_regex_ask_task.txt 673_pipe_singapure.txt //LAB
674_pipe_graphics.txt 675_bitcoin_doublehash.txt
676_run_as_admin.txt 677_pingtest4.txt
678_fmTraceRouteMainU.pas 679_messagefMain.pas
680_gravity_waves.txt 681_kronos_3DLab.TXT
682_ScreenMatrixToBitmap.pas 683_mx422_functions_demo.txt
684_mathe4.pas 685_leanfitmath.txt
686_namedpipe_demo.txt 686_namedpipe_demo2.txt
687_memorymapped_filestream.txt 688_KGraphics_Call.txt
689_proctype_alias.txt 690_calc_pi_ex.pas
691_httpservermain3.txt 692_fservermain3.pas
692_imageserv_fClient33.pas 693_OverbyteIcsUtils_tester.pas
694_OverbyteIcsAsn1Utils.pas 695_IdAntiFreeze_tester.pas
696_kmemo_demo_Main.pas 696_kmemo_demo.pas
697_OverbyteIcsTicks64.pas 697_OverbyteIcsTicks64Demo1.pas
698_new_classes_tester.pas 693_OverbyteIcsDnsQuerytester.pas
698_Bitcoin_blockchaintester.pas 699_OverbyteIcsSha1_tester.pas
700_mX422_functions_demo2.txt 700_mX422_functions_demo3.txt
700_new_function_snippets.pas 700_function_snippets3_metrics.inc
701_all_fibonacci.txt 702_pascal_fibonacci.txt
702_X509_Cert_OpenSSL_1.txt 702_X509_Cert_OpenSSL_2.txt
703_pc_sensors.txt 704_entropy_test.txt
705_magsubs1_functions.pas 705_parser_demo_case.txt
706_population_count.txt 707_GrayCode.txt
708_XML_DOM_ReaderTutor.txt 709_BarcodeReader.txt
710_enigma_riddler.txt 710_EnumRegKeys.txt
710_geo_distance_form_mapbox.txt 710_geo_distance_dialog.txt
710_RegSvrUtils_mX4.pas 711_geo_satellite_mapbox.txt
712_rootsfunction.txt 712_towerofhanoi_animation.pas
713_SnakeA2.pas 713_internet_traces_mx_screenshot2.png
714_astroids_GAME3.PAS 714_GAME_spaceinvaders.PAS
715_shape_calculator.PAS 716_webplan.PAS
717_AdLog.PAS 718_AdPerformanceCounter.PAS
719_rootsfunction.txt 720_euler_project.txt
720_HTML_TableExport_CSS.pas 720_selfdescribing_number.txt
721_DOSCapture_netstat2.TXT 722_refererHeader_monitor.TXT
723_remote_notepad_message.TXT 724_spyware_monitor_test.TXT
725_CRC32_live.txt 725_Install_Routines.TXT
725_725_Cholesky.pas 725_Voice3.TXT
725_blockchain_sensors3.txt 725_X509_SHA1_TestCert.txt
726_DBGrid_XML_CDataSet.txt 727_Canvas_Artist.TXT
728_mci_macros.TXT 728_mci_macros_imagetest.TXT
729_PrivateKey_mX.pas 729_U_BigIntTest_mX.pas
730_modular_exponentiation_IBZ.txt 730_topological4.txt
730_ternary_logice.txt 730_ternary_logice2.txt
731_DWS_Client4_EKON20.pas 731_DWS_Server4_EKON20.pas
732_hailstonesequence_delphi.txt 732_hailstonesequence.txt
733_jensensdevice.txt 734_boxthecompass.txt
735_Linear_congruential_generator.txt 735_mx_screenshot_duesseldorf.png
735_Euler_p117_openSSL_scripts.txt 736_hiddenstreams_ads.txt
737_xmastree2.txt 737_xmastree3.txt
738_mX4_exact_fishertest2.pas 738_mX4_exact_fishertest3.pas
739_GIFPAL.PAS 739_mXbinom.pas
740_Globalreplacetext.txt 740_Globalreplacetext_test.txt
740_msgpump1.txt 740_uFTPServermX2.pas
740_uFTPServermX2_listtest.pas 740_RosettaIsaac_cryptocode.txt
740_RosettaIsaac_Cryptocode_Delphi 740_RosettaIsaac_cryptocode2.txt
741_DrawYinAndYang.txt 741_DrawYinAndYang_console.txt
742_VectorProducts.txt 743_ProperDivisor.txt
744_Web_scraping_UTCTime.txt 745_Web_scraping_UTCTime_DNSQuery.txt
745_crypto_memory.txt 745_euler_method.txt
746_uText.pas 746_mx_screenshot_stream.png
747_uSteganos.pas 748_ubits.pas
749_helloWebServer.txt 749_helloWebServer2.txt
749_helloWebServer3.txt 749_helloWebServer3_tempsensor.txt
750_EchoServer3.txt 750_EchoServer4.txt
210_RSA_crypto_complete8hybrid.txt 210_public_private_crypto_complete7hybrid.txt
750_ibz_cryptomem_RSA_proof_64.txt 750_RSA_Toolproof4.txt
750_SimpleTCPMain.pas 750_SimpleTCPMainForm.pas
751_Elevator_Simulator.pas 751_thelift_simulation_uMain.pas
752_BitmapHistogram.txt 752_U_ConvertTest2Astronomy.pas
752_U_AstroDemo_mX4_2.pas 752_U_AstroDemo_mX4_2Form.pas
753_xbase_tester.pas 754_U_Find3Primes.pas
755_science_ibz_spektrum.txt 755_science_ibz_spektrum2.txt
755_sedol2.txt 755_bigint_demo.txt
756_shellscripthell_javascript.txt 756_shellscripthell_saferemove.txt
756_shellscripthell_javascript2.txt strasbourgoutdoor2.bmp
667_URobo2EKON_FUN_Tracking2.pas 757_PowerEfficiencyDiagnostics.txt
757_tower_of_hanoiX.txt 757_factorizeX.txt
758_speechmachine.txt 759_euler_ppk_mutex_ibz.txt
760_Normal_distribution.txt xdata.xml - cd_catalog.xml
760_XML_DOM_OLE.TXT 760_XML_DOM_OLE_bestofbox4.TXT
760_systeminfo_tester.txt 751_Elevator_Simulator2.pas
766_wmi_GetServiceStatus.txt 751_Elevator_Simulator4.pas
760_systeminfo_tester2.txt 760_systeminfo_tester3.txt
761_BoulesBillard3.txt maxbox_billiard2.png
760_systeminfo_tester2.txt 760_systeminfo_tester3.txt
761_BoulesBillard3.txt 761 maxbox_billiard2.png
762_regex_analytica.txt 762_staroffice.txt
762_matlab.txt 763_google_rest_api.txt
764_reverse.txt 764_reverse.htm
765_codesign.txt 765_codesign2.txt
766_wmi_management.txt 766_wmi_management2.txt
767_mint_geo_map.txt 768_pascal_coin_utils.txt
769_tzutil.pas 770_pascal_coin_api.txt
770_pascal_coin_api_ascii_talk.txt 770_U_ParsingDemo2.pas
770_U_ParsingDemo3_ASCIITalk.pas 770_3hires_benchmarktimer2.txt
770_3hires_benchmarktimer3.txt 770_U_ParsingDemo3_ASCIITalk_test.pas
771_fibonacci_first.txt 772_mutex_instance.txt
773_streamfibonacci_first.txt 773_key_encryptort.txt
774_findwindow_calc.txt 775_geo_mapbox.txt
776_fiboseq_state_android_pi.txt 776_thermotacho.txt
777_netportscan.txt 777_keydownform_analyze.pas
777_tictactoe2.txt 777_tictactoe3.txt
777_tictac4picboard_16F887_arduino.txt 777_tictactoe3tacho.txt
778_advapi32_dll_SHA256.txt 766_wmi_GetAntiVirusProduct2.txt
779_drivemanager.txt 780_doubleSHA256_cipher.txt
780_mandelbrotset_max.txt 780_maxboxmandel.png
780_set_enumeration.txt 780_set_enumeration.pdf
780_newfunctions_calctest_42610.txt 780_esp8266_wifiscan.txt
780_abc_problem.txt 780_abc_problem_delphi.txt
780_mandelbrotset_max2.txt 780_DLL_functionlist.TXT
780_thingspeak_mathworks.txt 766_wmi_GetUSB_Devices.txt
780_JSONDemo.txt 735_openSSL_scripts4.txt
780_ppk_xmltransform.txt 780_ppk_xmltransform_provider.txt
780_xrtl_net_URIUtils.pas 766_wmi_GetAntiVirusProduct2.txt
781_ProxyUtils.txt 781_DataSetUtils.pas
781_ProxyUtils2performance.txt 780_ppk_xmltransform_provider2.txt
782_XML_DOM_ADO_API_REST_demo.txt 782_XML_DOM_ADO_API_REST_demo2.txt
783_turtle_sign.txt 784_DOM_travers.txt
785_Matrix_Transpose.txt 786_FONTVIE1mX4.PAS
787_cologne_Bitmap21.txt 788_WMI_Transpose.txt
789_DOM_XML.txt 790_Start_Elasticsearch.pas
791_uFTPServer.pas 792_uMRU.pas
793_uOneInstance.pas 794_uFind.pas
795_uOutput.pas 796_uUtils.pas
797_SynEditCodeFolding_routines.pas 798_turtle_python_time2.txt
799_list_duplicates.txt 800_wraplines.txt
800_isodatetime.txt 801_algorithms_Devices.txt
802_indystack_geo2_picture.txt 803_textanalysis.txt
803_textanalysis2.txt 804_BackgroundWorker.pas
805_webspider_Mainconsole.pas 805_webspider_Mainconsole2.pas
805_webspider_Mainconsole2_2.pas 806_primes_threadMain.pas
807_FANN_XorSample.pas 808_FANN_XorSample_traindata.pas
807_FANN_XorSample2.pas 809_FANN_XorSample_traindata.pas
810_bullcow_mastermind.txt 810_python_shell.txt
810_neuralnetwork2.txt 810_python_shell2.txt
810_neuralnetwork21.txt 811_mXpcatest_dmath_datascience.pas
811_mXpcatest_dmath_datascience2.pas 812_smtp_email4.txt
813_PCA_datascience_iris.txt 813_PCA_datascience_iris2.txt
814_bigmulu.txt 814_bigmulu.htm
813_PCA_datascience_iris3.txt 814_machinelearning_overview.jpg
815_look_and_say.txt 816_snowball_Readme.doc
816_SnowballProgram.pas 817_logextract.txt
818_spider_traversialdemo.txt 818_spider_traversialdemo2.txt
819_ES.Utils.pas 820_eigenvalue.txt
820_U_ProbabilityDist.pas 820_U_ProbabilityDist2.pas
820_U_ProbabilityDist2.psb 820_182_Cologne42_EKON21sunset.jpeg
820_bostondataset_socks4test.pas 820_bostondataset.txt
820_bostondataset_socks4test_irisset.pas 820_iris.data
820_bostondataset_irisset_clean.pas 820_bostondataset3.txt
821_Narcissistic.txt 821_Narcissistic2.txt
822_perceptron1_2.htm 822_perceptron.txt
822_perceptron1_2.txt 822_perceptron1_3.txt
822_perceptron1_3.htm 822_FANN_Perceptron_Sample_Plus.pas
807_FANN_PerceptronSample.pas 822_perceptron1_31.txt
822_perceptron_for_pascal2.txt 822_perceptron_for_pascal.htm
822_perceptron_for_pascal2regression.txt 823_truth_table.txt
824_catamorphism.txt 825_hash_class.txt
825_uTPLb_Hash_tester.pas 826_sentiment_api2.txt
826_sentiment_api2_1.txt 826_sentiment_api2_1.psb
826_sentiment_api2_2.txt sentiment2.txt
820_bytecodetest.txt 826_reglin_regression_fit.pas
826_reglin_regression_fit2.pas 714_astroids_GAME5.PAS
827_save_UTF8.txt 828_install_routine.txt
828_install_routine2.txt asteroid.txt
829_save_JSON.txt 830_save_Binaries.txt
830_RSA_cryptosystem_wiki.txt 830_RSA_cryptosystem_wiki_huge2.txt
831_regex_light.txt 832_euler92.txt
833_findfactors.txt 834_array_concat.txt
835_fibonsteps_sequence.txt 836_date_time_routines.txt
837_penneysgame.txt 837_penneysgame2.txt
838_endofuniverse_explain.txt 839_percolation_mean.txt
840_maxboxmandel2.png 840_maxbox_art3.jpg
840_URungeKutta4test.pas 841_U_Alphametics.pas
842_U_Keno2.pas 842_U_JPGClock2.dfm
842_U_JPGClock2.pas 843_snake2.pas
844_OpenSSL_synapsetester.txt 844_OpenSSL_synapsetester2.txt
845_Gray_Code.txt 845_TestPermutations.txt
845_TestPermutations2.txt 846_longmultiplication.psb
846_longmultiplication.pas 847_blockchain_hashexplain.pas
848_xml_intfn.pas 849_pi3.psb
849_pi3.pas 850_pi3_filemodify.pas
810_neuralnetwork21pascal_tutor66.txt 810_neuralnetwork21python_tutor66.txt
810_neuralnetwork21pascal_tutor66predict.txt 853_U_SixOfAKind2_mX4.pas
854_U_Invertedtext.pas 855_dll_reflection.jpg
855_dll_from_maXbox.pas 856_SnakeAmX4.pas
856_snake_maxbox4_4.png 857_printer_function.txt
856_snake_maxbox4_5.png 856_SnakeAmX42.pas
856_snake_maxbox4_6.png 858_dragdrop_function.txt
856_SnakeAmX42_tab.pas 859_maputils.pas
859_maputils_client.pas 860_graph.png
860_virtualbox_overview.png 860_brownian_tree.pas
826_similarity_api2.txt 860_graph3.png
860_similarity_api3.txt 860_benfordslaw.txt
860_sexy_primes2performance.txt 860_dateformat.txt
860_sexy_primes2performance.psb 860_sexy_primes.psb
860_sexy_primes.txt 860_neuralnetwork21_levenshtein_dist.txt
860_PascalMatrix_Out.txt 860_similarity_api3.txt
860_graph3.png 860_brownian_tree.pas
826_similarity_api2.txt 860_brownian_tree.pas
860_virtualbox_overview.png 860_graph.png
859_maputils_client.pas 827_save_UTF8_xml_oledb.txt
861_stringtokenizer.txt 861_stringtokenizer.htm
861_stringtokenizer2.txt 862_socialmention_api3.txt
862_benfordslaw_synedit.txt 863_stack_tcp_chatroom_client.TXT
863_stack_tcp_chatroom.TXT 864_form_canvas_font_client.TXT
865_caesar_cipher.txt 865_winservices.txt
865_winservices2.txt 866_native_console.txt
866_tutor70consolepowershell2.png 780_abc_problem_delphi_synapse.txt
780_abc_problem_delphi_synapse2.txt 780_abc_problem_delphi_synapse3.txt
781_LatLonDistmX.pas 781u_LatLonDistanceTestmX.pas
781_JLatLon_JFK-ZRH.JPG 781u_LatLonDistanceTestmX2.pas
782_U_MakeCityLocations2mX4.pas 783_replaceall.txt
784_checkers.txt 785_reviews.txt
786_web_scrap.txt 787_Excel_ImportExport.txt
788_PETRA.MID 788_pcu_mX4.pas
789_totient_primes_tester.txt 789_totient_primes_tester.psb
790_sha512.txt 790_googlemaps.txt
867_metadefener_api.txt 868_6MainFmnetworkmX47.pas
869_factsum.txt 870_totient_primes_tester_471_functions.txt
871_checkemptyfolders.txt 496_installX.txt
872_RSA_codes.txt 872_RSA_codes2.txt
873_Unittester_mX47.txt 873_Unittester_mX47_2.txt
873_Unittester_mX47_2.psb 873_httpclient.png
874_LinkGrabUnit1.pas 875_filehistounit2app.txt
875_filehistounit2app_forensic.txt 875_codetester_GUI_maXbox4exe.png
876_console_output.txt 877_flowpanel.pas
877_flowpanel2.pas 878_code_reflection.txt
879_psvCGI.pas 880_cgiMain_server.pas
880_visualstatemachine_main.pas 880_ModemEmulator.pas
880_cgiMain_server2.pas 640_API_LayerDetection_EKON23.TXT
881_odometer_uMain2.pas 882_bitmap_brusher.txt
883_create_dataset.txt 884_google_chart_api.TXT
884_google_chart_api2.TXT 885_IP_Geolocation.TXT
886_AmicablePairs.TXT 887_Anti_Primes.TXT
888_Sundial.TXT 889_Jaro_distance.TXT
890_Jensens_Device.TXT 891_uturing_machine.TXT
892_microwaves.TXT 891_uturing_machine2.TXT
891_universal_turing_machine3.TXT 892_microwaves2.TXT
893_montecarlo_PI.TXT 893_montecarlo_PI.psb
894_csv_to_html.TXT 895_screenpixel.TXT
896_tickets_tree.png 896_textclassification.py
896_all_tickets.csv 690_calc_pi_ex_stat4.pas
897_openoffice_ole_automation.TXT 898_exit_procedure.TXT
899_remote_control_key.TXT 569_ServiceMgr3.TXT
900_XML.TXT XML.TXT
901_turtle_purple_circle.txt 902_sha1_explicit.TXT
902_sha1_explicit_aes.TXT 903_ODBC_list.TXT
904_Unit1NEMESIS.pas 905_uiptools.pas
905_rfc1213util.pas 905_uipservices.pas
905_PlotCompCode.pas 905_net_ugraph.pas
905_net_ugraph_formplot.pas 903_microtonal_csound.TXT
905_rfc1213sys.pas 906_OverbyteIcsLogger.pas
907_OverbyteIcsSHA1Test1.pas 170_4gewinnt_main3.txt
880_cgiMain_server3.pas 880_psvCGI.pas
880_CGI1.exe 880_CGI1.pas 880_DrBobCGI.pas
908_Netlister.pas 909_MandelBrot.pas
909_sinewave_circle.pas 910_tictac.pas 910_tictac_form.pas
880_cgiMain_server4.pas 880_CGI1.exe
910_kh_function_plot_demo2.pas 910_kh_plot.png
910_tictactoe_form.png 910_tictac_form2.pas
911_gapfulnumbers2ibz.pas 912_Primestest_AKS_2.pas
912_TTCPBlockSocket_Tester3.txt 912_ssl_blcksock_tester.pas
729_U_BigIntTest_mX4.pas 913_al_php_runner_test.pas
913_al_web_spider_test.pas 913_ALOpenOffice_tester.pas
915_OpenOffice_API.pas 897_openoffice_ole_automation2.TXT
916_fmTraceRouteMainU.pas 914_run_javascript_471.pas
916_CGIMailerfMain.pas 917_EwbCoreTools_experimantal.pas
918_TIdDateTimeStamp_main.pas 919_uLockBox_HugeCardinalTestCases.pas
920_TURL_class_test.pas 919_uLockBox_RSA_TestCases.pas
920_TURL_class_test2.pas 920_TimeServer_TickClock.pas
919_uLockBox_Signatory_TestCasesmX471.pas 919_umfmMakeSampleKey.pas
913_al_web_spider34form_trivial.pas 913_al_web_spider34form.pas
921_object_filehandling.pas 922_u_stringlist.pas
922_u_dir.pas 922_u_c_url.pas
915_OpenOffice_API_2.pas 915_OpenOffice_API_21.pas
923_indybasicclientserverfMain.pas 924_arrays.pas
925_U_DoubletsX3_2.pas 925_U_CountPhrases.pas
925_U_CountPhrases_form.pas 925_phrasecount2.png
926_singlesamplepredict.py 927_primetrial.pas
927_Emirp.pas 927_Emirp.psb
927_Emirp2.pas 928_wave_async_parallel.pas
928_cd_catalog2.xml 929_xmlstream.pas
927_Emirp2.pas 928_wave_async_parallel.pas
928_cd_catalog2.xml 929_xmlstream.pas
930_service_tools.pas 930_service_tools2.rtf
930_service_tools2.pdf 930_service_tools2.pas
930_service_tools2.htm 931_spiralmatrix.txt
931_spiralmatrix2.txt 932_ordered_words4.txt
932_unixdict.txt 932_ordered_words4.psb
932_ordered_words42.txt 932_getgithub2.txt
932_correlation.txt 932_correlationplot2.png
932_correlation_regression.txt 932_correlation_regression_light.txt
548_STExpressions_Services2.TXT 932_getgithub22.txt
749_helloWebServer3refresh2.txt 938 xmldemo.xml
938_xmldemo_out.xml 938_xml_output.pas
937_xml_input.pas 936_md5.pas
935_Primality_by_trial_division.pas 934_datamanipulation.pas
933_draw_sphere.pas 939_soundex.pas
940_primefactors.psb 940_primefactors.pas
941_picturebox.txt 941_picturebox2.txt
942_gaussen.txt 942_gaussen_data_science.psb
942_gaussen_data_science.txt 942_statpackage.png
942_statpackage2.png 942_gauss_jordan2.pas
942_statpackage2.png 942_gaussjordan.png
942_gauss_jordan.pas 942_gaussjordan2.png
942_gauss_jordan2.pas 943_TEEChart.txt
944_Perl_Regex.txt 945_Many_Regex.psb
945_Many_Regex.txt 946_sudokuUnit1Form.pas
946_sudokuform.png 945_registrysearch_processlist.txt
945_registrysearch_processlist2.psb 945_registrysearch_processlist2.txt
947_TWinControl_Canvas.txt 948_dynamic_page_control.txt
949_setbit.txt 950_uniqueinstance.txt
950_uniqueinstance_pythonversions.pas 950_ParserUtils.pas
950_saint_source.txt 950_saint_source.psb
185_memorymax3_internet.txt 185_memorymax4_internet.txt
942_gaussen_data_science3.txt 951_dclublib.pas
952_psUFinancial.pas 952_psULib.pas
953_Res2BmpUtils.pas 953_JConvertUtils.pas
953_JTools.pas 954_jumpto_registrykey.txt
955_logregclassifier.py 956_jscript.txt
957_blobstream.txt 958_foto2webcam.png
958_webcam.txt 959_convert_temperature.txt
959_convert_temperature2.txt 960_getsounddevices.txt
960_newjapan.mp3 960_neuralbitmx.pas
960_neuralbitmx2.pas 960_neuralnetworkx.pas
960_Legendre_Gaussintegration.txt 961_URLDecoding.txt
950_saint_source2.txt 962_cookiesread.txt
963_movie_reviewd_words42.txt 963_moviereviews2csv.txt
963_moviereviewswordlist2listboxsort.txt 861_stringtokenizer2primes_moviesreview.txt
861_stringtokenizer2primes_moviesreview2.txt 751_Elevator_Simulator45.pas
363_compress_services3.txt 363_compress_services4simple.txt
964_geo_map_zoom.txt 965_RSA_IBZ_PrivatePublicKey.pas
965_RSA_IBZ_PrivatePublicKey_Form.pas 965_RSA_IBZ_PrivatePublicKey_Form2.pas
965_RSA_IBZ_PrivatePublicKey_Form3p.pas 966_U_DivideTest.pas
966_GUItester2.png 966_U_PointInSpace52_mX4Form.pas
967_U_RSADemo2.pas 967_CryptoGUItester3.png
967_CryptoGUItester4.png 967_CryptoGUItester2.png
967_CryptoGUItester1.png 967_U_RSADemo2forms.pas
968_recordobject.txt 968_recordobject2.txt
969_gapfulnumbers.txt 969_gapfulnumbers.psb
970_integrate.txt 970_integrate.psb
970_integrate_vandercorput_sequence.txt 970_U_Spellbound2mx.pas
970_U_wordladder_mX4.pas 970_U_ScrambledPiemX4.pas
970_book_portal_usecase2.png 970_U_CrossWordHelper2mX4.pas
970_skype_firewall.png 970_crosswordhelper.png
970_U_Invertedtext.uc 970_U_Invertedtext.pas
970_U_Decrypt3.pas 970_U_Decrypt3Suggest.pas
970_U_Decrypt4Forms.pas 971_CharFreqCounter.txt
971_U_DrawScrambledPie.pas 971_wordscramble2.png
971_wordscramble_forms1.png 970_U_ScrambledPiemX4Forms.pas
970_U_ScrambledPiemX4Forms2.pas 970_U_Decrypt4Forms22.pas
972_words_speclinelist_hashdemocount.txt 972_U_HashedWordCount.pas
972_json_tester.txt 972_U_HashedWordCount2.pas
972_char_counts.txt 972_primenumber_routines.txt
972_json_tester2.txt 973_RCDATA_resource_export.txt
973_RCDATA_resource_export64.txt 974_systemsdiagram_prepare.pas
470_U_ScrollingLEDs3mX4_21.pas 974_64bit_Routines.txt
975_facofinteger.txt 975_facofinteger2.txt
975_U_PrimeFactors1.pas 975_facofinteger2.psb
975_U_PrimeFactors2.pas 975_U_PrimeFactors21.pas
975_euler_pot.txt 975_euler_pot2.txt
975_euler_pot2.psb 602_multilang_game2ball.txt
602_multilang_game2.txt 602_multilang_gameball.txt
976_stripchars.txt 977_Rosetta_Dijkstra_Console.txt
977_Rosetta_Dijkstra_Console.htm 978_ALHttpclient_cookie.txt
978_wininet_universaldownload.txt 979_U_ResponseStats3.pas
979_U_DensityPlot.pas 979_UDFFRegistry.pas
979_U_ReactionTimes4.pas 979_testdetail.rsd
980_Chart_DensityPlot.pas 980_testdetail.rsd
980_U_TelephoneWords.pas 980_telephone-keypad-letters.jpg
980_telephonewords.png 980_U_TelephoneWords2.rtf
980_U_TelephoneWords2.pas 980_U_TelephoneWords2.htm
980_U_TelephoneWords2.psb 980_U_TelephoneWords21.pas
980_telephonewords21.png 980_U_TelephoneWords22.pas
980_Chart_DensityPlot2.pas 981_tesseractutils.pas
982_win_graphviz.txt 983_Average_loop_length.txt
984_Drawaclock_computergraphic.txt 984_Drawaclock_computergraphic.psb
RXMisc.pas 985_nist_regression_eval.pas
985_nist.dat 985_sha1_impl.txt
985_open_subtitles.txt 985_regex_subtitles.txt
985_sha1_impl2.txt 985_sha1_impl21.txt
985_sha1_impl21.psb 985_missing_permutation.txt
985_missing_permutation2.txt 986_wiwin32.txt
986_findallfiles.txt detector21_wdef.py
detector_jupyter.ipynb objectdetector3.ipynb
hoppenstedtstwinwiz_out2.jpg twinwiz_out2.jpg
987_shell32_operation.txt 987_shell32_file_operations.txt
988_anti_aliasing.txt 989_paintbox.txt
990_ADO_Connection.txt 990_maxbase3.mdb
990_GUI_ADO_Output.png 989_paintbox.png
990_ADO_Connection_Create_DB.txt 990_SQL_Workbench_ADOCreate_Output.png
990_ADO_Connection_Create_DB2.txt 990_maxbase4runtimedb6.mdb
990_metadefender_API.txt 986_findallfiles_metadefender.txt
990_metadefender_API_2.txt 990_ADO_Connection_Create_DB21.txt
990_httpsend.png 990_httpsend2.png
990_httpsend.pac 990_metadefender_API_21.txt
990_winhttprequest_API_51.txt 990_httprequest_API.txt
991_oma_chartregression2.py 991_python_oma_svr.txt
991_python_oma_svr21.txt 991_python_oma_svr2.txt
991_oma_charts_market_btc_150y.png 991_python_oma_svr21integrate.txt
840_RungeKuttaTest.exe 840_URungeKutta4test2.pas
991_python_oma_svr21integrate_dotnetcore.txt 991_pyoma_svr22integrate_dotnetcore2.txt
992_detector21_wget_integrate.txt 992_detector21_wget_integrate.htm
992_detector21_wget_integrate2.rtf 992_detector21_wget_integrate2.txt
992_detector21_wget_integrate2.htm 993_perceptron_graph2.png
993_perceptron_form.txt 993_perceptron_graph.png
993_perceptron_form2.txt 993_perceptron_form2.psb
994_Find_URI_in_text.txt 995_RunLengthEncoding.txt
995_RunLengthEncoding.psb 995_RunLengthEncoding_Pascal.txt
996_Precision_Functions.txt 997_Base64_decode_data.txt
998_string_has_all_unique_characters.txt 998_string_has_all_unique_characters.psb
998_weatherapp474_forecast2.txt weatherapp474.txt
999_word_frequency.txt 999_word_frequency2.txt
999_synedit_codecompletion.txt 999_RotImg.pas
1000_earth_rotation.txt 1000_GraphicsMathLibrary.PAS
1000_coffeemax.bmp 1000_earth_rotation3d.txt
1000_3DLabScreen.txt 1000_GraphicsMathLibrary_Pantograph.PAS
961_URLDecoding_indyresponse_WMI_Info.txt 1000_graph2.pas
1000_GenomeLibrary.pas 1000_Coordinates222.txt
1000_chr01_GEN_sequence.txt 1000_Coordinates_Gen.ods
1000_JVCL_Chart_Demo.PAS 1000_JVCL_Chart_Demo2.PAS
1000_GraphicsMathLibrary_PantographF.PAS 1000_JVCL_Chart_Demo2Form.PAS
1001_entropy_test.txt 1001_entropy_test2.txt
1001_entropy_test21.txt 1002_protein_translation.txt
1002_protein_translation2.txt 1000_sphere_rotation3d.txt
1000_sphere_rotation3direct.txt 1000_Sphere_big.png
1000_sphere_sourceforge2.png 1000_sphere_sourceforge.png
1000_under_overfit.png 1000_Sphere_small.png
1000_Sphere_4poles.png 1000_sphere_sourceforge.txt
1000_sphere_sourceforge2.txt 1000_Nap.bmp
1003_molecules.txt 1003_molecules1_2.txt
1003_molecules1_3.txt 1003_molecules1_4.txt
1003bellsound.wav 1003doorbell.wav
1003templebell.wav 1003_sound_molecules.png
1003_molecules1_5.txt 1004_wordwheel.txt
1005_drawsphere_ascii.txt 1006_write_PPM.txt
1006_write_PPM_2.txt 1006_write_PPM_2read.txt
1006_renderspherefull2.png 1006_writeSphere_PPM_2readBMP.txt
1006_writeSphere_PPM_2readBMPfix.txt 1006_writeSphere_PPM_2readBMPfix2.txt
1006spheremaxsmallout2.png 1006_writeSphere_PPM_2readBMPfix2frm.txt
1006_bitbang_spheremaxsmallout2w.png 1006_bitbang_spheremaxsmallout2r.png
1006_bitbang_spheremaxsmallout2y.png 1007_disabled_bitmap.txt
1006_manmachine.ppm 1008_Knuth_shuffle.txt
1009_with_multiple_ranges.txt 1010_ScreenPixel.txt
1010_ScreenPixel2.txt 1010_JPGClock.txt
1010_ScreenPixel2.txt 1010_ProcsVecteurs.pas
1010_U_GraphicsEffects2.pas 1010_geometer_tangent.png
1010_geometer_intersection2.png 1010_circle_tangent.png
1010_circle_point.png 1010_geometer_polygon.png
1010_U_Geometry4Forms.psb 1010_U_Geometry4Forms.pas
1010_U_Geometry4Forms.htm 1010_U_ClockAngles2.htm
1010_U_ClockAngles2.pas 1010_U_DecToFract2.pas
1011_cInternetUtils.pas 1011_flcStatistics_mX4.pas
1012_flcTimers.pas 1012_flcCharSet.pas
1012_flcBits32.pas 1010_U_DecToFract21.pas
1013_saint_source23tests.txt unittests4.txt
210_public_private_cryptosystem6_ibz_tuned.txt 1014_jcl_stringlist.txt
1014_jcl_stringlist2.txt 1014_jcl_stringlist21.txt
1015_Scripting_Dictionary.txt 1015_Scripting_Dictionary_RegEx.txt
1016_newsfeed_sentiment.py 1016_newsfeed_sentiment.htm
1016_sentiment_api2_bbc_newsfeed.txt 1016_sentiment_api2_bbc_newsfeed2.txt
1017_XmlDocRssParser.pas 1017_bbcnews.xml
1017_bbcnews2.xml 1017_XmlDocRssParser_BBCNewsDemo.pas
1017_RSSexportUnit2Webform.pas 1017_RSSWexportUnit2formSSLStream.pas
1018_Twelve_statements.txt 1018_ludic_numbers.txt
1018_Twelve_statements2.txt 1019_math_source_cap5train.pas
1019_math_source_cap5.pas 1018_Twelve_statements21.txt
1019_math_learn_tool.png 1020_perlinNoise.txt
1020_FASTA_format.txt 1020_FASTA_format2.txt
1020_Power2FirstDigits.psb 1020_Power2FirstDigits.txt
1020_TopRankPerGroup.txt 1020_ReST_Countries_API.txt
1020_CustomSort_Stringlist_Department.txt 1020_CustomSort_Stringlist.txt
1021_uCEFMiscFunctions_mX4.pas 1021_uCEFMiscFunctions_mX47.pas
1022_U_SciGraph13_mX47.pas 1022_scigraphplot.png
1023_FANN_NeuralNetworkLogTrainer.txt 1023_FANN_Alllogic2.png
1024_floydalgo.txt 1025_Deranged_anagrams.txt
1025_Deranged_anagrams2.txt 1026_SVC_BitVision.py
1026_json_automation_coviddata.txt 1026_covidtimeserie.txt
1026_json_automation_coviddata2.txt 1026_json_automation_coviddata21.txt
1026_worldwide5zoom.png 1026_worldwide5.png
1026_worldwide4.png 1026_json_automation_coviddata22.txt
1026_worldwide3.png 1026_worldwide2.png
1026_worldwide.png 1026_US_firstyear.png
1026_swiss_weeklypattern.png 1026_germany_weeklypattern.png
1026_swiss_firstwave.png 1026_jsondos_forecast2.png
1026_jsondos_forecast.png 1026_json_automation_coviddata22teechart.txt
1026_json_automation_refactor.txt 972_json_tester3.txt
1026_worldwide9_8confirmed.png 1026_json_automation_refactor2.txt
1017_RSSDatacampSSLStreamSentiment.pas 1017_RSSDatacampSSLStreamSentiment2.pas
972_json_tester31.txt 972_json_tester32.txt
1026_uJson_testeroauth_print.pas 1027_fpvutils.pas
1027_fpvectorial.jpg 1028_STRandomSystem_tester32.txt
1028_agg_math.pas 1028_JcfMiscFunctions.pas
1028_JcfUnicodeFiles.pas 1028_JcfMiscFunctions2.pas
1028_filestream4test.pas 1028_filestream5test.pas
1028_filestream4test2.pas 1030_filepilot2.txt
1030_filepilot2.psb 1030_filepilot21.txt
1030_StrUtil.pas 1030_StrUtil2.pas
1026_SVC_BitVision_MLPrimer.py 1026_SVC_BitVision_MLPrimer2.py
1031_Bitcoinaddress_validation.txt 1031_Bitcoinaddress_validation2.txt
1032_population_count.txt 1032_population_count.psb
1033_Corpus_from_Dir.py 1032_pascalcoin_validation.txt
1034_tamath.pas 1035_asserts_safe.pas
1034_tamath_safe.pas m85_covid6_worldwide_192.png
1035_covidapp.txt 1035_covidapp3.txt
1035_covidapp3.htm 652_graph3Dspiral.pas
652_graph3Dspiral2.pas 1036_p4d_routines.txt
1037_bufferoverflow_tester.txt 1038_FileReplaceString.txt
1035_covidapp31.txt covidapp31.psb
1039_pcatest.pas 1039_pcatest2.pas
1039_pcatest3.pas 1039_match.pas
1039_roman.pas 1036_p4d_routines2.txt
1016_newsfeed_sentiment_integrate2.py 1016_newsfeed_sentiment_integrate2.txt
1016_newsfeed_sentiment_integrate2.htm 1040_htmlhelper.pas
1041_signproof_tester.txt 1042_math_mX4.txt
1042_superpermutation_minim.txt 1043_weatherconsole_mX4.txt
1034_weather_report_py.png 1034_Bern_0pq_single.png
weatherbox.txt 1044_SimpMath.pas
1045_XMLTreeview2.png 1045_testxmlreaderunitmx47.pas
xmldemo.txt 1045_testxmlreaderunitmx47.psb
1045_semaphorgrids.pas 1045_testxmlreaderunitmx475.pas
weatherapp475.txt 1045_testxmlreaderunitmx47520.pas
1046_openweather_integrate.txt openweather.txt
1046_openweather_P4D_2.png 1046_openweather_integrate2.txt
1046_JclTimeZones.pas 763_google_rest_api_json2.txt
1047_microtonal_tomath_mX4.txt 1048_uCommonFunctions.pas
1047_microtonal_tomath_mX4_2.txt 100_weather_australia_secure21.txt
1049_InetUtils_Callback.TXT 336_digiclock3resource.txt
1050_saint_Pythonengine.txt 1050_saint_Pythonengine2.txt
1050_pydemo2.txt 1050_pydemo21.txt
974_64bit_Routines2.txt 1050_pydemo_51.txt
1051_semaphorgrid.txt 778_advapi32_dll_SHA512_plus.txt
778_advapi32_dll_SHA512_plusRefactor.txt 1052_delphi_arduino21.png
1052_delphi_arduino2.txt 1052_delphi_arduino.txt
1052_delphi_arduino2.png 1052_OoMiscpas2.txt
1052_delphi_arduino3.txt 1052_delphi_arduino31_2.png
1052_delphi_arduino31.txt 1052_delphi_arduino31.png
1052_delphi_arduino32.ini 1052_delphi_arduino32.txt
1052_bodmas.txt 1050pytest21_5powershttpserve.txt
1050_pydemo_5_powerliners.txt 1050_pydemo_5_powerliners23.txt
1052_OoMiscpas2PyHTTPSServer2LAB.txt 1052_OoMiscpas2output.txt
1052_pyhttpserver_integrate22.py 1050_pydemo_10_pythontips.txt
1053_U_TimeZoneDemo2.pas 1054_U_SoundGen_mcisendstring31.pas
1054_U_SoundGen31.pas 1055_WaveStorage.pas
1054_U_SoundGen_mcisendstring32.pas 1055_U_GridWordHighlight.pas
1055_U_IntListtest.pas 1055_tintlistdemo2.png
1055_tintlistdemo.png 1055_U_IntListtest.psb
1052_pydemo_pythonversion.txt 1052_pydemo_pythonversion2.txt
1056_neuralvolume_routines.pas 1019_math_source_cap5_pulse.pas
1057_pydemo_7_pyIO.txt 1057_pydemo_7_pyIO.psb
1058_Arduino.pas 1060_pypas_demo10.txt
1060_pypas_demo10.psb 1060_pypas_demo10.htm
1059_pypas_demo11.psb 1059_pypas_demo11.htm
1059_pypas_demo11.txt 1059_pydemo11tester.png
1060_arduinoUnit1.pas 1061neuraldatasets_pretester.pas
1062_utils.py 1062_3DCellularUnit1.pas
1061_gameoflifeUNIT1.PAS 1062_intervallunit.txt
game of life : maxform1.gameoflife(self);
1062_intervallunit2.txt 1062_neuralnet_vectors.txt
87_1062_neuraltrainer.png 1063_vector_lists.txt
1062_neuralnet_vectors2.txt 1064_vectorclassroutines.txt
1064_httpd24.pas httpd24.pas
1065_neuralnetwork_CAI.txt 1065_neuralnetwork_CAI_2.txt
1066_KMeans_tester.txt 1066_neuralvolume_tester.txt
1067_py_planet_moon.txt 1052_pydemo_pythonversion31.txt
1068_vector_matrix_tester.txt 1068_vector_matrix_tester2.txt
1068_floattostr_tester.txt 1063_vector_lists3.txt
1063_array_lists3.txt 1070_U_CardProbability2.pas
1070_U_PerfectDeck.pas 1070_tshirt_prime.txt
1070_tprime_tshirt.png 1069_pydemo30_performance.txt
1070_U_Keno2mX4.pas 1065_neuralnetwork_CAI_2_data.txt
1065__CAI_2_SimpleImageClassifier.txt 1066_KMeans_tester2.txt
1065__CAI_2_SimpleImageClassifier2.txt 1070_U_Keno2mX4Form.pas
1071_Newadds_V47590_Modules.pas 1070_U_Keno2mX4_Forms2.pas
1070_tshirt_prime2_tutor88.txt 1070_U_PrimesFromDigits.pas
1071_Newadds_V47590_Modules.pas 1071_Newadds_V47590_Modules2.pas
1065__CAI_2_SiImageClassifier21_Tutor_89_test3.txt 1072_captcha.txt
1072_captcha2.txt weatherapp476.txt
1073__CAI_3_LearnerClassifier22_Tutor_89_2.txt 1074__CAI_3_visualautoencoder.txt
1074__CAI_3_visualautoencoder2.txt 1071_Newadds_V47610_Modules3.pas
1074_U_Systools_mX4Similarity.pas 1074_U_Systools_mX4Similarity2.pas
1075_primes30_performance5.txt 1065__CAI_2_SimpleImageClassifier21_EKON_blogstarter.txt
1076_CAI_Ugradientascent.pas 1076_CAI_UVisualGAN2.pas
1076_CAI_UVisualGAN2tester_MNIST.pas 1076_CAI_UVisualGAN2tester_MNIST2.pas
1077_U_Catapult4.pas 1077_U_Catapult41.pas
1078_create_DB.pas 1077_U_Catapult41forms.pas
1077_U_Catapult42forms.pas 1077_U_Catapult43forms.pas
1077_U_metronome2.pas 1078_bell_numbers.pas
1079_Fregan.pas 1079_Test.txt
1077_U_Catapult43forms2.pas 1077_U_metronome21.pas
1080_trend.pas 1080_hist.txt
1080_hist.exe 1080_histdatgui.png
1080_tprob.pas 1080_fmTraceRouteMainU.pas
1080_VCLScanner2021.txt 1080_VCLScanner2021.uc
1080_syndat_concept.png 1081_syndat_pydemo32_2.txt
1081_syndat_pydemo32_2.psb 781u_LatLonDistanceTestmX21.pas
1082_Idiomatically.txt 1082_ToolsUtils.pas
1082_ToolsUtils2.pas 1071_Newadds_V47610_Modules42.pas
1083_Deltics_TCommandline.pas 1084_SeAES256_explain.pas
1084_DelticsStrUtils.pas 602_moonbug25.txt
1085_kmemo_dictionary.pas 1085_kmemo_dictionary2taunumber.pas
1086_bigdecimals2.pas 1086_bigdecimals2python.pas
1086_bigdecimals2python2.pas 1087_HQ9.pas
1088__CAI_3_Hypotenuse.txt 1088__CAI_3_DenseNetBCL40.txt
1088__CAI_3_DenseNetBCL40_2.txt 1050_pydemo_5_powerliners_def_2.txt
1089_RSA_Example_crypto.htm 1089_RSA_Example_crypto.txt
1090_simpleneuralwebserver.txt 1089_RSA_Example_crypto_Herdt.txt
1090_simple_neuralwebserver2.txt 1090_uarduinoformworkspace.pas
1090_uformlamwinosettingspaths.pas 1090_Fractran_test.txt
1090_Fractran_test_Python.txt 1090_U_Splines.pas
1090_U_Numbrix2.pas 1090_numbrix_GUI.png
1090_Numbrix2.txt 1090_U_Numbrix21.pas
1090_numbrix_GUI_24.png 1090_Numbrix2data.txt
1091_U_SpringMass21.pas 1091_springmassdemo.png
1091_U_SpringMass2.pas 1092_Rollercoaster_Simulator.pas
1092_Rollercoaster_Simulator21.pas 1092_Rollercoaster_Simulator21.htm
1093_XMLUtils_Tutor92tester.txt 1094_pydemo13tutor_PAS2JS.txt
1095_faker_tutor_PAS2JS.txt 1096_MainFormSVG_2.pas
1096_VCL4Python.pas 1096_P4D_VCL4Python.pas
1096_MainFormSVG_2test4Python.pas 1093_CAI_IdentityShortcutConnection2.pas
1096_pychats_demo4VCL4Python.png 1096_standalonepyvclexe.png
1096_MainFormSVG_2test4Python_VCL4Python.pas 1096_MainFormSVG_2test4Python_VCL4Python2.pas
1100_901_turtle_purple_circle_EKON23.txt 1100_VectorProduct.pas
1100_U_Compass.pas 1100_U_Compass2.pas
1097_Pierpont_primes.pas 1097_Pierpont_primes2.pas
1098_image_noise.pas 1098_jaro_similarity.txt
1098_image_noise2xmlnodes.pas 1099_rest_localdb.pas
1001_ESP32_Loop.TXT 1069_pydemo30_matrixperformance4.txt
1102_matrixmultiplication4.txt 781u_LatLonDistanceTestmX22.pas
1102_matrixmultiplication41.txt 1101_PJConsole.txt
1101_PJConsole1.txt 1103_DudsCommonUtils.pas
1104_TNeuronClass.txt 1104_TNeuronClass2.txt
281_picturepuzzle31res.txt 1101_PJConsole12.txt
1101_PJConsoleApp_Echoer.png Echoer.exe
1101_PJConsole12Json.txt 1105_HTML_Builder.txt
1105_HTML_Builder2DB.txt 1101_PJConsoleApp_Echoer2.png
1101_PJConsole1ex2.txt 1101_PJConsole1_demo9.txt
1105_HTML_Builder2Modules.txt 1106_OnlineRandomizer.pas
1107_Iris_Console.pas 1107_bezdekIris.fann.data.txt
1107_Iris_Console2.pas 1106_OnlineRandomizer_Random_Main.pas
752_U_AstroDemo_mX4_41.pas 752_astronomy_moon23.png
1108_CAI_Geocoding.pas 1108_geocoding_api.png
1109_winapidownload.pas 1110_JSONObject.txt
1111_lifeappearance_Unit1.pas 1111_uvisualcifar10animalmachine.pas
1111_UVPlan1test_QR_Code.pas 1111_URSOM_Network.pas
1071_Newadds_V47610_Modules47.pas 100U_CoinSearch.pas
1012_UTicTacToeCount.pas 1012_delphi-utils.pas
1108_CAI_GeocodingTWininetAPI.pas 1108_CAI_GeocodingTWininetAPI_only.pas
1112_lastUtils.pas 1112_lastUtils2.pas
100U_CoinSearch2.pas 1111_machineanimal.png
1111_animalmachine_pictures12.pas 1011_U_CoinSearc_form.pas
1011_graphnodes_solution.png 1011_U_CoinSearch_form.pas
1011_graphnodes_solution1.png 1112_U_Wordgrid.pas
1112_U_Wordgrid.htm 1112_wordgrid.png
1112_wordgrid1.png 1112_full.dic
1113_composition_tree.pas 1113_composition_tree1.pas
1071_Newadds_V47610_Modules47tester.pas ubuntu16_session_maxbox4_cloud2022_full2.png
1114_polynomial_synthetic_division.txt 1115_Wireworld.txt
1115_unitKWKalender.pas 1115_scriptDatenbankdiagnose.pas
1088__CAI_3_supersimplecorrelation.txt 1088__CAI_3_supersimplehyperbolictangent.txt
1115_gecodingapi_tee_helvetia_json.txt 1116_U_ChallengingmathTeasers.pas
1117_sunpos.png 1117_sunpos_bern.png
1117_U_SolarPos2Bern.pas 1117_U_SolarPos2.pas
1117_sunpos_bern2.png 1117_U_SolarPos2Bern2.pas
1118_Cumulative_standard_deviations.pas 1118_Cumulative_standard_deviations.htm
1108_CAI_GeocodingTWininetAPI_Maponly.pas 1117_StAstro.pas
1119_FloatToBinTests.pas 1120_Department_numbers.pas
93_1108_CAI_GeocodingTWininetAPI_Maponly.pas.png 1120_DammAlgorithm.pas
1120_DammAlgorithm12.pas sentiment3.txt, sentiment4.txt
1121_sentiment_api3_bbc_newsfeed4rec.txt 1121_sentiment_api3_bbc_newsfeed4.txt
1121_sentiment_api3_bbc_newsfeed4rec2.txt 1122umain.pas
1121_sentiment_api3_bbc_newsfeed4rec21.rtf 1121_sentiment_api3_bbc_newsfeed4rec21.txt
1122_langtranslator.txt 1122_langtranslator1.txt
1123_IntegerArraySort.pas 1123_MATHBOX.PAS
1123_CODEWIZU.PAS 1123_CODEWIZU_2.PAS
1124_CODEReflection.PAS 1125_Forward_Difference.pas
1124_CODEReflection1.PAS 1125_unitGlobal.pas
1125_unitGlobal1.pas 1125_unitGlobal12.pas
1125_unitGlobal13.pas 1100_U_Compass1_deltics_sysutils.pas
1126_Projectile_Physics.pas 1126_Projectile_Physics2.pas
1126_Projectile_Physics21.pas 1126_projectile2.png
1126_fetchapi1.png 1126_fetch_api1.txt
727_mondrian_next.png 727_mondrian_next21.png
727_Canvas_Artist_mondrian_gen.TXT 727_Canvas_Artist_mondrian_gen2.TXT
1127_RegistryWatchDog.pas 727_Canvas_Artist_mondrian_gen21.TXT
1128_fpvutils.pas 1128_mean_angle1.txt
1129_urlscan_api_json.txt 1129_urlscan_api_json1.txt
1130_Scanner_gen21.TXT 1130_mondrian_QRCode_P.png
1130_mondrian_QRCode_P2.png 1130_Scanner_QR_21.TXT
1130_urlscan_api_json1_geoip.txt 1130_urlscan_api_json1_geoip1.txt
1131_rosetta_numerical_integration.txt 1132_rosetta_Farey_sequence.txt
1133_klib_utilities.txt 1133_klib_utilities2.txt
1134_syn_dat_pop.txt 1134_Cifar10Resize.pas
1134_Cifar10Resize_win_lessthread.pas 1135_Cifar10SeparableConvolution.pas
1135_Cifar10SeparableConvolution_50.pas 1136_hamming_numbers1.txt
1136_Chowla_numbers1.txt 1135_uvisualcifar10test_mX4_1.psb
1135_visualCNN5.png 1135_uvisualcifar10test_mX4_1.pas
SimpleSeparableImageClassifier124_50_21.nn 1137_gauss_legendre.pas
1138_ocr_tesseract.txt 1138_testmap2.png
1138_bmp.bmp 1139_pentagram.txt
1140_price_fraction.txt 1140_Statistics.pas
1140_Statistics1.pas 1140_USolarSystem.pas
1141_adafruit_tempsensor21.txt 1140_PlanetData.pas
1140_Om_AstronomicalAlgorithms.pas 1140_doubleVector3D.pas
1140_quaternion_3D.pas 1141_fast_sin.pas
1142_anti_primes.pas 1139_pentagram1.txt
1142_list_virtualconstructors_test.pas 1142_setbit_comparison.pas
1142_list_collections_pydemo42.txt 1140_doubleVector3D_collection.pas
1143_KLibVC_Redist.pas 1143_KLibVC_Redist2.pas
1071_Newadds_V47610_Modules48.pas 1071_Newadds_V47610_Modules49.pas
1145_271_closures_study_op_sys_tutor97.txt 1142_list_collections_pydemo42.txt
1144_AzuliaUtils_mX4.pas 1145_271_closures_study_op_sys_tutor97_1.txt
1146_filesize_distribution.txt 1147_practicalnumbers_2.txt
1148_julia_set.txt 1148_julia_set.png
1148_julia-set.bmp 1149_sum_to_100.txt
1150_DigitalRoot.txt 1150_pydemo42httpheader.txt
1150_pydemo42httpheader1.txt 1150_Partition_function_P.txt
1150_Partition_function_P1.txt 1151_rapid_api_proto.txt
1151_sentiment_api4simple.txt 1151_sentiment_api4simple1.txt
1151_rapid_api_proto1.txt 1150_pydemo42httpheader2openssl.txt
1152_dos_output_callback.txt 629_Word_FORMULA2super.PAS
1151_rapid_api_proto_googleapi12.txt 1152_shell_composer.txt
1153_space_invaders3.txt 170_4gewinnt_main21.txt
170_4gewinnt_main21.htm 170_4gewinnt_main31.txt
1142_list_collections_pydemo42_1.txt 1154_energy_api_agsi.txt
1154_energy_api_agsi_plot.txt 1154_energy_api_agsi_plot1.txt
1154_energy_api_agsi_plot12.txt 1154_energy_api_agsi_plot13.txt
1155_census_data.txt 1155_census_data_graph.txt
1155_Utils47620.pas 1155_dynmatrix47620.pas
1156_SearchUtils.pas 1157_wininet_internetreadfile_dll.pas
1058_teetest_screen21map.TXT 1158_resourceloader2.pas
1159_uvisualgan_mX4.pas 1159_SearchUtils_Searchcode.pas
1159_uvisualgan_mX4_1.pas 1160_google_safebrowsingapi12.txt
1161_wmiserv_commandlinelist.txt 1161_workshop_WMI_Proc32.png
1162_TIXML.TXT 1161_templatec_hack1_meterpreter.txt
1063_cryptosystem2testcrypto3.txt 1161_windefend_check.txt
1163_tcptable_dll.txt 845_TestPermutations3.txt
1164_filelessStream.txt 1164_filelessStream2.txt
1165_UAC_enabled.txt 1166_farey_sequence.txt
1167_vcluster_py.txt 1167_penguins_data_graphtester_py.txt
1168_teechart_demo3.txt 1168_teechart_demo31.txt
1169_test_postrequest2.txt 1169_test_postrequest3.txt
1169_test_postrequest2.txt 1169_test_postrequest3.txt
1169_resourceloader2postmethod.pas 1168_teechart_demo31.txt
1170_UUtils_mX4.pas 1071_Newadds_V47610_Modules50.pas
1170_UUtils_mX4_tester2.pas 1170_uRegistry.pas
1170_wdc_GetRemoteFileSize.txt 1170_wdc_GetRemoteFileSize2.txt
965_RSA_IBZ_PrivatePublicKey_Form4p_eng.pas 965_RSA2_4.png
1154_energy_api_agsi_plot14wininet.txt 1154_energy_api_agsi_plot14wininet2.txt
1171_powershell_dos_output.txt 1171_ict_cryptohack.txt
534_arduino_cockpit3radar.TXT 965_RSA_IBZ_PrivatePublicKey_Form4p_eng.pas
1172_wininet_intftester.png 1172_ict_wininet_interface.txt
1172_ict_wininet_interface.psb 1173_quora_mathquest_utilities.txt
1174_mx4_cd_player2.jpg 1174_cdmain_form.txt
1174_cdmain.txt 1174_multimedia_cdplayer_docu.pdf
1174_mx4_cd_player2_1.jpg 1174_cdmain_form2.txt
1175_DRAG1.PAS 1174_cdmain_form21.txt
1050_pydemo35_signal.txt 1050_pydemo35_4signals.png
1176_APILayer_Demo.txt 1176_APILayerDemo.png
1175_DRAG1_Game.PAS 1177_rate_service1.txt
1177_increment_numerical_string.txt 1178_student_t-test.txt
1179_interactive_jupyter.txt 1179_interact_jupyter_notebook1.png
1179_interact_jupyter_notebook.png 1180_restcountries_API.txt
1180_restcountries_API_2.txt 1180_restcountries_API_2.htm
1180_jsonstruct_tutor104.png 1180_osm_map_tutor104.jpg
1180_restcountries_API_21.txt 1180_jsonstruct_validator104.png
1181_MyFunc___.pas 1181_MyFunc___1.pas
1182_biglog_numeric_string.txt 1182_bigfunctions_v47620.txt
1182_UCBUtils.pas 1071_Newadds_V47620_Modules90.pas
1182_UCBUtils1.pas 1154_energy_api_agsi_plot14_wininet2stacked.txt
1154_agsi_plot14stacked.png geocoding3.txt
geocoding4.txt geocoding4.htm
1183_word_fractal.txt 1183_word_fractal.htm
1183_word_fractal1.txt 1183_WordFractalyellow.png
1183_WordFractalblue.png 1183_word_fractal12pi.txt
1183_word_fractal2turtle.txt 1183_word_fiboturtle.txt
1183_word_fiboturtle2prime.txt 1183_word_fiboturtle_AB.txt
1183_word_fiboturtle_AB_Animation.txt 1135_classify_cifar10images2tutor4.pas
1135_classify_cifar10images2laz.pas 1135_classifiergui_tutor105.png
1135_classify_cifar10images1_5.psb 1135_classify_cifar10images1_5.pas
1184_tau_function.txt 1185_SumOfASeries.txt
1186_Casting_out_nines.txt 1187_format_basics.txt
1188_fpsmeter.pas 1188_KOLNKDir.pas
1188_KOL_Routines.pas 1188_KOL_Routines2.pas
667_URobo2EKON_FUN_Tracking2mapbox5.pas 667_roboline_outdoor_layer5.bmp
1189_Distance_and_Bearing.pas 1189_Distance_and_Bearing.psb
1189_airports.dat 1189_Distance_and_Bearing_Bern.htm
1189_Distance_and_Bearing_Sydney.pas 1189_Distance_and_Bearing1.pas
1189_Distance_and_Bearing_Bern.pas 1189_heading_bern_neuchatel_airport.jpg
1189_heading_bern_belp.jpg 1189_Distance_and_Bearing_Bordcomputer.psb
1189_Distance_and_Bearing_Bordcomputer.pas 1189_Distance_and_Bearing_Bordcomputer2.pas
1190_Continued_fraction.txt teeposter_model_20230227_150518.jpg
teeposter_20230227_115631.jpg 1190_Arithmetic_Numbers.txt
1032_population_count1.txt 1032_population_count1_unittest.txt
1191_popcnt4.txt 1192_semiprimes.pas
1193_13th_root.txt 1194_ascendingprimes_py.txt
1194_ascendingprimes.txt 1194_ascendingprimes_py2.txt
1194_ascendingprimes_py2_lin3.txt 1195_sourceforge_download_python3_lin3.txt
1090_usuperesolutionapp2.pas 1196_APILayer_Demo1UnicodeEscape.txt
1197_Biorhythmus_Go.txt 1197_Biorhythm.png
1197_Biorhythmus_Go_Graph.txt 1197_Biorhythm2.png
1197_Biorhythmus_Go_Graph2.txt 1197_Biorhythm21.png
1198_pacmanMAIN.PAS 1198_pacmanMAIN1.PAS
1198_pacmanMAIN12.PAS 1198_pacmanMAIN12.htm
pacmanmaxbox12.png Pac_Man_Package.zip
1200_GCD.txt 1199_funtest.txt
1198_pacmanMAIN13.PAS 1200_pyheart2.png
1200_GCD1.txt 1200_pyheart21.png
1201_Prisoners100.txt 1201_Prisoners100.psb
1202_Google_Translate_API2.txt 1202_chatgpt_API3.txt
1202_chatgpt_API31.txt 1202_chatgpt_playground.png
1202_chatgpt_maxboxscript.png 1202_chatgpt_API32.txt
1202_chatgpt_API33.txt 1202_chatgpt_API34.txt
1202_chatgpt_API35.txt maxbox4tutor110demos.zip
1202_TRestClient_pac.png 1202_chatgpt_API37.txt
1203_multiplicationtable.txt 1203_multiplicationtable1.txt
Parent folder unit uPSI_RestClient.pas
1202_chatgpt_API37tester.txt 1202_chatgpt32.txt
1203_multiplicationtable1.txt 1204_isbn_checksum.txt
1205_GpTimezone.pas 1206_GpString_mX4.pas
1206_geocoding4tripadvisor.txt 1206_geocoding4tripadvisor.psb
1207_cryptosystem2test_bigpi.txt 1207_cryptosystem2test_bigpi1.txt
1207_cryptosystem2test_bigpi2euler12.txt 1207_bigeuler_bigpi2.png
1207_bigeuler_bigpi.png 1207_bigeuler_only.txt
weatherapp477.htm weatherapp477.txt
1208_factorial_primes.txt 1202_chatgpt_API37tester_goldbach.txt
1202_chatgpt32.txt 1209_MAC_vendor_lookup.txt
1210_halt_and_catch_fire.txt 1044_queens_performer3_81.txt
1210_cuberoot.txt 1044_queens_performer3_81_py.txt
1210_jvprocess_test.txt 1211_workdaysAPI.txt
1202_chatgpt32_prompting.txt 1208_factorial_primes1queens_heatmap.txt
1212_utf8getnextchar.txt 1212_pas2jsutils.pas
1212_FPCTypes.pas 1071_Newadds_V47650_Modules100.pas
1212_breakoutUnit1.pas 1212_breakoutUnit12.pas
1213_breakoutUnit_main_0_3.pas naples3mX4mapbox_weatherzoom4.png
1214_java_process_run2.txt 1214_java_process_run.txt
1215_uFrm_PersonList.pas 1215_uFrm_PersonList2.pas
1216_JNIUtils.pas.txt 1216_JNIUtils2.pas.txt
1217_count_coin.txt 1218_TProcess2.txt
1198_pacmanMAIN14_2.PAS 1214_java_process_run22.txt
1219_pydemo47_GUIAutomation.txt 1219_pydemo47_GUIAutomation2.txt
1220_GUIUtils.pas 1220_GUIUtils2.pas
1221_apistrings_demo.pas 1221_apiservices_demo.pas
1221_API_math.pas 1221_API_ledgrid.pas
1221_API_taudio_Unit1.pas 1221_API_taudio_Unit12.pas
1222_pydemo26_EKON27_qrcode.txt 1223_API_graphics_tester.txt
1210_cuberoot_mx47650_IV.txt 1224_bearings.pas
1225_hhAvALT.pas 1226_median_filter_cyclopsnumber.pas
646_pi_evil21.TXT 1227_cuboid.txt
1228_Largest_number_divisible_by_its_digits.txt 1229_sylvester_sequence.txt
1228_Largest_number_divisible_by_its_digits2.txt 1230_Iterated_digits_squaring.txt
1230_pyperform.pas 1230_keywaiter.txt
1215_uFrm_PersonListtester2.pas 1231_AmicablePairs.pas
1230_Iterated_digits_squaring2.txt 1215_uFrm_PersonListtester21.pas
1230_pyperform1.pas 1230_pyperform12.pas
1232_U_Digittree2.pas 1232_U_Digittree21.pas
1232_digittree_gui21solutionpng.png 1232_digittree_gui2box.png
1233_U_Expressions2002.pas 1234_UVector.pas
1234_UReader.pas 1234_PoolingLayerUnit.pas
1234_NormalLayerUnit.pas 1234_LConv2DLayerUnit.pas
1234_LSTMLayerUnit.pas 1234_UNeuralNetwork.pas
1234_NeuralNetwork2.pas 1234_UNeuralNetwork_withGUI.pas
1234_NeuralNetwork2_xor_test.pas 1234_UNeuralNetwork_withGUI_1.pas
1234_NeuralNetwork2_XOR_test1.pas 1234_NeuralNetwork2_XOR_test12.pas
1234_neuralnetwork2_guide_52692_22998.pdf 1234_Ressourcen.zip
1234_UNeuralNetwork_withGUI_12.pas 1234_nn_xor_graph22.png
1234_NeuralNetwork2_XOR_sampleEU.pas 1234_NeuralNetwork2_XOR_sampleEU1.pas
1235_loopover_arrays.pas 1236_FiveWeekends.pas
1237_webscrap.pas 1237_webscrap_passtest.pas
1238_create_process_etl.txt 1239_UtilsU_keywords.pas
1239_UtilsU_keywords1.pas 1240_UtilsU_keywords2_Jordan_Polya_Num.pas
1241_pixabay_api.pas 1242_SynCrossPlatformREST_mX4.pas
1243_U_Cannonballs3.pas 1234_cannonball1.png
1243_U_Cannonballs31.pas 1243_U_Cannonballs32.pas
1235_tetris.js 1235_tetris_signed.js
1235_tetris2.html 1235_Weatherboxsep2023_EKON27_API_JS.txt
1235_Weatherboxsep2023_EKON27_API_JS_Integrate.txt
1235_graph2.html
1033_signtool_simplebatch_solution_mX4Cert_second.txt
1244_dateutils.pas 1245_strutils.pas
1246_21game.pas 1246_21game1.pas
1246_21game12.pas 1241_pixabay_api_tester1.pas
1241_pageproducer1.png 1241_pageproducer.png
1247_Dispenser_mX4_Form.pas 1247_Dispenser_mX4_Form1.pas
1247_Dispenser_mX4_Form12.pas 1247_Dispenser_mX4_Form12.htm
1241_pixabay_api_tester12.pas 1248_munchhausennumbers.pas
1248_munchhausennumbers_py.pas 1249_RotateASquare64_32.txt
1250_newtemplate64_32python.txt 1250_newtemplate64_32python64.txt
1019_math_source_cap5train64.pas 856_SnakeAmX42_tab64.pas
1251_ledUnit1.pas 1251_LedGridUnit2_1.pas
1222_pydemo26_EKON27_qrcode64_w11_311.txt 1241_pixabay_api_tester12_64_test4.pas
393_QRCode5_64TXT_21.TXT 393_QRCode5_64TXT_211.TXT
1252_Iterated_digits_squaring.txt 1252_Iterated_digits_squaring21.txt
1252_Iterated_digits_squaring21_Py.txt 1252_Iterated_digits_squaring211_Py.txt
1252_Iterated_digits_squaring211_Py.htm 1190_Continued_fraction64_python.txt
1190_Continued_fraction64.txt 1252_Iterated_digits_squaring211_Py2.txt
1219_pydemo47_GUIAutomation64.txt 1252_Iterated_digits_squaring211_Py21.txt
1253_Minimum_multiple_of_m_hybridcode.txt 1254_DelphiPythonScreenshot 2023-12-19 205335.png
1254_Python_Delphi_compare_hybridcode2.txt 1253_Minimum_multiple_of_m_hybridcode2.txt
1251_LedGridUnit2_1_dobble.pas 1251_LedGridUnit2_1_dobble_python.pas
1251_LedGridUnit2_1_dobble_python1.pas 1251_dobble_generator12.png
1251_LedGridUnit2_1_dobble_python1UC2211.txt 1255_PyPas_supportfunctions_UC2.txt
412_Zeosutils_sha64uc.txt 1255_ucommon_generator12unicode.png
1255_PyPas_supportfunctions64_UC2common.txt pydemo13ekon25faker2_13tips_64_doubleinstall21unicode31.txt
412_Zeosutils_sha64_uc2.txt 412_Zeosutils_sha64_uc2.htm
336_digiclock5resources64_uc1.txt 336_digiclock64.png
1180_restcountries_API_21_mX5_1_test12.txt 992_detector21_wget_integrate2ict_EKON27_acer10_11.txt
1202_Google_Translate_API2_64bit_UC.txt 1256_Iterated_Perl_Regex.txt
1257_702_X509_Cert_OpenSSL_2_64_Uc.txt 1258_digitspowersum_64.txt
1295_tutor120_grapheme_edit.png 1295_tutor120_grapheme_edit2.png
1295_412_Zeosutils_sha64_uc2unicode.txt 1259_fractran64.txt
1260_perlregex64.txt 1260_perlregex_edit.png
1261_delphiperlregex64.txt 393_QRCode5_64TXT_211_7_tutor119.TXT
1262_arithmeticnumbers64_1.txt 1262_arithmeticnumbers64_1.psb
1262_arithmeticnumbers64_2.txt 1262_arithmeticnumbers64_2_Py.txt
1262_arithmeticnumbers64_2_Py.htm 393_QRCode5_64TXT_211_7_tutor119_2.htm
393_QRCode5_64TXT_211_7_tutor119_2.TXT 1263_BurrowsWheeler.txt
692_GEOimageserv_fClient33_EKON20_64.pas 692_GEO_fservermain33_EKON20_64.pas
1264_U_Pursuit_A64.pas 1264_U_Pursuit_A64_2.pas
840_URungeKutta4test2Pendulum_64.pas 252_hilbert_turtle_barnsley64.txt
1265_U_IntersectingCircles.pas 1265Intersection2024-02-02.png
1265_U_IntersectingCirclesForm.pas 1265_U_IntersectingCirclesForm2.pas
1265_Gui2_circles.png 1265_U_IntersectingCirclesForm2Piano.pas
1266_improverlist_64.txt 1266_Improver_SoundCloud.png
1267_U_WordSearch2.pas 1268_U_Dictmaint64.pas
1269_ODBCConnect64_uc2unicode.txt 1269_ODBCConnect64_uc2unicode1.txt
782_U_MakeCityLocations2mX53.pas 782_citieszip_64GUImaXbox5.png
782_free-zipcode-database-abbreviated1_small.csv 782_U_MakeCityLocations2mX53_1.pas
1270_U_GameBoardsForm.pas 1270_gameboards_64GUI.png
1271_webdown_demo_fMain.pas 1270_Screenshot 2024-02-19185235.png
1272_indy10_whois.pas 1272_u_GenerationUtilitaire.pas
1272_Arduino2_mastermind.pas 1272_Arduino2_mastermind2.pas
1273_IsNavUtils_mX5.pas 1273_IsNavUtils_mX5_websocketkit.pas
1273_navutils_googledircections2.txt 1273_google_directions.png
1273_navutils_googledircections21.txt 1273_navutils_googledircections22.txt
1273_GoogleDirForm2.pas solarpos64.txt
1274_Screenshot2024-03-06_mX5GUI.png 1274_Screenshot2024-03-06mX5Browser.png
1274_GoogleDirForm2GeocodeStreetMap.pas 1108_CAI_GeocodingTWininetAPI_Maponly64.pas
1275_uPSI_TAChartUtils.pas 1275_uPSI_TAChartUtils2.pas
1274_GoogleDirForm2GeocodeStreetMap2.pas 1274_Screenshot_directions_res.png
1274_GoogleDirForm2GeocodeStreetMap21.pas 1189_Distance_and_Bearing_Bordcomputer2_64.pas
1274_GoogleDirForm2GeocodeStreetMap21_Greek.pas 533_syncasync_demo_399180_classes_netherlandmX51080.txt
1274_Screenshot 2024-03-11143105.png 1275_betteradoDataSetmX51.txt
1275_betteradoDataSetmX51_2.txt 1275_ADOQuery_tmX51_3.txt
1251_LedGridUnit2_1_jpeg.pas 1276_OAuth_tester.pas
1071_Newadds_V51490_Modules840_64.pas 1276_OAuth_tester1.pas
1277_Geocoding6.pas 1277_Geocoding6_1.pas
1277_Geocoding6_12.pas 1275_ADOQuery_tmX51_4_datasettoCSV.txt
1277_geocode_dole_layer5.png 1274_GoogleDirForm2GeocodeStreetMap21_Dole.pas
965_RSA_IBZ_PrivatePublicKey_Form4p_eng64_2.pas 965_ScreenshotRSA22024-03-25111943.png
603_cupids_arrow_64.TXT 603_cupidsarrow64.png
1278_U_BinaryClock_mX51.pas 1278_U_BinaryClock_mX51_1.pas
1278_Screenshot2024-03-27_134319.png 1278_U_BinaryClock_mX51_2.pas
1278_bclockScreenshot_compare5.png 1279_Screenshot2024-03-27214904.png
1279_U_Abundant.pas 1280_U_AliquotSums.pas
1280_U_AliquotSums1.pas 1280_Screenshot2024-03-28130806.png
1280_Screenshot 2024-03-28130704.png 1280_Screenshot_alito100000.png
1280_U_BigFactorials.pas 1280_bigfactorialsGUII2024-03-28161044.png
1281_Validate_International_Securities_Identification.txt
1282_GiugaNumber.txt
1282_GiugaNumber_Python64.txt 1282_GiugaNumber_Python64.htm
1274_GoogleDirForm2GeocodeStreetMap21_Jersey.pas 1274_GoogleDirForm2GeocodeWeather_General.pas
1274_GoogleDirForm2GeocodeWeather_General.htm 1274_Screenshot_mX5_2024-04-04101122.png
1274_Trainroute_Screenshot2024-04-04090532.png 1283_uCommon_geoblock.pas
1283_uProfuns_geoblock.pas 1283_APILayer_Demo64_latinumOCR.txt
1284_GEOAPILayer_Demo64.txt 1284_GEOAPILayer_Demo64_2.txt
946_sudokuUnit1Form64.pas U_Sudoku41_mX5.pas
946_U_Sudoku41_mX5.pas 946_sudokuUnit1Form64_1.pas
946_Sudoku_Paper_3485.pdf 946_U_Sudoku41_mX5_Form12.pas
1285_achilles_numbers.pas 1285_achilles_numbers1.pas
1285_achilles_numbers1uc_py.pas 1284_GEOAPILayer_Demo64_multipartonly1.txt
1285_httpcomponent_httpbinorg_demo.txt 1285_httpcomponent_httpbinorg_demoblog.txt
1286_unitSearchString.pas 1286_unitSearchString1.pas
1286_NewsGlobals.pas 1071_Newadds_V51498_Modules900_64.pas
1287newvector_unitspac2.pac 1287_vectorunitsScreenshot2024-05-0_103246.png
1286_NewsGlobals12.pas
https://www.virustotal.com/gui/file/048dae8dab0df4bc6b3f77233a3a4c8f2ca0a56517a9861bb94c2179cfdb87fe/details
https://softwareschule.code.blog/2023/04/01/how-to-chat-with-gpt/
https://github.com/breitsch2/maXbox4
https://maxbox4.wordpress.com/2023/07/22/ekon-27/
https://softwareschule.code.blog/2024/04/27/object-detection-api/
685 uPSI_ALQuickSortList; //alcinoe for list of double fast
with TALDoubleList.create do begin //singlelist
with CL.AddClassN(CL.FindClass('TALBaseQuickSortList'),'TALDoubleList') do begin
Function IndexOf( Item : Double) : Integer');
Function IndexOfObject( AObject : TObject) : Integer');
Function Add( const Item : Double) : Integer');
Function AddObject( const Item : Double; AObject : TObject) : Integer');
Function Find( item : Double; var Index : Integer) : Boolean');
Procedure Insert( Index : Integer; const item : Double);
Procedure InsertObject( Index : Integer; const item : Double; AObject : TObject);
RegisterProperty('Items', 'Double Integer', iptrw);
SetDefaultPropery('Items');
RegisterProperty('Objects', 'TObject Integer', iptrw);
end;
https://sourceforge.net/projects/maxbox/files/Examples/13_General/
http://www.softwareschule.ch/examples/signtoolbatch.txt
http://www.softwareschule.ch/examples/signtoolbatch.htm
https://cdn.top4download.com/img/award_120x60_pick.gif
http://www.kleiner.com/boxart.htm
http://max.kleiner.com/boxart.htm
http://www.kleiner.ch/kleiner/boxart7.htm
All 41 Articles of maXbox Pascal in Blaise Pascal Magazine!
-----------------------------------------------------------
Using Examples and Sources from Magazine CatalogX
Art of Coding V.31/32 5/6 2013
DLL for All V.33
QR Code Coding V.34
GEO Maps Nav V.35
3D Printing Lab V.36
RegEx Report REX V.37/38
Func Testing V.40
Arduino Coding V.45/46
Time is on my side V.48
Compute Big Numbers V.52
Code Metrics V.57
Work with WineHQ V.60
Work with Win WMI V.63
Work with Win WMI II V.64
Work MS CryptoAPI V.65
The Perceptron! V.72
No GUI Shell V.80
Machine L. with CAI V.87/88
Portable Pixmap PPM V.90
Fundamentals Lib V.91
RSS Feed of BBC News V.92
RSS Feed Sentiment V.93
JSON4Pascal V.94/95
Python4Delphi 96
Python4Delphi II 97
Python4maXbox III 98
Image Classification for Lazarus 99/100 !
Faker SynDat 101
Catapult, Coaster Simulator, VCL4Python 102
Geocoding II 103/104
CIFAR 10 Image Classifier 105
Energy_API_agsi_Plot 106
Cluster Classify 107
Penguin Data Science SVG Plot 108
Image2Text API V109
Cryptobox API RESTCountries Laz Classifier V110
Data Science Story Plot V107/108
Image2Text API V109
Cryptobox API V110
Cannonball API V112
64-bit Migration V113
64-bit Migration2 Debugging V114/15
V115 Mystery of IStream V116
Proposal for Boolean Logic Abreviation Symbol:
-------------------------------------------------
01 FALSE //Contradiction
02 AND //Conjunction x*y
03 INHIB //Inhibition x*^y
04 PRAEP //Praependence x
05 PRAE //Praesection ^x*y
06 POST //Postpendence y
07 XOR //Exclusive OR x*^y+^x*y
08 OR //Disjunction OR = x+y
09 NOR //Rejection
10 AEQ //Aequivalence x<-->y, ^x*^y+x*y
11 NEGY //YNegation ^y
12 IMPY //YImplication y-->x; x+^y
13 NEGX //Xnegation ^x
14 IMPX //XImplication x-->y; ^x+y
15 NAND //Exclusion
16 TRUE //TRUE Tautologic
----------------------------------------------------------
http://sourceforge.net/projects/maxbox/files/Examples/
http://sourceforge.net/projects/maxbox/files/Examples/
Help Online: http://www.softwareschule.ch/maxbox_functions.txt
WebScript Examples: Get Web Script
http://www.softwareschule.ch/examples/performer.txt;
http://www.softwareschule.ch/examples/turtle.txt;
http://www.softwareschule.ch/examples/SQLExport.txt;
http://www.softwareschule.ch/examples/Richter.txt;
http://www.softwareschule.ch/examples/checker.txt;
http://www.softwareschule.ch/examples/demoscript.txt;
http://www.softwareschule.ch/examples/ibzresult.txt;
http://www.softwareschule.ch/examples/performindex.txt
http://www.softwareschule.ch/examples/processlist.txt
http://www.softwareschule.ch/examples/game.txt
http://www.softwareschule.ch/examples/GEOGPS.txt
http://www.softwareschule.ch/examples/turtle2.txt
http://www.softwareschule.ch/examples/turtle3.txt
http://www.softwareschule.ch/examples/asyncterminal.txt
http://www.softwareschule.ch/examples/snowflake.txt
http://www.softwareschule.ch/examples/arduinoled.txt
http://www.softwareschule.ch/examples/moon2.txt
http://www.softwareschule.ch/examples/cockpit.txt
http://www.softwareschule.ch/examples/tartaruga.txt
http://www.softwareschule.ch/examples/surprise.txt
http://www.softwareschule.ch/examples/weatherapp2.txt
http://www.softwareschule.ch/examples/weatherapp3.txt
http://www.softwareschule.ch/examples/bigint.txt
http://www.softwareschule.ch/examples/weatherapp.txt
http://www.softwareschule.ch/examples/weatherapp.txt
http://www.softwareschule.ch/examples/crypto.txt
http://www.softwareschule.ch/examples/stack.htm
http://www.softwareschule.ch/examples/fisher.htm
http://www.softwareschule.ch/examples/arduinotemp.htm
http://www.softwareschule.ch/examples/web.txt
http://www.softwareschule.ch/examples/web3.txt
http://www.softwareschule.ch/examples/web4.txt
http://www.softwareschule.ch/examples/cryptocomplete.txt
http://www.softwareschule.ch/examples/web4arduino.txt
http://www.softwareschule.ch/examples/adafruit.txt
http://www.softwareschule.ch/examples/stack.txt
http://www.softwareschule.ch/examples/stack.htm
http://www.softwareschule.ch/examples/billiard.txt
http://www.softwareschule.ch/examples/systeminfo_tester.htm
http://www.softwareschule.ch/examples/systeminfo.htm
http://www.softwareschule.ch/examples/elevator.txt
http://www.softwareschule.ch/examples/sha256.txt
http://www.softwareschule.ch/examples/robo.txt
http://www.softwareschule.ch/examples/robo2.txt
http://www.softwareschule.ch/examples/font.txt
http://www.softwareschule.ch/examples/spider.txt
http://www.softwareschule.ch/examples/totient.txt
http://www.softwareschule.ch/examples/811_mXpcatest_dmath_datascience.txt
http://www.softwareschule.ch/examples/datascience.txt
http://www.softwareschule.ch/examples/pi.txt
http://www.softwareschule.ch/examples/excelexport.txt
http://www.softwareschule.ch/examples/tokenizer.htm
http://www.softwareschule.ch/examples/snake.txt
http://www.softwareschule.ch/examples/asteroid.txt
http://www.softwareschule.ch/examples/weatherapp46.txt
http://www.softwareschule.ch/examples/cryptocomplete.txt
http://www.softwareschule.ch/examples/web4arduino.txt
http://www.softwareschule.ch/examples/wmi.txt
http://www.softwareschule.ch/examples/wmi2.txt
http://www.softwareschule.ch/examples/reverse.htm
http://www.softwareschule.ch/examples/weatherapp4.txt
http://www.softwareschule.ch/examples/tictac.txt
http://www.softwareschule.ch/examples/tictac3.txt
http://www.softwareschule.ch/examples/mapbox2.txt
http://www.softwareschule.ch/examples/neuralnetwork.txt
http://www.softwareschule.ch/examples/datascience.txt
http://www.softwareschule.ch/examples/billiard.txt
http://www.softwareschule.ch/examples/sentiment2.txt
http://www.softwareschule.ch/examples/python.htm
http://www.softwareschule.ch/examples/asteroid.txt
http://www.softwareschule.ch/examples/penny.txt
http://www.softwareschule.ch/examples/snake3.txt
http://www.softwareschule.ch/examples/unittest.txt
http://www.softwareschule.ch/examples/410_titanic_keras_predictor.txt
http://www.softwareschule.ch/examples/410_titanic_keras_predictor.htm
http://www.softwareschule.ch/examples/histogram.txt
http://www.softwareschule.ch/examples/odometer.txt
http://www.softwareschule.ch/examples/chartapi.txt
http://www.softwareschule.ch/examples/geoloc.txt
http://www.softwareschule.ch/examples/xml.txt
http://www.softwareschule.ch/examples/4gewinnt.txt
http://www.softwareschule.ch/examples/cgi.txt
http://www.softwareschule.ch/examples/singlesamplepredict.py
http://www.softwareschule.ch/examples/perform.txt
http://www.softwareschule.ch/examples/statistic.txt
http://www.softwareschule.ch/examples/picbox.txt
http://www.softwareschule.ch/examples/memory2.txt
http://www.softwareschule.ch/examples/getgeomap.txt
http://www.softwareschule.ch/examples/getzip.txt
http://www.softwareschule.ch/examples/getrsa.txt
http://www.softwareschule.ch/examples/getrsa5.txt
http://www.softwareschule.ch/examples/getrsa5.htm
http://www.softwareschule.ch/examples/scramble.txt
http://www.softwareschule.ch/examples/factor2.txt
http://www.softwareschule.ch/examples/bug.txt
http://www.softwareschule.ch/examples/smalldic.txt
http://www.softwareschule.ch/examples/metadefender.txt
http://www.softwareschule.ch/examples/pythonoma.txt
http://www.softwareschule.ch/examples/992_detector21_wget_integrate2.htm
http://www.softwareschule.ch/examples/perceptron.txt
http://www.softwareschule.ch/examples/perceptron2.txt
http://www.softwareschule.ch/examples/perceptron2.htm
http://www.softwareschule.ch/examples/sphere.txt
http://www.softwareschule.ch/examples/entropy.txt
http://www.softwareschule.ch/examples/protein.txt
http://www.softwareschule.ch/examples/wordwheel.txt
http://www.softwareschule.ch/examples/soundcloud.txt
http://www.softwareschule.ch/examples/geometry.txt
http://www.softwareschule.ch/examples/time.txt
http://www.softwareschule.ch/examples/sphere2.txt
http://www.softwareschule.ch/examples/sphere2.htm
http://www.softwareschule.ch/examples/unittests.txt
http://www.softwareschule.ch/examples/newssentiment.txt
http://www.softwareschule.ch/examples/newssentiment.htm
http://www.softwareschule.ch/examples/bbcnews.txt
http://www.softwareschule.ch/examples/mathtool.txt
http://www.softwareschule.ch/examples/newssentiment2.txt
http://www.softwareschule.ch/examples/covid2.txt
http://www.softwareschule.ch/examples/covid3.txt
http://www.softwareschule.ch/examples/covidapp3.txt
http://www.softwareschule.ch/examples/signtoolbatch.txt
http://www.softwareschule.ch/examples/openweather.txt
http://www.softwareschule.ch/examples/weatherbox.txt
http://www.softwareschule.ch/examples/wininet.txt
http://www.softwareschule.ch/examples/digiclock.txt
http://www.softwareschule.ch/examples/pydemo.txt
http://www.softwareschule.ch/examples/pydemo2.txt
http://www.softwareschule.ch/examples/pydemo3.txt
http://www.softwareschule.ch/examples/pydemo13.txt
http://www.softwareschule.ch/examples/pydemo31.txt
http://www.softwareschule.ch/examples/catapult.txt
http://www.softwareschule.ch/examples/pydemo33.txt
http://www.softwareschule.ch/examples/syndat.png
http://www.softwareschule.ch/examples/cryptosystem2.txt
http://www.softwareschule.ch/examples/cryptosystem3.txt
http://www.softwareschule.ch/examples/springdemo.txt
http://www.softwareschule.ch/examples/coaster.txt
http://www.softwareschule.ch/examples/pydemo38.txt
http://www.softwareschule.ch/examples/pydemo40.txt
http://www.softwareschule.ch/examples/sunpos.txt
http://www.softwareschule.ch/examples/geocoding.txt
http://www.softwareschule.ch/examples/sentiment3.txt
http://www.softwareschule.ch/examples/sentiment4.txt
http://www.softwareschule.ch/examples/qrcode.txt
http://www.softwareschule.ch/examples/json3.txt
http://www.softwareschule.ch/examples/json4.txt
http://www.softwareschule.ch/examples/regex.txt
http://www.softwareschule.ch/examples/shellcomposer.txt
http://www.softwareschule.ch/examples/4gewinnt2.txt
http://www.softwareschule.ch/examples/space2.txt
http://www.softwareschule.ch/examples/pydemo48.txt
http://www.softwareschule.ch/examples/json7.txt
http://www.softwareschule.ch/examples/cdplayer.txt
http://www.softwareschule.ch/examples/json9.txt
http://www.softwareschule.ch/examples/ocr.txt
http://www.softwareschule.ch/examples/chatgpt32.txt
http://www.softwareschule.ch/weatherapp477.txt
http://www.softwareschule.ch/timeserver.txt
http://www.softwareschule.ch/examples/bigeuler.txt
http://www.softwareschule.ch/examples/trend.txt
http://www.softwareschule.ch/examples/digitree.txt
http://www.softwareschule.ch/examples/neuralnetwork2.txt
http://www.softwareschule.ch/examples/webscrap.txt
http://www.softwareschule.ch/examples/weekends.txt
http://www.softwareschule.ch/examples/cannonball.txt
http://www.softwareschule.ch/examples/pixabay.txt
http://www.softwareschule.ch/examples/dispenser.txt
http://www.softwareschule.ch/examples/qrcode7.txt
http://www.softwareschule.ch/examples/cert3.txt
http://www.softwareschule.ch/examples/qrcode8.txt
http://www.softwareschule.ch/examples/unicode3.htm
http://www.softwareschule.ch/examples/pydemo59.txt
http://www.softwareschule.ch/examples/pydemo60.txt
http://www.softwareschule.ch/examples/digiclock64.txt
http://www.softwareschule.ch/examples/pendulum.txt
http://www.softwareschule.ch/examples/circles.txt
http://www.softwareschule.ch/examples/restcountries.txt
http://www.softwareschule.ch/examples/directions.txt
http://www.softwareschule.ch/examples/directions2.txt
http://www.softwareschule.ch/examples/directions3.txt
http://www.softwareschule.ch/examples/directions5.txt
http://www.softwareschule.ch/examples/geocoding5.txt
http://www.softwareschule.ch/examples/geocoding5.htm
http://www.softwareschule.ch/examples/geocoding6.txt
http://www.softwareschule.ch/examples/geocoding6.htm
http://www.softwareschule.ch/examples/geocoding7.txt
http://www.softwareschule.ch/examples/geocoding7.htm
http://www.softwareschule.ch/examples/solarpos.txt
http://www.softwareschule.ch/examples/solarpos64.txt
http://www.softwareschule.ch/examples/sudoku.txt
http://www.softwareschule.ch/examples/sudoku2.txt
https://maxbox4.wordpress.com">maxbox4.wordpress.com
https://softwareschule.code.blog">softwareschule.code.blog
https://my6.code.blog">my6.code.blog
https://github.com/maxkleiner/maXbox4/blob/master/newstoday_sentiment.ipynb
http://www.softwareschule.ch/download/exampleedition2016.zip
https://github.com/maxkleiner/fundamentals5
https://thenewstack.io/which-programming-languages-use-the-least-electricity/
https://www.clevercomponents.com/articles/article052/
https://www.youtube.com/watch?v=SC3i7Ru8XPY
https://github.com/breitsch2/Solder-Paste-Dispenser
Pas2JS Examples:
https://raw.githack.com/breitsch2/maXbox4/master/assets/tetris2.html
https://raw.githack.com/breitsch2/maXbox4/master/assets/pacman2/pacman.html
https://raw.githack.com/breitsch2/maXbox4/master/assets/graph3.html
https://youtu.be/SC3i7Ru8XPY
Top 4 Examples of 2023
The scripts are
1247_Dispenser_mX4_Form12.pas,
1243_U_Cannonballs32.pas,
1241_pixabay_api_tester12.pas
1234_NeuralNetwork2_XOR_test12.pas
1234_NeuralNetwork2_XOR_sampleEU_EKON27.pas.
https://wordpress.com/post/softwareschule.code.blog/1641
Delphi Basics Run Time Library listing
******************************************************************************
A
Compiler Directive $A Determines whether data is aligned or packed
Compiler Directive $Align Determines whether data is aligned or packed
Compiler Directive $AppType Determines the application type : GUI or Console
Proc SysUtils Abort Aborts the current processing with a silent exception
Func System Abs Gives the absolute value of a number (-ve sign is removed)
Directive Abstract Defines a class method only implemented in subclasses
Variable System AbstractErrorProc Defines a proc called when an abstract method is called
Func System Addr Gives the address of a variable, Func or procedure
Keyword And Boolean and or bitwise and of two arguments
Type System AnsiChar A character type guaranteed to be 8 bits in size
Func SysUtils AnsiCompareStr Compare two strings for equality
Func SysUtils AnsiCompareText Compare two strings for equality, ignoring case
Func StrUtils AnsiContainsStr Returns true if a string contains a substring
Func StrUtils AnsiEndsStr Returns true if a string ends with a substring
Func StrUtils AnsiIndexStr Compares a string with a list of strings - returns match index
Func StrUtils AnsiLeftStr Extracts characters from the left of a string
Func SysUtils AnsiLowerCase Change upper case characters in a string to lower case
Func StrUtils AnsiMatchStr Returns true if a string exactly matches one of a list of strings
Func StrUtils AnsiMidStr Returns a substring from the middle characters of a string
Func StrUtils AnsiPos Find the position of one string in another
Func StrUtils AnsiReplaceStr Replaces a part of one string with another
Func StrUtils AnsiReverseString Reverses the sequence of letters in a string
Func StrUtils AnsiRightStr Extracts characters from the right of a string
Func StrUtils AnsiStartsStr Returns true if a string starts with a substring
Type System Ansistr A data type that holds a string of AnsiChars
Func SysUtils AnsiUpperCase Change lower case characters in a string to upper case
Proc System Append Open a text file to allow appending of text to the end
Proc SysUtils AppendStr Concatenate one string onto the end of another
Func Math ArcCos The Arc Cosine of a number, returned in radians
Func Math ArcSin The Arc Sine of a number, returned in radians
Func System ArcTan The Arc Tangent of a number, returned in radians
Keyword Array A data type holding indexable collections of data
Keyword As Used for casting object references
Proc System Assign Assigns a file handle to a binary or text file
Func System Assigned Returns true if a reference is not nil
Proc System AssignFile Assigns a file handle to a binary or text file
Proc Printers AssignPrn Treats the printer as a text file - an easy way of printing text
B
Compiler Directive $B Whether to short cut and and or operations
Compiler Directive $BoolEval Whether to short cut and and or operations
Proc SysUtils Beep Make a beep sound
Keyword Begin Keyword that starts a statement block
Func System BeginThread Begins a separate thread of code execution
Proc System BlockRead Reads a block of data records from an untyped binary file
Proc System BlockWrite Writes a block of data records to an untyped binary file
Type System Boolean Allows just True and False values
Func Classes Bounds Create a TRect value from top left and size values
Proc System Break Forces a jump out of a single loop
Type System Byte An Int type supporting values 0 to 255
C
Type System Cardinal The basic unsigned Int type
Keyword Case A mechanism for acting upon different values of an Ordinal
Func StdConvs CelsiusToFahrenheit Convert a celsius temperature into fahrenheit
Func SysUtils ChangeFileExt Change the extension part of a file name
Type System Char Variable type holding a single character
Proc System ChDir Change the working drive plus path for a specified drive
Func System Chr Convert an Int into a character
Keyword Class Starts the declaration of a type of object class
Proc System Close Closes an open file
Proc System CloseFile Closes an open file
Variable System CmdLine Holds the execution text used to start the current program
Type System Comp A 64 bit signed Int
Func SysUtils CompareStr Compare two strings to see which is greater than the other
Func SysUtils CompareText Compare two strings for equality, ignoring case
Func Math CompareValue Compare numeric values with a tolerance
Func System Concat Concatenates one or more strings into one string
Keyword Const Starts the definition of fixed data values
Keyword Constructor Defines the method used to create an object from a class
Proc System Continue Forces a jump to the next iteration of a loop
Func ConvUtils Convert Convert one measurement value to another
Func System Copy Create a copy of part of a string or an array
Func System Cos The Cosine of a number
Func SysUtils CreateDir Create a directory
Type System Currency A floating point type with 4 decimals used for financial values
Variable SysUtils CurrencyDecimals Defines decimal digit count in the Format function
Variable SysUtils CurrencyFormat Defines currency string placement in curr display functions
Variable SysUtils CurrencyString The currency string used in currency display functions
Func SysUtils CurrToStr Convert a currency value to a string
Func SysUtils CurrToStrF Convert a currency value to a string with formatting
D
Compiler Directive $D Determines whether application debug information is built
Compiler Directive $DebugInfo Determines whether application debug information is built
Compiler Directive $Define Defines a compiler directive symbol - as used by IfDef
Compiler Directive $DefinitionInfo Determines whether application symbol information is built
Func SysUtils Date Gives the current date
Variable SysUtils DateSeparator The character used to separate display date fields
Func SysUtils DateTimeToFileDate Convert a TDateTime value to a File date/time format
Func SysUtils DateTimeToStr Converts TDateTime date and time values to a string
Proc SysUtils DateTimeToString Rich formatting of a TDateTime variable into a string
Func SysUtils DateToStr Converts a TDateTime date value to a string
Func DateUtils DayOfTheMonth Gives day of month index for a TDateTime value (ISO 8601)
Func DateUtils DayOfTheWeek Gives day of week index for a TDateTime value (ISO 8601)
Func DateUtils DayOfTheYear Gives the day of the year for a TDateTime value (ISO 8601)
Func SysUtils DayOfWeek Gives day of week index for a TDateTime value
Func DateUtils DaysBetween Gives the whole number of days between 2 dates
Func DateUtils DaysInAMonth Gives the number of days in a month
Func DateUtils DaysInAYear Gives the number of days in a year
Func DateUtils DaySpan Gives the fractional number of days between 2 dates
Proc System Dec Decrement an ordinal variable
Variable SysUtils DecimalSeparator The character used to display the decimal point
Proc SysUtils DecodeDate Extracts the year, month, day values from a TDateTime var.
Proc DateUtils DecodeDateTime Breaks a TDateTime variable into its date/time parts
Proc SysUtils DecodeTime Break a TDateTime value into individual time values
Directive Default Defines default processing for a property
Func Math DegToRad Convert a degrees value to radians
Proc System Delete Delete a section of characters from a string
Func SysUtils DeleteFile Delete a file specified by its file name
Keyword Destructor Defines the method used to destroy an object
Func SysUtils DirectoryExists Returns true if the given directory exists
Func SysUtils DiskFree Gives the number of free bytes on a specified drive
Func SysUtils DiskSize Gives the size in bytes of a specified drive
Proc System Dispose Dispose of storage used by a pointer type variable
Keyword Div Performs Int division, discarding the remainder
Keyword Do Defines the start of some controlled action
Type System Double A floating point type supporting about 15 digits of precision
Keyword DownTo Prefixes an decremental for loop target value
Func StrUtils DupeString Creates a string containing copies of a substring
Directive Dynamic Allows a class method to be overriden in derived classes
E
Compiler Directive $Else Starts the alternate section of an IfDef or IfNDef
Compiler Directive $EndIf Terminates conditional code compilation
Compiler Directive $ExtendedSyntax Controls some Pascal extension handling
Keyword Else Starts false section of if, case and try statements
Func SysUtils EncodeDate Build a TDateTime value from year, month and day values
Func DateUtils EncodeDateTime Build a TDateTime value from day and time values
Func SysUtils EncodeTime Build a TDateTime value from hour, min, sec and msec values
Keyword End Keyword that terminates statement blocks
Func DateUtils EndOfADay Generate a TDateTime value set to the very end of a day
Func DateUtils EndOfAMonth Generate a TDateTime value set to the very end of a month
Proc System EndThread Terminates a thread with an exit code
Func System Eof Returns true if a file opened with Reset is at the end
Func System Eoln Returns true if the current text file is pointing at a line end
Proc System Erase Erase a file
Variable System ErrorAddr Sets the error address when an application terminates
Keyword Except Starts the error trapping clause of a Try statement
Proc System Exclude Exclude a value in a set variable
Proc System Exit Exit abruptly from a Func or procedure
Variable System ExitCode Sets the return code when an application terminates
Func System Exp Gives the exponent of a number
Directive System Export Makes a Func or Proc in a DLL externally available
Type System Extended The floating point type with the highest capacity and precision
Func SysUtils ExtractFileDir Extracts the dir part of a full file name
Func SysUtils ExtractFileDrive Extracts the drive part of a full file name
Func SysUtils ExtractFileExt Extracts the extension part of a full file name
Func SysUtils ExtractFileName Extracts the name part of a full file name
Func SysUtils ExtractFilePath Extracts the path part of a full file name
F
Func StdConvs FahrenheitToCelsius Convert a fahrenheit temperature into celsius
Keyword File Defines a typed or untyped file
Func SysUtils FileAge Get the last modified date/time of a file without opening it
Func SysUtils FileDateToDateTime Converts a file date/time format to a TDateTime value
Func SysUtils FileExists Returns true if the given file exists
Func SysUtils FileGetAttr Gets the attributes of a file
Variable System FileMode Defines how Reset opens a binary file
Func System FilePos Gives the file position in a binary or text file
Func SysUtils FileSearch Search for a file in one or more directories
Func SysUtils FileSetAttr Sets the attributes of a file
Func SysUtils FileSetDate Set the last modified date and time of a file
Func System FileSize Gives the size in records of an open file
Proc System FillChar Fills out a section of storage with a fill character or byte value
Keyword Finally Starts the unconditional code section of a Try statement
Func SysUtils FindClose Closes a successful FindFirst file search
Func SysUtils FindCmdLineSwitch Determine whether a certain parameter switch was passed
Func SysUtils FindFirst Finds all files matching a file mask and attributes
Func SysUtils FindNext Find the next file after a successful FindFirst
Func SysUtils FloatToStr Convert a floating point value to a string
Func SysUtils FloatToStrF Convert a floating point value to a string with formatting
Proc System Flush Flushes buffered text file data to the file
Keyword For Starts a loop that executes a finite number of times
Func SysUtils ForceDirectories Create a new path of directories
Func SysUtils Format Rich formatting of numbers and text into a string
Func SysUtils FormatCurr Rich formatting of a currency value into a string
Func SysUtils FormatDateTime Rich formatting of a TDateTime variable into a string
Func SysUtils FormatFloat Rich formatting of a floating point number into a string
Func System Frac The fractional part of a floating point number
Proc SysUtils FreeAndNil Free memory for an object and set it to nil
Proc System FreeMem Free memory storage used by a variable
Keyword System Func Defines a subroutine that returns a value
G
Func SysUtils GetCurrentDir Get the current directory (drive plus directory)
Proc System GetDir Get the default directory (drive plus path) for a specified drive
Func System GetLastError Gives the error code of the last failing Windows API call
Proc SysUtils GetLocaleFormatSettings Gets locale values for thread-safe functions
Func System GetMem Get a specified number of storage bytes
Keyword Goto Forces a jump to a label, regardless of nesting
H
Compiler Directive $H Treat string types as Ansistr or ShortString
Compiler Directive $Hints Determines whether Delphi shows compilation hints
Proc System Halt Terminates the program with an optional dialog
Func System Hi Returns the hi-order byte of a (2 byte) Int
Func System High Returns the highest value of a type or variable
I
Compiler Directive $I Allows code in an include file to be incorporated into a Unit
Compiler Directive $IfDef Executes code if a conditional symbol has been defined
Compiler Directive $IfNDef Executes code if a conditional symbol has not been defined
Compiler Directive $IfOpt Tests for the state of a Compiler directive
Compiler Directive $Include Allows code in an include file to be incorporated into a Unit
Compiler Directive $IOChecks When on, an IO operation error throws an exception
Keyword If Starts a conditional expression to determine what to do next
Keyword Implementation Starts the implementation (code) section of a Unit
Keyword In Used to test if a value is a member of a set
Proc System Inc Increment an ordinal variable
Func DateUtils IncDay Increments a TDateTime variable by + or - number of days
Proc System Include Include a value in a set variable
Func DateUtils IncMillisecond Increments a TDateTime variable by + or - number of milliseconds
Func DateUtils IncMinute Increments a TDateTime variable by + or - number of minutes
Func SysUtils IncMonth Increments a TDateTime variable by a number of months
Func DateUtils IncSecond Increments a TDateTime variable by + or - number of seconds
Func DateUtils IncYear Increments a TDateTime variable by a number of years
Directive Index Principally defines indexed class data properties
Constant Math Infinity Floating point value of infinite size
Keyword Inherited Used to call the parent class constructor or destructor method
Variable System Input Defines the standard input text file
Func Dialogs InputBox Display a dialog that asks for user text input, with default
Func Dialogs InputQuery Display a dialog that asks for user text input
Proc System Insert Insert a string into another string
Func System Int The Int part of a floating point number as a float
Type System Int64 A 64 bit sized Int - the largest in Delphi
Type System Int The basic Int type
Keyword System Interface Used for Unit external definitions, and as a Class skeleton
Func SysUtils IntToHex Convert an Int into a hexadecimal string
Func SysUtils IntToStr Convert an Int into a string
Func System IOResult Holds the return code of the last I/O operation
Keyword Is Tests whether an object is a certain class or ascendant
Func Math IsInfinite Checks whether a floating point number is infinite
Func SysUtils IsLeapYear Returns true if a given calendar year is a leap year
Func System IsMultiThread Returns true if the code is running multiple threads
Func Math IsNaN Checks to see if a floating point number holds a real number
L
Compiler Directive $L Determines what application debug information is built
Compiler Directive $LocalSymbols Determines what application debug information is built
Compiler Directive $LongStrings Treat string types as Ansistr or ShortString
Func SysUtils LastDelimiter Find the last position of selected characters in a string
Func System Length Return the number of elements in an array or string
Func System Ln Gives the natural logarithm of a number
Func System Lo Returns the low-order byte of a (2 byte) Int
Func Math Log10 Gives the log to base 10 of a number
Variable SysUtils LongDateFormat Long version of the date to string format
Variable SysUtils LongDayNames An array of days of the week names, starting 1 = Sunday
Type System LongInt An Int whose size is guaranteed to be 32 bits
Variable SysUtils LongMonthNames An array of days of the month names, starting 1 = January
Variable SysUtils LongTimeFormat Long version of the time to string format
Type System LongWord A 32 bit unsigned Int
Func System Low Returns the lowest value of a type or variable
Func SysUtils LowerCase Change upper case characters in a string to lower case
M
Compiler Directive $MinEnumSize Sets the minimum storage used to hold enumerated types
Func Math Max Gives the maximum of two Int values
Constant System MaxInt The maximum value an Int can have
Constant System MaxLongInt The maximum value an LongInt can have
Func Math Mean Gives the average for a set of numbers
Func Dialogs MessageDlg Displays a message, symbol, and selectable buttons
Func Dialogs MessageDlgPos Displays a message plus buttons at a given screen position
Func Math Min Gives the minimum of two Int values
Constant SysUtils MinsPerDay Gives the number of minutes in a day
Proc System MkDir Make a directory
Keyword Mod Performs Int division, returning the remainder
Constant SysUtils MonthDays Gives the number of days in a month
Func DateUtils MonthOfTheYear Gives the month of the year for a TDateTime value
Proc System Move Copy bytes of data from a source to a destination
N
Constant Math NaN Not a real number
Variable SysUtils NegCurrFormat Defines negative amount formatting in currency displays
Proc System New Create a new pointer type variable
Constant System Nil A pointer value that is defined as undetermined
Keyword Not Boolean Not or bitwise not of one arguments
Func SysUtils Now Gives the current date and time
Variable Variants Null A variable that has no value
O
Compiler Directive $O Determines whether Delphi optimises code when compiling
Compiler Directive $Optimization Determines whether Delphi optimises code when compiling
Compiler Directive $OverFlowChecks Determines whether Delphi checks Int and enum bounds
Keyword System Object Allows a subroutine data type to refer to an object method
Func System Odd Tests whether an Int has an odd value
Keyword Of Linking keyword used in many places
Keyword On Defines exception handling in a Try Except clause
Keyword Or Boolean or or bitwise or of two arguments
Func System Ord Provides the Ordinal value of an Int, character or enum
Directive Out Identifies a routine parameter for output only
Variable System Output Defines the standard output text file
Directive Overload Allows 2 or more routines to have the same name
Directive Override Defines a method that replaces a virtual parent class method
P
Keyword Packed Compacts complex data types into minimal storage
Type System PAnsiChar A pointer to an AnsiChar value
Type System PAnsistr Pointer to an Ansistr value
Func System ParamCount Gives the number of parameters passed to the current program
Func System ParamStr Returns one of the parameters used to run the current program
Type System PChar A pointer to an Char value
Type System PCurrency Pointer to a Currency value
Type System PDateTime Pointer to a TDateTime value
Type System PExtended Pointer to a Extended floating point value
Func System Pi The mathematical constant
Type System PInt64 Pointer to an Int64 value
Func Classes Point Generates a TPoint value from X and Y values
Type System Pointer Defines a general use Pointer to any memory based data
Func Classes PointsEqual Compares two TPoint values for equality
Func System Pos Find the position of one string in another
Func System Pred Decrement an ordinal variable
Func Printers Printer Returns a reference to the global Printer object
Directive Private Starts the section of private data and methods in a class
Keyword System Proc Defines a subroutine that does not return a value
Proc FileCtrl ProcessPath Split a drive/path/filename string into its constituent parts
Keyword System Program Defines the start of an application
Func Dialogs PromptForFileName Shows a dialog allowing the user to select a file
Keyword System Property Defines controlled access to class fields
Directive Protected Starts a section of class private data accesible to sub-classes
Type System PShortString A pointer to an ShortString value
Type System PString Pointer to a String value
Func Types PtInRect Tests to see if a point lies within a rectangle
Directive Public Starts an externally accessible section of a class
Directive Published Starts a published externally accessible section of a class
Type System PVariant Pointer to a Variant value
Type System PWideChar Pointer to a WideChar
Type System PWideString Pointer to a WideString value
Q
Compiler Directive $Q Determines whether Delphi checks Int and enum bounds
R
Compiler Directive $R Determines whether Delphi checks array bounds
Compiler Directive $RangeChecks Determines whether Delphi checks array bounds
Compiler Directive $ReferenceInfo Determines whether symbol reference information is built
Compiler Directive $Resource Defines a resource file to be included in the application linking
Func Math RadToDeg Converts a radian value to degrees
Keyword Raise Raise an exception
Func System Random Generate a random floating point or Int number
Proc System Randomize Reposition the Random number generator next value
Func Math RandomRange Generate a random Int number within a supplied range
Variable System RandSeed Reposition the Random number generator next value
Proc System Read Read data from a binary or text file
Proc System ReadLn Read a complete line of data from a text file
Type System Real A floating point type supporting about 15 digits of precision
Type System Real48 The floating point type with the highest capacity and precision
Proc System ReallocMem Reallocate an existing block of storage
Func DateUtils RecodeDate Change only the date part of a TDateTime variable
Func DateUtils RecodeTime Change only the time part of a TDateTime variable
Keyword Record A structured data type - holding fields of data
Func Classes Rect Create a TRect value from 2 points or 4 coordinates
Func SysUtils RemoveDir Remove a directory
Proc System Rename Rename a file
Func SysUtils RenameFile Rename a file or directory
Keyword Repeat Repeat statements until a ternmination condition is met
Proc SysUtils ReplaceDate Change only the date part of a TDateTime variable
Proc SysUtils ReplaceTime Change only the time part of a TDateTime variable
Proc System Reset Open a text file for reading, or binary file for read/write
Variable System Result A variable used to hold the return value from a function
Proc System ReWrite Open a text or binary file for write access
Proc System RmDir Remove a directory
Func System Round Rounds a floating point number to an Int
Proc System RunError Terminates the program with an error dialog
S
Constant SysUtils SecsPerDay Gives the number of seconds in a day
Proc System Seek Move the pointer in a binary file to a new record position
Func System SeekEof Skip to the end of the current line or file
Func System SeekEoln Skip to the end of the current line or file
Func FileCtrl SelectDirectory Display a dialog to allow user selection of a directory
Variable System Self Hidden parameter to a method - refers to the containing object
Keyword Set Defines a set of up to 255 distinct values
Func SysUtils SetCurrentDir Change the current directory
Proc System SetLength Changes the size of a string, or the size(s) of an array
Proc System SetString Copies characters from a buffer into a string
Keyword Shl Shift an Int value left by a number of bits
Variable SysUtils ShortDateFormat Compact version of the date to string format
Variable SysUtils ShortDayNames An array of days of the week names, starting 1 = Sunday
Type System ShortInt An Int type supporting values -128 to 127
Variable SysUtils ShortMonthNames An array of days of the month names, starting 1 = Jan
Type System ShortString Defines a string of up to 255 characters
Variable SysUtils ShortTimeFormat Short version of the time to string format
Proc Dialogs ShowMessage Display a string in a simple dialog with an OK button
Proc Dialogs ShowMessageFmt Display formatted data in a simple dialog with an OK button
Proc Dialogs ShowMessagePos Display a string in a simple dialog at a given screen position
Keyword Shr Shift an Int value right by a number of bits
Func System Sin The Sine of a number
Type System Single The smallest capacity and precision floating point type
Func System SizeOf Gives the storage byte size of a type or variable
Func System Slice Creates a slice of an array as an Open Array parameter
Type System SmallInt An Int type supporting values from -32768 to 32767
Func System Sqr Gives the square of a number
Func System Sqrt Gives the square root of a number
Proc System Str Converts an Int or floating point number to a string
Type System String A data type that holds a string of characters
Func System StringOfChar Creates a string with one character repeated many times
Func SysUtils StringReplace Replace one or more substrings found within a string
Func System StringToWideChar Converts a normal string into a WideChar 0 terminated buffer
Func SysUtils StrScan Searches for a specific character in a constant string
Func SysUtils StrToCurr Convert a number string into a currency value
Func SysUtils StrToDate Converts a date string into a TDateTime value
Func SysUtils StrToDateTime Converts a date+time string into a TDateTime value
Func SysUtils StrToFloat Convert a number string into a floating point value
Func SysUtils StrToInt Convert an Int string into an Int value
Func SysUtils StrToInt64 Convert an Int string into an Int64 value
Func SysUtils StrToInt64Def Convert a string into an Int64 value with default
Func SysUtils StrToIntDef Convert a string into an Int value with default
Func SysUtils StrToTime Converts a time string into a TDateTime value
Func StrUtils StuffString Replaces a part of one string with another
Func System Succ Increment an ordinal variable
Func Math Sum Return the sum of an array of floating point values
T
Func Math Tan The Tangent of a number
Type Classes TBits An object that can hold an infinite number of Boolean values
Variable ConvUtils TConvFamily Defines a family of measurement types as used by Convert
Type ConvUtils TConvType Defines a measurement type as used by Convert
Type System TDateTime Data type holding a date and time value
Type System Text Defines a file as a text file
Type System TextFile Declares a file type for storing lines of text
Type SysUtils TFloatFormat Formats for use in floating point number display functions
Type SysUtils TFormatSettings A record for holding locale values for thread-safe functions
Keyword Then Part of an if statement - starts the true clause
Variable SysUtils ThousandSeparator The character used to display the thousands separator
Keyword ThreadVar Defines variables that are given separate instances per thread
Func SysUtils Time Gives the current time
Variable SysUtils TimeAMString Determines AM value in DateTimeToString procedure
Variable SysUtils TimePMString Determines PM value in DateTimeToString procedure
Variable SysUtils TimeSeparator The character used to separate display time fields
Func SysUtils TimeToStr Converts a TDateTime time value to a string
Type Classes TList General purpose container of a list of objects
Keyword To Prefixes an incremental for loop target value
Type System TObject The base class type that is ancestor to all other classes
Func DateUtils Tomorrow Gives the date tomorrow
Type Dialogs TOpenDialog Displays a file selection dialog
Type Types TPoint Holds X and Y Int values
Type Dialogs TPrintDialog Class that creates a printer selection and control dialog
Type Types TRect Holds rectangle coordinate values
Type SysUtils TReplaceFlags Defines options for the StringReplace routine
Func SysUtils Trim Removes leading and trailing blanks from a string
Func SysUtils TrimLeft Removes leading blanks from a string
Func SysUtils TrimRight Removes trailing blanks from a string
Func System Trunc The Int part of a floating point number
Proc System Truncate Truncates a file size - removes all data after the current position
Keyword Try Starts code that has error trapping
Type Dialogs TSaveDialog Displays a dialog for selecting a save file name
Type SysUtils TSearchRec Record used to hold data for FindFirst and FindNext
Type Classes TStringList Holds a variable length list of strings
Type SysUtils TSysCharSet Characters used by supplied string parsing functions
Type System TThreadFunc Defines the Func to be called by BeginThread
Var SysUtils TwoDigitYearCenturyWindow Sets century threshold for 2 digit year string conversions
Keyword Type Defines a new category of variable or process
U
Compiler Directive $UnDef Undefines a compiler directive symbol - as used by IfDef
Keyword Unit Defines the start of a unit file - a Delphi module
Keyword Until Ends a Repeat control loop
Func System UpCase Convert a Char value to upper case
Func SysUtils UpperCase Change lower case characters in a string to upper case
Keyword Uses Declares a list of Units to be imported
V
Proc System Val Converts number strings to Int and floating point values
Keyword Var Starts the definition of a section of data variables
Type System Variant A variable type that can hold changing data types
Func Variants VarType Gives the current type of a Variant variable
Constant Variants VarTypeMask Mask for the meta-type part of a Variant variable
Directive Virtual Allows a class method to be overriden in derived classes
W
Compiler Directive $Warnings Determines whether Delphi shows compilation warnings
Keyword While Repeat statements whilst a continuation condition is met
Type System WideChar Variable type holding a single International character
Func System WideCharToString Copies a null terminated WideChar string to a normal string
Type System WideString A data type that holds a string of WideChars
Keyword With A means of simplifying references to structured variables
Type System Word An Int type supporting values 0 to 65535
Func SysUtils WrapText Add line feeds into a string to simulate word wrap
Proc System Write Write data to a binary or text file
Proc System WriteLn Write a complete line of data to a text file
X
Compiler Directive $X Controls some Pascal extension handling
Keyword Xor Boolean Xor or bitwise Xor of two arguments
Y
Compiler Directive $Y Determines whether application symbol information is built
Func DateUtils Yesterday Gives the date yesterday
Z
Compiler Directive $Z Sets the minimum storage used to hold enumerated types
Proc SIRegister_uPSUtils(CL: TPSPascalCompiler);
begin //'TPSBaseType','').SetString( Byte);
PSMainProcName','String').SetString( '!MAIN;
PSMainProcNameOrg','String').SetString( 'Main Proc;
'PSLowBuildSupport','LongInt').SetInt(12);
'PSCurrentBuildNo','LongInt').SetInt(23);
'PSCurrentversion','String').SetString('1.31;
'PSValidHeader','LongInt').SetInt(1397769801);
'PSAddrStackStart','LongInt').SetInt(1610612736);
'PSAddrNegativeStackStart','LongInt').SetInt(1073741824);
'btReturnAddress','LongInt').SetInt(0);
'btU8','LongInt').SetInt(1);
'btS8','LongInt').SetInt(2);
'btU16','LongInt').SetInt(3);
'btS16','LongInt').SetInt(4);
'btU32','LongInt').SetInt(5);
'btS32','LongInt').SetInt(6);
'btSingle','LongInt').SetInt(7);
'btDouble','LongInt').SetInt(8);
'btExtended','LongInt').SetInt(9);
'btString','LongInt').SetInt(10);
'btRecord','LongInt').SetInt(11);
'btArray','LongInt').SetInt(12);
'btPointer','LongInt').SetInt(13);
'btPChar','LongInt').SetInt(14);
'btResourcePointer','LongInt').SetInt(15);
'btVariant','LongInt').SetInt(16);
'btS64','LongInt').SetInt(17);
'btU64','LongInt').SetInt(30);
'btChar','LongInt').SetInt(18);
'btWideString','LongInt').SetInt( 19);
'btWideChar','LongInt').SetInt( 20);
'btProcPtr','LongInt').SetInt( 21);
'btStaticArray','LongInt').SetInt( 22);
'btSet','LongInt').SetInt( 23);
'btCurrency','LongInt').SetInt( 24);
'btClass','LongInt').SetInt( 25);
'btInterface','LongInt').SetInt( 26);
'btNotificationVariant','LongInt').SetInt( 27);
'btUnicodeString','LongInt').SetInt( 28);
'btType','LongInt').SetInt( 130);
'btEnum','LongInt').SetInt( 129);
'btExtClass','LongInt').SetInt( 131);
'CM_A','LongInt').SetInt( 0);
'CM_CA','LongInt').SetInt( 1);
'CM_P','LongInt').SetInt( 2);
'CM_PV','LongInt').SetInt( 3);
'CM_PO','LongInt').SetInt( 4);
'Cm_C','LongInt').SetInt( 5);
'Cm_G','LongInt').SetInt( 6);
'Cm_CG','LongInt').SetInt( 7);
'Cm_CNG','LongInt').SetInt( 8);
'Cm_R','LongInt').SetInt( 9);
'Cm_ST','LongInt').SetInt( 10);
'Cm_Pt','LongInt').SetInt( 11);
'CM_CO','LongInt').SetInt( 12);
'Cm_cv','LongInt').SetInt( 13);
'cm_sp','LongInt').SetInt( 14);
'cm_bn','LongInt').SetInt( 15);
'cm_vm','LongInt').SetInt( 16);
'cm_sf','LongInt').SetInt( 17);
'cm_fg','LongInt').SetInt( 18);
'cm_puexh','LongInt').SetInt( 19);
'cm_poexh','LongInt').SetInt( 20);
'cm_in','LongInt').SetInt( 21);
'cm_spc','LongInt').SetInt( 22);
'cm_inc','LongInt').SetInt( 23);
'cm_dec','LongInt').SetInt( 24);
'cm_nop','LongInt').SetInt( 255);
'Cm_PG','LongInt').SetInt( 25);
'Cm_P2G','LongInt').SetInt( 26);
TypeS('TbtU8', 'Byte;
TypeS('TbtS8', 'ShortInt;
TypeS('TbtU16', 'Word;
TypeS('TbtS16', 'SmallInt;
TypeS('TbtU32', 'Cardinal;
TypeS('TbtS32', 'Longint;
TypeS('TbtSingle', 'Single;
TypeS('TbtDouble', 'double;
TypeS('TbtExtended', 'Extended;
TypeS('tbtCurrency', 'Currency;
TypeS('tbts64', 'int64;
TypeS('Tbtu64', 'uint64;
TypeS('TbtString', 'string;
Func MakeHash( const s : TbtString) : Longint;
// TbtString = {$IFDEF DELPHI2009UP}Ansistr{$ELSE}String{$ENDIF};
//'PointerSize','LongInt').SetInt( IPointer ( 8 4 ));
end:
--------------------------------------------------------------------------------
mapX:
if GetMAPX('html',ExePath+'cologne2mapX.html','cathedral cologne') then
writeln('cologne map found;
GetGeoMAP('html',ExePath+AFILENAME2,'dom cologne')
writeln(GetMapXGeoReverse('XML','47.0397826','7.62914761277888'))
OpenMapX('church trier;
GetGeoCode(C_form,apath:Str; const data:Str; sfile:Bool):Str;
writeln(GetGeoCode('xml',ExePath+'outputmap_2cologne.xml','cathedral cologne',false));}
>>> //latitude: '50.94133705' longitude: '6.95812076100766'
// type TPos = (tLat, tLon);TShowFmt = (sfNautical, sfStatute, sfMetric);
writeln(GetGeoCoord('xml','church cefalu sicily',true))
CoordinateStr(Idx: Int; PosInSec: Double; PosLn: TPos):Str;
Func SendInput( cInputs : UINT; var pInputs : TInput; cbSize : Int) : UINT;
Func GetLastInputInfo( var plii : TLastInputInfo) : BOOL;
Proc JvErrorIntercept;
writeln(GetGeoInfo4('178.196.192.131', UrlGeoLookupInfo3));
{$IFDEF MSWINDOWS}
Proc Process;
var
Msg: TMsg;
begin
if ApplicationHasPriority then begin
Application.ProcessMessages;
end else begin
// This guarantees it will not ever call Application.Idle
if PeekMessage(Msg, 0, 0, 0, PM_NOREMOVE) then begin
Application.HandleMessage;
end;
end;
end;
Ref:
1. writeln(SHA1(Exepath+'\maxbox4.exe'))
2. shdig: TSHA1Digest;
shdig:= GetSHA1OfFile(false,exepath+'\maxbox4.exe;
for i:= 0 to 19 do write(BytetoHex(shdig[i]));
3. writeln(IntToHex(CRC32OfFile(exepath+'\maxbox4.exe'),4));
4. writeln(sha1tohex(SHA1ofStr(loadStringofFile(exepath+'maxbox4.exe'))))
I have to get only the numbers, without the hyphen and the dots, to my calcs worth.
sr := '123.456.789-00'
writeln(ReplaceRegExpr('\D',sr,'',true))
Func GetLocalStream(C_form:Str; const lat,long:Str):boolean;
var encodedURL, UrlMapQuestAPI, bufstr:Str;
mStream: TMemoryStream;
idhttp: TIdHttp;// THTTPSend;
len: Int;
begin
UrlMapQuestAPI:= 'http://192.168.1.53:9000';
encodedURL:= UrlMapQuestAPI;
idHTTP:= TIdHTTP.Create(NIL)
mStream:= TMemoryStream.create;
try
//HttpGet(EncodedURL, mStream); {WinInet}
idHTTP.Get1(EncodedURL, mStream)
mStream.Position:= 0;
writeln('stream size: '+inttostr(mStream.size));
//mStream.memory;
len:= mStream.Size - mStream.Position;
SetLength(bufstr, len);
mStream.readbuffer(bufstr, len)
writeln('debug stream local back: '+bufstr)
finally
encodedURL:= '';
mStream.Free;
idHTTP.Disconnect
idHTTP.Free;
result:= true;
end;
end;
39/40 PE imports of V maXbox 4.2.5.10
1[+] AVICAP32.DLL 2[+] AVICAP32.dll 3[+] GLU32.dll 40[++]dmath.dll
4[+] IMAGEHLP.DLL 6[+] MSVCRT.DLL 7[+] MSVFW32.DLL
8[+] OpenGL32.dll 9[+] SHFolder.dll 11[+] URLMON.DLL 10[+] SHfolder.dll
12[+] advapi32.dll 13[+] comctl32.dll 14[+] comdlg32.dll
15[+] gdi32.dll 16[+] imagehlp.dll 17[+] imm32.dll
18[+] iphlpapi.dll 19[+] kernel32.dll 20[+] mpr.dll
21[+] msacm32.dll 24[+] ole32.dll 25[+] oleacc.dll
26[+] oleaut32.dll 27[+] oledlg.dll 28[+] opengl32.dll
29[+] shell32.dll 30[+] shlwapi.dll 31[+] user32.dll
32[+] usp10.dll 33[+] version.dll 34[+] winhttp.dll
35[+] wininet.dll 36[+] winmm.dll 37[+] winspool.drv 5[+] KERNEL32.DLL
38[+] ws2_32.dll 39[+] wsock32.dll 22[+] msimg32.dll 23[+] netapi32.dll
Magic literal PE32 executable for MS Windows (GUI) Intel 80386 32-bit
********************************************************************************
Microsoft Windows SDK for Windows 7 and .NET Framework 4 Interface (UI Automation)
Overall test results Number of tests 68 Verify
Passed 67 Failed 1
Unexpected Error 0
UI Tests caused Unexpected Error: 0
Tests Failed: 1
Test Name : ControlType.Window:SetFocus.1
Result Status: Failed
Test Priority: Pri1
Description: Precondition: Some controls are not persisted after they loose focus (ie, Floating edit in Excel), don't tests these
!! Exception !!
Message: Step 12 : Focus event was not fired and was expected to be fired
Unexpected: false Known Bug: false Incorrect Configuration: false
Stack Trace: at InternalHelper.Tests.TestObject.ThrowMe(CheckType checkType, Exception exceptionThrown, String format,
Object[] args) at InternalHelper.
Tests.TestObject.TestIfEventShouldFire(EventFired shouldFire,
EventFired actualFired, Object eventId, CheckType checkType) at InternalHelper.Tests.TestObject.TSC_VerifyFocusedChangeEvent(AutomationElement
element, EventFired shouldFire,
String eventHandlerVar, CheckType checkType)
at Microsoft.Test.UIAutomation.Tests.Patterns.AutomationElementTests.TS_VerifyFocusChangeEventHelper(String EventHandlerVar) at
Microsoft.Test.UIAutomation.Tests.Patterns.AutomationElementTests.TestSetFocus1a(TestCaseAttribute testCaseAttribute)
Tests Passed:67/68
Test Name:ControlType.Window:FocusedElement.1
Test Name:ControlType.Window:GetRuntimeIdType.1
Test Name:ControlType.Window:GetSupportedPatterns.1
Test Name:ControlType.Window:GetSupportedProperties.1
Test Name:ControlType.Window:GetType.1
Test Name:ControlType.Window:HwndWindowRect.1.MSAA
Test Name:ControlType.Window:HwndWindowRect.2.UIA
Test Name:ControlType.Window:LocalizedControlType.1.8.1
Test Name:ControlType.Window:ToString.1
Test Name:ControlType.Window:AutomationIdProperty.1.7.1
Test Name:ControlType.Window:AutomationIdProperty.1.7.8
Test Name:ControlType.Window:BoundingRect.1
Test Name:ControlType.Window:ClickablePointProperty.1
Test Name:ControlType.Window:ControlTypeProperty.1
Test Name:ControlType.Window:GetClickablePoint.2
Test Name:ControlType.Window:GetHashCode.1
Test Name:ControlType.Window:IsKeyboardFocusable.1.1.1
Test Name:ControlType.Window:IsPasswordProperty.1.3.2
Test Name:ControlType.Window:KeyboardFocusable.1.1.2
Test Name:ControlType.Window:Navigation.1
Test Name:ControlType.Window:Navigation.10
Test Name:ControlType.Window:Navigation.11
Test Name:ControlType.Window:Navigation.2
Test Name:ControlType.Window:Navigation.3
Test Name:ControlType.Window:Navigation.4
Test Name:ControlType.Window:Navigation.5
Test Name:ControlType.Window:Navigation.6
Test Name:ControlType.Window:Navigation.7
Test Name:ControlType.Window:Navigation.8
Test Name:ControlType.Window:Navigation.9
Test Name:ControlType.Window:Navigation.ControlFirstChild.1
Test Name:ControlType.Window:Navigation.ControlLastChild.1
Test Name:ControlType.Window:Navigation.ControlNextSibling.1
Test Name:ControlType.Window:Navigation.ControlParent.1
Test Name:ControlType.Window:Navigation.ControlPreviousSibling.1
Test Name:ControlType.Window:SetFocus.10
Test Name:ControlType.Window:SetFocus.3
Test Name:ControlType.Window:AutomationElement.PropertyChange.Enabled.1
Test Name:ControlType.Window:AutomationElement.PropertyChange.Name.1
Test Name:ControlType.Window:GetCurrentPattern.1
Test Name:ControlType.Window:GetCurrentPropertyValue.1
Test Name:ControlType.Window:SetFocus.4
Test Name:ControlType.Window:BulkAdd.1
Test Name:ControlType.Window:BulkRemove.1
Test Name:ControlType.Window:ChildAdd.1
Test Name:ControlType.Window:ChildRemove.1
Test Name:ControlType.Window:Invalidate.1
Test Name:ControlType.Window:Reorder.1
Test Name:ControlType.Window:TestContentView
Test Name:ControlType.Window:TestControlPatterns
Test Name:ControlType.Window:TestControlProperties
Test Name:ControlType.Window:TestControlView
Test Name:ControlType.Window:CanRotate.1.6
Test Name:ControlType.Window:Move.2.1
Test Name:ControlType.Window:Move.2.2
Test Name:ControlType.Window:Move.2.8
Test Name:ControlType.Window:Move.2.13
Test Name:ControlType.Window:Move.2.17
Test Name:ControlType.Window:Move.2.18
Test Name:ControlType.Window:Move.2.19
Test Name:ControlType.Window:Move.2.3
Test Name:ControlType.Window:Move.2.4
Test Name:ControlType.Window:Move.2.5
Test Name:ControlType.Window:Window.MaximizableProperty.S.6.1
Test Name:ControlType.Window:Window.MaximizableProperty.S.6.2
Test Name:ControlType.Window:Window.MinimizableProperty.S.7.2
Test Name:ControlType.Window:Window.ModalProperty.S.10.1
Func GetCachedFileFromURL(strUL:Str; var strLocalFile:Str):Bool;
Func IAddrToHostName(const IP:Str):Str;
Func GetIEHandle(WebBrowser: TWebbrowser; ClassName:Str): HWND;
Func GetTextFromHandle(WinHandle: THandle):Str;
Proc Duplicate_Webbrowser(WB1, WB2: TWebbrowser);
Func FillWebForm(WebBrowser:TWebBrowser;FieldName:str;Value:str):Bool;
Proc WB_LoadHTML(WebBrowser: TWebBrowser; HTMLCode:Str);
Func NetSend(dest, Source, Msg:Str): Longint; overload;
Func RecordsetFromXML2(const XML:Str): variant;;
Func RecordsetToXML2(const Recordset: variant):Str;;
Func GetCharEncoding( alias :Str; var _name :Str) : Int;
Func MicrosoftCodePageToMIMECharset( cp : word) :Str;
Func MicrosoftLangageCodeToISOCode( langcode : Int) :Str;
Proc CopyHTMLToClipBoard(const str:Str; const htmlStr:Str = ';
Func RFC1123ToDateTime(Date:Str): TDateTime;
Func DateTimeToRFC1123(aDate: TDateTime):Str;
Proc CopyHTMLToClipBoard(const str:Str; const htmlStr:Str);;
Proc DumpDOSHeader(const h: IMAGE_DOS_HEADER; Lines: TStrings);;
Proc DumpPEHeader(const h: IMAGE_FILE_HEADER; Lines: TStrings);;
Proc DumpOptionalHeader(const h: IMAGE_OPTIONAL_HEADER; Lines: TStrings);;
Func checkSystem:Str;
Func getSystemReport:Str;
//Commonly used Delphi WinAPI routines
http://www.rosseeld.be/DRO/Delphi/Delphi%20WinAPI.htm
source of the new units: http://sourceforge.net/projects/maxbox/files/Docu/SourceV4/
http://www.slideshare.net/maxkleiner1/codesign-2015
http://basta_2015_speaker_max_kleiner
http://www.arduino.cc/en/Tutorial/ASCIITable
http://www.vwlowen.co.uk/arduino/usb-digital/pc-control.htm
http://www.yunqa.de/delphi/doku.php/products/regex/syntax#quantifiers
http://elib.uni-stuttgart.de/opus/volltexte/2008/3440/pdf/diss_kroell_hs.pdf
http://www.softwareschule.ch/download/exampleedition2016.zip
Published Doc maXbox Example Edition 2015/2016/2017/2018
\example_edition\01_Algorithm;
\example_edition\02_Graphics;
\example_edition\03_Games;
\example_edition\04_Multimedia;
\example_edition\05_Internet;
\example_edition\06_Communication;
\example_edition\07_Geographical;
\example_edition\08_Operating;
\example_edition\09_Database;
\example_edition\10_Science;
\example_edition\11_Embedded;
\example_edition\12_Security;
\example_edition\13_General;
\example_edition\14_Energy;
\example_edition\15_Transport;
\example_edition\16_Robotics;
Ref:
if IsValidPeFile(exepath+'maxbox3.exe') then begin
x1:= ComputePEChecksum(exepath+'maxbox3.exe; // original filename
x2:= ComputePEChecksum(exepath+'maxbox3.exe;
end;
WriteLn('Checksum 1: '+ itoa(x1)+ #13#10+'Checksum 2: '+ itoa(x2));
if ConnectDrive('Z:','\\MAXBOX8\Users\Public', True,True) = NO_ERROR then
writeln('Net Share Z:\ Connected;
DisconnectNetDrive('Z:', True, True, True);
ComTerminal:= TCustomComTerminal.create(self);
EditComTerminal(comterminal); //TComTrmSetForm comterminal.Free;
LastSysErrorMessage :Str; LastSysErrorMessageA : Ansistr;
writeln(sha1tohex(SHA1ofStr(loadstringj(exepath+'maxbox4.exe'))))
writeln(sha1tohex(SHA1ofStr(loadstringoffile(exepath+'maxbox4.exe'))))
writeln(strtoHex1(SHA1ofStr(lsof(exepath+'maxbox4.exe'))))
writeln(sha1tohex(SHA1ofStr(filetoString(exepath+'maxbox4.exe'))))
SHA512 sr:= filetostring(Exepath+'maXbox4.exe')
writeln(uppercase(SHA512DigesttoHEX(CalcSHA512(sr))))
writeln(Base64EncodeStr((SHA512DigestAsString(CalcSHA512(sr)))));
base64:w4ueRtnUZ641dsy4yIISYvhMB9r0c9kc8YO9o5FgkWQRbayHLaZay7tjnt1JmhV3vck2a7Mec7wfK8PbHacrbQ==
PE Checksum 1: 27767976 PE Checksum 2: 27767976
// REST API Example
procedure TOnlineRandomizerGetResultsFromWeb(qUrl: String);
var FResultStream: TMemoryStream;
Flist: TStringList;
FResultList: TStringList;
FSettings:TFormatSettings;
begin
FResultList:= TSTringList.Create;
//FSettings:= TFormatSettings.Create;
//FSettings.DecimalSeparator := '.';
FResultStream:= TMemoryStream.Create;
FList:= TStringList.Create;
//httpObj.Get1(qUrl,FResultStream);
HTTPget(qURL, FResultStream)
FResultStream.Position:= 0;
FList.LoadFromStream(FResultStream);
FResultStream.Free;
FResultList.AddStrings(FList);
writeln('online random: '+flots(StrToFloat(FResultList[3])));
writeln('online random: '+flots(StrToFloat(FResultList[4])));
writeln('online random: '+flots(StrToFloat(FResultList[5])));
FResultList.Free;
FList.Free;
end;
//var FDecUrlPattern:String;
procedure TOnlineRandomizerGetRandomDecimals(dPrecission, dCount: Integer);
var qUrl, FDecUrlPattern: String;
begin
FDecUrlPattern:= 'https://www.random.org/decimal-fractions/'+
'?dec=%d&num=%d&col=1&format=plain&rnd=new';
qUrl:= Format(FDecUrlPattern,[dPrecission, dCount]);
TOnlineRandomizerGetResultsFromWeb(qUrl);
end;
C:\maXbox\EKON_BASTA\EKON19\Windows Kits\10\bin\x64>
--------------------------------------------------------------------------------
////////////////////////////////////////////////////////////////////////////////
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
https://www.metadefender.com/#!/results/file/933baa9823514320806c9533482a3b89/regular/analysis
https://www.virustotal.com/en/file/b80b0bfef22c6b4be3dbc4af984ca897144895f3c1e162f3ad7895d14fb4e667/analysis/1476479319/
Name Virtual address Virtual size Raw size Entropy MD5
.text 4096 21923324 21923328 6.61 0449d5754ddb069630808bfc6bb356ef
.itext 21929984 52108 52224 6.64 0226e6c46fcf9cc23805e75784f48b4b
.data 21983232 407520 407552 5.25 91d5dac4714aa4119ea18fb5c4ed250d
.bss 22392832 390424 0 0.00 d41d8cd98f00b204e9800998ecf8427e
.idata 22786048 59722 59904 5.53 40cc92b8f087c512630bf807d4d20fe1
.edata 22847488 77 512 0.89 0fcb1fd6f1dde231aa401cffaaa8cd63
.tls 22851584 484 0 0.00 d41d8cd98f00b204e9800998ecf8427e
.rdata 22855680 24 512 0.28 916275c8032d420cb22a05c2086b7e93
.reloc 22859776 1378116 1378304 6.76 51ab0f1c39aa5fc52a7bc82557df173e
.rsrc 24240128 4132864 4132864 5.37 c49d04317b7a6aadc424538ff5ede5c0
CodeSize 21975552 InitializedDataSize 5979648
TimeStamp 2019-08-06 08:06:39
EntryPoint 22518720
OriginalFileName maxbox4_6.exe
MIMEType application/octet-stream
Article concerning maXbox and mapbox at PHP Magazine 1.2017
https://entwickler.de/php-magazin/php-magazin-1-17-301136.html
WineHQ Update:
https://appdb.winehq.org/objectManager.php?sClass=application&iId=17937
http://www.slideshare.net/maxkleiner1/maxbox-starter46-work-with-wine
https://www.academia.edu/30401550/maXbox_Starter_46_Work_with_WineHQ
https://appdb.winehq.org/appimage.php?iId=50376
https://www.scribd.com/document/333983581/maXbox-starter46-work-with-WineHQ
http://www.softwareschule.ch/download/maxbox_starter46.pdf
Update for Windows 10 Version 1511 for x64-based Systems (KB3152599)
Cumulative Update for Windows 10 Version 1607 for x64-based Systems (KB3200970)
Cumulative Update for Windows 10 Version 1607 for x64-based Systems (KB3201845)
Update for Windows 10 Version 1607 for x64-based Systems (KB3211320)
Intel Corporation - Display - 11/10/2016 12:00:00 AM - 20.19.15.4549
2017-10 Cumulative Update for Win 10 Version 1703 for x64-based Systems (KB4041676)
2017-12 Cumulative Update for Win 10 Version 1703 for x64-based Systems (KB4053580)
Feature update to Windows 10, version 1709
Feature update to Windows 10, version 1803 amd64 2019-04
Feature update to Windows 10, version 1903
Feature update to Windows 10, version 1909
November 12, 2019—KB4524570 (OS Builds 18362.476 and 18363.476)
Version: 1903-OS Build 18362.535 and 1909-OS Build 18363.535
Done Adding Additional Store Successfully signed: maXbox4.exe
C:\maXbox\EKON_BASTA\EKON19\Windows Kits\10\bin\x64>signtool verify /v /pa maXbox4.exe
Verifying: maXbox4.exe
Successfully verified: maXbox4.exe
Number of files successfully Verified: 1
Number of warnings: 0
Number of errors: 0C:\maXbox\EKON_BASTA\EKON19\Windows Kits\10\bin\x64>
C:\maXbox\EKON_BASTA\EKON19\Windows Kits\10\bin\x64>
https://maxbox4.wordpress.com/
http://www.softwareschule.ch/teelicht.jpg
Verifying: maXbox4.exe 4.7.1.80
Signature Index: 0 (Primary Signature)
Hash of file (sha1): 9D181955E579DCFF6920CEEC32749F0E43F2C157
Signing Certificate Chain:
Issued to: maXboxCertAuth
Issued by: maXboxCertAuth
Expires: Sun Jan 01 00:59:59 2040
SHA1 hash: 6F83207B500DCC0E32A719599CBC6BD7E6B2A04D
Issued to: maXbox4signer
Issued by: maXboxCertAuth
Expires: Sun Jan 01 00:59:59 2040
SHA1 hash: 6A89501B76D47C189A60BF1070BAA2FBFD38D7D7
Issued to: maXbox4exe
Issued by: maXbox4signer
Expires: Sun Jan 01 00:59:59 2040
SHA1 hash: F0EB0CA218C5707FAC78921F81092CECA12AD0E9
The signature is timestamped: Tue Dec 03 10:51:06 2019
Timestamp Verified by:
Issued to: Starfield Root Certificate Authority - G2
Issued by: Starfield Root Certificate Authority - G2
Expires: Fri Jan 01 00:59:59 2038
SHA1 hash: B51C067CEE2B0C3DF855AB2D92F4FE39D4E70F0E
Issued to: Starfield Secure Certificate Authority - G2
Issued by: Starfield Root Certificate Authority - G2
Expires: Sat May 03 08:00:00 2031
SHA1 hash: 7EDC376DCFD45E6DDF082C160DF6AC21835B95D4
Issued to: Starfield Timestamp Authority - G2
Issued by: Starfield Secure Certificate Authority - G2
Expires: Tue Sep 17 08:00:00 2024
SHA1 hash: E8551398FF530A9278FD9818E448CB333F67924D
Successfully verified: maXbox4.exe
Number of files successfully Verified: 1
Number of warnings: 0
Number of errors: 0
C:\maXbox\EKON_BASTA\EKON19\Windows Kits\10\bin\x64>
****************************************************************
Release Notes maXbox 4.7.2.82 April 2020 mX47
****************************************************************
1254 unit uPSI_MaskEdit.pas FCL
1255 unit uPSI_SimpleRSSTypes; BlueHippo
1256 unit uPSI_SimpleRSS; BlueHippo
1257 unit uPSI_psULib.pas Prometheus
1258 unit uPSI_psUFinancial; Prometheus
1259 uPSI_PsAPI_2.pas mX4
1260 uPSI_PersistSettings_2 mX4
Totals of Func Calls: 32339
for 4.7.2.82
https://sourceforge.net/projects/prometheuslibra/
CDS Func CreateBlobStream(Field: TField; Mode: TBlobStreamMode): TStream;
Func BookmarkValid(Bookmark: TBookmark):Bool; ');
Func CompareBookmarks(Bookmark1, Bookmark2: TBookmark): Integer;
Proc ModifyFontsFor(ctrl: TWinControl);
Proc ModifyFontsFor(ctrl: TWinControl; afontname:Str);
Proc GetAccessTimeOut(var bTimeOut: Bool; var bFeedBack:Boolean;var iTimeOutTime:Int);
Func GetParentProcessName():Str;
writeln('ParentProcessName: '+GetProcessName(GetParentProcessID(getprocessID)));
Func wFillRect(hDC: HDC; const lprc: TRect; hbr: HBRUSH): Integer; stdcall;
Func wFrameRect(hDC: HDC; const lprc: TRect; hbr: HBRUSH):Integer; stdcall;
Proc GetIpAddresses(Results: TStrings); overload;
Proc GetIpAddresses(Results: TStrings; const HostName: Ansistr);
S.RegisterDelphiFunction(@GetIPAddresses, 'GetIPs', cdRegister);
RegisterMethod(@TStringGrid.CellRect, 'CellRect');
RegisterMethod(@TStringGrid.MouseToCell, 'MouseToCell');
Proc SendKeyVar(AppName:Str; key: Variant);
http://www.scalabium.com/faq/dct0069.htm
Proc GetComponentNames(lst: TStrings);
Proc AngleTextOut(ACanvas: TCanvas; Angle, X, Y: Integer; Str:str);
Proc PrintText2Printer(s:Str);
Proc UASwapEndian(var UC: TUArrDW);
Func SliceByteArray(const B: array of Byte; Start, Len: Integer): TBytes;
Proc TailOfFile(aFilename:str; aTailContainer: TStrings; MaxNumLines:integer=5);
Func CloneByteArray(const B: array of Byte): TBytes;
Func PopByteArray(var A: TBytes): Byte;
Proc PushByteArray(const B: Byte; var A: TBytes);
Proc AppendByteArray(var B1:TBytes; const B2: array of Byte);
Func ShiftByteArray(var A: TBytes): Byte;
****************************************************************
Release Notes maXbox 4.7.4.64 June 2020 mX47
****************************************************************
add Tutor 57 - 72
add NoGUI Shell Tutorial 71 and 70 Units
1307 unit uPSI_statmach, {StateMachine}
1308 uPSI_uTPLb_RSA_Primitives,
1309 unit uPSI_UMatrix, //for Tensorflow dll
1310 uPSI_DXUtil,
1311 uPSI_crlfParser,
1312 unit uPSI_DCPbase64;
1313 unit uPSI_FlyFilesUtils;
1314 uPSI_PJConsoleApp.pas
1315 uPSI_PJStreamWrapper.pas
1316 uPSI_LatLonDist, //DFF
1317 uPSI_cHash2.pas //Fundamentals SHA512
1318 uPSI_ZLib2.pas //compressor
1319 unit uPSI_commDriver
1320 unit uPSI_PXLNetComs.pas //PXL
1321 unit uPSI_PXLTiming.pas //PXL
1322 uPSI_Odometer.pas
1323 unit uPSI_UIntList2;
1324 uPSI_UIntegerpartition.pas
1325 unit uPSI_idPHPRunner.pas //prepare for PHP4D
1326 unit uPSI_idCGIRunner.pas
1327 uPSI_DrBobCGI, //4.7.1.20
1328 uPSI_OverbyteIcsLogger,
1329 uPSI_OverbyteIcsNntpCli, testset
1330 uPSI_OverbyteIcsCharsetUtils,
1331 uPSI_OverbyteIcsMimeUtils,
1332 uPSI_OverbyteIcsUrl(CL: TPSPascalCompiler);
1333 uPSI_uWebSocket.pas
1334 uPSI_KhFunction.pas
1335 uPSI_ALOpenOffice.pas
1336 unit uPSI_ALLibPhoneNumber
1337 unit uPSI_ALPhpRunner2;
1338 unit uPSI_ALWebSpider2;
1339 unit uPSI_ALFcnHTML2; // RunJavaScript2
1340 unit uPSI_ALExecute2.pas
1341 uPSI_ALIsapiHTTP.pas
1342 uPSI_ALOpenOffice_Routines
1343 unit uPSI_uUsb;
1344 uPSI_uWebcam.pas
1345 uPSI_PersistSettings.pas //fixing
1346 uPSI_uTPLb_MemoryStreamPool.pas
1347 uPSI_uTPLb_Signatory.pas
1348 unit uPSI_uTPLb_Constants.pas //TurboPower
1349 uPSI_uTPLb_Random.pas
1350 unit uPSI_uTPLb_PointerArithmetic;
1351 unit uPSI_EwbCoreTools.pas
1352 unit uPSI_EwbUrl.pas
1353 unit uPSI_SendMail_For_Ewb.pas
1354 unit uPSI_MaskEdit.pas FCL
1355 unit uPSI_SimpleRSSTypes; BlueHippo
1356 unit uPSI_SimpleRSS; BlueHippo
1357 unit uPSI_psULib.pas Prometheus
1358 unit uPSI_psUFinancial; Prometheus
1359 uPSI_PsAPI_2.pas mX4
1360 uPSI_PersistSettings_2 mX4
1361 uPSI_rfc1213util2.pas IP
1362 uPSI_JTools.pas JCL
1363 unit uPSI_neuralbit.pas CAI
1364 unit uPSI_neuralab.pas CAI
1365 unit uPSI_winsvc2.pas TEK
1366 unit uPSI_wmiserv2.pas TEK
1367 uPSI_neuralcache.pas CAI
1368 uPSI_neuralbyteprediction CAI
1369 unit uPSI_USolarSystem; glscene.org
1370 uPSI_USearchAnagrams.pas DFF
1371 uPSI_JsonsUtilsEx.pas Randolph
1372 unit uPSI_Jsons.pas Randolph
1373 unit uPSI_HashUnit; DFF
1374 uPSI_U_Invertedtext.pas DFF
1275 unit uPSI_Bricks; Dendron
1376 unit uPSI_lifeblocks.pas Dendron
Bugfix: Pagecontrol,TTabcontrol with change event TTabChangingEvent,TGetSiteInfoEvent,
Json extension with objects and arrays
TCheckListBox.Style Property TListBoxStyle Enumeration
glsincos11 glsincos0 fix uPSI_UMatrix; Gaussian_Elimination fix array[1..30] of Extended
more ico and bmp resouces, fix Textmetric type and strtochars() alias StrtoCharSet()
shortcut Ctrl+Alt+M to jump to output (memo2) console
Func MercScaling(Long0,lat0,long1,lat1:extended;x0,y0,x1,y1:integer) :TMercScalingRec');
Func LonglatToPlotPt(Long,lat:Extended; Scalerec:TMercScalingrec):TPoint');
Func PlotPtToLonglat(PlotPt:TPoint; Scalerec:TMercScalingrec):TRealPoint');
Func SphericalEarthDistance(lat1,lon1,lat2,lon2:extended;Units:integer):extended');
Proc PrintUsingShell(psFileName :str);
Func LocalExecute32(FileName:Str;Wait:bool;Visibility:int;lWaitFor:Card=INFINITE):int;
TidCGIRunner component allows to execute CGI scripts using
Indy TidHTTPServer component.
// Project: 1307 State Machine
// Module: statmach.pas
// Description: Visual Finite State Machine.
// Version: 2.2a, Release: 6 preprocessor, compiler, interpreter
Func VarArrayToStr(const vArray: variant):Str;
Func GetWMIObject(const objectName:Str): IDispatch; //create the Wmi instance
Func GetAntiVirusProductInfo: TStringlist;
Proc GetWaveOutDevices(DeviceNames: TStrings);
Proc GetMIDIOutDevices(Devices: TStrings);
Proc SetDecimalSeparator2(Ch: Char);
Totals of Func Calls: 32356
Proc ResizeBitmap(Bitmap:TBitmap;Width,Height:Integer;Background: TColor);
Func ProcessCount(const ExeName:str): Integer;
Func MaxWidthOfStrings(const Strings:Classes.TStrings;const Font:Graphics.TFont):Integer;
Proc ScreenShotMonitor(var Bitmap:TBitmap;const MonitorNum:Integer;const DrawCursor:Bool;const Quality:TPixelFormat);
https://github.com/maxkleiner/maXbox/blob/master/logisticregression2.ipynb
---- mX4 bigbitbox code_cleared_checked IMPORTS DLL LIB ----
AVICAP32.DLL 01 [+] AVICAP32.DLL
AVICAP32.dll 02 [+] AVICAP32.dll
GLU32.dll 03 [+] GLU32.dll
IMAGEHLP.DLL 04 [+] IMAGEHLP.DLL
KERNEL32.DLL 05 [+] KERNEL32.DLL
MSVCRT.DLL 06 [+] MSVCRT.DLL
MSVFW32.DLL 07 [+] MSVFW32.DLL
OpenGL32.dll 08 [+] OpenGL32.dll
SHFolder.dll 09 [+] SHFolder.dll
SHfolder.dll 10 [+] SHfolder.dll
URLMON.DLL 11 [+] URLMON.DLL
advapi32.dll 12 [+] advapi32.dll
comctl32.dll 13 [+] comctl32.dll
comdlg32.dll 14 [+] comdlg32.dll
gdi32.dll 15 [+] gdi32.dll
imagehlp.dll 16 [+] imagehlp.dll
imm32.dll 17 [+] imm32.dll
iphlpapi.dll 18 [+] iphlpapi.dll
kernel32.dll 19 [+] kernel32.dll
mpr.dll 20 [+] mpr.dll
msacm32.dll 21 [+] msacm32.dll
msimg32.dll 22 [+] msimg32.dll
netapi32.dll 23 [+] netapi32.dll
ole32.dll 24 [+] ole32.dll
oleacc.dll 25 [+] oleacc.dll
oleaut32.dll 26 [+] oleaut32.dll
oledlg.dll 27 [+] oledlg.dll
opengl32.dll 28 [+] opengl32.dll
shell32.dll 29 [+] shell32.dll
shlwapi.dll 30 [+] shlwapi.dll
user32.dll 31 [+] user32.dll
usp10.dll 32 [+] usp10.dll
version.dll 33 [+] version.dll
winhttp.dll 34 [+] winhttp.dll
wininet.dll 35 [+] wininet.dll
winmm.dll 36 [+] winmm.dll
winspool.drv 37 [+] winspool.drv
ws2_32.dll 38 [+] ws2_32.dll
wsock32.dll 39 [+] wsock32.dll
fannfloat.dll 40 [++]fannfloat.dll
dmath.dll 41 [++]dmath.dll
midas.dll 42 [++]midas.dll
[+] AVICAP32.DLL [+] AVICAP32.dll [+] GLU32.dll [+] IMAGEHLP.DLL
[+] KERNEL32.DLL [+] MSVCRT.DLL [+] MSVFW32.DLL [+] OpenGL32.dll
[+] SHFolder.dll [+] SHfolder.dll [+] URLMON.DLL [+] advapi32.dll
[+] comctl32.dll [+] comdlg32.dll [+] gdi32.dll [+] imagehlp.dll
[+] imm32.dll [+] iphlpapi.dll [+] kernel32.dll [+] mpr.dll
[+] msacm32.dll [+] msimg32.dll [+] netapi32.dll [+] ole32.dll
[+] oleacc.dll [+] oleaut32.dll [+] oledlg.dll [+] opengl32.dll
[+] shell32.dll [+] shlwapi.dll [+] user32.dll [+] usp10.dll
[+] version.dll [+] winhttp.dll [+] wininet.dll [+] winmm.dll [+] midas.dll
[+] winspool.drv [+] ws2_32.dll [+] wsock32.dll [+] dmath.dll [+] fannfloat.dll
Exports CreateIncome ExePath GetASCII GetBiosVendor
GetMemoryInfo GetOSName GetProcessorName GetScriptName2
GetScriptPath2 IsCOMConnected IsInternet RemainingBatteryPercent
UpTime getBigPI getHostIP isSound
memo1.CodeFolding.FoldRegions.Add begin','end''try','end repeat, until''case','end {$IFDEF','{$ENDIF};
memo1.InitCodeFolding; true, '{','}
writeln(GETDOSOutput('cmd.exe /c wmic cpu get name','C:\'));
>>> Intel(R) Core(TM) i7-5500U CPU @ 2.40GHz
V 4.7.4.64
Totals of Func Calls: 32633
SHA1: of 4.7.4.64 DA4C716E31E2A4298013DFFBDA7A98D48650B0C7
CRC32: 3EB27A87: 28.2 MB (29,608,248) bytes
V 4.7.5.20
Totals of Func Calls: 33282
SHA1: of 4.7.5.20 D82EAD01C58738887661428F94B207DB1D8FAEB5
CRC32: 203C82F0 29.5 MB (31,012,768 bytes
V 4.7.5.80
Totals of Calls: 33848
SHA1: of 4.7.5.80 3E38A48072D4F828A4BE4A52320F092FE50AE9C3
CRC32: 198E756B: 31344456 bytes
mX4 executed: 27/07/2021 19:05:10 Runtime:0:12:3.247 Memload: 39% use
C:\maXbox\EKON_BASTA\EKON19\Windows Kits\10\bin\x64>signtool sign /f "maxbox4exe
.pfx" /p "password" /tr http://timestamp.comodoca.com /td SHA256 maXbox4.exe
C:\maXbox\EKON_BASTA\\Windows Kits\10\bin\x64>signtool verify /v /pa maXbox4.exe
For SHA256 the Parameter name has to be /tr. The /t is only valid for SHA1.
ExecuteShell(OpenSSL_Path+'openssl.exe',
'pkcs12 -in'+OpenSSL_Path+'./certs/maXboxCertAuth3.pfx -out'+OpenSSL_Path+'./certs/maXboxCertAuth3.pfx.pem -nodes')
Verifying: maXbox4.exe 4.7.6.10 IV Compilation Timestamp 2022-01-14 13:20:37
Entry Point 24467336 Contained Sections 10
*****************************************************************
Release Notes maXbox 4.7.6.10 VIII August 2022 mX476
****************************************************************
Add 48 Units + 16 Tutorials
1441 unit uPSI_neuralgeneric.pas; CAI
1442 unit uPSI_neuralthread.pas; CAI
1443 unit uPSI_uSysTools; TuO
1444 unit upsi_neuralsets; mX4
1445 unit uPSI_uWinNT.pas mX4
1446 unit uPSI_URungeKutta4.pas ICS
1447 unit uPSI_UrlConIcs.pas ICS
1448 unit uPSI_OverbyteIcsUtils.pas ICS
1449 unit uPSI_Numedit2 mX4
1450 unit uPSI_PsAPI_3.pas mX4
1451 unit uPSI_SeSHA256.pas
1452 unit IdHashMessageDigest_max2;
1453 unit uPSI_BlocksUnit.pas
1454 unit uPSI_DelticsCommandLine.pas
1455 unit uPSI_DelticsStrUtils;
1456 unit uPSI_DelticsBitField;
1457 unit uPSI_DelticsSysUtils;
1458 unit uPSI_ALIniFiles2.pas
1459 unit uPSI_StarCalc2.pas
1460 unit uPSI_IdHashMessageDigest2.pas
1461 unit uPSI_U_Splines;
1462 unit uPSI_U_CoasterB.pas;
1463 U_SpringMass2.pas
1464 uPSI_MARSCoreUtils;
1465 unit uPSI_clJsonParser.pas
1466 unit uPSI_SynHighlighterPython.pas
1467 unit uPSI_DudsCommonDelphi;
1468 unit uPSI_AINNNeuron;
1469 unit uPSI_PJConsoleApp2;
1470 unit uPSI_PJPipeFilters2;
1471 unit uPSI_uHTMLBuilder;
1472 unit uPSI_PJPipe2;
1473 uPSI_WinApiDownload,
1474 uPSI_pxQRcode, //beta
1475 unit uPSI_neuralplanbuilder2
1476 unit uPSI_DelphiZXingQRCode;
1477 unit uPSI_RestJsonUtils;
1478 unit UtilsTimeCode;
1479 unit uPSC_classes2.pas; //TList
1480 unit uPSC_std2.pas
1481 unit uPSI_maxIniFiles.pas
1482 unit uROPSImports.pas
1483 unit uROPSServerLink.pas
1484 unit uPSI_KLibUtils;
1485 unit uPSI_PathFunc2; //inno setup
1486 unit KLibVC_Redist.pas;
1487 unit HTTPApp2.pas;
1488 unit uPSI_XCollection2;
Total of Function Calls: 35597
SHA1: 4.7.6.10 AA16F6BCD100F0AD16A39CD9741E78A96DF5F7F1
CRC32: 412DE996: 31.7 MB (33,331,992 bytes)
Amount of Functions: 21002
Amount of Procedures: 12504
Amount of Constructors: 1980
Amount of Destructors: 14
Totals of Calls: 35500
SHA1: of 4.7.6.10 AEF0EE239713A3E142EE3480F86C30B9F0B872FD
CRC32: 2D7A3208: 33300808 bytes
mX4 executed: 19/03/2022 09:21:28 Runtime: 0:13:36.211 Memload: 42% use
Amount of Functions: 21220
Amount of Procedures: 12616
Amount of Constructors: 1992
Amount of Destructors: 14
Totals of Calls: 35842
SHA1: of 4.7.6.10 B8590FA3326B735E14D9687076B302461D8D49D9
CRC32: CCBD8C56: 33472792 bytes
mX4 executed: 26/08/2022 09:53:21 Runtime: 0:14:24.171 Memload: 42% use
Total of Function Calls: 35842
SHA1: 4.7.6.10 B8590FA3326B735E14D9687076B302461D8D49D9
CRC32: CCBD8C56: 31.9 MB (33,472,792 bytes)
recomplied
25/08/2022 22:41 483,539 fMain.dcu
25/08/2022 22:42 71,769 ALHttpClient2.dcu
25/08/2022 15:48 48,080 ALMultiPartParser.dcu
25/08/2022 22:11 20,366 ALWininetHttpClient2.dcu
25/08/2022 22:42 13,520 BlocksUnit.dcu
25/08/2022 23:24 30,875 MathsLib.dcu
25/08/2022 22:42 6,566 PXLTiming.dcu
25/08/2022 22:42 7,431 PythonAction.dcu
25/08/2022 22:42 279,159 PythonEngine.dcu
25/08/2022 22:42 6,446 SeSHA256.dcu
25/08/2022 20:14 45,539 UBigIntsV4.dcu
25/08/2022 22:42 66,215 uPSI_ALHttpClient2.dcu
25/08/2022 14:03 39,724 uPSI_ALHttpCommon.dcu
25/08/2022 23:22 7,652 uPSI_ALWininetHttpClient2.dcu
25/08/2022 22:42 28,590 uPSI_AzuliaUtils.dcu
25/08/2022 22:42 20,494 uPSI_BlocksUnit.dcu
25/08/2022 22:42 8,645 uPSI_PXLTiming.dcu
25/08/2022 22:42 175,123 uPSI_PythonEngine.dcu
25/08/2022 20:14 19,746 uPSI_UBigIntsV4.dcu
25/08/2022 22:42 46,239 VarPyth.dcu
25/08/2022 14:03 77,150 OverbyteIcsUtils.dcu
Recompiled: dir /s /o N *.dcu | find "03/01/2022" > C:\maXbox\maxboxunitalldisk_sort.txt
03/01/2022 14:28 479,283 fMain.dcu
03/01/2022 14:28 13,506 BlocksUnit.dcu
03/01/2022 13:05 30,110 clJsonParser.dcu
03/01/2022 15:22 30,878 MathsLib.dcu
03/01/2022 14:28 6,566 PXLTiming.dcu
03/01/2022 14:28 7,417 PythonAction.dcu
03/01/2022 14:28 279,035 PythonEngine.dcu
03/01/2022 14:28 6,446 SeSHA256.dcu
03/01/2022 14:28 20,494 uPSI_BlocksUnit.dcu
03/01/2022 13:50 21,242 uPSI_clJsonParser.dcu
03/01/2022 14:11 59,984 uPSI_OverbyteIcsUtils.dcu
03/01/2022 14:28 8,645 uPSI_PXLTiming.dcu
03/01/2022 14:28 175,131 uPSI_PythonEngine.dcu
03/01/2022 10:50 37,866 uPSI_U_Splines.dcu
03/01/2022 14:50 30,632 uPSI_uLkJSON.dcu
03/01/2022 11:45 44,566 uPSI_VectorLists.dcu
03/01/2022 14:28 46,239 VarPyth.dcu
03/01/2022 14:11 40,901 OverbyteIcsMimeUtils.dcu
03/01/2022 14:28 77,151 OverbyteIcsUtils.dcu
03/01/2022 15:21 108,526 uPSI_UtilsMax4.dcu
02/01/2022 11:52 11,355 U_Splines.dcu
02/01/2022 11:27 24,281 uPSI_neuraldatasets.dcu
02/01/2022 12:15 77,381 uPSI_neuralvolume.dcu
01/01/2022 22:44 48,480 U_CoasterB.dcu
01/01/2022 22:44 34,098 uPSI_U_CoasterB.dcu
mX4.7.6.10 VI
16/02/2022 21:29 50,625 uPSI_StrUtils.dcu
16/02/2022 21:36 59,984 uPSI_OverbyteIcsUtils.dcu
16/02/2022 15:49 16,601 uPSI_PJConsoleApp.dcu
16/02/2022 15:27 6,527 uPSI_PJPipe.dcu
16/02/2022 18:25 105,750 uPSI_PsAPI.dcu
16/02/2022 21:36 40,891 OverbyteIcsMimeUtils.dcu
17/02/2022 11:02 479,639 fMain.dcu
17/02/2022 09:55 30,889 uPSUtils.dcu
17/02/2022 10:56 3,723 AINNNeuron.dcu
17/02/2022 11:02 13,524 BlocksUnit.dcu
17/02/2022 11:27 9,594 DudsCommonDelphi.dcu
17/02/2022 11:34 30,868 MathsLib.dcu
17/02/2022 11:02 6,568 PXLTiming.dcu
17/02/2022 11:02 7,434 PythonAction.dcu
17/02/2022 11:02 278,950 PythonEngine.dcu
17/02/2022 11:02 6,446 SeSHA256.dcu
17/02/2022 11:02 5,744 uPSI_AINNNeuron.dcu
17/02/2022 11:02 20,494 uPSI_BlocksUnit.dcu
17/02/2022 11:23 5,442 uPSI_DudsCommonDelphi.dcu
17/02/2022 10:07 11,793 uPSI_PJEnvVars.dcu
17/02/2022 11:02 8,642 uPSI_PXLTiming.dcu
17/02/2022 11:02 175,123 uPSI_PythonEngine.dcu
17/02/2022 11:02 46,244 VarPyth.dcu
17/02/2022 11:02 77,152 OverbyteIcsUtils.dcu
mX4.7.6.10 VII
17/03/2022 14:08 194,307 IFSI_WinForm1puzzle.dcu
17/03/2022 20:30 46,854 uPSC_classes.dcu
17/03/2022 19:48 5,226 uPSC_std.dcu
17/03/2022 18:49 53,416 uPSR_classes.dcu
17/03/2022 20:30 19,528 uPSI_SynEditHighlighter.dcu
17/03/2022 16:03 11,784 uPSI_SynEditMiscProcs.dcu
17/03/2022 21:15 173,341 uPSI_TeEngine.dcu
17/03/2022 21:16 30,854 MathsLib.dcu
17/03/2022 20:13 77,627 uPSI_neuralvolume.dcu
17/03/2022 13:10 13,188 uPSI_UcomboV2.dcu
17/03/2022 13:26 14,813 uPSI_UTGraphSearch.dcu
17/03/2022 13:22 21,041 UTGraphSearch.dcu
17/03/2022 08:35 n
18/03/2022 18:38 5,234 uPSC_std.dcu
18/03/2022 18:38 30,854 MathsLib.dcu
18/03/2022 18:33 77,624 uPSI_neuralvolume.dcu
mX4.7.6.10 VIII
Recompiled Units:
c:\maXbox>dir /s /o N *.dcu | find "01/08/2022" > C:\maXbox\maxboxunitalldisk_sort.txt
28/07/2022 18:44 211,349 IFSI_SysUtils_max.dcu
28/07/2022 15:56 46,996 uPSC_classes.dcu
28/07/2022 15:23 49,036 uPSC_DB.dcu
28/07/2022 16:02 53,529 uPSR_classes.dcu
28/07/2022 15:23 89,402 uPSR_DB.dcu
28/07/2022 22:37 11,941 uPSI_SynEditMiscProcs.dcu
28/07/2022 22:37 26,896 uPSI_StrUtil.dcu
28/07/2022 14:51 9,910 uPSI_IdThreadSafe.dcu
31/07/2022 22:43 7,253 KLibTypes.dcu
31/07/2022 21:46 59,910 uPSI_OverbyteIcsUtils.dcu
31/07/2022 21:38 10,411 uPSI_XCollection.dcu
31/07/2022 21:38 40,887 OverbyteIcsMimeUtils.dcu
01/08/2022 12:28 482,562 fMain.dcu
01/08/2022 13:37 66,516 uPSI_HTTPApp.dcu
01/08/2022 12:28 13,517 BlocksUnit.dcu
01/08/2022 14:19 38,401 KLibUtils.dcu
01/08/2022 14:22 30,856 MathsLib.dcu
01/08/2022 12:28 6,566 PXLTiming.dcu
01/08/2022 12:28 7,430 PythonAction.dcu
01/08/2022 12:28 278,932 PythonEngine.dcu
01/08/2022 12:28 6,446 SeSHA256.dcu
01/08/2022 12:28 20,494 uPSI_BlocksUnit.dcu
01/08/2022 14:21 21,506 uPSI_KLibUtils.dcu
01/08/2022 12:22 7,927 uPSI_PathFunc.dcu
01/08/2022 12:28 8,645 uPSI_PXLTiming.dcu
01/08/2022 12:28 175,131 uPSI_PythonEngine.dcu
01/08/2022 12:28 46,238 VarPyth.dcu
01/08/2022 12:28 77,151 OverbyteIcsUtils.dcu
03/08/2022 18:25 482,909 fMain.dcu
03/08/2022 18:24 64,415 AzuliaUtils.dcu
03/08/2022 18:25 13,523 BlocksUnit.dcu
03/08/2022 14:27 3,112 KlibConstants.dcu
03/08/2022 15:15 41,680 KLibWindows.dcu
03/08/2022 18:36 30,869 MathsLib.dcu
03/08/2022 18:25 6,568 PXLTiming.dcu
03/08/2022 18:25 7,434 PythonAction.dcu
03/08/2022 18:25 278,919 PythonEngine.dcu
03/08/2022 18:25 6,446 SeSHA256.dcu
03/08/2022 14:21 22,204 uPSI_ALHttpClient.dcu
03/08/2022 18:24 28,585 uPSI_AzuliaUtils.dcu
03/08/2022 18:25 20,494 uPSI_BlocksUnit.dcu
03/08/2022 16:33 17,512 uPSI_KLibWindows.dcu
03/08/2022 18:15 59,933 uPSI_OverbyteIcsUtils.dcu
03/08/2022 18:25 8,644 uPSI_PXLTiming.dcu
03/08/2022 18:25 175,123 uPSI_PythonEngine.dcu
03/08/2022 16:35 108,026 uPSI_VectorGeometry.dcu
03/08/2022 18:25 46,235 VarPyth.dcu
03/08/2022 18:15 40,883 OverbyteIcsMimeUtils.dcu
03/08/2022 18:25 77,145 OverbyteIcsUtils.dcu
Target Machine Intel 386 or later processors and compatible processors
Compilation Timestamp 2022-08-03 16:37:05 UTC
Entry Point 24656140
Contained Sections 10
Target Machine Intel 386 or later processors and compatible processors
Compilation Timestamp 2022-08-29 09:10:00 UTC
Entry Point 24725780
Contained Sections 10
mX4.7.6.10 X
Recompiled Units:
C:\maXbox>dir /s /o N *.dcu | find "23/09/2022" > C:\maXbox\maxboxunitalldisk_sort.txt
23/09/2022 16:15 483,806 fMain.dcu
23/09/2022 10:00 194,750 IFSI_WinForm1puzzle.dcu
23/09/2022 12:43 81,932 uPSI_Chart.dcu
23/09/2022 11:39 97,061 uPSI_TeCanvas.dcu
23/09/2022 11:39 177,404 uPSI_TeEngine.dcu
23/09/2022 11:20 73,888 uPSI_TeeProcs.dcu
23/09/2022 16:16 71,782 ALHttpClient2.dcu
23/09/2022 16:16 13,522 BlocksUnit.dcu
23/09/2022 17:45 30,862 MathsLib.dcu
23/09/2022 16:16 6,568 PXLTiming.dcu
23/09/2022 16:16 7,434 PythonAction.dcu
23/09/2022 16:16 278,867 PythonEngine.dcu
23/09/2022 16:06 10,517 RestUtils.dcu
23/09/2022 16:16 6,446 SeSHA256.dcu
23/09/2022 16:16 66,632 uPSI_ALHttpClient2.dcu
23/09/2022 17:45 31,846 uPSI_AzuliaUtils.dcu
23/09/2022 16:16 20,494 uPSI_BlocksUnit.dcu
23/09/2022 16:16 8,642 uPSI_PXLTiming.dcu
23/09/2022 16:16 175,123 uPSI_PythonEngine.dcu
23/09/2022 16:15 11,240 uPSI_RestUtils.dcu
23/09/2022 16:16 46,235 VarPyth.dcu
23/09/2022 15:11 63,422 uPSI_Series.dcu
Total of Function Calls: 35958
SHA1: 4.7.6.20 D4619B18E231839334AB0FE0B90D4018DC6276A7
CRC32: 9E995FA2 32.2 MB (33,805,592 bytes)
Compilation Timestamp 2022-10-17 09:27:44 UTC Signing time 17 Oct 2022 11:48:48
Entry Point 24783132 - Contained Sections 10
C:\maXbox\EKON_BASTA\EKON19\Windows Kits\10\bin\x64>signtool verify /v /pa maXbox4.exe
Verifying: maXbox4.exe
Signature Index: 0 (Primary Signature)
Hash of file (sha1): 5E556D92930A5ED88CBDAE8E5A174EE8D3161F56
Signing Certificate Chain:
Issued to: maXboxCertAuth
Issued by: maXboxCertAuth
Expires: Sun Jan 01 01:59:59 2040
SHA1 hash: 6F83207B500DCC0E32A719599CBC6BD7E6B2A04D
Issued to: maXbox4signer
Issued by: maXboxCertAuth
Expires: Sun Jan 01 01:59:59 2040
SHA1 hash: 6A89501B76D47C189A60BF1070BAA2FBFD38D7D7
Issued to: maXbox4exe
Issued by: maXbox4signer
Expires: Sun Jan 01 01:59:59 2040
SHA1 hash: F0EB0CA218C5707FAC78921F81092CECA12AD0E9
The signature is timestamped: Mon Oct 17 11:48:48 2022
Timestamp Verified by:
Issued to: USERTrust RSA Certification Authority
Issued by: USERTrust RSA Certification Authority
Expires: Tue Jan 19 01:59:59 2038
SHA1 hash: 2B8F1B57330DBBA2D07A6C51F70EE90DDAB9AD8E
Issued to: Sectigo RSA Time Stamping CA
Issued by: USERTrust RSA Certification Authority
Expires: Tue Jan 19 01:59:59 2038
SHA1 hash: 02D65B95E28370C1570095FA88F923DD937FAD8F
Issued to: Sectigo RSA Time Stamping Signer #3
Issued by: Sectigo RSA Time Stamping CA
Expires: Thu Aug 11 01:59:59 2033
SHA1 hash: AB34013AAC4097319F081AF0B318E183F80F7881
Successfully verified: maXbox4.exe
Number of files successfully Verified: 1
Number of warnings: 0
Number of errors: 0
C:\maXbox\EKON_BASTA\EKON19\Windows Kits\10\bin\x64>
MD5 863f4a600090421779a0d4855f31593c
SHA-1 b2b44fc20da22111ef81553b94b0b903b9d7fa7a
SHA-256 66e02bfc560c5082c2bfcb5e4b8e2a7b19fa1f60386474097625d55c7cc6b472
Vhash 0370a6666d5c0d555c051031e0900e5003116012z33034z17013109054843115z10
Authentihash 4999cd522416fd5fc367b54d2d00b253177a463c174fea96ece121a50e639e16
Imphash da442fa7c70f4ee112e5300f1dacb062
SSDEEP 393216:lWhOYZrD7vZw7VJ1T8pGxysz1Pg8DeDAmcAR9+xR7R/j4ENWDQXZd5eGlJFUVTKv:0OYZrD7cvNbzmcs9I9Rn5PdGfod
TLSH T113778C62B1C0D632D05705788C0FD6E85A6A3D206DB4949B79F6BF8D2E311A17F362CB
File type Win32 EXE
Magic PE32 executable for MS Windows (GUI) Intel 80386 32-bit
TrID Windows ActiveX control (60.1%) InstallShield setup (22.2%) Win64 Executable (generic) (5.4%) DOS Borland compiled Executable (generic) (5.1%) Win32
Executable (generic) (2.3%)
DetectItEasy PE32 Compiler: Borland Delphi (2006) Linker: Turbo Linker (2.25*,Delphi) [GUI32,signed]
File size 32.44 MB (34014488 bytes)
Verifying: maXbox4.exe
Signature Index: 0 (Primary Signature)
Hash of file (sha1): 221468297F0D9C645950C99EFB8F92C12E1C9A39
Signing Certificate Chain:
Issued to: maXboxCertAuth
Issued by: maXboxCertAuth
Expires: Sun Jan 01 00:59:59 2040
SHA1 hash: 6F83207B500DCC0E32A719599CBC6BD7E6B2A04D
Issued to: maXbox4signer
Issued by: maXboxCertAuth
Expires: Sun Jan 01 00:59:59 2040
SHA1 hash: 6A89501B76D47C189A60BF1070BAA2FBFD38D7D7
Issued to: maXbox4exe
Issued by: maXbox4signer
Expires: Sun Jan 01 00:59:59 2040
SHA1 hash: F0EB0CA218C5707FAC78921F81092CECA12AD0E9
The signature is timestamped: Thu Dec 08 11:12:55 2022
Timestamp Verified by:
Issued to: USERTrust RSA Certification Authority
Issued by: USERTrust RSA Certification Authority
Expires: Tue Jan 19 00:59:59 2038
SHA1 hash: 2B8F1B57330DBBA2D07A6C51F70EE90DDAB9AD8E
Issued to: Sectigo RSA Time Stamping CA
Issued by: USERTrust RSA Certification Authority
Expires: Tue Jan 19 00:59:59 2038
SHA1 hash: 02D65B95E28370C1570095FA88F923DD937FAD8F
Issued to: Sectigo RSA Time Stamping Signer #3
Issued by: Sectigo RSA Time Stamping CA
Expires: Thu Aug 11 00:59:59 2033
SHA1 hash: AB34013AAC4097319F081AF0B318E183F80F7881
Successfully verified: maXbox4.exe
Number of files successfully Verified: 1
Number of warnings: 0
Number of errors: 0
C:\maXbox\EKON_BASTA\EKON19\Windows Kits\10\bin\x64>
Borland Conf 1999 Video: https://www.youtube.com/watch?v=m1Gn4echQIE
http://www.softwareschule.ch/examples/classifier_compare2confusion2.py.htm
Over the last few years, it has become more and more common to deploy server side solutions (and in fact any type of application) to lightweight
containers rather than physical machines or virtual machines, as this allows more
flexibility(also in terms of testing),a better way to rebuild the same execution environment, and more scalability.
https://www.udemy.com/course/learn-coding-from-the-scratch/learn/
- Valuable information-Clear explanations Engaging delivery-Helpful practice activities
- Accurate course description - Knowledgeable instructor
This Version is dedicated to Katherine Goble Johnson, NASA mathematician
--- The girl who asked questions ---
https://github.com/joaopauloschuler/neural-api
https://sourceforge.net/projects/cai/
http://www.formatio-reticularis.de/code.html
http://cyberunits.sourceforge.net/
https://torry.net/files/tools/developers/scripters/maxbox4.zip
https://softwareschule.code.blog/
https://maxbox4.wordpress.com/
https://my6.code.blog/2020/01/17/maxbox4machine/
https://www.filecroco.com/download-maxbox/
https://towardsdatascience.com/how-to-implement-machine-learning-for-predictive-maintenance-4633cdbe4860
https://www.udemy.com/course/learn-coding-from-the-scratch/learn/
https://data.world/maxbox
https://data.world/maxbox/maxbox
https://maxbox4.files.wordpress.com/2020/08/twinwizard-copy.jpeg?w=688&h=&zoom=2
https://maxbox4.files.wordpress.com/2020/07/ice4_interlaken_max.jpg?w=768&h=&zoom=2
https://github.com/maxkleiner/maXbox4/blob/master/objectdetector3.ipynb
https://colab.research.google.com/github/maxkleiner/maXbox4/blob/master/objectdetector3.ipynb
https://my6.code.blog/
https://entwickler-konferenz.de/blog/machine-learning-mit-cai/
https://kiosk.entwickler.de/windows-developer-magazin/windows-developer-magazin-10-20/erklaerbare-modelle-schaffen-vertrauen/
https://entwickler-konferenz.de/blog/machine-learning-mit-cai/
https://repl.it/@MaxKleiner/machinelearning4#main.py
https://maxbox4.wordpress.com/2020/05/15/ekon-24/
https://colab.research.google.com/github/maxkleiner/maXbox/blob/master/EKON24_SimpleImageClassificationCPU.ipynb
https://github.com/maxkleiner/maXbox4/blob/master/sentimenttree2.ipynb
https://towardsdatascience.com/6-amateur-mistakes-ive-made-working-with-train-test-splits-916fabb421bb
https://repl.it/@maxbox/machinelearning4#main.py
https://maxbox.sourceforge.io/
https://linuxschweizag.wordpress.com/
https://maxkleiner1.medium.com/
https://ideone.com/hQ3zAd
https://appdb.winehq.org/objectManager.php?sClass=version&iId=39678
https://bitbucket.org/maxbox4/maxbox4/downloads/
https://entwickler-konferenz.de/blog/machine-learning-mit-cai/
https://github.com/maxkleiner/python4delphi/blob/master/Source/PythonEngine.pas
https://maxbox4.blogspot.com/
https://wiki.freepascal.org/Python4Delphi
https://www.clevercomponents.com/articles/article052/
https://entwickler-konferenz.de/delphi-innovations-fundamentals/vcl4python/
Async/Await: Bake the parallel library features into the language/compilers, much like C#, Delphi and other
languages have done over recent years (ala async, await).
That makes it possible/easier to write highly scalable servers,
over the top of asynchronous I/O.
Yes, it's technically possible now, but it's so damned difficult to get right/prove
it's right that very few have attempted it. This also make it possible
to use the Promise pattern, something along these lines -
https://github.com/Real-Serious-Games/C-Sharp-Promise to handle async tasks.
Benfits: Write scalable task oriented server code without messing with low level threading, write responsive non blocking client code.
This is something that is possible to do only with the extensive
support of a compiler and there’s
absolutely no way to write an async/await clone in Delphi.
But… there’s a simple trick which allows you to write the code in almost the same way.
It uses OmniThreadLibrary’s Async construct and the magic of
anonymous methods. Caveats : Microsoft have a patent on Async/Await
Max Kleiner's professional environment is in the areas of OOP, UML and coding - among other things as a trainer,
developer and consultant. The focus is on training,
IT security and frameworks that work in a
service-oriented manner. As a lecturer at a
university of applied sciences and on a work contract, microcontrollers and machine learning have also been added.
His published book “Patterns in C #” is a constant
companion in the digital jungle.
Association Rules uncover the relationship between two or more attributes. It is mainly in the form of- If antecedent than consequent.
Picture Exhibition 2021
https://my6.code.blog/2021/11/12/duesseldorf-ekon-25/
https://github.com/maxkleiner/neural-api
https://my6.code.blog/2021/09/08/improver-4/
https://my6.code.blog/2020/11/09/grauzone/
https://github.com/maxkleiner/DelphiVCL4Python
https://www.scribd.com/document/553749096/Blaise-101-UK-6P-Max-Kleiner-V-Nr91-Tutor-Synthetic-Data-SynDat
https://opensea.io/maxbox4
https://blogs.embarcadero.com/fun-maxbox-is-an-all-in-one-script-engine-application-powered-by-delphi/
https://www.academia.edu/37015210/Machine_Learning_maXbox_starter60_1
https://github.com/maxkleiner/agsi-data
https://www.hybrid-analysis.com/sample/c6e8c0828c61b0a05cb26ebdafe6985983eb8f6b4d92fb99ad2fa62d2ba50bed
Data Scientist also requires strong technical skills in:
1. Math (e.g. linear algebra, calculus and probability).
2. Statistics (e.g. hypothesis testing and summary statistics).
3. Machine learning tools and techniques(e.g.k-nearest neighbours,random forests,ensemble methods,svm).
4. Software engineering skills (e.g.distributed computing,algorithms and data structures).
5. Data mining.
6. Data cleaning and merging.
7. Data visualization (e.g. plottsystem for R ggplot2, py and JavaScript library for manipulating documents based on data d3.js) and reporting techniques.
8. Unstructured data techniques.
9. R and/or SAS languages.
10. SQL databases and database querying languages.
11. Python (most common), C/C++ Java, Perl.
12. Big data platforms like Hadoop, Hive & Pig.
13. Cloud tools like Amazon S3.
14. Pascal Python in maXbox4
15. TotInf in maXbox4
Data Analyst
1. Work with IT teams, management and/or data scientists to determine organizational goals.
2. Mine data from primary and secondary sources.
3. Clean and prune data to discard irrelevant information.
4. Analyze and interpret results using standard statistical tools and techniques.
5. Pinpoint trends, correlations and patterns in complicated data sets.
6. Identify new opportunities for process improvement.
7. Provide concise data reports and clear data visualizations for management.
8. Design, create and maintain relational databases and data systems.
9. Triage code problems and data-related issues.
10. check always the semantic consistency (does data make valid sense?)
When you run a Python script, the interpreter converts a Python program into something that that the computer can understand.
Executing a Python program can be done in two ways:
calling the Python interpreter with a shebang line,
and using the interactive Python shell or to invoke the script file from a script shell editor like crontab or maXbox. I show 4 solutions.
Suppose you have a python script file httpheader1.py:
"G:\maXbox\works2022\maxbox4\examples\httpheader1.py"
Doc :
AssignFile versus TStringlist
---------------------------------
In addition to the old style file handling routines mentioned above, a new system exists that uses concept of streams (- of data)
at a higher abstraction level. Means data
can be read from or written to any location
(disk, memory, hardware ports etc.) by one uniform interface.
In addition, most string handling classes have the ability to load and save content from/to a file. These methods are usually
named SaveToFile and LoadFromFile. in
// old style assign file
____ ______.
_____ _____ \ \/ /\_ |__ _______ ___
/ \\__ \ \ / | __ \ / _ \ \/ /
| Y Y \/ __ \_/ \ | \_\ ( <_> > <
|__|_| (____ /___/\ \ |___ /\____/__/\_ \
\/ \/ \_/ \/ \/
Sort of a microservice you find at:
https://www.academia.edu/31112544/Work_with_microservice_maXbox_starter48.pdf
.,,uod8B8bou,,.
..,uod8BBBBBBBBBBBBBBBBRPFT?l!i:.
,=m8BBBBBBBBBBBBBBBRPFT?!||||||||||||||
!...:!TVBBBRPFT||||||||||!!^^""' ||||
!.......:!?|||||!!^^""' ||||
!.........|||| ||||
!.........|||| ## ||||
!.........|||| ||||
!.........|||| ||||
!.........|||| ||||
!.........|||| ||||
`.........|||| ,||||
.;.......|||| _.-!!|||||
.,uodWBBBBb.....|||| _.-!!|||||||||!:'
!YBBBBBBBBBBBBBBb..!|||:..-!!|||||||!iof68BBBBBb....
!..YBBBBBBBBBBBBBBb!!||||||||!iof68BBBBBBRPFT?!:: `.
!....YBBBBBBBBBBBBBBbaaitf68BBBBBBRPFT?!::::::::: `.
!......YBBBBBBBBBBBBBBBBBBBRPFT?!::::::;:!^"`;::: `.
!........YBBBBBBBBBBRPFT?!::::::::::^''...::::::; iBBbo.
`..........YBRPFT?!::::::::::::::::::::::::;iof68bo. WBBBBbo.
`..........:::::::::::::::::::::::;iof688888888888b. `YBBBP^'
`........::::::::::::::::;iof688888888888888888888b. `
`......:::::::::;iof688888888888888888888888888888b.
`....:::;iof688888888888888888888888888888888899fT!
`..::!8888888888888888888888888888888899fT|!^"'
`' !!988888888888888888888888899fT|!^"'
`!!8888888888888888899fT|!^"'
`!988888888899fT|!^"'
`!9899fT|!^"'
`!^"'
Each service should be independently developed and deployed. No coordination should be needed with other service teams if no
breaking API changes have been made.
Each service is effectively it's own product with it's own codebase and lifecycle.
Hybrid Analysis
7:27 PM (1 hour ago)
to
Congratulations! Your analysis is done and available at:
https://www.hybrid-analysis.com/sample/102653b74b1efb16af424c243130e3c0395f9875d0e8900e688dd42a25d218a3?environmentId=160
--- Falcon Sandbox Analysis Overview ---
https://www.hybrid-analysis.com/sample/102653b74b1efb16af424c243130e3c0395f9875d0e8900e688dd42a25d218a3
--- Falcon Sandbox Analysis Summary ---
File Name: maXbox4.exe
Analysis State: SUCCESS
Threat Verdict: no specific threat
Threat Score: n/a/100
AV Detection Ratio: n/a
AV Family Name:
Time of analysis: 2022-12-15 18:16:53
File Size (bytes): 34057496
File Type: PE32 executable (GUI) Intel 80386, for MS Windows
Contacted Domains: none
Contacted Hosts: none
Environment: Windows 10 64 bit (ID: 160)
Submission name: maXbox4.exe
Size: 33MiB
Type: peexe executable
Mime:application/x-dosexec
SHA256: 97943841d5908ea0846dc6763b14941350a0c1aa5d2b6248bfc79ffad7a0314e Copy SHA256 to clipboard
Operating System: Windows
Last Anti-Virus Scan:
01/25/2023 08:08:02 (UTC)
Last Sandbox Report:
01/25/2023 08:08:00 (UTC)
----
/~@@~\,
_______ . _\_\___/\ __ /\___|_|_ . _______
/ ____ |=| \ <_+> / |=| ____ \
~| |\|=|======\\______//======|=|/| |~
|_ | \ | | / | |
\==-| \ | mX4 | / |----|~~)
| | | | | | |____/~/
| | \____\____/____/ / / /
| | {----------} /____/ /
|___| /~~~~~~~~~~~~\ |_/~|_|/
\_/ [/~~~~~||~~~~~\] /__|\
| | | |||| | (/|[[\)
[_] | | | |
|_____| |_____|
(_____) (_____)
| | | |
| | | |
|/~~~\| |/~~~\|
/|___|\ /|___|\
<_______><_______>
A microservice architecture shifts around complexity. Instead of a single complex system, you have a bunch of simple services with complex interactions.
Simplify API development for users, teams, and enterprises with the Swagger open source and professional toolset.
Find out how Swagger can help you design, document your APIs at scale.
>>>
_od#HMM6&*MMMH::-_
_dHMMMR??MMM? ""| `"'-?Hb_
.~HMMMMMMMMHMMM#M? `*HMb.
./?HMMMMMMMMMMM"*""" &MHb.
/'|MMMMMMMMMMM' - `*MHM\
/ |MMM'MMHHM'' .MMMHb
| 9HMMP .Hq, TMM'MMH
/ |MM\,H-""&&6\__ `MMMMMMb
| `""HH#, \ - MMMMMMM|
| `HoodHMM###. `9MMMMMH
| .MMMMMMMM##\ `*"?HM
| .. ,HMMMMMMMMMMMo\. |M
| |MMMMM'MMMMMMM'MNHo |M
| ?MMMMMMM'MMMMMMMM* |H
|. `#MMMMMMMM'MMMM' .M|
\ `MMMMMMMMMMM* |P
`\ MMMMMMMMT"' ,H
`\ `MMM'MMH? ./
\. |MMMH#" ,/
`\. |MMP' ./'
`~\ `HM:.- . ,/'
"-\_ '_\ . _.-"
"-\-#odMM\_,oo==-"
This is what we want to use in maXbox:
const res = await fetch("https://libretranslate.com/translate", {
method: "POST",
body: JSON.stringify({
q: "Hello!",
source: "en",
target: "es"
}),
headers: { "Content-Type": "application/json" }
});
console.log(await res.json());
Feature update to Windows 10, version 22H2
Target Machine Intel 386 or later processors and compatible processors
SHA1: 4.7.6.20 F60338A77B77F2032061BF72A545AFB727F6395F
f60338a77b77f2032061bf72a545afb727f6395f
CRC32: 48455EF8 32.8 MB (34,419,992 bytes)
Compilation Timestamp 2023-01-26 15:36:15 UTC Signing time 26 Jan 2023 16:41:42
Entry Point 25033256 - Contained Sections 10
sha1: f60338a77b77f2032061bf72a545afb727f6395f
sha256: 9347258d5985a2fe88a1df45c3cd99747babbaa034de3e1725139684a7b6e1c7
https://maxbox4.wordpress.com/2022/11/17/data-science-story/
Teach and Train it with the Jupyter Notebook:
Tested on
Delphi 10.4 Community Edition Update 2
Lazarus V 2.2.4 for Windows 64 bit
maXbox4 Version 4.7.6.20
PyScripter 4.1.1.0 x64
SVGImage32Package270.bpl V 3.9.4
jupyter notebook v7.0.0a11
MD5 3a228997326e3ab981e047e406ee0a77
SHA-1 f60338a77b77f2032061bf72a545afb727f6395f
SHA-256 9347258d5985a2fe88a1df45c3cd99747babbaa034de3e1725139684a7b6e1c7
Vhash 0370a6666d5c0d555c051031e0900e5003116012z33034z17883109054843115z10
Authentihash 344a8eeb7669f994df01e8ba7af69e8b4a3827b782c4733506002905656ec483
Imphash 1cdc6c1287a2d8f5bfb5ac0d1f3fcaf6
SSDEEP 393216:6clUvGNCN3jg98pGx8RzxU0+jBLe9xcuMjJoy3edsNzViWVD52WB/CefyTeFcncH:AGNCN4F9AgjidOvNmcimfoc
TLSH T134778C62B1C0D632D05705788C0BD6D85A6A3D207DB4949B79F6BF8E2E31161BF362CB
File type Win32 EXE
Magic PE32 executable for MS Windows (GUI) Intel 80386 32-bit
TrID Windows ActiveX control (60.1%) InstallShield setup (22.2%) Win64 Executable (generic) (5.4%)
DOS Borland compiled Executable (generic) (5.1%) Win32 Executable (generic) (2.3%)
DetectItEasy PE32 Compiler: Borland Delphi (2006) Linker: Turbo Linker (2.25*,Delphi) [GUI32,signed]
File size 32.83 MB (34419992 bytes)
https://github.com/maxkleiner/Bayes_theorem/blob/master/clusterclass4penguins.ipynb
https://github.com/maxkleiner/maXbox4/blob/master/clusterclass4penguins.ipynb
https://github.com/maxkleiner/maXbox4/releases/download/V4.2.4.80/maXbox4.exe
https://my6.code.blog/2022/09/02/webpostdata/
https://maxbox4.wordpress.com/2022/01/31/tutorials-overview-2014-2022/
https://blogs.embarcadero.com/why-a-data-scientist-chooses-delphi-for-powerful-real-world-visualizations/
https://youtu.be/k1-bv-74Rf8
https://maxbox4.wordpress.com/2023/05/23/mapbox-in-maxbox/
https://linuxschweizag.wordpress.com/2023/04/06/tutorials/
https://en.wikipedia.org/wiki/Anathema_(band)
https://github.com/project-jedi/jvcl/blob/master/jvcl/devtools/JvclVclClx/Utils.pas
https://github.com/gabr42/GpDelphiUnits/tree/master/src
https://github.com/TheUnknownOnes/theunknownones/blob/master/Libraries/CommonTools/uGraphicalTools.pas
https://github.com/coderserdar/DelphiComponents/blob/main/Other/API%20Pack/API_source/API_strings.pas
https://github.com/graemeg/dunit2/blob/master/src/TestUtils.pas
Songs for maXbox
1. Beat the Blues /2. Play Chess /3. Cary Copper (White magic) /4. Eat Garlic (NowAge)
5. Exerce de Meditation /6. Practise running (Japan) /7. Bett von Nord nach Süd – Zeitraum
8. Olemos Bruja /9. Listen white noise (Lord of Darkness)
https://sourceforge.net/projects/maxbox/files/maXbox_Archive/Improver/Improver_4_Edition_2021.zip/download
C:\maXbox\EKON_BASTA\EKON19\Windows Kits\10\bin\x64>signtool verify /v /pa maXbox4.exe
V4.7.6.50 V
Verifying: maXbox4.exe
Signature Index: 0 (Primary Signature)
Hash of file (sha1): FD55A476E52E8A13C41DD3AF5F0A1115DC390EB0
Signing Certificate Chain:
Issued to: maXboxCertAuth
Issued by: maXboxCertAuth
Expires: Sun Jan 01 01:59:59 2040
SHA1 hash: 6F83207B500DCC0E32A719599CBC6BD7E6B2A04D
Issued to: maXbox4signer
Issued by: maXboxCertAuth
Expires: Sun Jan 01 01:59:59 2040
SHA1 hash: 6A89501B76D47C189A60BF1070BAA2FBFD38D7D7
Issued to: maXbox4exe
Issued by: maXbox4signer
Expires: Sun Jan 01 01:59:59 2040
SHA1 hash: F0EB0CA218C5707FAC78921F81092CECA12AD0E9
The signature is timestamped: Thu Jun 15 08:42:33 2023
Timestamp Verified by:
Issued to: USERTrust RSA Certification Authority
Issued by: USERTrust RSA Certification Authority
Expires: Tue Jan 19 01:59:59 2038
SHA1 hash: 2B8F1B57330DBBA2D07A6C51F70EE90DDAB9AD8E
Issued to: Sectigo RSA Time Stamping CA
Issued by: USERTrust RSA Certification Authority
Expires: Tue Jan 19 01:59:59 2038
SHA1 hash: 02D65B95E28370C1570095FA88F923DD937FAD8F
Issued to: Sectigo RSA Time Stamping Signer #4
Issued by: Sectigo RSA Time Stamping CA
Expires: Thu Aug 03 01:59:59 2034
SHA1 hash: AE62AF750A0CBD47D6461F7568E2BC8CE7CA4F94
Successfully verified: maXbox4.exe
Number of files successfully Verified: 1
Number of warnings: 0
Number of errors: 0
C:\maXbox\EKON_BASTA\EKON19\Windows Kits\10\bin\x64>
C:\maXbox\EKON_BASTA\EKON19\Windows Kits\10\bin\x64>
C:\maXbox\EKON_BASTA\EKON19\Windows Kits\10\bin\x64>
-----_____
_____------ __ ----_
___---- ___------ \
----________ ---- \
-----__ | _____)
__- / \
_______----- ___-- \ /)\
------_______ ---____ \__/ /
-----__ \ -- _ /\
--__--__ \_____/ \_/\
----| / |
| |___________|
| | ((_(_)| )_)
| \_((_(_)|/(_)
\ (
\_____________)
https://maxbox4.wordpress.com/blog/
Total of Function Calls: 36852
SHA1: 4.7.6.50 D4FD4CACFD766EB8F78F2BB7B5EFDDEBB386597A
d4fd4cacfd766eb8f78f2bb7b5efddebb386597a
CRC32: C1DCD693 33.50 MB (35,128,600 bytes)
Compilation Timestamp 2023-05-31 12:44:17 UTC Signtime 31 May 2023 14:48:34
Entry Point 25234104 - Contained Sections 10
sha1: d4fd4cacfd766eb8f78f2bb7b5efddebb386597a
sha256: 4dfbada6765e47c72b7c2496f831419b3461fa7c4ac6e05e2a941b501e10e022
Total of Function Calls: 36449
SHA1: 4.7.6.50 C56F0A26DFBE706E6A1A9D0E23B6114AFCC09CDC
c56f0a26dfbe706e6a1a9d0e23b6114afcc09cdc
CRC32: 29BCAE4D 33.12 MB (34,724,120 bytes)
Compilation Timestamp 2023-05-21 13:42:16 UTC Signtime 21 May 2023 15:45:22
Entry Point 25102976 - Contained Sections 10
sha1: c56f0a26dfbe706e6a1a9d0e23b6114afcc09cdc
sha256: ca5b41a709e61c1174d5105d1edc2759e01bd3c4a57a30b54dad568e104cac77
Total of Function Calls: 36781
SHA1: 4.7.6.50 FBC9E7794EEF888DCBE94350D8F53A8FD05BD51F
fbc9e7794eef888dcbe94350d8f53a8fd05bd51f
CRC32: 94780E06 33.37 MB (34,993,432 bytes)
Compilation Timestamp 2023-05-26 07:25:55 UTC Signtime 26 May 2023 09:30:37
Entry Point 25209520 - Contained Sections 10
sha1: fbc9e7794eef888dcbe94350d8f53a8fd05bd51f
sha256: c9f275808708fa8bbee56f816a6ae90f2438dd8a7085ecf8e4bbcff1e1747571
https://sourceforge.net/projects/maxbox/files/Examples/13_General/
Total of Function Calls: 36798
SHA1: 4.7.6.50 CAA09249B338ED2814B760FA549DAD47F6C789D2
caa09249b338ed2814b760fa549dad47f6c789d2
CRC32: 17A61798 33.41 MB (35,033,880)
Compilation Timestamp 2023-05-30 13:17:50 UTC Signtime 30 May 2023 15:20:39
Entry Point 25217720 - Contained Sections 10
http://www.softwareschule.ch/maxbox_functions.txt
sha1: caa09249b338ed2814b760fa549dad47f6c789d2
sha256: 222ee48c3409cbf176ffe9037d7958952e6754549c66d8397e927ad68ee3be17
Total of Function Calls: 36834
SHA1: 4.7.6.50 EDE730F514834A85ECA6D0190DAC8CA6046C26EE
ede730f514834a85eca6d0190dac8ca6046c26ee
CRC32: 4E7C4A2B 33.49 MB (35,117,336 bytes)
Compilation Timestamp 2023-05-31 08:25:23 UTC Signtime 31 May 2023 10:33:00
Entry Point 25225912 - Contained Sections 10
sha1: ede730f514834a85eca6d0190dac8ca6046c26ee
sha256: 168f85cff6ecdfcc4e7614758bbdb333a38f4896f94b7056f3e53af8fd15a66b
Total of Function Calls: 36852
SHA1: 4.7.6.50 D4FD4CACFD766EB8F78F2BB7B5EFDDEBB386597A
d4fd4cacfd766eb8f78f2bb7b5efddebb386597a
CRC32: C1DCD693 33.50 MB (35,128,600 bytes)
Compilation Timestamp 2023-05-31 12:44:17 UTC Signtime 31 May 2023 14:48:34
Entry Point 25234104 - Contained Sections 10
sha1: d4fd4cacfd766eb8f78f2bb7b5efddebb386597a
sha256: 4dfbada6765e47c72b7c2496f831419b3461fa7c4ac6e05e2a941b501e10e022
Total of Function Calls: 36947
SHA1: 4.7.6.50 C430FDBA9880317E31D4DA2F66C884799298FCC3
c430fdba9880317e31d4da2f66c884799298fcc3
CRC32: 5BD9839C 33.62 MB (35,257,624 bytes)
Compilation Timestamp 2023-06-06 14:16:08 UTC Signtime 06 June 2023 16:22:14
Entry Point 25287360 - Contained Sections 10
sha1: c430fdba9880317e31d4da2f66c884799298fcc3
sha256: 1658eb368e4e8621c51d8e568de40a12be00ad02c63dfe7a3b655603661dc4f9
V4.7.6.50 IV
Amount of Functions: 22064
Amount of Procedures: 12992
Amount of Constructors: 2051
Amount of Destructors: 14
Totals of Calls: 37121
SHA1: of 4.7.6.50 9E9D9D10762AE0D0BC8AFD747C2381EA5478AE49
CRC32: 01B431EE: 35558168 bytes
mX4 executed: 12/06/2023 15:52:43 Runtime: 0:16:6.980 Memload: 41% use
Total of Function Calls: 37121
SHA1: 4.7.6.50 9E9D9D10762AE0D0BC8AFD747C2381EA5478AE49
9e9d9d10762ae0d0bc8afd747c2381ea5478ae49
CRC32: 01B431EE 33.91 MB (35,558,168 bytes)
Compilation Timestamp 2023-06-12 13:17:28 UTC Signtime 12 June 2023 15:20:10
Entry Point 25377544 - Contained Sections 10
sha1: 9e9d9d10762ae0d0bc8afd747c2381ea5478ae49
sha256: fa0f30abf34292e91070a5bd4682040eb6af79a8f6c7f55111c9692153120988
V4.7.6.50 V
Total of Function Calls: 37372
SHA1: 4.7.6.50 D047DBD5412C3E4A436089018B9C7FACF17A2EB5
d047dbd5412c3e4a436089018b9c7facf17a2eb5
CRC32: 38562FA8 34.04 MB (35,697,944 bytes)
Compilation Timestamp 2023-06-15 06:40:19 UTC Signtime 15 June 2023 08:42:33
Entry Point 25484072 - Contained Sections 10
sha1: d047dbd5412c3e4a436089018b9c7facf17a2eb5
sha256: 193679043c46821c4b2460269111ff112e7c67b49e9cd9d951854e61bceedac7
maXbox4.exe 4.7.6.50
This report is generated from a file or URL submitted to this webservice on June 12th 2023 14:22:33 (UTC)
Guest System: Windows 7 64 bit, Professional, 6.1 (build 7601), Service Pack 1
Report generated by Falcon Sandbox v10.1.5 © Hybrid Analysis
Classification (TrID)
60.1% (.OCX) Windows ActiveX control
22.2% (.EXE) InstallShield setup
5.4% (.EXE) Win64 Executable (generic)
5.1% (.EXE) DOS Borland compiled Executable (generic)
2.3% (.EXE) Win32 Executable (generic)
Story of V5 4.7.6.50 V
33.3 MB (34,993,432 bytes)
33.5 MB (35,128,600 bytes) 31.5. I
33.8 MB (35,454,744 bytes) 10.6. II
33.9 MB (35,558,168 bytes) 13.6. III
33.9 MB (35,673,880 bytes) 14.6 IV
34.0 MB (35,697,944 bytes) 15.6. V
https://www.hybrid-analysis.com/sample/fa0f30abf34292e91070a5bd4682040eb6af79a8f6c7f55111c9692153120988
https://www.hybrid-analysis.com/sample/882ddadb9b330318bfff73d8db66d1a33be575be4cede3960374bfeb7c49c968
https://linuxschweizag.wordpress.com/2023/04/06/tutorials/
https://maxbox4.wordpress.com/2023/05/23/mapbox-in-maxbox/
https://www.integrate.io/blog/building-an-etl-pipeline-in-python/
https://medium.com/@zenrows/puppeteer-avoid-detection-517a252eb27
https://pixelscan.net/
https://github.com/z505/powtils/blob/master/dev/examples/webcmd1/htmout.pas
https://www.heise.de/select/make/2022/5/softlinks/xwmq?wt_mc=pred.red.make.make052022.102.softlink.softlink
https://towardsdatascience.com/5-most-powerful-one-liners-you-should-know-in-python-programming-c9d49a89b7f3
https://github.com/MakeMagazinDE/Solder-Paste-Dispenser
https://linuxschweizag.wordpress.com/2023/04/06/tutorials/
https://tinyurl.com/maxboxtutorials
https://tinyurl.com/maxbox4
Release Notes maXbox 5.0.2.40 Dec. 2023 mX502 beta64-bit
function AddBomToIStream(const Stream: IStream): IStream');
function AddBomToStream(const Stream: IStream): IStream');
function Intf2Obj(x: IInterface): TObject');
function getmemstreamfromIStream(avariant: variant): TMemorystream');
function getmemstreamfromIStream2(avariant: variant): TMemorystream');
function getmemStreamfromIStream2File(avariant: variant; apath: string): Tmemorystream');
//function getmemStreamfromIStream2File(avariant: variant; apath: string): Tmemorystream;
CL.AddDelphiFunction('function SumSquaredDigits(N: integer): integer');
function SumSquaredDigits(N: integer): integer');
maXbox5 alpha version 5.0.1.21 beta
maXbox5 alpha version 5.0.1.22 beta Ocean550
maXbox5 alpha version 5.0.1.22 beta Ocean560
maXbox5 beta version 5.0.2.24 beta Ocean580 20/11/2023
maXbox5 beta version 5.0.2.28 beta Ocean590 25/11/2023
maXbox5 beta version 5.0.2.30 beta Ocean600 28/11/2023
maXbox5 beta version 5.0.2.30 beta Ocean600 06/12/2023
maXbox5 beta version 5.0.2.31 beta Ocean610 11/12/2023
maXbox5 beta version 5.0.2.40 beta Ocean620 16/12/2023
maXbox5 beta version 5.0.2.60 beta Ocean660 02/01/2024
maXbox5 beta version 5.0.2.70 beta Ocean670 05/01/2024
maXbox5 beta version 5.0.2.80 beta Ocean680 17/01/2024
maXbox5 beta version 5.0.2.90 beta Ocean690 28/01/2024 🐞
maXbox5 beta version 5.0.2.95 beta Ocean690 01/02/2024 🐞
maXbox5 beta version 5.0.3.40 beta Ocean710 04/02/2024 🐞
maXbox5 beta version 5.0.3.60 beta Ocean720 12/02/2024 🐞
maXbox5 beta version 5.0.4.70 beta Ocean740 18/02/2024 🐞
maXbox5 beta version 5.1.4.70 PEXN Ocean770 25/02/2024 🐞
maXbox5 beta version 5.1.4.80 PEXN Ocean770 01/03/2024 🐞
maXbox5 beta version 5.1.4.80 PEXN Ocean800 03/03/2024 🐞
maXbox5 beta version 5.1.4.80 UnitExplor Ocean820 08/03/2024 🐞
maXbox5 beta version 5.1.4.80 UnitExplor Ocean840 10/03/2024 🐞
maXbox5 beta version 5.1.4.90 UnitExplor Ocean840 15/03/2024 🐞
maXbox5 beta version 5.1.4.90 II UnitExplor Ocean860 20/03/2024 🐞
maXbox5 beta version 5.1.4.90 III UnitExplor Ocean860 21/03/2024 🐞
maXbox5 beta version 5.1.4.95 UnitExplor Ocean870 17/04/2024 🐞
maXbox5 beta version 5.1.4.98 I WebUtil Ocean880 26/04/2024 🐞
maXbox5 beta version 5.1.4.98 II WebUtil Ocean900 30/04/2024 🐞
maXbox5 beta version 5.1.4.98 V WebUtil Ocean920 07/05/2024 🐞
------------------------------------------------------
This file was provided by: https://github.com/maxkleiner/maXbox4/tree/master/source2023_1_64bitbox
If you downloaded it from somewhere else, please let us know: maxkleiner1@gmail.com
https://maxbox4.wordpress.com/
Primo loco Fac totum Actas volat
maxbox5.zip has 275 files
07.05.2024 15:34
Release Notes maXbox 5.1.4.98 V May 2024 Ocean920
SHA1: 5.1.4.98 V maXbox5.exe bc74131a2e23a8c8517789852a02e690fb1a9071
SHA1: ZIP maxbox5.zip 658F83C1647E2F2D0D60CC812125F17EE93C7D76
30.04.2024 14:46
Release Notes maXbox 5.1.4.98 II April 2024 Ocean900
SHA1: 5.1.4.98 II maXbox5.exe ac22fb4bdb86db7afb156dd52dc1f9357f14fa40
SHA1: ZIP maxbox5.zip A3C64E529F7F8005C8F1FC048165C77D6A6A97FF
Viruscheck as clean at:
https://www.hybrid-analysis.com/sample/6ea28dba5aada00cfbd97d3cc1024b845ec64ef35f5db146edc92233d2ce15bd
https://www.virustotal.com/gui/file/6ea28dba5aada00cfbd97d3cc1024b845ec64ef35f5db146edc92233d2ce15bd/detection
https://metadefender.opswat.com/results/file/bzI0MDQyNm5lbVl6RGJ4S1ZpckFGZnh5SC1X_mdaas/regular/overview
https://www.virustotal.com/gui/file/6ea28dba5aada00cfbd97d3cc1024b845ec64ef35f5db146edc92233d2ce15bd?nocache=1
https://www.virustotal.com/gui/file/30c690db62436ea717547a62b5f3eef83308159f6d51f6e87d87694dce24a949/detection
https://www.virustotal.com/gui/file/f1d09d3d7a98ac8b91618d47bdf7625867fb2b12e202d72f59ac312967257eb3/detection
https://www.virustotal.com/gui/file/b4c41dd487f28e2c3cad2285f048b640579f5a4b8ce08d889e99b7c2122fe566?nocache=1
https://www.virustotal.com/gui/file/21c11f025db024bdfbadf890c4d495f38a418fac4baefbd0af6a5c687e6055a2?nocache=1
https://www.virustotal.com/gui/file/6c0883d1ac971b54b026e776b7d47a6d3ffa52b2083f18c85ccdbcf1f5b0b3e8/detection
https://www.virustotal.com/gui/file/2a965afa61b2717ae0af5d683cb7b9d0fa17356027f68919751ea748dedfb90c/detection
https://www.virustotal.com/gui/file/4580bf9ec64db20fc102b539ccff9fa7ecf0a8a1648d2ff147df83ca34768e07/detection
https://www.virustotal.com/gui/file/442681ad017536c569230b5f78d8fd4dcebd9e2adc1559d50e68ac9a0e57a8aa/detection
https://metadefender.opswat.com/results/file/bzI0MDMwMzF6cWNBQVpoOEJwTjlFWkJ2cDc_mdaas/regular/overview
https://www.hybrid-analysis.com/sample/442681ad017536c569230b5f78d8fd4dcebd9e2adc1559d50e68ac9a0e57a8aa
Viruscheck as clean at:
https://www.virustotal.com/gui/file/b985359cba2be29838b8dafdca41f9042d919254e59d36def159b49f6d078516/detection
https://www.virustotal.com/gui/file/04ca4906fa42471a019f961551558d06d748223efc1a8e33e296f84fe88b6913/detection
https://metadefender.opswat.com/results/file/bzI0MDIyNWt2bFZIWFdHQUZRY2J2a0ROUm0_mdaas/regular/overview
https://www.hybrid-analysis.com/sample/04ca4906fa42471a019f961551558d06d748223efc1a8e33e296f84fe88b6913
Viruscheck as clean at:
https://www.virustotal.com/gui/file/998280f98383457e9148bb73f0787b25f3173af1aa52a854dcd78cc52bb0df2b/detection
https://metadefender.opswat.com/results/file/bzI0MDIxOElhRDNoUVBueXJIdDBvU0pla0k_mdaas/regular/overview
https://www.hybrid-analysis.com/sample/998280f98383457e9148bb73f0787b25f3173af1aa52a854dcd78cc52bb0df2b
https://www.virustotal.com/gui/file/5439e647a22a33aa87caaea96adc16f867c78321ea5249fc3a92a7a6fe2980fa/detection
https://metadefender.opswat.com/results/file/bzI0MDIxNUxvY2xxWFN2VDhHSHdKZ0xsbFE_mdaas/regular/overview
https://www.hybrid-analysis.com/sample/928326a4211b50edc4fcd88aa001d19c69d1bc33292dc121c4c7d7d5a4c1eaf9
https://www.virustotal.com/gui/file/90de12e5f0ff2307023ff96644be35a976ea1ea3df497e1060cca3f11c5918bc/detection
https://metadefender.opswat.com/results/file/bzI0MDIxMktiTUpkWnl5YmtaVjh3OEk2Rl9w_mdaas/regular/overview
https://www.hybrid-analysis.com/sample/90de12e5f0ff2307023ff96644be35a976ea1ea3df497e1060cca3f11c5918bc/65ca1e1c20f2c83e7a086b7b
https://www.virustotal.com/gui/file/4bf74727ef80b99a10ef7daf8a0c2be4b54415387df87cf57ed9d334ca826088/detection
https://www.virustotal.com/gui/file/7d0f6a42f1fc75f82bace5ce1704018839b2366b7689a40b1bef0f39fb169d96/detection
https://www.hybrid-analysis.com/sample/5c6fd68214935dcbe13ed14529a265d2d4a12a2cfabbdb2c43754118bcecc615
https://www.virustotal.com/gui/file/5c6fd68214935dcbe13ed14529a265d2d4a12a2cfabbdb2c43754118bcecc615/detection
https://www.virustotal.com/gui/file/a0cb07f0ada81f317b8bdda7ada408619624a1148347c5365ed3fa2d8fae4862/detection
https://www.virustotal.com/gui/file/da34199785ae5371e2cf8a23a12b68295f7c968ba0c8a24f367baf0c5f091439/detection
https://metadefender.opswat.com/results/file/bzI0MDEwMTJJSTN0R3h5dHV6MS1wdzBpLWo_mdaas/regular/sandbox/details
https://www.virustotal.com/gui/file/048dae8dab0df4bc6b3f77233a3a4c8f2ca0a56517a9861bb94c2179cfdb87fe/detection
https://www.virustotal.com/gui/file/0d31956549a268645a2616f0c358772042f44f69714d4f0de6ba455d99f40855/detection
https://www.hybrid-analysis.com/sample/a6215ee348a7434b90f215362731337c36bb6e711c61d5cf5fdc213e6e9ee36f/657191c420cba00ce108a768
https://www.virustotal.com/gui/file/a6215ee348a7434b90f215362731337c36bb6e711c61d5cf5fdc213e6e9ee36f/detection
https://www.hybrid-analysis.com/sample/f999d8522736906d9c93c1867ec536c3dbdd6ec8a939982572534835f7253743
https://www.virustotal.com/gui/file/f999d8522736906d9c93c1867ec536c3dbdd6ec8a939982572534835f7253743/detection
https://www.virustotal.com/gui/file/3e1dee4a7d1120b8b706d6d08bfc756fe8a13abd4df0317958f7b6a0e4c8ee0d/detection
https://www.virustotal.com/gui/file/cae3a4eae8f3bcfbd972c4675894891f35d5ef97c326624e0e8b2f585aea0911?nocache=1
https://www.virustotal.com/gui/file/ee1d20b3e44855308813d54b3768a97c842524e1a021ec6adfacb022e523a40f?nocache=1
https://www.virustotal.com/gui/file/00e6bb40d6e3ab176e5d9024b52975d710df5ad0cdfb79e5ce255db8a386bf10?nocache=1
https://www.virustotal.com/gui/file/ffd69c30dbe891a029451899400be4409ebf78718ec8fc2ec5ceaf13a01238d8/detection
https://www.virustotal.com/gui/file/1058b2b6004a73ebd6d4b3ecc54b36dec94be97c0c2c75e406d266712b3db011/detection
https://www.virustotal.com/gui/file/0c0851d0ebe022fa42360465d803cdc11e6ae81b688ac3a8a4f06e6203914ff2/detection
https://www.virustotal.com/gui/file/67dee7d584bd6d53bef4f6891b9b73521302cdc66a2c4cc7d8ea96939bed6450/detection
https://www.virustotal.com/gui/file/34040f3dd5f929ef4b3142bf3b2a206057ef58956595ecfa7ab2cd91e4e66ee5/detection
https://www.virustotal.com/gui/file/ce681d23c7e3ec6febc0af5e7fd87674d65e63f595641e87092c01957a27f894/detection
https://www.virustotal.com/gui/file/82591ab1b613368f3a4c235300d79bc958867244326292d9ec940619dc874afe/details
https://www.virustotal.com/gui/file/2100cc8d605b5396f3acdb4c235615281b3938767270517f102afc6bb48c582a/detection
https://www.virustotal.com/gui/file/3659aa9ef8e9e85da0bef15c6f9af88da869023c549b98688cba7a6062966dcf/detection
https://www.virustotal.com/gui/file/dc542ca67bec024448447e01e31197cda60374e47b7f4c61ece2d79c8312e375/detection
https://www.virustotal.com/gui/file/5af156d782e755b35fccd72dcb4cea8729c50c332fc00e69272028297bf2373d/details
The individual DLL files like dmath64.dll are provided free of charge with the understanding that the user is familiar with their use.
If you need further information, please see:
https://maxbox4.wordpress.com/
or ask your question in the forum:
https://github.com/maxkleiner/maXbox4/issues
https://forum.dll-files.com/
DISCLAIMER AND LIMITATION OF LIABILITY
The Following Refers to all Files with the Extension of "dll" or dlls compressed as "zip" or files as "exe" or compressed as "zip".
All files are provided on an as is basis. No guarantees or warranties are given or implied. Downloading files from this site is free of charge
and the user assumes all risks of any damages that may occur, including but not limited to loss of data, damages to hardware, or loss of
business profits. We do our best to ensure that all files are virus-free using available means. However, all files have not been tested for
functionality or contamination. Many have been sent to us by visitors like yourself. Thus, we suggest that you do a virus scan using an
up-to-date version of an anti-virus program before use. Please use at your own risk.
writeln(GETDOSOutput('cmd.exe /c fc units1.txt units2.txt',
'C:\maxbox\maxbox51\examples'));
Diff from 5.1.4.90 to 5.1.4.95
Comparing files units1.txt and UNITS2.TXT
***** units1.txt
DBPlatform
DBXCharDecoder_
DBXCustomDataGenerator
***** UNITS2.TXT
DBPlatform
DBXCustomDataGenerator
*****
***** units1.txt
IdMIMETypes
IdModBusClient
IdModBusServer
IdMultipartFormData
***** UNITS2.TXT
IdMIMETypes
IdMultipartFormData
*****
***** units1.txt
IdStrings
IdStrings9
IdStruct
***** UNITS2.TXT
IdStrings
IdStruct
*****
***** units1.txt
JclGraphUtils
JclGraphUtils_
JclHookExcept
***** UNITS2.TXT
JclGraphUtils
JclHookExcept
*****
***** units1.txt
JvSearchFiles
JvSegmentedLEDDisplay
JvSegmentedLEDDisplayMapperFrame
JvSerialMaker
***** UNITS2.TXT
JvSearchFiles
JvSerialMaker
*****
***** units1.txt
mimepart
ModbusConsts
ModbusTypes
ModbusUtils
***** UNITS2.TXT
mimepart
ModbusUtils
*****
***** units1.txt
SynCompletionProposal
SynCrtSock
SynDBEdit
***** UNITS2.TXT
SynCompletionProposal
SynDBEdit
*****
***** units1.txt
SynURIOpener
SynWinSock
synwrap1
***** UNITS2.TXT
SynURIOpener
synwrap1
*****
***** units1.txt
uPSI_DBWeb
uPSI_DBXCharDecoder
uPSI_DBXClient
***** UNITS2.TXT
uPSI_DBWeb
uPSI_DBXClient
*****
***** units1.txt
uPSI_IdMIMETypes
uPSI_IdModBusClient
uPSI_IdModBusServer
uPSI_IdMultipartFormData
***** UNITS2.TXT
uPSI_IdMIMETypes
uPSI_IdMultipartFormData
*****
***** units1.txt
uPSI_JvSearchFiles
uPSI_JvSegmentedLEDDisplayMapperFrame
uPSI_JvSerialMaker
***** UNITS2.TXT
uPSI_JvSearchFiles
uPSI_JvSerialMaker
*****
***** units1.txt
uPSI_SynCompletionProposal
uPSI_SynCrtSock
uPSI_SynDBEdit
***** UNITS2.TXT
uPSI_SynCompletionProposal
uPSI_SynDBEdit
*****
***** units1.txt
uPSI_xrtl_util_COMUtils
uPSI_xrtl_util_CPUUtils
uPSI_xrtl_util_Exception
***** UNITS2.TXT
uPSI_xrtl_util_COMUtils
uPSI_xrtl_util_Exception
*****
1 DBXCharDecoder_
2 IdModBusClient
3 IdModBusServer
4 IdStrings9
5 JclGraphUtils_
6 JvSegmentedLEDDisplay
7 JvSegmentedLEDDisplayMapperFrame
8 ModbusConsts
9 ModbusTypes
10 SynCrtSock
11 SynWinSock
12 uPSI_DBXCharDecoder
13 uPSI_IdModBusClient
14 uPSI_IdModBusServer
15 uPSI_JvSegmentedLEDDisplayMapperFrame
16 uPSI_SynCrtSock
17 uPSI_xrtl_util_CPUUtils
18 uPSI_HttpClasses.pas
19 uPSI_HttpUtils.pas
20 HttpClasses.pas
21 HttpUtils.pas
V5.1.4.98 III
GLCanvas
GLNavigator
GLParticles
GLStarRecord
JclComplex
uPSI_GLCanvas
uPSI_GLNavigator
uPSI_GLParticles
uPSI_GLSilhouette
uPSI_GLStarRecord
uPSI_JclComplex
V5.1.4.98 IV
ALAVLBinaryTree2
ALCommon
(ALExecute2)
ALFBXBase
ALFBXClient
ALFBXConst
ALFBXError
ALFBXLib
ALString_
ALWebSpider
uPSI_ALFBXClient
uPSI_ALFBXLib
uPSI_ALWebSpider
V5.1.4.98 V
ALFcnSQL
AlMySqlClient
ALMySqlWrapper
PJCBView
uPSI_ALFcnCGI
uPSI_ALFcnSQL
uPSI_AlMySqlClient
uPSI_DataSetUtils
MultiPart FromData Stream
function TestHTTPClassComponentAPIDetection2(AURL, askstream, aApikey: string): string;
var HttpReq1: THttpRequestC;
Body: TMultipartFormBody;
Body2: TUrlEncodedFormBody;
begin
Body:= TMultipartFormBody.Create;
Body.ReleaseAfterSend:= True;
//Body.Add('code','2','application/octet-stream');
Body.AddFromFile('image', exepath+'randimage01.jpg');
HttpReq1:= THttpRequestC.create(self);
HttpReq1.headers.add('X-Api-Key:'+AAPIKEY);
HttpReq1.headers.add('Accept:application/json');
try
if HttpReq1.Post1Multipart(AURL, body) then
writeln(HttpReq1.Response.ContentAsString)
else Writeln('APIError '+inttostr(HttpReq1.Response.StatusCode2));
finally
writeln('Status3: '+gethttpcod(HttpReq1.Response.statuscode2))
HttpReq1.Free;
sleep(200)
// if assigned(body) then body.free;
end;
In this code snippet:
{
"args": {},
"data": "",
"files": {},
"form": {},
"headers": {
"Accept": "application/json",
"Accept-Encoding": "gzip, deflate, br, zstd",
"Accept-Language": "de,de-DE;q=0.9,en;q=0.8,en-GB;q=0.7,en-US;q=0.6",
"Content-Length": "0",
"Host": "httpbin.org",
"Origin": "https://httpbin.org",
"Referer": "https://httpbin.org/",
"Sec-Ch-Ua": "\"Microsoft Edge\";v=\"123\", \"Not:A-Brand\";v=\"8\", \"Chromium\";v=\"123\"",
"Sec-Ch-Ua-Mobile": "?0",
"Sec-Ch-Ua-Platform": "\"Windows\"",
"Sec-Fetch-Dest": "empty",
"Sec-Fetch-Mode": "cors",
"Sec-Fetch-Site": "same-origin",
"User-Agent": "Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/123.0.0.0 Safari/537.36 Edg/123.0.0.0",
"X-Amzn-Trace-Id": "Root=1-6629138a-30ccdbda63321bda3a813217"
},
"json": null,
"origin": "46.127.119.188",
"url": "https://httpbin.org/post"
}
procedure SIRegister_TMultiPartFormAttachment(CL: TPSPascalCompiler);
begin
//with RegClassS(CL,'TOBJECT', 'TMultiPartFormAttachment') do
with CL.AddClassN(CL.FindClass('TOBJECT'),'TMultiPartFormAttachment') do
begin
Constructor Create41( MimeType, FileName : string);');
Constructor Create42( Source : TStream; MimeType, FileName : string);');
Constructor Create43( FilePath, MimeType, FileName : string);');
Constructor Create1( MimeType, FileName : string);');
Constructor Create2( Source : TStream; MimeType, FileName : string);');
Constructor Create3( FilePath, MimeType, FileName : string);');
RegisterProperty('Content', 'TStringStream', iptrw);
RegisterProperty('MimeType', 'string', iptrw);
RegisterProperty('FileName', 'string', iptrw);
end;
end;
procedure SIRegister_HttpUtils(CL: TPSPascalCompiler);
begin
Function PathEncode( const ASrc : String) : String');
Function RPos5( const ASub, AIn : String; AStart : Integer) : Integer');
Function Fetch5( var AInput : String; const ADelim : String) : String');
Function GetErrorDescription( AErrorCode : Integer) : String');
Function AppendBytes5( ABytes1, ABytes2 : TBytes) : TBytes');
Function RandomHex5 : String');
Procedure WriteBytes5( const AStream : TStream; const ABytes : TBytes)');
Procedure WriteString5( const AStream : TStream; const AString : String)');
Function GetMimeType5( const AMemory : TMemoryStream; const ASize : Integer) : String');
function GetBitCount(num: integer): integer');
function popCount64(num: integer): integer');
end;
https://github.com/marcieldeg/HttpComponent/blob/main/README.md
procedure SIRegister_THttpRequestC(CL: TPSPascalCompiler);
begin
//with RegClassS(CL,'TComponent', 'THttpRequest') do
with CL.AddClassN(CL.FindClass('TComponent'),'THttpRequestC') do
begin
Constructor Create( AOwner : TComponent)');
Procedure Free');
Function Delete( AUrl : String) : Boolean;');
Function Delete1( AUrl : String; ABody : TBody) : Boolean;');
Function Delete2( AUrl : String; ABody : String) : Boolean;');
Function Get( AUrl : String) : Boolean');
Function Head( AUrl : String) : Boolean');
Function Options( AUrl : String) : Boolean');
Function Patch( AUrl : String) : Boolean;');
Function Patch1( AUrl : String; ABody : TBody) : Boolean;');
Function Patch2( AUrl : String; ABody : String) : Boolean;');
Function Post( AUrl : String) : Boolean;');
Function Post1( AUrl : String; ABody : TBody) : Boolean;');
Function Post1Multipart( AUrl : String; ABody : TBody) : Boolean;');
Function Post2( AUrl : String; ABody : String) : Boolean;');
Function Put( AUrl : String) : Boolean;');
Function Put1( AUrl : String; ABody : TBody) : Boolean;');
Function Put2( AUrl : String; ABody : String) : Boolean;');
Function Trace( AUrl : String) : Boolean');
RegisterProperty('Cookies', 'TCookiesC', iptr);
Cookies', 'TCookiesC', iptr);
Response', 'THttpResponseC', iptr);
Headers', 'THeaders', iptrw);
UseCookies', 'Boolean', iptrw);
AutoRedirect', 'Boolean', iptrw);
SecurityOptions', 'TSecurityOptions', iptrw);
UserAgent', 'String', iptrw);
HttpVersion', 'THttpVersionComp', iptrw);
Username', 'String', iptrw);
Password', 'String', iptrw);
OnProgress', 'THttpOnProgress', iptrw);
end;
end;
Diff from 5.0.2.28 to 5.0.2.30
------------------------------------------------------------------
C:\maxbox\maxbox4\maxbox4\examples>fc 52output.txt 50output.txt
Comparing files 52Output.txt and 50OUTPUT.TXT
***** 52Output.txt
CommonTools
CompFileIo
Compilers.URunner
***** 50OUTPUT.TXT
CommonTools
Compilers.URunner
***** ***** 52Output.txt
IdIPAddress
IdIPMCastBase
IdIPMCastClient
IdIPWatch
IdLogBase
***** 50OUTPUT.TXT
IdIPAddress
IdLogBase
***** ***** 52Output.txt
IdLPR
IdMailBox
IdMappedPortUDP
***** 50OUTPUT.TXT
IdLPR
IdMappedPortUDP
***** ***** 52Output.txt
IdMessageCoderXXE
IdMessageCollection
IdMessageParts
***** 50OUTPUT.TXT
IdMessageCoderXXE
IdMessageParts
***** ***** 52Output.txt
IdQotd
IdQotdServer
IdQOTDUDP
***** 50OUTPUT.TXT
IdQotd
IdQOTDUDP
***** ***** 52Output.txt
uPSI_ComObjOleDB_utils
uPSI_CompFileIo
uPSI_CompilersURunner
***** 50OUTPUT.TXT
uPSI_ComObjOleDB_utils
uPSI_CompilersURunner
***** ***** 52Output.txt
uPSI_IdIOHandlerStream
uPSI_IdIPMCastBase
uPSI_IdIPMCastClient
uPSI_IdIPWatch
uPSI_IdLogBase
***** 50OUTPUT.TXT
uPSI_IdIOHandlerStream
uPSI_IdLogBase
***** ***** 52Output.txt
uPSI_IdLPR
uPSI_IdMailBox
uPSI_IdMappedPortUDP
***** 50OUTPUT.TXT
uPSI_IdLPR
uPSI_IdMappedPortUDP
***** ***** 52Output.txt
uPSI_IdQotd
uPSI_IdQotdServer
uPSI_IdQOTDUDP
***** 50OUTPUT.TXT
uPSI_IdQotd
uPSI_IdQOTDUDP
***** ***** 52Output.txt
uPSI_JvHtmlParser
uPSI_JvImageDrawThread
uPSI_JvImageWindow
***** 50OUTPUT.TXT
uPSI_JvHtmlParser
uPSI_JvImageWindow
***** ***** 52Output.txt ZURL
Contains ModulesCountEnd___: 3390 ***** 50OUTPUT.TXT ZURL
Contains ModulesCountEnd___: 3392 ***** F:\maxbox\maxbox5\maxbox5\examples
https://www.virustotal.com/gui/file/f64df137d0ae2fc724d3bbd419c850b9262554776aadfed03c0b5cb27e7806bb/details
procedure testcommonfunc;
begin
SFileExpr','String').SetString( '(([a-zA-Z]:)?[^\*\?="<>|:,;\+\^]+)');
SWarningFilePosExpr','String').SetString( SFileExpr + ':(\d+):');
WideLF2','Char').SetString( WideChar ( #10 ));
WideNull2','Char').SetString( WideChar ( #0 ));
AnsiLineFeed','Char').SetString( AnsiChar ( #10 ));
AnsiCarriageReturn','Char').SetString( AnsiChar ( #13 ));
AnsiCrLf','String').SetString( AnsiString ( #13#10 ));
WordBreakString','String').SetString( ',.;:"´`°^!?&$@§%#~[](){}<>-=+*/\| ');
function GetIconIndexFromFile( const AFileName : string; const ASmall : boolean) : integer');
GetLongFileName2( const APath : string) : string');
StrIsLeft( AText, ALeft : PWideChar) : Boolean');
StrIsRight( AText, ARight : PChar) : Boolean');
StrGetToken2( var Content : PChar; Separators, WhiteSpace, QuoteChars : TSysCharSet) : string');
StrUnQuote( const AText : string) : string');
LightenColor( Color : TColor; Percentage : integer) : TColor');
DarkenColor2( Color : TColor; Percentage : integer) : TColor');
SelectionBackgroundColor( ) : TColor');
ApplicationVersion : string');
CompareVersion( const A, B : String) : Integer');
ConnectedToInternet : boolean');
GetNthLine( const S : string; LineNo : integer) : string');
GetLineRange( const S : string; StartLine, EndLine : integer) : string');
GetWordAtPos(const LineText:string;Start:Integer;WordChars:TSysCharSet;ScanBackwards:boolean;ScanForward:bool HandleBrackets: Bool) : string');
FormatDocString( const DocString : string) : string');
CalcIndent( S : string; TabWidth : integer) : integer');
DirIsPythonPackage( Dir : string) : boolean');
FileIsPythonPackage( FileName : string) : boolean');
GetPackageRootDir( Dir : string) : string');
FileNameToModuleName( const FileName : string) : string');
HTMLSafe( const S : string) : string');
GetParamStr( P : PChar; var Param : string) : PChar');
ReadLnFromStream( Stream : TStream; AMaxLineLength : Integer; AExceptionIfEOF : Boolean) : AnsiString');
ParsePySourceEncoding( Textline : string) : string');
SyncWideInputQuery( const ACaption, APrompt : string; var Value : string) : Boolean');
CleanEOLs( S : AnsiString) : AnsiString;');
CleanEOLs1( S : string) : string;');
SortedIdentToInt( const Ident : string; var Int : Longint;const SortedMa: array of TIdentMapEntry;CaseSensitive Bool): Bool');
ComparePythonIdents( const S1, S2 : string) : Integer;');
ComparePythonIdents1( List : TStringList; Index1, Index2 : Integer) : Integer;');
SetDefaultFonts( const AFont : TFont)');
SetDesktopIconFonts( const AFont : TFont)');
SetVistaContentFonts2( const AFont : TFont)');
VSNextWordPos( SynEdit : TCustomSynEdit; const XY : TBufferCoord) : TBufferCoord');
VSPrevWordPos( SynEdit : TCustomSynEdit; const XY : TBufferCoord) : TBufferCoord');
ExtractPyErrorInfo( E : Variant; var FileName : string; var LineNo : Integer; var Offset : Integer)');
FileToAnsiStr( const FileName : String) : AnsiString');
FileToEncodedStr( const AFileName : string) : AnsiString');
FileToStr2( const AFileName : string) : string');
WalkThroughDirectories( const Paths, Masks: string; const PreCallback:TDirectoryWalkProc;onst Recursive:Boolean)');
GetFilesInPaths( Paths, Masks : string; FileList : TStrings; Recursive : Boolean)');
GetDirectoriesInPaths( Paths, Masks : string; DirList : TStrings; Recursive : Boolean)');
StrTrimCharsLeft2( const S : string; const Chars : TSysCharSet) : string');
StrTrimCharsRight2( const S : string; const Chars : TSysCharSet) : string');
StrToken2( var S : String; Separator : Char) : string');
GetClipboardWideText : string');
SetClipboardWideText( AText : string)');
ClipboardProvidesWideText : Boolean');
CanActuallyFocus( WinControl : TWinControl) : Boolean');
CompiledRegExpr( Expr : string) : TRegExpr');
IsDigits( S : string) : Boolean');
Dedent( const S : string) : string');
IdentRE','String').SetString( '[A-Za-z_][A-Za-z0-9_]*');
DottedIdentRE','String').SetString( '[A-Za-z_][A-Za-z0-9_.]*');
https://www.hybrid-analysis.com/sample/f64df137d0ae2fc724d3bbd419c850b9262554776aadfed03c0b5cb27e7806bb
function AnsiNaturalCompareText(const S1, S2: string): integer;
AnsiNaturalCompareText(memo1.lines.text, memo2.lines.text);
writ(roundtime2('07/05/2024',15,true));
//PipeToFile(Filename: string; Cmd: string; Append: boolean): boolean;
PipeToFile(exepath+'maxboxerrorlog.txt','dir *.*',true);
function PipeToFile(Filename: string; Cmd: string; Append: boolean): boolean;
var
SI: TStartupInfo;
PI: TProcessInformation;
Appnd: string;
ComSpec: string;
procedure GetComSpec;
begin
SetLength(ComSpec, MAX_PATH);
FillChar(ComSpec[1], MAX_PATH, #0);
if GetEnvironmentVariable('COMSPEC', PChar(ComSpec), MAX_PATH) = 0 then
ComSpec := 'C:\WINDOWS\system32\cmd.exe' // best guess ?
else
ComSpec := string(PChar(ComSpec));
end;
begin
GetComSpec;
GetStartUpInfo(SI);
SI.wShowWindow := SW_HIDE;
if Append then
Appnd := ' >>'
else
Appnd := ' >';
Cmd := string(PChar(ComSpec)) + ' /C ' + Cmd + Appnd + Filename;
Result := CreateProcess(nil, PChar(Cmd), nil, nil, false, 0, nil, nil, SI, PI);
try
if Result then
begin
WaitForInputIdle(PI.hProcess, INFINITE);
Result := WaitForSingleObject(PI.hProcess, INFINITE) <> WAIT_FAILED;
end;
finally
CloseHandle(PI.hThread);
CloseHandle(PI.hProcess);
end;
if not Result then
RaiseLastOSError;
end;
{ Expands environment variables }
function ExpandEnv(const S: string): string;
{ Surrounds string with quotes when it contains spaces and is not quoted }
function AddQuotesUnless(const S: string): string;
{ Prepares an application name or the command line parameters for execution }
function PrepareCommandLine(S: string): string;
procedure SaveBitmapToStream(ABitmap: TBitmap; AToStream: TStream);
function LoadBitmapFromStream(AFromStream: TStream): TBitmap;
procedure SaveStringToStreamUTF8(AString: string; AStream: TStream);
function LoadStringFromStreamUTF8(AStream: TStream): string;
function LoadSubStreamFromStream(const AFromStream, AToSubStream: TStream): boolean;');
procedure SaveSubStreamToStream(const AFromSubStream, AToStream: TStream);');
function Date8ToStringRFC822(Const Date8AAfficher: string): string;
Function TextMeters(AMeters: Single; DecPlace, MaxLen, PosPoint: Byte): String;
Function RealFrmDegreeText(AText:String):double;
function TextDegreeMinuteSecondFrmDec(Value: Double; AAccuracy: Integer): String;
function WideCharsInSet( wcstr:WideString; wcset:TBits):Boolean;
function JSONUnescape(const Source: string; CRLF: string{ = #13#10}): string;
function parseJsonvalue(jsonutf8: string): string;
procedure SaveBitmapToStream(ABitmap: TBitmap; AToStream: TStream);
function LoadBitmapFromStream(AFromStream: TStream): TBitmap;
procedure SaveStringToStreamUTF8(AString: string; AStream: TStream);
function LoadStringFromStreamUTF8(AStream: TStream): string;
function LoadSubStreamFromStream(const AFromStream, AToSubStream: TStream): boolean;');
procedure SaveSubStreamToStream(const AFromSubStream, AToStream: TStream);');
function Date8ToStringRFC822(Const Date8AAfficher: string): string;
Function TextMeters(AMeters: Single; DecPlace, MaxLen, PosPoint: Byte): String;
Function RealFrmDegreeText(AText:String):double;
function TextDegreeMinuteSecondFrmDec(Value: Double; AAccuracy: Integer): String;
procedure setdebugcheck(false);
function TAddressGeoCodeOSM5('Hauptbahnhof, Graz, Austria'): TLatlong;
function libCompilerString: string;
function EncodeURIComponent2('http://www.google.com/search?q=big%25%26little')
writeln(utf8decode(EncodeURIComponent2('http://www.google.com/search?q=big%25%26little')));
{
alatlong:= TAddressGeoCodeOSM5('Hauptbahnhof, Graz, Austria');
writeln('OSM5 res back_: '+alatlong.descript);
//writeln('get geocoords: '+flots(latlong.lat)+' '+flots(latlong.long));
writeln('get geocoords: '+format(' lat: %.4f - lon: %.4f',[alatlong.lat,alatlong.long]));
}
type
TTimeZoneMode = (zmError, zmIgnore, zmAsUTC, zmAsLocal);
TTimeZoneInfo = record
HourOff: Integer;
MinOff: Integer;
HasTimeZone: Boolean;
IsUTC: Boolean;
end;
function AdjustTimeZone(var DateTime: TDateTime; const TimeZone: TTimeZoneInfo;
TimeZoneMode: TTimeZoneMode): Boolean;
function AdjustTime(Value: TDateTime; HourOff, MinOff: Integer): TDateTime;
function BufToBytes(var buf: string; fromindex, len: integer): TBytes;');
function BufToString_ANSI(var buf: string; fromindex, len: integer): string;');
function BufToString_UNICODE(var buf: string; fromindex, len: integer; optsourcecodepage: integer): string;');
function StringToVarArray(const S: string): Variant;
begin
Result := Unassigned;
if S <> '' then
begin
Result := VarArrayCreate([0, Length(S) - 1], varByte);
Move(Pointer(S)^, VarArrayLock(Result)^, Length(S));
VarArrayUnlock(Result);
end;
end;
function IsCOMObjectActive(ClassName: string): Boolean;
var ClassID: TCLSID;
Unknown: IUnknown;
begin
try
ClassID := ProgIDToClassID(ClassName);
Result := GetActiveObject(ClassID, nil, Unknown) = S_OK;
except
// raise;
Result := False;
end;
end;
function IsCOMObjectActive2(const ClassName: string): Boolean;
var ClassID: TCLSID;
Unknown: IUnknown;
begin
Result := False;
if Succeeded(CLSIDFromProgID(PWideChar(WideString(ClassName)), ClassID)) then
Result := Succeeded(GetActiveObject(ClassID, nil, Unknown));
end;
function IsObjectAvailable(const ClassName: string): Boolean;
var ClassID: TCLSID;
begin
Result := Succeeded(CLSIDFromProgID(PWideChar(WideString(ClassName)),
ClassID));
end;
function ResolveShellLink(const Path: string): string;
function IsCOMObjectActive2(const ClassName: string): Boolean;');
function IsCOMObjectAvailable(const ClassName: string): Boolean;');
procedure setdebugcheck(false);
procedure setdebugcheck(true);
procedure maxform1.console;
procedure maxform1.setconsole;
procedure loadjpegresource3(_instance: cardinal; aimage: Timage; aresname: string);
procedure loadjpegresource4(_instance: cardinal; aimage: Timage; aresname, restyp: string);
function loadanyresource5(_instance: cardinal; aresname, restyp: string): TResourceStream;
function loadjpegresource5(_instance: cardinal; aresname: string): Graphics.TBitmap;
procedure loadjpegresource4(_instance: cardinal; aimage: Timage; aresname, restyp: string);
var
RS: TResourceStream;
JPGImage: TJPEGImage;
begin
JPGImage := TJPEGImage.Create;
//result:= Timage.Create(nil);
try
RS := TResourceStream.Create(_Instance, aresname, pwidechar(restyp));
try
JPGImage.LoadFromStream(RS);
aimage.Picture.Graphic := JPGImage;
finally
RS.Free;
end;
finally
JPGImage.Free;
end;
end;
procedure saveasunicode; //v5.02.60
begin
//to save contexr as unicode - append(Text(mycodestring))
maxform1.memo1.lines.savetofile(maxform1.Act_Filename, TEncoding.UTF8);
maxform1.memo2.lines.Add('----File saved as Unicode!----UTF8 ??');
maxform1.memo1.Lines.LoadFromFile(maxform1.Act_Filename, TEncoding.UTF8);
end;
procedure saveasansi; //v5.02.60
begin
//to save contexr as unicode - append(Text(mycodestring))
maxform1.memo1.lines.savetofile(maxform1.Act_Filename, TEncoding.ansi);
maxform1.memo2.lines.Add('----File saved as Ansi!----Ansi8');
end;
MD5 41db8bf9bdb25d4335f6783ad68ae8e5
SHA-1 ddf3fa4e3ccb0835082c8d8bbd9ddd98a5b5c7b5
SHA-256 da34199785ae5371e2cf8a23a12b68295f7c968ba0c8a24f367baf0c5f091439
maXbox5 beta version 5.0.2.70 beta Ocean670 04/01/2024
------------------------------------------------------
This file was provided by: https://github.com/maxkleiner/maXbox4/tree/master/source2023_1_64bitbox
If you downloaded it from somewhere else, please let us know: maxkleiner1@gmail.com
https://maxbox4.wordpress.com/
Primo loco - Fac totum - Actas volat
maxbox5.zip has 196 files
V.5.0.2.70
uPSI_flcUnicodeCodecs
procedure SIRegister_flcUnicodeCodecs(CL: TPSPascalCompiler);
begin
CL.AddTypeS('TCodecErrorAction', '( eaException, eaStop, eaIgnore, eaSkip, eaReplace )');
CL.AddTypeS('TCodecReadLFOption', '( lrPass, lrNormalize )');
CL.AddTypeS('TCodecWriteLFOption', '( lwLF, lwCR, lwCRLF )');
CL.AddTypeS('ByteChar','AnsiChar');
CL.AddTypeS('TCodecReadEvent', 'Procedure ( Sender : TObject; var Buf, Count '
+': Longint; var Ok : Boolean)');
CL.AddTypeS('TCodecWriteEvent', 'Procedure ( Sender : TObject; const Buf, Count : Longint)');
SIRegister_TCustomUnicodeCodec(CL);
//&&&&&&CL.AddTypeS('TUnicodeCodecClass', 'class of TCustomUnicodeCodec');
CL.AddTypeS('TUnicodeCodecClass', 'TCustomUnicodeCodec');
SIRegister_EUnicodeCodecException(CL);
Procedure RegisterCodecs( const Codecs : array of TUnicodeCodecClass)');
Function GetCodecClassByAlias( const CodecAlias : String) : TUnicodeCodecClass');
Function GetCodecClassByAliasA( const CodecAlias : RawByteString) : TUnicodeCodecClass');
Function GetCodecClassByAliasU( const CodecAlias : UnicodeString) : TUnicodeCodecClass');
Function GetSystemEncodingName : String');
Function GetSystemEncodingCodecClass : TUnicodeCodecClass');
Function DetectUTFEncoding(const Buf : __Pointer; const BufSize : Integer; out BOMSize : Integer) : TUnicodeCodecClass');
Function EncodingToUTF16U(const CodecClass : TUnicodeCodecClass;const Buf:__Pointer;const BufSize Integer): UnicodeString;');
Function EncodingToUTF16U1(const CodecClass : TUnicodeCodecClass; const S : RawByteString) : UnicodeString;');
Function EncodingToUTF16U2(const CodecAlias : String; const Buf : __Pointer; const BufSize : Integer) : UnicodeString;');
Function EncodingToUTF16U3(const CodecAlias : String; const S : RawByteString) : UnicodeString;');
Function UTF16ToEncodingU(const CodecClass : TUnicodeCodecClass; const S : UnicodeString) : RawByteString;');
Function UTF16ToEncodingU1(const CodecAlias : String; const S : UnicodeString) : RawByteString;');
SIRegister_TUTF8Codec(CL);
SIRegister_TUTF16LECodec(CL);
SIRegister_TUTF16BECodec(CL);
SIRegister_TUCS4BECodec(CL);
SIRegister_TUCS4LECodec(CL);
SIRegister_TUCS4_2143Codec(CL);
SIRegister_TUCS4_3412Codec(CL);
SIRegister_TUCS2Codec(CL);
SIRegister_TCustomSingleByteCodec(CL);
//CL.AddTypeS('TUnicodeSingleByteCodecClass', 'class of TCustomSingleByteCodec');
SIRegister_TISO8859_1Codec(CL);
SIRegister_TISO8859_2Codec(CL);
SIRegister_TISO8859_3Codec(CL);
SIRegister_TISO8859_4Codec(CL);
SIRegister_TISO8859_5Codec(CL);
SIRegister_TISO8859_6Codec(CL);
SIRegister_TISO8859_7Codec(CL);
SIRegister_TISO8859_8Codec(CL);
SIRegister_TISO8859_9Codec(CL);
SIRegister_TISO8859_10Codec(CL);
SIRegister_TISO8859_13Codec(CL);
SIRegister_TISO8859_14Codec(CL);
SIRegister_TISO8859_15Codec(CL);
SIRegister_TWindows37Codec(CL);
SIRegister_TWindows437Codec(CL);
SIRegister_TWindows500Codec(CL);
SIRegister_TWindows708Codec(CL);
SIRegister_TWindows737Codec(CL);
SIRegister_TWindows775Codec(CL);
SIRegister_TWindows850Codec(CL);
SIRegister_TWindows852Codec(CL);
SIRegister_TWindows855Codec(CL);
SIRegister_TWindows857Codec(CL);
SIRegister_TWindows858Codec(CL);
SIRegister_TWindows861Codec(CL);
SIRegister_TWindows862Codec(CL);
SIRegister_TWindows863Codec(CL);
SIRegister_TWindows864Codec(CL);
SIRegister_TWindows865Codec(CL);
SIRegister_TWindows866Codec(CL);
SIRegister_TWindows869Codec(CL);
SIRegister_TWindows870Codec(CL);
SIRegister_TWindows874Codec(CL);
SIRegister_TWindows875Codec(CL);
SIRegister_TWindows1026Codec(CL);
SIRegister_TWindows1047Codec(CL);
SIRegister_TWindows1140Codec(CL);
SIRegister_TWindows1141Codec(CL);
SIRegister_TWindows1142Codec(CL);
SIRegister_TWindows1143Codec(CL);
SIRegister_TWindows1144Codec(CL);
SIRegister_TWindows1145Codec(CL);
SIRegister_TWindows1146Codec(CL);
SIRegister_TWindows1147Codec(CL);
SIRegister_TWindows1148Codec(CL);
SIRegister_TWindows1149Codec(CL);
SIRegister_TWindows1250Codec(CL);
SIRegister_TWindows1251Codec(CL);
SIRegister_TWindows1252Codec(CL);
SIRegister_TWindows1253Codec(CL);
SIRegister_TWindows1254Codec(CL);
SIRegister_TWindows1255Codec(CL);
SIRegister_TWindows1256Codec(CL);
SIRegister_TWindows1257Codec(CL);
SIRegister_TWindows1258Codec(CL);
SIRegister_TIBM037Codec(CL);
SIRegister_TIBM038Codec(CL);
SIRegister_TIBM256Codec(CL);
SIRegister_TIBM273Codec(CL);
SIRegister_TIBM274Codec(CL);
SIRegister_TIBM275Codec(CL);
SIRegister_TIBM277Codec(CL);
SIRegister_TIBM278Codec(CL);
SIRegister_TIBM280Codec(CL);
SIRegister_TIBM281Codec(CL);
SIRegister_TIBM284Codec(CL);
SIRegister_TIBM285Codec(CL);
SIRegister_TIBM290Codec(CL);
SIRegister_TIBM297Codec(CL);
SIRegister_TIBM420Codec(CL);
SIRegister_TIBM423Codec(CL);
SIRegister_TIBM424Codec(CL);
SIRegister_TIBM437Codec(CL);
SIRegister_TIBM500Codec(CL);
SIRegister_TIBM850Codec(CL);
SIRegister_TIBM851Codec(CL);
SIRegister_TIBM852Codec(CL);
SIRegister_TIBM855Codec(CL);
SIRegister_TIBM857Codec(CL);
SIRegister_TIBM860Codec(CL);
SIRegister_TIBM861Codec(CL);
SIRegister_TIBM862Codec(CL);
SIRegister_TIBM863Codec(CL);
SIRegister_TIBM864Codec(CL);
SIRegister_TIBM865Codec(CL);
SIRegister_TIBM866Codec(CL);
SIRegister_TIBM868Codec(CL);
SIRegister_TIBM869Codec(CL);
SIRegister_TIBM870Codec(CL);
SIRegister_TIBM871Codec(CL);
SIRegister_TIBM874Codec(CL);
SIRegister_TIBM875Codec(CL);
SIRegister_TIBM880Codec(CL);
SIRegister_TIBM904Codec(CL);
SIRegister_TIBM905Codec(CL);
SIRegister_TIBM918Codec(CL);
SIRegister_TIBM1004Codec(CL);
SIRegister_TIBM1026Codec(CL);
SIRegister_TIBM1047Codec(CL);
SIRegister_TMacLatin2Codec(CL);
SIRegister_TMacRomanCodec(CL);
SIRegister_TMacCyrillicCodec(CL);
SIRegister_TMacGreekCodec(CL);
SIRegister_TMacIcelandicCodec(CL);
SIRegister_TMacTurkishCodec(CL);
SIRegister_TUSASCIICodec(CL);
SIRegister_TEBCDIC_USCodec(CL);
SIRegister_TKOI8_RCodec(CL);
SIRegister_TJIS_X0201Codec(CL);
SIRegister_TNextStepCodec(CL);
CL.AddDelphiFunction('Procedure UnicodeCodecTest');
CL.AddDelphiFunction('Procedure TestUnicodeCodecs');
end;
Doc: https://www.fileformat.info/info/unicode/char/262e/index.htm
CL.AddDelphiFunction('function GetElementAtIndex(S: String; StrIdx : Integer): String;');
function NormalizeText(Str: string): string; ');
function GetFirstCodepointSize(const S: UTF8String): Integer;
function Utf8ToUtf16( const sIn: AnsiString; iSrcCodePage: DWord): WideString;
procedure SaveString2(const AFile, AText: string);
procedure SaveString3(const AFile, AText: string; Append: Boolean); //UTF8
procedure DelimitedStringToStringList(s, sDelim: string; var SL: TStringList);
function loadjpegresource5(_instance: cardinal; aresname: string): Graphics.TBitmap;
function DSplitString(sInput:string; Delimiter:string): TStringArray;');
CL.AddDelphiFunction('function SplitString2(sInput:string; Delimiter:string): TStringArray;');
function LoadFile3(const FileName: TFileName): string;
var Stri: TStrings; Stream: TStream;
begin
stream:= TFileStream.Create(FileName, fmOpenRead or fmShareDenyWrite);
Stri:= TStringlist.create;
try
try
stri.LoadFromStream(Stream, TEncoding.UTF8);
result:= stri.Text;
except
Result := ''; // Deallocates memory
stream.Free;
raise;
end;
finally
stri.Free;
stream.Free;
end;
end;
http://www.softwareschule.ch/download/maxbox_starter60_1.pdf
constructor TStreamWriter.Create(const Filename: string; Append: Boolean);
begin
if not Append or not FileExists(Filename) then
FStream := TFileStream.Create(Filename, fmCreate)
else
begin
FStream := TFileStream.Create(Filename, fmOpenWrite);
FStream.Seek(0, soEnd);
end;
Create(FStream);
FOwnsStream := True;
end;
constructor TStreamWriter.Create(const Filename: string; Append: Boolean;
Encoding: TEncoding; BufferSize: Integer);
begin
if not Append or not FileExists(Filename) then
FStream := TFileStream.Create(Filename, fmCreate)
else
begin
FStream := TFileStream.Create(Filename, fmOpenWrite);
FStream.Seek(0, soEnd);
end;
Create(FStream, Encoding, BufferSize);
FOwnsStream := True;
end;
procedure SaveString3(const AFile, AText: string; Append: Boolean);
var
Writer: TStreamWriter; //, TEncoding.UTF8
begin
//GetElementAtIndex
{ Create a new stream writer directly. }
Writer:= TStreamWriter.Create(Afile, append, TEncoding.UTF8);
try
Writer.Write(Atext);
finally
{ Close and free the writer. }
Writer.Free;
end;
end;
bugs bug in 64-bit box bug box
wanna mention general bugs found since version 5.0.2.70 to 5.0.3.40
----------------------------------------------------------
1. [var as word type] Having a var as word type you get a type mismatch unless you change word to dword (list below)
Example: DecodeDate( Date : TDateTime; var Year, Month, Day : Word);
change var ttyear, ttMonth, ttDay : dWord;
DecodeDate(now, ttYear,ttMonth, ttDay);
2. [inttoAscii instead of chr] some functions need IntToAscii( Value : Int64; Digits : Int) :Str; instead of chr() function
3. [enums or set] a few properties cant load a set of like //Font.Style:= [fsBold];
just uncomment helps - on progress
use Font.Style2:= FSStrikeout2; or Font.Style2:= fsBold2
4. ASM64.inc got an avcrash by record of record struct, solution is to inline the function like:
function LineI(const p1,p2:TPoint):Tline;
{Make a Tline record from two points record}
begin
result.p1:=p1;
result.p2:=p2;
end;
ordered list of [var as word type] in maxbox_functions
http://www.[softwareschule.ch/maxbox_functions.htm](http://www.softwareschule.ch/maxbox_functions.htm)
line regex: Rex.Regex:= '(?i)(\bVar\b.*\bWord\b)';
https://stackoverflow.com/questions/2219830/regular-expression-to-find-two-strings-anywhere-in-input
0 648 Func DecLimit3( var B : Word; const Limit : Word; const Decr : Word) : Word;
1 655 Func DecLimitClamp3(var B:Word;const Limit: Word; const Decr : Word) : Word;
2 659 Func DecodeDateFully(DateTime: TDateTime; var Year,Month,Day,DOW:Word):Bool
3 1597 Func IncLimit3( var B : Word; const Limit : Word; const Incr : Word) : Word;
4 1604 Func IncLimitClamp3( var B : Word; const Limit : Word; const Incr : Word) : Word;
5 1689 Func InternalDecodeDate(DateTime:TDateTime;var Year,Month,Day,DOW:Word):Boolean
6 2072 Func NormalizeBcd(const InBcd TBcd;var OutBcd:TBcd;const Prec,Scale Word):Bool
7 3073 Func WeekOfTheMonth1( const AValue : TDateTime; var AYear, AMonth : Word) : Word;
8 3075 Func WeekOfTheYear1( const AValue : TDateTime; var AYear : Word) : Word;
9 3424 Proc JDecodeDate( Date : TDateTime; var Year, Month, Day : Word);
10 3425 Proc DecodeDate1( Date : TDateTime; var Year : Int; var Month, Day : Word);
11 3475 Proc FileTimeToDosDateTime1( const FileTime : TFileTime; var Date, Time: Word);
12 3684 //Func StrWord( var S : PAnsiChar; out Word : Ansistr) :Bool
13 3770 Proc DateDiff(Date1, Date2: TDateTime; var Days, Months, Years: Word);
14 4944 Proc DateDiff(Date1, Date2: TDateTime; var Days, Months, Years: Word);
15 5462 Proc IncLimW( var B : Word; const Limit : Word)
16 5467 Proc DecLimW( var B : Word; const Limit : Word)
17 5482 Proc SwapW( var B1, B2 : Word)
18 5887 Func Str2WordS(const S: ShortString; var I : Word) :Bool
19 5999 Proc SetFlag( var Flags : Word; FlagMask : Word)
20 6000 Proc ClearFlag( var Flags : Word; FlagMask : Word)
21 6009 Proc ExchangeWords( var I, J : Word)
22 6012 Proc FillWord( var Dest, Count :Card; Filler : Word)
23 6245 Proc ValWord( const S : ShortString; var Wd : word; var ErrorCode : Int)
24 6708 Func ExtractAssociatedIcon(hInst:HINST;lpIconPath:PChar;var lpiIcon:Word):HICON
25 8323 Proc SetYear( var D : TDateTime; const Year : Word)
26 8324 Proc SetMonth( var D : TDateTime; const Month : Word)
27 8325 Proc SetDay( var D : TDateTime; const Day : Word)
28 8326 Proc SetHour( var D : TDateTime; const Hour : Word)
29 8327 Proc SetMinute( var D : TDateTime; const Minute : Word)
30 8328 Proc SetSecond( var D : TDateTime; const Second : Word)
31 8329 Proc SetMillisecond( var D : TDateTime; const Milliseconds : Word)
32 8371 Proc ISOWeekNumber( const D : TDateTime; var WeekNumber, WeekYear : Word)
33 12860 Proc PtrInc( var P, Delta : Word)
34 12861 Proc PtrDec( var P, Delta : Word)
35 14513 //Proc VersionExtractFileInfo(const FixedInfo:TVSFixedFileInfo;var Major,Minor,Build,Revision:Word);
36 14514 //Proc VersionExtractProductInfo(const FixedInfo:TVSFixedFileInfo;var Major,Minor,Build,Revision:Word);
37 15206 Proc glDivMod( Dividend : Int; Divisor : Word; var Result, Remainder : Word)
38 16185 Proc SubString_Insert(var Str:str;Separator:Char;SubStrIndex:Word;Value:str);
39 16186 Proc SubString_Edit(var Str:str;Separator:Char;SubStringIndex:Word; NewValue:str);
40 16187 Func SubString_Remove(var Str:str; Separator:Char; SubStringIndex : Word) :Bool;
41 16232 Proc cyAddMonths( var aMonth, aYear : Word; Months : Int);
42 18439 Func Str2WordL( const S : Ansistr; var I : Word) :Bool;
43 20442 Func GetAppVersion(const ALibName:str;var MajorVersion,MinorVersion,BuildNumber,RevisionNumber:Word):Bool;
44 21533 Proc SwapWord2( var x : word);
45 21549 Func Printf2( const s :Str; var Buf:Str; size : word) :Str;
46 21550 Func Printfx( const s :Str; var Buf:Str; size : word) :Str;
47 21605 Proc DecodeDatereal( Date : TDatetimeReal; var Year, Month, Day : Word);
48 21606 Proc DecodeDateTimereal(const AValue:TDatetimeReal;var Year,Month,Day,Hour,Minute,Second,MilliSecond:Word);
49 21607 Proc DecodeTimereal( Time : TDatetimeReal; var Hour, Min, Sec, MSec : Word);
50 21638 Func parsetimeISO(timestr:str;var hourval,minval,secval:word;var offsethourval,offsetminval:Int;var UTC:bool):bool;
51 21639 Func parsedateISO( datestr :Str; var yearval, monthval, dayval : word) :Bool;
52 21641 Proc jdtodate(jday:float; var year, month, day, hour, minute, second, msec : word);
53 21645 Proc getdatedos( var year, month, mday, wday : word);
54 21646 Proc gettimedos( var hour, minute, second, sec100 : word);
55 21662 Proc JulianToGregorian(JulianDN:big_Int_t;var Year,Month,Day:Word);;
56 21671 Func IsValidISODateStringExt(datestr:shortstring;strict:bool;var Year,Month,Day:word):bool;
57 21673 Func IsValidISOTimeStringExt(timestr:shortstring;strict:boolean;var hour,min,sec:word;var offhour,offmin: smallint):bool;
58 21678 Proc UNIXToDateTime2(epoch:big_Int_t; var year,month,day,hour,minute,second: Word);
59 22594 CRC16Init( var CRC16 : Word);
60 23517 Func ABGetNext1( var AB : array of byte; ST : word) : word');
61 27731 Function GetHotkey( var pwHotkey : word) : HResult');
62 27779 Function azuJPEGDimensions( Filename : string; var X, Y : Word) : boolean');
63 30247 Procedure apiOsBuildInfo( var v1, v2, v3, v4 : word)');
64 31207 procedure(Sender: TObject; var Key: Word; Shift: TShiftState);
65 31320 Proc BooleansToBits1( var Dest : Word; const B : TBooleanArray);
66 31352 Proc cbPathKeyDown( Sender : TObject; var Key : Word; Shift : TShiftState)
67 31407 Proc ColorRGBToHLS( clrRGB : TColorRef; var Hue, Luminance, Saturation : Word)
68 31432 Proc CopyBytesToHostWord(const ASource:TIdBytes;const ASourceIndex:Int;var VDest: Word)
69 31472 Proc DecodeDate( DateTime : TDateTime; var Year, Month, Day : Word)
70 31473 Proc DecodeDate(const DateTime: TDateTime; var Year, Month, Day: Word);
71 31479 Proc DecodeTime( DateTime : TDateTime; var Hour, Min, Sec, MSec : Word)
72 31480 Proc DecodeTime(const DateTime: TDateTime; var Hour, Min, Sec, MSec: Word);
73 31517 Proc DivMod( Dividend : Int; Divisor : Word; var Result, Remainder : Word)
74 31761 Proc IncAMonth( var Year, Month, Day : Word; NumberOfMonths : Int)
75 31827 Proc ListViewKeyDown( Sender : TObject; var Key : Word; Shift : TShiftState)
76 32145 Proc SaveToClipboardFormat(var AFormat:Word; var AData: THandle; var APalette: HPALETTE)
77 32146 Proc SaveToClipboardFormat(var Format: Word; var Data : THandle; var APalette: HPALETTE)
78 32258 Proc SHORTCUTTOKEY( SHORTCUT : TSHORTCUT; var KEY : WORD; var SHIFT : TSHIFTSTATE)
79 32335 Proc SwapOrd3( var I, J : Word);
80 33091 Func WordIsOk(const AWord:Str; var VW: Word):Bool;
81 38402 Proc GetJPGSize(const sFile:Str; var wWidth, wHeight: Word);
82 38403 Proc GetPNGSize(const sFile:Str; var wWidth, wHeight: Word);
83 38405 Proc GetGIFSize(const sGIFFile:Str; var wWidth, wHeight: Word);
84 38659 Func ScanNumber(const S:Str; var Pos: Int; var Number: Word):Bool;
85 39122 Proc DecDay( var Year : Int; var Month, Day : Word);
86 39123 Proc DecDays( var Year : Int; var Month, Day : Word; const Days : Int);
87 39130 Proc FirstDayOfWeekYmd( var Year : Int; var Month, Day : Word);
88 39161 Proc diIncMonth( var Year : Int; var Month, Day : Word);
89 39162 Proc diIncMonths(var Year :Int; var Month, Day:Word; const NumberOfMonths:Int);
90 39163 Proc diIncDay( var Year : Int; var Month, Day : Word);
91 39164 Proc IncDays( var Year : Int; var Month, Day : Word; const Days : Int);
92 39191 Proc LastDayOfWeekYmd( var Year : Int; var Month, Day : Word);
procedure SIRegister_OAuth(CL: TPSPascalCompiler);
begin
CL.AddClassN(CL.FindClass('TOBJECT'),'EOAuthException');
CL.AddClassN(CL.FindClass('TOBJECT'),'TOAuthConsumer');
CL.AddClassN(CL.FindClass('TOBJECT'),'TOAuthToken');
CL.AddClassN(CL.FindClass('TOBJECT'),'TOAuthRequest');
CL.AddClassN(CL.FindClass('TOBJECT'),'TOAuthSignatureMethod');
CL.AddClassN(CL.FindClass('TOBJECT'),'TOAuthSignatureMethod_HMAC_SHA1');
CL.AddClassN(CL.FindClass('TOBJECT'),'TOAuthSignatureMethod_PLAINTEXT');
SIRegister_TOAuthConsumer(CL);
SIRegister_TOAuthToken(CL);
SIRegister_TOAuthRequest(CL);
SIRegister_TOAuthSignatureMethod(CL);
SIRegister_TOAuthSignatureMethod_HMAC_SHA1(CL);
SIRegister_TOAuthSignatureMethod_PLAINTEXT(CL);
SIRegister_TOAuthUtil(CL);
CL.AddConstantN('UnixStartDateTime','TDateTime').SetInt(25569);
// CL.AddConstantN('DefCalcPrecision','LongInt').SetInt( 15);
CL.AddConstantN('JSONRESTGET','String').setstring('{"method":"GET","url":"https://data.sncf.com","resource":"api/records/1.0/search/'+
'","contenttype":"","auth":{"method":"NONE","username":"","passwordkey":"",'+
'"password":"","passwordkey":"","clientid":"","clientsecret":"","authcode":"","'+
'accesstoken":"","accesstokensecret":"","requesttoken":"","requesttokensecret":"",'+
'"refreshtoken":"","signaturemethod":"","responsetype":"","endpointauth":"",'+
'"endpointaccesstoken":"","endpointrequesttoken":"","endpointredirect":"",'+
'"authscope":""},"parameters":[{"name":"dataset","value":"gares-pianos",'+
'"kind":"GET/POST","encode":true},{"name":"rows","value":"100","kind":"GET/POST",'+
'"encode":true},{"name":"facet","value":"gare","kind":"GET/POST","encode":true},'+
'{"name":"q","value":"Paris","kind":"GET/POST","encode":true}],"body":""}');
end;
Verifying: maXbox5.exe
Signature Index: 0 (Primary Signature)
Hash of file (sha256): 8CF17E0D7519771801217DD3FD339F5E222DEB19E4FFC94667DB1E6C83A7913D
Signing Certificate Chain:
Issued to: maXboxCertAuth
Issued by: maXboxCertAuth
Expires: Sun Jan 01 00:59:59 2040
SHA1 hash: 6F83207B500DCC0E32A719599CBC6BD7E6B2A04D
Issued to: maXbox4signer
Issued by: maXboxCertAuth
Expires: Sun Jan 01 00:59:59 2040
SHA1 hash: 6A89501B76D47C189A60BF1070BAA2FBFD38D7D7
Issued to: maXbox4exe
Issued by: maXbox4signer
Expires: Sun Jan 01 00:59:59 2040
SHA1 hash: F0EB0CA218C5707FAC78921F81092CECA12AD0E9
The signature is timestamped: Thu Jan 04 12:42:33 2024
Timestamp Verified by:
Issued to: GlobalSign
Issued by: GlobalSign
Expires: Sun Dec 10 01:00:00 2034
SHA1 hash: 8094640EB5A7A1CA119C1FDDD59F810263A7FBD1
Issued to: GlobalSign Timestamping CA - SHA384 - G4
Issued by: GlobalSign
Expires: Sun Dec 10 01:00:00 2034
SHA1 hash: F585500925786F88E721D235240A2452AE3D23F9
Issued to: Globalsign TSA for CodeSign1 - R6
Issued by: GlobalSign Timestamping CA - SHA384 - G4
Expires: Sun May 08 08:45:38 2033
SHA1 hash: CA3E8CFD7CFD329A99359A9A38F86185F0B01C4A
Successfully verified: maXbox5.exe
Number of files successfully Verified: 1
Number of warnings: 0
Number of errors: 0
https://www.hybrid-analysis.com/sample/84dd7e157da55d608cba95feb7d705ccda48cdf7c980fec964c183198741e0db
https://www.virustotal.com/gui/file/faaa1ecf193afb5bfe1f3dd489ca830db38a3ad67ca0e2cad54fc0256d45d40e/detection
SHA-1 EXE 105e9a9e443d5c2e6e11584f79feb886a6b5045c
SHA-256 faaa1ecf193afb5bfe1f3dd489ca830db38a3ad67ca0e2cad54fc0256d45d40e
--- Falcon Sandbox Analysis Overview ---
https://www.hybrid-analysis.com/sample/faaa1ecf193afb5bfe1f3dd489ca830db38a3ad67ca0e2cad54fc0256d45d40e
V5.0.2.80 Recode Tech RegExBox
procedure SIRegister_RegularExpressions(CL: TPSPascalCompiler);
begin
CL.AddTypeS('TRegExOption', '( rroNone, rroIgnoreCase, rroMultiLine, rroExplicitC'
+'apture, rroCompiled, rroSingleLine, rroIgnorePatternSpace, rroNotEmpty )');
CL.AddTypeS('TRegExOptions', 'set of TRegExOption');
SIRegister_TGroup(CL);
CL.AddClassN(CL.FindClass('TOBJECT'),'TGroupCollectionEnumerator');
SIRegister_TGroupCollection(CL);
SIRegister_TGroupCollectionEnumerator(CL);
SIRegister_TMatch(CL);
CL.AddClassN(CL.FindClass('TOBJECT'),'TMatchCollectionEnumerator');
SIRegister_TMatchCollection(CL);
SIRegister_TMatchCollectionEnumerator(CL);
CL.AddTypeS('TMatchEvaluator', 'Function ( const Match : TMatch) : string');
SIRegister_TRegEx(CL);
end;
with CL.AddClassN(CL.FindClass('TOBJECT'),'TRegEx') do
begin
Constructor Create( const Pattern : string; Options : TRegExOptions)');
Constructor Create1( const Pattern : string)');
Function IsMatch( const Input : string) : Boolean;');
Function IsMatch1( const Input : string; StartPos : Integer) : Boolean;');
Function IsMatch2( const Input, Pattern : string) : Boolean;');
Function IsMatch3( const Input, Pattern : string; Options : TRegExOptions) : Boolean;');
Function Escape( const Str : string; UseWildCards : Boolean) : string');
Function Match( const Input : string) : TMatch;');
Function Match1( const Input : string; StartPos : Integer) : TMatch;');
Function Match2( const Input : string; StartPos, Length : Integer) : TMatch;');
Function Match3( const Input, Pattern : string) : TMatch;');
Function Match4( const Input, Pattern : string; Options : TRegExOptions) : TMatch;');
Function Matches( const Input : string) : TMatchCollection;');
Function Matches1( const Input : string; StartPos : Integer) : TMatchCollection;');
Function Matches2( const Input, Pattern : string) : TMatchCollection;');
Function Matches3( const Input, Pattern : string; Options : TRegExOptions) : TMatchCollection;');
Function Replace( const Input, Replacement : string) : string;');
Function Replace1( const Input : string; Evaluator : TMatchEvaluator) : string;');
Function Replace2( const Input, Replacement : string; Count : Integer) : string;');
Function Replace3( const Input : string; Evaluator : TMatchEvaluator; Count : Integer) : string;');
Function Replace4( const Input, Pattern, Replacement : string) : string;');
Function Replace5( const Input, Pattern : string; Evaluator : TMatchEvaluator) : string;');
Function Replace6( const Input, Pattern, Replacement : string; Options : TRegExOptions) : string;');
Function Replace7( const Input, Pattern : string; Evaluator : TMatchEvaluator; Options : TRegExOptions) : string;');
end;
end;
function TBytesMerge(arr1, arr2: TBytes): TBytes;
var ofs: integer;
begin
setlength(result, length(arr1) + length(arr2));
ofs := 0;
if length(arr1)>0 then begin
Move(arr1[0], result[ofs], length(arr1));
inc(ofs, length(arr1));
end;
if length(arr2)>0 then begin
Move(arr2[0], result[ofs], length(arr2));
inc(ofs, length(arr2));
end;
end;
function parsejsonvalue2(JsonUTF8: string): string;
var
LJSONValue: TJSONValue;
begin
{ convert String to JSON }
LJSONValue:=TJSONObject.ParseJSONValue(TEncoding.UTF8.GetBytes(JsonUtf8),0);
result:= LJSONValue.ToString;
end;
function Exit3(exitcode: integer): integer;
begin
system.exit(exitcode);
end;
function StringToBytes_Encode(const s: string; destcodepage: integer; withBOM: boolean = true): TBytes;
function BytesToString_Decode(arr: TBytes; optsourcecodepage: integer = 0): string;
CL.AddDelphiFunction('Function SystemCodePage : Integer');
CL.AddDelphiFunction('Function GetCodePage : Integer');
function ConvertToNegative (const Bitmap: TBitmap): TBitmap;
function BufToString_ANSI(var buf: string; fromindex, len: integer): string;');
function BufToString_UNICODE(var buf: string; fromindex, len: integer; optsourcecodepage: integer): string;');
function GetGeoInfoMap5save(const lat,lon, zoom: double; asize: integer;
const UrlGeoLookupInfo, apath: string; showfile: boolean): string;
function GetGeoInfoMap5(const lat,lon, zoom: double; asize: integer;
UrlGeoLookupInfo, apath: string; showfile: boolean): string;
ex.call: GetGeoInfoMap5(51.22,6.77,12,850, mapboxAPIEKONKey,
ExePath+'examples\667_roboline_outdoor_layer5.png', true);
functions TAddressGeoCodeOSM5('Hauptbahnhof, Graz, Austria'): TLatlong;
Verifying: maXbox5.exe
Signature Index: 0 (Primary Signature)
Hash of file (sha256): 5FFFCCDAC0A0E1D6E142F8825BD1DFF1E16A5C71F1BBEA17FD926BCF255D9E31
Signing Certificate Chain:
Issued to: maXboxCertAuth
Issued by: maXboxCertAuth
Expires: Sun Jan 01 00:59:59 2040
SHA1 hash: 6F83207B500DCC0E32A719599CBC6BD7E6B2A04D
Issued to: maXbox4signer
Issued by: maXboxCertAuth
Expires: Sun Jan 01 00:59:59 2040
SHA1 hash: 6A89501B76D47C189A60BF1070BAA2FBFD38D7D7
Issued to: maXbox4exe
Issued by: maXbox4signer
Expires: Sun Jan 01 00:59:59 2040
SHA1 hash: F0EB0CA218C5707FAC78921F81092CECA12AD0E9
The signature is timestamped: Wed Jan 17 12:02:12 2024
Timestamp Verified by:
Issued to: GlobalSign
Issued by: GlobalSign
Expires: Sun Dec 10 01:00:00 2034
SHA1 hash: 8094640EB5A7A1CA119C1FDDD59F810263A7FBD1
Issued to: GlobalSign Timestamping CA - SHA384 - G4
Issued by: GlobalSign
Expires: Sun Dec 10 01:00:00 2034
SHA1 hash: F585500925786F88E721D235240A2452AE3D23F9
Issued to: Globalsign TSA for CodeSign1 - R6
Issued by: GlobalSign Timestamping CA - SHA384 - G4
Expires: Sun May 08 08:45:38 2033
SHA1 hash: CA3E8CFD7CFD329A99359A9A38F86185F0B01C4A
Successfully verified: maXbox5.exe
Number of files successfully Verified: 1
Number of warnings: 0
Number of errors: 0
function StringToBytes_Encode(const s: string; destcodepage: integer; withBOM: boolean = true): TBytes;
function BytesToString_Decode(arr: TBytes; optsourcecodepage: integer = 0): string;
CL.AddDelphiFunction('Function SystemCodePage : Integer');
CL.AddDelphiFunction('Function GetCodePage : Integer');
writeln('lib compiler: '+libcompilerstring);
function EncodeURIComponent2('http://www.google.com/search?q=big%25%26little')
writeln(utf8decode(EncodeURIComponent2('http://www.google.com/search?q=big%25%26little')));
{
alatlong:= TAddressGeoCodeOSM5('Hauptbahnhof, Graz, Austria');
writeln('OSM5 res back_: '+alatlong.descript);
//writeln('get geocoords: '+flots(latlong.lat)+' '+flots(latlong.long));
writeln('get geocoords: '+format(' lat: %.4f - lon: %.4f',[alatlong.lat,alatlong.long]));
}
functions TAddressGeoCodeOSM5('Hauptbahnhof, Graz, Austria'): TLatlong;
function libCompilerString: string;
function DisplayTBytes(Buf: TBytes): String;
function EncodeURIComponent2('http://www.google.com/search?q=big%25%26little')
writeln(utf8decode(EncodeURIComponent2('http://www.google.com/search?q=big%25%26little')));
{
alatlong:= TAddressGeoCodeOSM5('Hauptbahnhof, Graz, Austria');
writeln('OSM5 res back_: '+alatlong.descript);
//writeln('get geocoords: '+flots(latlong.lat)+' '+flots(latlong.long));
writeln('get geocoords: '+format(' lat: %.4f - lon: %.4f',[alatlong.lat,alatlong.long]));
}
procedure maxform1.console;
procedure maxform1.setconsole;
function ConvertToNegative (const Bitmap: TBitmap): TBitmap;
procedure loadjpegresource3(_instance: cardinal; aimage: Timage; aresname: string);
procedure loadjpegresource4(_instance: cardinal; aimage: Timage; aresname, restyp: string);
function loadanyresource5(_instance: cardinal; aresname, restyp: string): TResourceStream;
function loadjpegresource5(_instance: cardinal; aresname: string): Graphics.TBitmap;
procedure BurrowsWheeler
procedure testUnicode(typ: byte);
const
SMILEY_UTF8_SLIGHTLY_SMILING_FACE: TBytes = [$E2, $98, $BA]; // Unicode Code Point: U+263A
begin
if typ = 1 then
ShowMessage('hi unicode '+TEncoding.UTF8.GetString(SMILEY_UTF8_SLIGHTLY_SMILING_FACE));
if typ= 2 then
maxform1.memo2.lines.add(TEncoding.UTF8.GetString(SMILEY_UTF8_SLIGHTLY_SMILING_FACE));
if typ= 3 then
maxform1.caption:= maxform1.Caption +(TEncoding.UTF8.GetString(SMILEY_UTF8_SLIGHTLY_SMILING_FACE));
end;
502 UNICODE Test
maXbox Version Check File
Zodiacal symbols
See also Asian zodiacal symbols among the animal symbols
in the range 1F400-1F418.
2648 ♈ ARIES
→ 1F40F 🐏 ram
2649 ♉ TAURUS
264A ♊ GEMINI
264B ♋ CANCER
→ 1F980 🦀 crab
264C ♌ LEO
→ 1F981 🦁 lion face
264D ♍ VIRGO
= minim (alternate glyph)
264E ♎ LIBRA
→ 2696 ⚖ scales
→ 1F75E 🝞 alchemical symbol for sublimation
264F ♏ SCORPIUS
= Scorpio
= minim, drop
→ 1F982 🦂 scorpion
2650 ♐ SAGITTARIUS
→ 1F3F9 🏹 bow and arro this end send2 plus: 㼿 this end send2 plus: ??
V5.0.2.95
procedure SIRegister_TIdIOHandler(CL: TPSPascalCompiler);
begin
//with RegClassS(CL,'TIdComponent', 'TIdIOHandler') do
with CL.AddClassN(CL.FindClass('TIdComponent'),'TIdIOHandler') do begin
Constructor Create( AOwner : TComponent)');
Procedure Free;');
Procedure AfterAccept');
Function Connected : Boolean');
Procedure CheckForDisconnect( ARaiseExceptionIfDisconnected : Boolean; AIgnoreBuffer : Boolean)');
Function CheckForDataOnSource( ATimeout : Integer) : Boolean');
Procedure Close');
Procedure CloseGracefully');
Function MakeDefaultIOHandler( AOwner : TComponent) : TIdIOHandler');
Function MakeIOHandler( ABaseType : TIdIOHandlerClass; AOwner : TComponent) : TIdIOHandler');
Function TryMakeIOHandler( ABaseType : TIdIOHandlerClass; AOwner : TComponent) : TIdIOHandler');
Procedure RegisterIOHandler');
Procedure SetDefaultClass');
RegisterMethod('Function WaitFor(const AString:string; ARemoveFromBuffer:Boolean; AInclusive : Boolean; AByteEncoding
: IIdTextEncoding; ATimeout : Integer; AAnsiEncoding : IIdTextEncoding) : string');
RegisterMethod('Procedure Write( const ABuffer : TIdBytes; const ALength : Integer; const AOffset : Integer);');
Procedure WriteDirect( const ABuffer : TIdBytes; const ALength : Integer; const AOffset : Integer)');
Procedure Open');
Function Readable( AMSec : Integer) : Boolean');
Procedure Write1( const AOut : string; AByteEncoding : IIdTextEncoding; ASrcEncoding : IIdTextEncoding);');
Procedure WriteLn2( AEncoding : IIdTextEncoding);');
RegisterMethod('Procedure WriteLn1( const AOut : string);');
Procedure WriteLn3( const AOut : string; AByteEncoding : IIdTextEncoding; ASrcEncoding : IIdTextEncoding);');
Procedure WriteLnRFC( const AOut : string; AByteEncoding : IIdTextEncoding; ASrcEncoding : IIdTextEncoding)');
Procedure Write4(AValue:TStrings;AWriteLinesCount: Boolean; AByteEncoding IIdTextEncoding;ASrcEncoding:IIdTextEncoding);');
Procedure Write5( AValue : Byte);');
Procedure Write6( AValue : Char; AByteEncoding : IIdTextEncoding; ASrcEncoding : IIdTextEncoding);');
Procedure Write7( AValue : Int16; AConvert : Boolean);');
Procedure Write8( AValue : UInt16; AConvert : Boolean);');
Procedure Write9( AValue : Int32; AConvert : Boolean);');
Procedure Write10( AValue : UInt32; AConvert : Boolean);');
Procedure Write11( AValue : Int64; AConvert : Boolean);');
Procedure Write12( AValue : TIdUInt64; AConvert : Boolean);');
Procedure Write13( AStream : TStream; ASize : TIdStreamSize; AWriteByteCount : Boolean);');
Procedure WriteStream( AStream : TStream; ASize : TIdStreamSize; AWriteByteCount : Boolean);');
Procedure WriteStream2( AStream : TStream; ASize : TIdStreamSize; AWriteByteCount : Boolean);');
Procedure WriteRFCStrings(AStrings:TStrings;AWriteTerminator:Boolean;AByteEncoding:IIdTextEncoding;ASrcEncoding:IIdTextEncoding)');
Function WriteFile( const AFile : String; AEnableTransferFile : Boolean) : Int64');
Function AllData( AByteEncoding : IIdTextEncoding; ADestEncoding : IIdTextEncoding) : string');
Function InputLn( const AMask : string; AEcho : Boolean;ATabWidth:Integer;AMaxLineLengt:Int;AByteEncoding:IIdTextEncoding;AAnsiEncoding:IIdTextEncoding):string;
Procedure Capture14( ADest: TStream; AByteEncoding:IIdTextEncoding; ADestEncoding : IIdTextEncoding);');
Procedure Capture15(ADest:TStream; ADelim string;AUsesDotTransparency:Boolean;AByteEncoding:IIdTextEncoding;ADestEncoding:IIdTextEncoding);');
Procedure Capture16(ADest:TStream;out VLineCount:Int;const ADelim:string;AUsesDotTransparency Bool;AByteEncoding:IIdTextEncoding;ADestEncoding:IIdTextEncoding);');
Procedure Capture17( ADest: TStrings; AByteEncoding: IIdTextEncoding; ADestEncoding : IIdTextEncoding);');
Procedure Capture18(ADest:TStrings;const ADelim string; AUsesDotTransparency:Boolean;AByteEncoding: IIdTextEncoding;ADestEncoding:IIdTextEncoding);');
Procedure Capture19(ADest:TStrings;out VLineCount:Int;const ADelim:string;AUsesDotTransparency:Bool;AByteEncoding:IIdTextEncoding;ADestEncoding:IIdTextEncoding);
Procedure ReadBytes var VBuffer : TIdBytes; AByteCount : Integer; AAppend : Boolean)');
Function ReadLn( AByteEncoding : IIdTextEncoding; ADestEncoding : IIdTextEncoding) : string;');
Function ReadLn1: string;');
Function ReadLn21( ATerminator:string; AByteEncoding:IIdTextEncoding; ADestEncoding:IIdTextEncoding):string;');
Function ReadLn22( ATerminator: string;ATimeout:Integer;AMaxLineLength:Integer;AByteEncoding:IIdTextEncoding;ADestEncoding:IIdTextEncoding):string;');
Function ReadLnRFC23(var VMsgEnd : Boolean; AByteEncoding : IIdTextEncoding; ADestEncoding : IIdTextEncoding):string;');
Function ReadLnRFC24(var VMsgEnd:Boolean;const ALineTerminator:string;const ADelim:string;AByteEncoding:IIdTextEncoding;ADestEncoding:IIdTextEncoding):string;');
Function ReadLnWait( AFailCount : Integer; AByteEncoding : IIdTextEncoding; ADestEncoding : IIdTextEncoding):string');
Function ReadLnSplit(var AWasSplit:Boolean;ATerminator:string;ATimeout:Integer;AMaxLineLength:Integer;
AByteEncoding : IIdTextEncoding; ADestEncoding : IIdTextEncoding) : string');
Function ReadChar( AByteEncoding : IIdTextEncoding; ADestEncoding : IIdTextEncoding) : Char');
Function ReadByte : Byte');
Function ReadString(ABytes: Integer;AByteEncoding:IIdTextEncoding;ADestEncoding:IIdTextEncoding):string');
Function ReadInt16( AConvert : Boolean) : Int16');
Function ReadUInt16( AConvert : Boolean) : UInt16');
Function ReadInt32( AConvert : Boolean) : Int32');
Function ReadUInt32( AConvert : Boolean) : UInt32');
Function ReadInt64( AConvert : Boolean) : Int64');
Function ReadUInt64( AConvert : Boolean) : TIdUInt64');
Procedure ReadStream( AStream : TStream; AByteCount : TIdStreamSize; AReadUntilDisconnect : Boolean)');
Procedure ReadStrings(ADest:TStrings;AReadLinesCount:Integer;AByteEncoding:IIdTextEncoding;ADestEncoding:IIdTextEncoding)');
Procedure Discard( AByteCount : Int64)');
Procedure DiscardAll');
Procedure WriteBufferCancel');
Procedure WriteBufferClear');
Procedure WriteBufferClose');
Procedure WriteBufferFlush25;');
Procedure WriteBufferFlush26( AByteCount : Integer);');
Procedure WriteBufferOpen27;');
Procedure WriteBufferOpen28( AThreshold : Integer);');
Function WriteBufferingActive : Boolean');
Function InputBufferIsEmpty : Boolean');
Procedure InputBufferToStream( AStream : TStream; AByteCount : Integer)');
Function InputBufferAsString( AByteEncoding : IIdTextEncoding;ADestEncoding:IIdTextEncoding):string');
RegisterProperty('ConnectTimeout', 'Integer', iptrw);
ClosedGracefully', 'Boolean', iptr);
InputBuffer', 'TIdBuffer', iptr);
LargeStream', 'Boolean', iptrw);
MaxCapturedLines', 'Integer', iptrw);
Opened', 'Boolean', iptr);
ReadTimeout', 'Integer', iptrw);
ReadLnTimedout', 'Boolean', iptr);
WriteBufferThreshold', 'Integer', iptr);
DefStringEncoding', 'IIdTextEncoding', iptrw);
DefAnsiEncoding', 'IIdTextEncoding', iptrw);
Destination', 'string', iptrw);
Host', 'string', iptrw);
Intercept', 'TIdConnectionIntercept', iptrw);
MaxLineLength', 'Integer', iptrw);
MaxLineAction', 'TIdMaxLineAction', iptrw);
Port', 'Integer', iptrw);
RecvBufferSize', 'Integer', iptrw);
SendBufferSize', 'Integer', iptrw);
end;
end;
procedure SIRegister_TIdIOHandler2(CL: TPSPascalCompiler);
begin
//with RegClassS(CL,'TIdComponent', 'TIdIOHandler') do
with CL.AddClassN(CL.FindClass('TIdComponent'),'TIdIOHandler') do begin
Constructor Create( AOwner : TComponent)');
Procedure Free;');
Procedure AfterAccept');
Function Connected : Boolean');
Procedure CheckForDisconnect( ARaiseExceptionIfDisconnected : Boolean; AIgnoreBuffer : Boolean)');
Function CheckForDataOnSource( ATimeout : Integer) : Boolean');
Procedure Close');
Procedure CloseGracefully');
Function MakeDefaultIOHandler( AOwner : TComponent) : TIdIOHandler');
Function MakeIOHandler( ABaseType : TIdIOHandlerClass; AOwner : TComponent) : TIdIOHandler');
Function TryMakeIOHandler( ABaseType : TIdIOHandlerClass; AOwner : TComponent) : TIdIOHandler');
Procedure RegisterIOHandler');
Procedure SetDefaultClass');
Function WaitFor( const AString : string; ARemoveFromBuffer : Boolean; AInclusive : Boolean; AByteEncoding
: IIdTextEncoding; ATimeout : Integer; AAnsiEncoding : IIdTextEncoding) : string');
Procedure Write( const ABuffer : TIdBytes; const ALength : Integer; const AOffset : Integer);');
Procedure WriteDirect(const ABuffer : TIdBytes; const ALength : Integer; const AOffset : Integer)');
Procedure Open');
Function Readable( AMSec : Integer) : Boolean');
Procedure Write1( const AOut : string; AByteEncoding : IIdTextEncoding; ASrcEncoding : IIdTextEncoding);');
Procedure WriteLn2( AEncoding : IIdTextEncoding);');
Procedure WriteLn3( const AOut : string; AByteEncoding : IIdTextEncoding; ASrcEncoding : IIdTextEncoding);');
Procedure WriteLn1( const AOut : string);');
Procedure WriteLn0( const AOut : string);');
Procedure WriteLnRFC( const AOut : string; AByteEncoding : IIdTextEncoding; ASrcEncoding : IIdTextEncoding)');
Procedure Write4( AValue: TStrings;AWriteLinesCount:Boolean; AByteEncoding:IIdTextEncoding; ASrcEncoding: IIdTextEncoding);');
Procedure Write5( AValue: Byte);');
Procedure Write6( AValue: Char; AByteEncoding : IIdTextEncoding; ASrcEncoding : IIdTextEncoding);');
Procedure Write7( AValue: Int16; AConvert : Boolean);');
Procedure Write8( AValue: UInt16; AConvert : Boolean);');
Procedure Write9( AValue: Int32; AConvert : Boolean);');
Procedure Write10( AValue : UInt32; AConvert : Boolean);');
Procedure Write11( AValue : Int64; AConvert : Boolean);');
Procedure Write12( AValue : TIdUInt64; AConvert : Boolean);');
Procedure Write13( AStream : TStream; ASize : TIdStreamSize; AWriteByteCount : Boolean);');
Procedure WriteStream( AStream : TStream; ASize : TIdStreamSize; AWriteByteCount : Boolean);');
Procedure WriteStream2( AStream : TStream; ASize : TIdStreamSize; AWriteByteCount : Boolean);');
Procedure WriteStream0( AStream : TStream; ASize : TIdStreamSize; AWriteByteCount : Boolean);');
Procedure WriteRFCStrings( AStrings : TStrings; AWriteTerminator : Boolean; AByteEncoding : IIdTextEncoding; ASrcEncoding : IIdTextEncoding)');
Function WriteFile( const AFile : String; AEnableTransferFile : Boolean) : Int64');
Function AllData( AByteEncoding : IIdTextEncoding; ADestEncoding : IIdTextEncoding) : string');
Function InputLn(const AMask:string;AEcho:Boolean;ATabWidth:Integer;AMaxLineLength:Integer;AByteEncoding:IIdTextEncoding;AAnsiEncoding:IIdTextEncoding):string;
Procedure Capture14( ADest : TStream; AByteEncoding : IIdTextEncoding; ADestEncoding : IIdTextEncoding);');
Procedure Capture15( ADest : TStream; ADelim : string; AUsesDotTransparency : Boolean; AByteEncoding : IIdTextEncoding; ADestEncoding : IIdTextEncoding);');
Procedure Capture16( ADest : TStream; out VLineCount : Integer; const ADelim : string; AUsesDotTransparency :
Boolean; AByteEncoding : IIdTextEncoding; ADestEncoding : IIdTextEncoding);');
Procedure Capture17( ADest : TStrings; AByteEncoding : IIdTextEncoding; ADestEncoding : IIdTextEncoding);');
Procedure Capture18(ADest:TStrings;const ADelim:string;AUsesDotTransparency:Boolean; AByteEncoding:IIdTextEncoding;ADestEncoding:IIdTextEncoding);');
Procedure Capture19( ADest : TStrings; out VLineCount : Integer; const ADelim : string; AUsesDotTransparency : Boolean;
AByteEncoding : IIdTextEncoding; ADestEncoding : IIdTextEncoding);');
Procedure ReadBytes( var VBuffer : TIdBytes; AByteCount : Integer; AAppend : Boolean)');
Function ReadLn( AByteEncoding : IIdTextEncoding; ADestEncoding : IIdTextEncoding) : string;');
Function ReadLn1: string;');
Function ReadLn0: string;');
Function ReadLn21( ATerminator : string; AByteEncoding : IIdTextEncoding; ADestEncoding : IIdTextEncoding) : string;');
Function ReadLn22(ATerminator:string;ATimeout:Integer;AMaxLineLength:Integer;AByteEncoding:IIdTextEncoding;ADestEncoding:IIdTextEncoding):string;');
Function ReadLn00( ATerminator : string; ATimeout : Integer; AMaxLineLength : Integer;) : string;');
Function ReadLn01( ATerminator : string; ) : string;');
Function ReadLnRFC23( var VMsgEnd : Boolean; AByteEncoding : IIdTextEncoding; ADestEncoding : IIdTextEncoding) : string;');
Function ReadLnRFC24( var VMsgEnd : Boolean; const ALineTerminator : string; const ADelim : string; AByteEncoding:IIdTextEncoding;ADestEncoding:IIdTextEncoding):string;');
Function ReadLnWait( AFailCount : Integer; AByteEncoding : IIdTextEncoding; ADestEncoding : IIdTextEncoding) : string');
Function ReadLnSplit(var AWasSplit:Boolean;ATerminator:string;ATimeout:Integer;AMaxLineLength:Integer;AByteEncoding:IIdTextEncoding;ADestEncoding:IIdTextEncoding):string');
Function ReadChar( AByteEncoding : IIdTextEncoding; ADestEncoding: IIdTextEncoding) : Char');
Function ReadByte : Byte');
Function ReadString( ABytes: Integer; AByteEncoding : IIdTextEncoding; ADestEncoding:IIdTextEncoding) : string');
Function ReadInt16( AConvert: Boolean) : Int16');
Function ReadUInt16( AConvert : Boolean) : UInt16');
Function ReadInt32( AConvert : Boolean) : Int32');
Function ReadUInt32( AConvert : Boolean) : UInt32');
Function ReadInt64( AConvert : Boolean) : Int64');
Function ReadUInt64( AConvert : Boolean) : TIdUInt64');
Procedure ReadStream( AStream : TStream; AByteCount : TIdStreamSize; AReadUntilDisconnect : Boolean)');
Procedure ReadStream0( AStream : TStream; AByteCount : TIdStreamSize; AReadUntilDisconnect : Boolean)');
Procedure ReadStrings( ADest : TStrings; AReadLinesCount : Integer; AByteEncoding : IIdTextEncoding; ADestEncoding : IIdTextEncoding)');
Procedure Discard( AByteCount : Int64)');
Procedure DiscardAll');
Procedure WriteBufferCancel');
Procedure WriteBufferClear');
Procedure WriteBufferClose');
Procedure WriteBufferFlush25;');
Procedure WriteBufferFlush26( AByteCount : Integer);');
Procedure WriteBufferOpen27;');
Procedure WriteBufferOpen28( AThreshold : Integer);');
Function WriteBufferingActive : Boolean');
Function InputBufferIsEmpty : Boolean');
Procedure InputBufferToStream( AStream : TStream; AByteCount : Integer)');
Function InputBufferAsString( AByteEncoding : IIdTextEncoding; ADestEncoding : IIdTextEncoding) : string');
ConnectTimeout', 'Integer', iptrw);
ClosedGracefully', 'Boolean', iptr);
InputBuffer', 'TIdBuffer', iptr);
LargeStream', 'Boolean', iptrw);
MaxCapturedLines', 'Integer', iptrw);
Opened', 'Boolean', iptr);
ReadTimeout', 'Integer', iptrw);
ReadLnTimedout', 'Boolean', iptr);
WriteBufferThreshold', 'Integer', iptr);
DefStringEncoding', 'IIdTextEncoding', iptrw);
DefAnsiEncoding', 'IIdTextEncoding', iptrw);
Destination', 'string', iptrw);
Host', 'string', iptrw);
Intercept', 'TIdConnectionIntercept', iptrw);
MaxLineLength', 'Integer', iptrw);
MaxLineAction', 'TIdMaxLineAction', iptrw);
Port', 'Integer', iptrw);
RecvBufferSize', 'Integer', iptrw);
RegisterProperty('SendBufferSize', 'Integer', iptrw);
end;
end;
procedure SIRegister_cSocksUtils(CL: TPSPascalCompiler);
begin
CL.AddConstantN('SOCKS_DEFAULTPORT','LongInt').SetInt( 1080);
SOCKS_DEFAULTPORT_STR','String').SetString( '1080');
FindClass('TOBJECT'),'ESocks');
SOCKS4_MSG_VERSION','LongInt').SetInt( 4);
SOCKS4_REQ_CODE_CONNECT','LongInt').SetInt( 1);
SOCKS4_REQ_CODE_BIND','LongInt').SetInt( 2);
SOCKS4_RESP_CODE_GRANTED','LongInt').SetInt( 90);
SOCKS4_RESP_CODE_FAILED','LongInt').SetInt( 91);
SOCKS4_RESP_CODE_NO_IDENTD','LongInt').SetInt( 92);
SOCKS4_RESP_CODE_IDENTD_MISMATCH','LongInt').SetInt( 93);
Function Socks4ErrorDescription( const Code : Integer) : String');
CL.AddTypeS('TSocks4Message', 'record Version : Byte; Code : Byte; DestPort :'
+' Word; DestIP : LongWord; end');
CL.AddTypeS('TIP4Addr', 'record Addr32 : LongWord; end');
// CL.AddTypeS('PSocks4Message', '^TSocks4Message TIP4Addr = record
{ case Integer of
0 : (Addr8 : array[0..3] of Byte);
1 : (Addr16 : array[0..1] of Word);
2 : (Addr32 : LongWord); }
///( end; // will not work');
Procedure PopulateSocks4Message( var Msg : TSocks4Message; const Code : Byte; const IP : TIP4Addr; const Port : Word)');
Function Socks4Request( const Code : Byte; const IP : TIP4Addr; const Port : Word; const UserID : AnsiString) : AnsiString');
Function Socks4ConnectRequest( const IP : TIP4Addr; const Port : Word; const UserID : AnsiString) : AnsiString');
Function Socks4BindRequest( const IP : TIP4Addr; const Port : Word; const UserID : AnsiString) : AnsiString');
Function Socks4aRequest( const Code : Byte; const Domain : AnsiString; const Port : Word; const UserID : AnsiString) : AnsiString');
Function Socks4aConnectRequest( const Domain : AnsiString; const Port : Word; const UserID : AnsiString) : AnsiString');
Procedure PopulateSocks4ErrorResponse( var Msg : TSocks4Message; const Code : Byte)');
Function IsGrantedSocks4ResponseCode( const Code : Byte) : Boolean');
CL.AddConstantN('SOCKS5_MSG_VERSION','LongInt').SetInt( 5);
CL.AddTypeS('TSocks5Greeting', 'record Version : Byte; Methods : Byte; Method1 : Byte; end');
//CL.AddTypeS('PSocks5Greeting', '^TSocks5Greeting // will not work');
SOCKS5_METHOD_NOAUTH','LongInt').SetInt( 0);
SOCKS5_METHOD_GSSAPI','LongInt').SetInt( 1);
SOCKS5_METHOD_USERPASS','LongInt').SetInt( 2);
SOCKS5_METHOD_RESERVED0','LongInt').SetInt( 3);
SOCKS5_METHOD_PRIVATE0','LongWord').SetUInt( $80);
SOCKS5_METHOD_INVALID','LongWord').SetUInt( $FF);
Procedure PopulateSocks5Greeting( var Greeting : TSocks5Greeting; const Method : Byte)');
Procedure PopulateSocks5GreetingNoAuth( var Greeting : TSocks5Greeting)');
Procedure PopulateSocks5GreetingUserPass( var Greeting : TSocks5Greeting)');
CL.AddTypeS('TSocks5GreetingResponse', 'record Version : Byte; Method : Byte; end');
// CL.AddTypeS('PSocks5GreetingResponse', '^TSocks5GreetingResponse // will not work');
Procedure PopulateSocks5GreetingResponse( var Response : TSocks5GreetingResponse; const Method : Byte)');
Function Socks5GreetingResponse( const Method : Byte) : AnsiString');
SOCKS5_USERPASS_VERSION','LongInt').SetInt( 1);
SOCKS5_USERPASS_MAX_MSG_SIZE','LongInt').SetInt( 513);
SOCKS5_USERPASS_STATUS_OK','LongInt').SetInt( 0);
SOCKS5_USERPASS_STATUS_FAIL','LongInt').SetInt( 1);
Function Socks5UserPassMessage( const Username, Password : AnsiString) : AnsiString');
CL.AddTypeS('TSocks5UserPassResponse', 'record Version : Byte; Status : Byte; end');
//CL.AddTypeS('PSocks5UserPassResponse', '^TSocks5UserPassResponse // will notwork');
Procedure PopulateSocks5UserPassResponse( var Response : TSocks5UserPassResponse; const Status : Byte)');
SOCKS5_REQ_CODE_CONNECT','LongInt').SetInt( 1);
SOCKS5_REQ_CODE_BIND','LongInt').SetInt( 2);
SOCKS5_REQ_CODE_UDP_ASSOCIATE','LongInt').SetInt( 3);
SOCKS5_RESP_CODE_Success','LongInt').SetInt( 0);
SOCKS5_RESP_CODE_GeneralServerFailure','LongInt').SetInt( 1);
SOCKS5_RESP_CODE_ConnectionNotAllowed','LongInt').SetInt( 2);
SOCKS5_RESP_CODE_NetworkUnreachable','LongInt').SetInt( 3);
SOCKS5_RESP_CODE_HostUnreachable','LongInt').SetInt( 4);
SOCKS5_RESP_CODE_ConnectionRefused','LongInt').SetInt( 5);
SOCKS5_RESP_CODE_TTLExpired','LongInt').SetInt( 6);
SOCKS5_RESP_CODE_CommandNotSupported','LongInt').SetInt( 7);
SOCKS5_RESP_CODE_AddressTypeNotSupported','LongInt').SetInt( 8);
SOCKS5_ADDR_TYPE_IP4','LongInt').SetInt( 1);
SOCKS5_ADDR_TYPE_DOMAIN','LongInt').SetInt( 3);
SOCKS5_ADDR_TYPE_IP6','LongInt').SetInt( 4);
SOCKS5_ADDRMSG_MAX_MSG_SIZE','LongInt').SetInt( 296);
Function Socks5ErrorDescription( const Code : Integer) : String');
TSocks5IP4Message', 'record Version : Byte; Code : Byte; Reserve'
d : Byte; AddrType : Byte; IP4Addr : TIP4Addr; Port : Word; end');
CL.AddTypeS('TIP6Addr', 'record Addr32 : array[0..3] of LongWord; end');
{ TIP6Addr = record
case Integer of
0 : (Addr8 : array[0..15] of Byte);
1 : (Addr16 : array[0..7] of Word);
2 : (Addr32 : array[0..3] of LongWord); }
// CL.AddTypeS('PSocks5IP4Message', '^TSocks5IP4Message // will not work');
Procedure PopulateSocks5IP4Message( var Msg : TSocks5IP4Message; const Command : Byte; const Addr : TIP4Addr;const NetPort: Word)');
Procedure PopulateSocks5IP4ErrorReply( var Msg : TSocks5IP4Message; const ResponseCode : Byte)');
CL.AddTypeS('TSocks5IP6Message', 'record Version : Byte; Code : Byte; Reserve'
+'d : Byte; AddrType : Byte; IP6Addr : TIP6Addr; Port : Word; end');
// CL.AddTypeS('PSocks5IP6Message', '^TSocks5IP6Message // will not work');
Procedure PopulateSocks5IP6Message( var Msg : TSocks5IP6Message; const Command : Byte; const Addr : TIP6Addr; const NetPort: Word)');
Procedure PopulateSocks5IP6ErrorReply( var Msg : TSocks5IP6Message; const ResponseCode : Byte)');
TSocks5DomainMessageHeader', 'record Version : Byte; Code : Byte'
; Reserved : Byte; AddrType : Byte; NameLen : Byte; end');
// CL.AddTypeS('PSocks5DomainMessageHeader', '^TSocks5DomainMessageHeader // will not work');
Procedure PopulateSocks5DomainMessageHeader( var MsgHdr : TSocks5DomainMessageHeader; const Command : Byte; const Domain : AnsiString)');
Function Socks5DomainRequest( const Command : Byte; const Domain : AnsiString; const NetPort : Word) : AnsiString');
CL.AddTypeS('TSocks5ResponseHeader', 'record Version : Byte; Code : Byte; Res'
+'erved : Byte; AddrType : Byte; Addr1 : Byte; end');
// CL.AddTypeS('PSocks5ResponseHeader', '^TSocks5ResponseHeader // will not work');
// CL.AddDelphiFunction('Function Socks5ResponseSize( const Header : PSocks5ResponseHeader) : Integer');
//CL.AddConstantN('SOCKS5_MAX_MSG_SIZE','socks5size').SetString( SOCKS5_USERPASS_MAX_MSG_SIZE);
Procedure CSocksSelfTest');
Procedure CSocksUnitTest');
end;
(*----------------------------------------------------------------------------*)
procedure SIRegister_RNavigateLongLat(CL: TPSPascalCompiler);
begin
//with RegClassS(CL,'TOBJECT', 'RNavigateLongLat') do
with CL.AddClassN(CL.FindClass('TOBJECT'),'RNavigateLongLat') do begin
RegisterMethod('Procedure GoGoogle');
Procedure GoGoogleDirectionsTo( ADestination : RNavigateLongLat; AMapLoc : Integer)');
Procedure SetToNull');
Procedure CreateDec( ADecLong, ADecLatt : Double)');
Procedure Create( ALongRad, ALatRad : Double)');
Procedure GoogleScaleByMeters( AMeters : Double)');
Function LocatationText( ASecDecPlaces : Integer) : String');
Function LocatationCsv( ADecPlaces : Integer) : String');
Function LongitudeText( ASecDecPlaces : Integer) : String');
Function LatitudeText( ASecDecPlaces : Integer) : String');
Function MetresFrom( AStart : RNavigateLongLat) : Double');
Function MetresFromPrecision( AStart : RNavigateLongLat; out ARadiansToStart, ARadiansFromStart : Double; AAllowPolarRoute : Boolean) : Double');
Function LocationAtMtrsRad( AMeters, ATrueHeadingRadians : Double) : RNavigateLongLat');
Function LocationAt( AMeters, ATrueHeadingDegrees : Double) : RNavigateLongLat');
Function HeadingFrom( AStart : RNavigateLongLat) : Double');
Function HeadingInRadFrom( AStart : RNavigateLongLat) : Double');
Function GoogleLink : String');
Function GoogleLinkDirectionsTo(ADestination:RNavigateLongLat; AMapLoc: Integer) : String');
Function IsValid : Boolean');
Function NotNull : Boolean');
Function HeadingFromAsText( AStart : RNavigateLongLat; ADecPlace : Integer) : String');
RegisterProperty('Longitude', 'Double', iptrw);
RegisterProperty('Latitude', 'Double', iptrw);
RegisterProperty('LongAsRad', 'Double', iptr);
RegisterProperty('LatAsRad', 'Double', iptr);
RegisterProperty('GoogleScale', 'Integer', iptrw);
end;
end;
(*----------------------------------------------------------------------------*)
procedure SIRegister_IsNavUtils2(CL: TPSPascalCompiler);
begin
SIRegister_RNavigateLongLat(CL);
Function TextMeters2( AMeters : Single; DecPlace, MaxLen, PosPoint : Byte) : String');
Function AngleDecFrmDegreeMinuteSecond(ADegrees,AMinutes:Integer;ASeconds:Double): Double;');
Function TextDegreeMinuteSecond( ARadians : Double; AAccuracy : Integer) : String;');
Function TextDegreeMinuteSecondFrmDec2( Value : Double; AAccuracy : Integer) : String');
Procedure CalNewDoubleAverageAndSumOfSquares( ANewSample : Double; var ARunningAveage, ARunningAveageSumOfSqrs : Double; ANoOfSamples : Integer)');
Procedure CalNewRationalAngleDegreesAverageAndSumOfSquares( ANewSample : Double; var ARunningAngleAve, RunningAngleSumOfSquares : Double; ANoOfSamples : Integer; AReturn0to360 : Boolean)');
Procedure CalNewRationalAngleRadiansAverageAndSumOfSquares(ANewSample:Double;var RunningAngleSumOfSquares,ARunningAngleAve:Double;ANoOfSamples:Integer)');
Function CalDoubleStdDevFromSumOfSquares(ARunningAveageSumOfSqrs Double; ANoOfSamples : Integer) : Double');
Function MtrsPerDegreeLongAdjustForLatitude( ALatitudeDegree : Double) : Double');
Function RealFrmDegreeText2( AText : String) : double');
CL.AddConstantN('EarthRad','Double').setExtended( 6371008.8);
MtrsPerDegree','Double').setExtended( Pi * 6371008.8 / 180);
AngleDegreeChar','String').SetString( '°');
AngleMins','String').SetString( '''');
AngleSecs','String').SetString( '"');
EffectiveZero','Extended').setExtended( 0.0000000001);
end;
procedure SIRegister_TAChartUtils(CL: TPSPascalCompiler);
begin
CL.AddConstantN('CHART_COMPONENT_IDE_PAGE','String').SetString( 'Chart');
CL.AddConstantN('taPERCENT','Extended').setExtended( 0.01);
CL.AddConstantN('clTAColor','LongWord').SetUInt( $20000000);
CL.AddConstantN('DEFAULT_FONT_SIZE','LongInt').SetInt( 10);
CL.AddClassN(CL.FindClass('TOBJECT'),'EChartError');
CL.AddClassN(CL.FindClass('TOBJECT'),'EChartIntervalError');
CL.AddClassN(CL.FindClass('TOBJECT'),'EListenerError');
CL.AddClassN(CL.FindClass('TOBJECT'),'EDrawDataError');
CL.AddTypeS('TDoublePoint', 'record X : Double; Y : Double; end');
CL.AddTypeS('TATPointArray', 'array of TPoint');
CL.AddTypeS('TDoublePointArray', 'array of TDoublepoint');
CL.AddTypeS('TChartDistance', 'Integer');
CL.AddTypeS('TATPercent', 'Integer');
CL.AddTypeS('TTransformFunc', 'Function ( A : Double) : Double');
CL.AddTypeS('TImageToGraphFunc', 'Function ( AX : Integer) : Double');
CL.AddTypeS('TGraphToImageFunc', 'Function ( AX : Double) : Integer');
CL.AddTypeS('TChartUnits', '( cuPercent, cuAxis, cuGraph, cuPixel )');
CL.AddTypeS('TOverrideColor', '( ocBrush, ocPen )');
CL.AddTypeS('TOverrideColors', 'set of TOverrideColor');
// CL.AddTypeS('TSeriesMarksStyle', '( smsCustom, smsNone, smsValue, smsPercent,'
// +' smsLabel, smsLabelPercent, smsLabelValue, smsLegend, smsPercentTotal, sms'
// +'LabelPercentTotal, smsXValue )');
CL.AddTypeS('TDoubleInterval', 'record FStart : Double; FEnd : Double; end');
CL.AddTypeS('TNearestPointTarget', '( nptPoint, nptXList, nptYList, nptCustom)');
CL.AddTypeS('TNearestPointTargets', 'set of TNearestPointTarget');
SIRegister_TIntervalList(CL);
CL.AddTypeS('TCaseOfTwo', '( cotNone, cotFirst, cotSecond, cotBoth )');
// SIRegister_TIndexedComponent(CL);
// SIRegister_TTypedFPListEnumerator(CL);
// SIRegister_TIndexedComponentList(CL);
CL.AddClassN(CL.FindClass('TOBJECT'),'TBroadcaster');
//SIRegister_TListener(CL);
//SIRegister_TBroadcaster(CL);
//SIRegister_TDrawDataItem(CL);
//CL.AddTypeS('TDrawDataItemClass', 'class of TDrawDataItem');
//SIRegister_TDrawDataRegistry(CL);
//SIRegister_TPublishedIntegerSet(CL);
//SIRegister_THistory(CL);
//CL.AddTypeS('PStr', '^String // will not work');
//SIRegister_TClassRegistryItem(CL);
//SIRegister_TClassRegistry(CL);
CL.AddConstantN('PUB_INT_SET_ALL','String').SetString( '');
CL.AddConstantN('PUB_INT_SET_EMPTY','String').SetString( '-');
CL.AddConstantN('ORIENTATION_UNITS_PER_DEG','LongInt').SetInt( 10);
Function BoundsSize( ALeft, ATop : Integer; ASize : TSize) : TRect');
Function Deg16ToRad( ADeg16 : Integer) : Double');
Function DoubleInterval( AStart, AEnd : Double) : TDoubleInterval');
Procedure Exchange0( var A, B : Integer);');
Procedure Exchange1( var A, B : Double);');
Procedure Exchange2( var A, B : TDoublePoint);');
Procedure Exchange3( var A, B : String);');
Function FormatIfNotEmpty( AFormat, AStr : String) : String');
Function IfThen4( ACond : Boolean; ATrue, AFalse : TObject) : TObject;');
Function TAInterpolateRGB( AColor1, AColor2 : Integer; ACoeff : Double) : Integer');
Function IntToColorHex( AColor : Integer) : String');
Function IsEquivalent( const A1, A2 : Double) : Boolean');
Function IsNan5( const APoint : TDoublePoint) : Boolean;');
Function NumberOr( ANum : Double; ADefault : Double) : Double');
Function OrientToRad( AOrient : Integer) : Double');
Function RadToDeg16( ARad : Double) : Integer');
Function RadToOrient( ARad : Double) : Integer');
Function RoundChecked( A : Double) : Integer');
Procedure TASetPropDefaults( AObject : TPersistent; APropNames : array of String)');
Function TASplit( AString : String; ADest : TStrings; ADelimiter : Char) : TStrings');
Function StrToFloatDefSep( const AStr : String) : Double');
//CL.AddDelphiFunction('Procedure Unused( const A1)');
//CL.AddDelphiFunction('Procedure Unused( const A1, A2)');
//CL.AddDelphiFunction('Procedure Unused( const A1, A2, A3)');
Procedure UpdateMinMax6( AValue : Double; var AMin, AMax : Double);');
Procedure UpdateMinMax7( AValue : Integer; var AMin, AMax : Integer);');
Function WeightedAverage( AX1, AX2, ACoeff : Double) : Double');
end;
procedure SIRegister_unitCharsetMap(CL: TPSPascalCompiler);
begin
CL.AddConstantN('CP_MAC','LongInt').SetInt( 10000);
CL.AddTypeS('TCharFormat', 'record dbsize: integer; dwmask'
+' : longint; dwEffects : longint; yHeight: longint; yOffset: Longint; crTextColor : TColor; bCharSet : byte;'
+' bPitchAndFamily : byte; szFaceName: array[0..32 - 1] of Char; end');
{ CHARFORMATA = record
cbSize: UINT;
dwMask: Longint;
dwEffects: Longint;
yHeight: Longint;
yOffset: Longint;
crTextColor: TColorRef;
bCharSet: Byte;
bPitchAndFamily: Byte;
szFaceName: array[0..LF_FACESIZE - 1] of AnsiChar;
end;}
Function MIMECharsetNameToCodepage( const MIMECharsetName : string) : Integer');
Function CharsetNameToCodepage( const CharsetName : string) : Integer');
Function CodepageToMIMECharsetName( codepage : Integer) : string');
Function CodepageToCharsetName( codepage : Integer) : string');
Function CharsetToCodePage( FontCharset : TFontCharset) : Integer');
Function CodePageToCharset( codePage : Integer) : TFontCharset');
Function StringToAnsiString2( const ws : string; codePage : Integer) : AnsiString');
Function AnsiStringToString2( const st : AnsiString; codePage : Integer) : string');
Function URLSuffixToCodePage( urlSuffix : string) : Integer');
Procedure GetCharsetNames( sl : TStrings)');
Function TrimEx( const S : string) : string');
Function IsWideCharAlpha( ch : WideChar) : Boolean');
Function IsWideCharAlnum( ch : WideChar) : Boolean');
Procedure FontToCharFormat( font : TFont; codePage : Integer; var Format : TCharFormat)');
Function WideStringToUTF8( const ws : WideString) : AnsiString');
Function UTF8ToWideString( const st : AnsiString) : WideString');
Function UTF8ToString2( const st : AnsiString) : WideString');
procedure SetTempStatusMessage(const msg: string; pos, max: word);
CL.AddDelphiFunction('Function RawCodepageToMIMECharsetName( codepage : Integer) : RawByteString');
CL.AddClassN(CL.FindClass('TOBJECT'),'TCountryCodes');
SIRegister_TCountryCode(CL);
SIRegister_TCountryCodes(CL);
end;
function PointsAdd(const A, B: TPoint): TPoint;
function PointsDec(const A, B: TPoint): TPoint;
function PointsAbs(const P: TPoint): TPoint;
Successfully verified: maXbox5.exe
Number of files successfully Verified: 1
Number of warnings: 0
Number of errors: 0
Verifying: maXbox5.exe
Signature Index: 0 (Primary Signature)
Hash of file (sha256): 621EEB523ABA49E248D624F4DC59ACFB331142818BBBC80F6E1C07C931BF6030
Signing Certificate Chain:
Issued to: maXboxCertAuth
Issued by: maXboxCertAuth
Expires: Sun Jan 01 00:59:59 2040
SHA1 hash: 6F83207B500DCC0E32A719599CBC6BD7E6B2A04D
Issued to: maXbox4signer
Issued by: maXboxCertAuth
Expires: Sun Jan 01 00:59:59 2040
SHA1 hash: 6A89501B76D47C189A60BF1070BAA2FBFD38D7D7
Issued to: maXbox4exe
Issued by: maXbox4signer
Expires: Sun Jan 01 00:59:59 2040
SHA1 hash: F0EB0CA218C5707FAC78921F81092CECA12AD0E9
The signature is timestamped: Thu Feb 01 13:25:23 2024
Timestamp Verified by:
Issued to: GlobalSign
Issued by: GlobalSign
Expires: Sun Dec 10 01:00:00 2034
SHA1 hash: 8094640EB5A7A1CA119C1FDDD59F810263A7FBD1
Issued to: GlobalSign Timestamping CA - SHA384 - G4
Issued by: GlobalSign
Expires: Sun Dec 10 01:00:00 2034
SHA1 hash: F585500925786F88E721D235240A2452AE3D23F9
Issued to: Globalsign TSA for CodeSign1 - R6
Issued by: GlobalSign Timestamping CA - SHA384 - G4
Expires: Sun May 08 08:45:38 2033
SHA1 hash: CA3E8CFD7CFD329A99359A9A38F86185F0B01C4A
Successfully verified: maXbox5.exe
Number of files successfully Verified: 1
Number of warnings: 0
Number of errors: 0
Verifying: maXbox5.exe
Signature Index: 0 (Primary Signature)
Hash of file (sha256): CD6C8BB37F8D06425107871E6C072E57974D2ED4D1FC48FC83E6E9517DEEE405
Signing Certificate Chain:
Issued to: maXboxCertAuth
Issued by: maXboxCertAuth
Expires: Sun Jan 01 00:59:59 2040
SHA1 hash: 6F83207B500DCC0E32A719599CBC6BD7E6B2A04D
Issued to: maXbox4signer
Issued by: maXboxCertAuth
Expires: Sun Jan 01 00:59:59 2040
SHA1 hash: 6A89501B76D47C189A60BF1070BAA2FBFD38D7D7
Issued to: maXbox4exe
Issued by: maXbox4signer
Expires: Sun Jan 01 00:59:59 2040
SHA1 hash: F0EB0CA218C5707FAC78921F81092CECA12AD0E9
The signature is timestamped: Sun Feb 25 17:51:02 2024
Timestamp Verified by:
Issued to: GlobalSign
Issued by: GlobalSign
Expires: Sun Dec 10 01:00:00 2034
SHA1 hash: 8094640EB5A7A1CA119C1FDDD59F810263A7FBD1
Issued to: GlobalSign Timestamping CA - SHA384 - G4
Issued by: GlobalSign
Expires: Sun Dec 10 01:00:00 2034
SHA1 hash: F585500925786F88E721D235240A2452AE3D23F9
Issued to: Globalsign TSA for CodeSign1 - R6
Issued by: GlobalSign Timestamping CA - SHA384 - G4
Expires: Sun May 08 08:45:38 2033
SHA1 hash: CA3E8CFD7CFD329A99359A9A38F86185F0B01C4A
Successfully verified: maXbox5.exe
Number of files successfully Verified: 1
Number of warnings: 0
Number of errors: 0
Verifying: maXbox5.exe
Signature Index: 0 (Primary Signature)
Hash of file (sha256): A32B3BECFEA379F1474702D1C80ADE0DDADBC0645BD6E72189D58EDAB422E872
Signing Certificate Chain:
Issued to: maXboxCertAuth
Issued by: maXboxCertAuth
Expires: Sun Jan 01 00:59:59 2040
SHA1 hash: 6F83207B500DCC0E32A719599CBC6BD7E6B2A04D
Issued to: maXbox4signer
Issued by: maXboxCertAuth
Expires: Sun Jan 01 00:59:59 2040
SHA1 hash: 6A89501B76D47C189A60BF1070BAA2FBFD38D7D7
Issued to: maXbox4exe
Issued by: maXbox4signer
Expires: Sun Jan 01 00:59:59 2040
SHA1 hash: F0EB0CA218C5707FAC78921F81092CECA12AD0E9
The signature is timestamped: Fri Mar 08 13:42:13 2024
Timestamp Verified by:
Issued to: GlobalSign
Issued by: GlobalSign
Expires: Sun Dec 10 01:00:00 2034
SHA1 hash: 8094640EB5A7A1CA119C1FDDD59F810263A7FBD1
Issued to: GlobalSign Timestamping CA - SHA384 - G4
Issued by: GlobalSign
Expires: Sun Dec 10 01:00:00 2034
SHA1 hash: F585500925786F88E721D235240A2452AE3D23F9
Issued to: Globalsign TSA for CodeSign1 - R6
Issued by: GlobalSign Timestamping CA - SHA384 - G4
Expires: Sun May 08 08:45:38 2033
SHA1 hash: CA3E8CFD7CFD329A99359A9A38F86185F0B01C4A
Successfully verified: maXbox5.exe
Number of files successfully Verified: 1
Number of warnings: 0
Number of errors: 0
Verifying: maXbox5.exe
Signature Index: 0 (Primary Signature)
Hash of file (sha256): 2955B78E468DA665BA818E9346C946B067ABFEEBEB44333FF47A1E0A8EE84F51
Signing Certificate Chain:
Issued to: maXboxCertAuth
Expires: Sun Jan 01 00:59:59 2040
SHA1 hash: 6F83207B500DCC0E32A719599CBC6BD7E6B2A04D
Issued to: maXbox4signer
Issued by: maXboxCertAuth
Expires: Sun Jan 01 00:59:59 2040
SHA1 hash: 6A89501B76D47C189A60BF1070BAA2FBFD38D7D7
Issued to: maXbox4exe
Issued by: maXbox4signer
Expires: Sun Jan 01 00:59:59 2040
SHA1 hash: F0EB0CA218C5707FAC78921F81092CECA12AD0E9
The signature is timestamped: Sun Mar 10 16:51:04 2024
Timestamp Verified by:
Issued to: GlobalSign
Issued by: GlobalSign
Expires: Sun Dec 10 01:00:00 2034
SHA1 hash: 8094640EB5A7A1CA119C1FDDD59F810263A7FBD1
Issued to: GlobalSign Timestamping CA - SHA384 - G4
Issued by: GlobalSign
Expires: Sun Dec 10 01:00:00 2034
SHA1 hash: F585500925786F88E721D235240A2452AE3D23F9
Issued to: Globalsign TSA for CodeSign1 - R6
Issued by: GlobalSign Timestamping CA - SHA384 - G4
Expires: Sun May 08 08:45:38 2033
SHA1 hash: CA3E8CFD7CFD329A99359A9A38F86185F0B01C4A
Successfully verified: maXbox5.exe
Number of files successfully Verified: 1
Number of warnings: 0
Number of errors: 0
Verifying: maXbox5.exe
Signature Index: 0 (Primary Signature)
Hash of file (sha256): D0B4D0A01596445DABB47A9A2D1A4A43176F06EA18BEB7AEBCA8EDAFA5F16F11
Signing Certificate Chain:
Issued to: maXboxCertAuth
Issued by: maXboxCertAuth
Expires: Sun Jan 01 00:59:59 2040
SHA1 hash: 6F83207B500DCC0E32A719599CBC6BD7E6B2A04D
Issued to: maXbox4signer
Issued by: maXboxCertAuth
Expires: Sun Jan 01 00:59:59 2040
SHA1 hash: 6A89501B76D47C189A60BF1070BAA2FBFD38D7D7
Issued to: maXbox4exe
Issued by: maXbox4signer
Expires: Sun Jan 01 00:59:59 2040
SHA1 hash: F0EB0CA218C5707FAC78921F81092CECA12AD0E9
The signature is timestamped: Fri Mar 15 15:05:51 2024
Timestamp Verified by:
Issued to: GlobalSign
Issued by: GlobalSign
Expires: Sun Dec 10 01:00:00 2034
SHA1 hash: 8094640EB5A7A1CA119C1FDDD59F810263A7FBD1
Issued to: GlobalSign Timestamping CA - SHA384 - G4
Issued by: GlobalSign
Expires: Sun Dec 10 01:00:00 2034
SHA1 hash: F585500925786F88E721D235240A2452AE3D23F9
Issued to: Globalsign TSA for CodeSign1 - R6
Issued by: GlobalSign Timestamping CA - SHA384 - G4
Expires: Sun May 08 08:45:38 2033
SHA1 hash: CA3E8CFD7CFD329A99359A9A38F86185F0B01C4A
Successfully verified: maXbox5.exe
Number of files successfully Verified: 1
Number of warnings: 0
Number of errors: 0
Verifying: maXbox5.exe
Signature Index: 0 (Primary Signature)
Hash of file (sha256): D85C1B5A864E6E95B5F6A32892D33577979832BA9B1207D0CEDCCB80FDA0A347
Signing Certificate Chain:
Issued to: maXboxCertAuth
Issued by: maXboxCertAuth
Expires: Sun Jan 01 00:59:59 2040
SHA1 hash: 6F83207B500DCC0E32A719599CBC6BD7E6B2A04D
Issued to: maXbox4signer
Issued by: maXboxCertAuth
Expires: Sun Jan 01 00:59:59 2040
SHA1 hash: 6A89501B76D47C189A60BF1070BAA2FBFD38D7D7
Issued to: maXbox4exe
Issued by: maXbox4signer
Expires: Sun Jan 01 00:59:59 2040
SHA1 hash: F0EB0CA218C5707FAC78921F81092CECA12AD0E9
The signature is timestamped: Thu Mar 21 16:25:12 2024
Timestamp Verified by:
Issued to: GlobalSign
Issued by: GlobalSign
Expires: Sun Dec 10 01:00:00 2034
SHA1 hash: 8094640EB5A7A1CA119C1FDDD59F810263A7FBD1
Issued to: GlobalSign Timestamping CA - SHA384 - G4
Issued by: GlobalSign
Expires: Sun Dec 10 01:00:00 2034
SHA1 hash: F585500925786F88E721D235240A2452AE3D23F9
Issued to: Globalsign TSA for CodeSign1 - R6
Issued by: GlobalSign Timestamping CA - SHA384 - G4
Expires: Sun May 08 08:45:38 2033
SHA1 hash: CA3E8CFD7CFD329A99359A9A38F86185F0B01C4A
Successfully verified: maXbox5.exe
Number of files successfully Verified: 1
Number of warnings: 0
Number of errors: 0
sha1 of mx5.1.4.98 V bc74131a2e23a8c8517789852a02e690fb1a9071
Verifying: maXbox5.exe
Signature Index: 0 (Primary Signature)
Hash of file (sha256): E3E8657FD19F4FDE72D742BF390290C870E08C63171320021C1CD9C1F3B46320
Signing Certificate Chain:
Issued to: maXboxCertAuth
Issued by: maXboxCertAuth
Expires: Sun Jan 01 01:59:59 2040
SHA1 hash: 6F83207B500DCC0E32A719599CBC6BD7E6B2A04D
Issued to: maXbox4signer
Issued by: maXboxCertAuth
Expires: Sun Jan 01 01:59:59 2040
SHA1 hash: 6A89501B76D47C189A60BF1070BAA2FBFD38D7D7
Issued to: maXbox4exe
Issued by: maXbox4signer
Expires: Sun Jan 01 01:59:59 2040
SHA1 hash: F0EB0CA218C5707FAC78921F81092CECA12AD0E9
The signature is timestamped: Tue May 07 14:02:10 2024
Timestamp Verified by:
Issued to: GlobalSign
Issued by: GlobalSign
Expires: Sun Dec 10 02:00:00 2034
SHA1 hash: 8094640EB5A7A1CA119C1FDDD59F810263A7FBD1
Issued to: GlobalSign Timestamping CA - SHA384 - G4
Issued by: GlobalSign
Expires: Sun Dec 10 02:00:00 2034
SHA1 hash: F585500925786F88E721D235240A2452AE3D23F9
Issued to: Globalsign TSA for CodeSign1 - R6 - 202311
Issued by: GlobalSign Timestamping CA - SHA384 - G4
Expires: Sat Dec 09 19:13:40 2034
SHA1 hash: B39F0BD99E6437DB70F4FB7D0E3A8CE5FFF5165B
Successfully verified: maXbox5.exe
Number of files successfully Verified: 1
Number of warnings: 0
Number of errors: 0
https://archive.org/details/maxbox4
https://archive.org/details/maxbox5
https://medium.com/@maxkleiner1/geocoding-iv-572a602f4daa
https://maxkleiner1.medium.com/geocoding-v-e230038051aa
https://medium.com/@maxkleiner1/ocr-with-a-neural-net-8a05f852473f
http://www.softwareschule.ch/examples/geocoding7.htm
https://blogs.embarcadero.com/why-a-data-scientist-chooses-delphi-for-powerful-real-world-visualizations/
https://www.virustotal.com/gui/file/f1d09d3d7a98ac8b91618d47bdf7625867fb2b12e202d72f59ac312967257eb3/details
https://www.hybrid-analysis.com/sample/6c0883d1ac971b54b026e776b7d47a6d3ffa52b2083f18c85ccdbcf1f5b0b3e8
https://maxbox4.wordpress.com/2024/04/17/post-api-image-pipeline/
https://softwareschule.code.blog/2024/04/27/object-detection-api/
https://github.com/maxkleiner/HttpComponent