maXbox3 3.9.9.195 14/05/2015 08:37:17 AM

maXbox3 3.9.9.195
14/05/2015 08:37:17 AM
20851: Provider=MSDASQL;DSN=mx3base;Uid=sa;Pwd=admin
20852: \452_dbtreeview2access.txt \452_dbtrv3accessUML2.txt
20853: program TestDbTreeViewMainForm2_ACCESS;
20854: ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='
20855: +Exepath+'\examples\detail.mdb;Persist Security Info=False';
20856: 'Provider=MSDASQL.1;Persist Security Info=False;Extended
Properties="DSN=FB_EMPLOYEE;Driver=Firebird/InterBase(r)
driver;Dbname=C:\maXbook\maxbox3\mX3999\maxbox3\examples\EMPLOYEE.FDB;CHARSET=NONE;UID=SYSDBA;Role=Admin;"'
20857:
20858: OpenSSL Lib: unit ssl_openssl_lib;
20859: {$IFDEF CIL}
20860: const
20861: {$IFDEF LINUX}
20862: DLLSSLName = 'libssl.so';
20863: DLLUtilName = 'libcrypto.so';
20864: {$ELSE}
20865: DLLSSLName = 'ssleay32.dll';
20866: DLLUtilName = 'libeay32.dll';
20867: {$ENDIF}
20868: {$ELSE}
20869: var
20870: {$IFNDEF MSWINDOWS}
20871: {$IFDEF DARWIN}
20872: DLLSSLName: string = 'libssl.dylib';
20873: DLLUtilName: string = 'libcrypto.dylib';
20874: {$ELSE}
20875: DLLSSLName: string = 'libssl.so';
20876: DLLUtilName: string = 'libcrypto.so';
20877: {$ENDIF}
20878: {$ELSE}
20879: DLLSSLName: string = 'ssleay32.dll';
20880: DLLSSLName2: string = 'libssl32.dll';
20881: DLLUtilName: string = 'libeay32.dll';
20882: {$ENDIF}
20883: {$ENDIF}
20884:
20885: //----------------------------------------------------------------------------
20886: //**************mX4 Macro Tags ************************************************
20887: //-------------------------------------------------------- ---------------------
20888:
20889: asm #name #hostmAPSN2APSN211le, #head,max: APSN21: 04.01.2014 19:05:50
E:\maxbox\maxbox3\docs\maxbox_extract_funclist399.txt end
20890:
20891: //Tag Macros in ini-file configure
20892:
20893: asm #name, #date, #host, #path, #file, #head, #sign #tech #net end
20894:
20895: //Tag Macros
20896: 10188: SearchAndCopy(memo1.lines, '#name', getUserNameWin, 11);
20897: 10189: SearchAndCopy(memo1.lines, '#date', datetimetoStr(now), 11);
20898: 10190: SearchAndCopy(memo1.lines, '#host', getComputernameWin, 11);
20899: 10191: SearchAndCopy(memo1.lines, '#path', fpath, 11);
20900: 10192: SearchAndCopy(memo1.lines, '#file', fname, 11);
20901: 10199 SearchAndCopy(memo1.lines, '#fils', fname +' '+SHA1(Act_Filename), 11);
20902: 10193: SearchAndCopy(memo1.lines, '#locs', intToStr(getCodeEnd), 11);
20903: 10194: SearchAndCopy(memo1.lines, '#perf', perftime, 11);
20904: 10195: SearchAndCopy(memo1.lines, '#sign', Format('%s: %s: %s',
20905: [getUserNameWin, getComputernameWin, datetimetoStr(now),
20906: 10196: SearchAndCopy(memo1.lines, '#head',Format('%s: %s: %s %s ',
20907: 10197: [getUserNameWin, getComputernameWin, datetimetoStr(now), Act_Filename]),11);
20908: [getUserNameWin, getComputernameWin, datetimetoStr(now), Act_Filename]),11);
20909: 10198: SearchAndCopy(memo1.lines, '#tech',Format('perf: %s threads: %d %s %s',
20910: [perftime, numprocessthreads, getIPAddress(getComputerNameWin), timetoStr(time), mbversion]),11);
20911: 10298: SearchAndCopy(memo1.lines, '#net',Format('DNS: %s; local IPs: %s; local IP: %s',
20912: [getDNS, GetLocalIPs, getIPAddress(getComputerNameWin)]), 10);
20913:
20914: //#tech!perf: 0:0:29.297 threads: 3 192.168.174.1 19:26:30
20915:
20916: //Replace Macros
20917: SearchAndCopy(memo1.lines, '', timetoStr(time), 6);
20918: SearchAndCopy(memo1.lines, '', datetoStr(date), 6);
20919: SearchAndCopy(memo1.lines, '', fpath, 6);
20920: SearchAndCopy(memo1.lines, '', EXEPath, 9);
20921: SearchAndCopy(memo1.lines, '', fname, 6);
20922: SearchAndCopy(memo1.lines, '', ExePath+'Source', 8);
20923: ref: netcologne.dl.sourceforge.net/project/maxbox/maxbox3.zip
20924: SearchAndCopy(memo1.lines, '#tech'perf: threads: 2 192.168.1.53 19:05:50 3.9.9.84
20925: [perftime,numprocessthreads,getIPAddress(getComputerNameWin),timetoStr(time),mbversion]), 11);
20926: //#tech!84perf: threads: 2 192.168.1.53 19:05:50 3.9.9.84
20927: SearchAndCopy(memo1.lines, 'maxbox_extract_funclist399.txt
20928:
20929: //----------------------------------------------------------------------------
20930: //**************mX4 ToDo List Tags ../Help/ToDo List**************************
20931: //-------------------------------------------------------- ---------------------
20932:
20933: while I < sl.Count do begin
20934: // if MatchesMask(sl[I], '*/? TODO ([a-z0-9_]*#[1-9]#)*:*') then
20935: if MatchesMask(sl[I], '*/? TODO (?*#?#)*:*') then
20936: BreakupToDo(Filename, sl, I, 'TODO', True, True) // full info TODO
PC08 E:\maxbox3\mXGit39988\maxbox3\docs\maxbox_extract_funclist399.txt
http://www.softwareschule.ch/maxbox.htm T: 297
p: 243