maXbox3 3.9.9.195 14/05/2015 08:37:17 AM
maXbox3 3.9.9.80 13.11.2013 11:25:53
maXbox3 3.9.9.80 13.11.2013 11:25:53
You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
<strong>maXbox3</strong> <strong>3.9.9.195</strong><br />
<strong>14</strong>/<strong>05</strong>/<strong>2015</strong> <strong>08</strong>:<strong>37</strong>:<strong>17</strong> <strong>AM</strong><br />
23424: Procedure CopyHTMLToClipBoard(const str: string; const htmlStr: string = '');<br />
23425: function CheckCreditCard(c: string): Integer;<br />
23426: 0: Card is invalid or unknown 1: is a AmEx 2: is a Visa 3: is a valid MasterCard<br />
23427:<br />
23428: function getFormRes(classname: string): string; //shows DFM Res of Exe!<br />
23429: procedure OutputDebugString(PChar(Format('[%s][%s] %s',[aCaption, GetFormatDT(StartDT), aText])));<br />
23430: procedure ScanNetworkResources(ResourceType, DisplayType: DWord; List: TStrings);<br />
23431: //ScanNetworkResources(RESOURCETYPE_DISK, RESOURCEDISPLAYTYPE_SERVER, ListBox1.Items);<br />
23432: function ComputePEChecksum(FileName: string): DWORD;<br />
23433: if not DynamicDllCallName(user32, 'LockWorkStation', true,returned,parameters) then begin<br />
23434: function DynamicDllCallNames(Dll: String; const Name: String; HasResult: Boolean; var Returned: Cardinal;<br />
const Parameters: array of string): Boolean;');<br />
23435: Procedure GetMIDASAppServerList(List: TStringList; const RegCheck : string)');<br />
23436: procedure SQLDropField(dbName, tblName, fldName: String); {Field Name to Drop}<br />
234<strong>37</strong>: type TCastType = (ctSmallInt, ctInteger, ctDecimal, ctNumeric, ctFloat,<br />
23438: ctChar, ctVarChar, ctDate, ctBoolean, ctBLOB, ctTime,<br />
23439: ctTimeStamp, ctMoney, ctAutoInc, ctBytes);<br />
23440: {Blob definition type 1 = Memo, 2 = Binary, 3 = Formatted Memo, 4 = OLE Object, 5 = Graphic}<br />
23441:<br />
23442: procedure SQLAddField(dbName,tblName,fldName: String; fldType: TCastType; fldLength, precisOrBlobLen,<br />
scaleOrBlobType: Integer);<br />
23443: const<br />
23444: UrlGeoLookupInfo ='http://ipinfodb.com/ip_query.php?timezone=true&ip=%s';<br />
23445: UrlGeoLookupInfo2 ='http://backup.ipinfodb.com/ip_query.php?timezone=true&ip=%s'; //backup<br />
23446:<br />
23447: procedure GetGeoInfo(const IpAddress : string;var GeoInfo :TGeoInfo; const UrlGeoLookupInfo: string);<br />
23448: CL.AddTypeS('TGeoInfo', 'record status: string; countrycode : '<br />
23449: +string; countryname : string; regioncode : string; city : string; zippostalcode : string; latitude '<br />
23450: +: string; longitude : string; timezonename : string; gmtoffset: string; isdst: string; end');<br />
23451:<br />
23452: procedure SIRegister_ubigFloatV3(CL: TPSPascalCompiler);<br />
23453: begin<br />
23454: CL.AddTypeS('TMaxSig', 'integer');<br />
23455: CL.AddTypeS('TView', '( normal, Scientific )');<br />
23456: SIRegister_TFloatInt(CL); SIRegister_TBigFloat(CL);<br />
23457: end;<br />
23458:<br />
23459: procedure SIRegister_UBigIntsV4(CL: TPSPascalCompiler);<br />
23460: begin TDigits', 'array of int64'); SIRegister_TInteger(CL);<br />
23461: Procedure SetBaseVal( const newbase : integer)');<br />
23462: Function GetBasePower : integer');<br />
23463: Function GetBase : integer');<br />
23464: Procedure SetThreadSafe( newval : boolean)');<br />
23465: end;<br />
23466:<br />
23467: function BigDiv(aone, atwo: string): string;<br />
23468: var tbig1, tbig2: TInteger;<br />
23469: begin<br />
23470: tbig1:= TInteger.create(10);<br />
23471: tbig2:= TInteger.create(10);<br />
23472: try<br />
23473: tbig1.assign2(atwo)<br />
23474: tbig2.assign2(aone)<br />
23475: tbig2.Divide(tbig1)<br />
23476: finally<br />
23477: result:= tbig2.ConvertToDecimalString(false)<br />
23478: tbig1.Free;<br />
23479: tbig2.free;<br />
23480: end;<br />
23481: end;<br />
23482:<br />
23483: procedure SIRegister_UDict(CL: TPSPascalCompiler);<br />
23484: begin CL.AddConstantN('dichighletter','String').SetString( 'z');<br />
23485: SIRegister_TDicForm(CL);<br />
23486: SIRegister_TDic(CL);<br />
23487: end;<br />
23488:<br />
23489: procedure SetArrayLength2Char2(var arr: T2CharArray; asize1, asize2: integer);<br />
23490: var i: integer;<br />
23491: begin setlength(arr, asize1);<br />
23492: for i:= 0 to asize1 do SetLength(arr[i], asize2);<br />
23493: end;<br />
23494:<br />
23495: procedure SIRegister_UP10Build(CL: TPSPascalCompiler);<br />
23496: begin Procedure ParseFunction(FunctionString:string; Variables:TStringlist; FunctionOne,FunctionTwo:<br />
TStringList; UsePascalNumbers : boolean; var FirstOP: {TObject}POperation; var Error : boolean)');<br />
23497: end;<br />
23498:<br />
23499: procedure SIRegister_ComObj2(CL: TPSPascalCompiler);<br />
23500: begin<br />
23501: CL.AddClassN(CL.FindClass('TOBJECT'),'TComObjectFactory');<br />
23502: SIRegister_TComServerObject(CL);<br />
23503: SIRegister_ADOConst(CL);<br />
23504: FieldTypeNames: array[0..41] of string = (<br />
235<strong>05</strong>: 'Unknown', 'String', 'SmallInt', 'Integer', 'Word', 'Boolean', 'Float',<br />
23506: 'Currency', 'BCD', 'Date', 'Time', 'DateTime', 'Bytes', 'VarBytes',<br />
23507: 'AutoInc', 'Blob', 'Memo', 'Graphic', 'FmtMemo', 'ParadoxOle',<br />
235<strong>08</strong>: 'dBaseOle', 'TypedBinary', 'Cursor', 'FixedChar', 'WideString',<br />
23509: 'LargeInt', 'ADT', 'Array', 'Reference', 'DataSet', 'HugeBlob', 'HugeClob',<br />
PC<strong>08</strong> E:\maxbox3\mXGit39988\maxbox3\docs\maxbox_extract_funclist399.txt<br />
http://www.softwareschule.ch/maxbox.htm T: 297<br />
p: 272