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
Create successful ePaper yourself
Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.
<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 />
8988: Function QuerySemaphore( Handle : THandle; var Info : TSemaphoreCounts) : Boolean<br />
8989: Function QueryTimer( Handle : THandle; var Info : TTimerInfo) : Boolean<br />
8990: FindClass('TOBJECT'),'EJclWin32HandleObjectError<br />
8991: FindClass('TOBJECT'),'EJclDispatcherObjectError<br />
8992: FindClass('TOBJECT'),'EJclCriticalSectionError<br />
8993: FindClass('TOBJECT'),'EJclEventError<br />
8994: FindClass('TOBJECT'),'EJclWaitableTimerError<br />
8995: FindClass('TOBJECT'),'EJclSemaphoreError<br />
8996: FindClass('TOBJECT'),'EJclMutexError<br />
8997: FindClass('TOBJECT'),'EJclMeteredSectionError<br />
8998: end;<br />
8999:<br />
9000:<br />
9001: //***************************unit uPSI_mORMotReport;<br />
9002: Procedure SetCurrentPrinterAsDefault<br />
9003: Function CurrentPrinterName : string<br />
9004: Function mCurrentPrinterPaperSize : string<br />
90<strong>05</strong>: Procedure UseDefaultPrinter<br />
9006:<br />
9007: procedure SIRegisterTSTRE<strong>AM</strong>(Cl: TPSPascalCompiler);<br />
90<strong>08</strong>: begin<br />
9009: with FindClass('TOBJECT'), 'TStream') do begin<br />
9010: IsAbstract := True;<br />
9011: //RegisterMethod('Function Read( var Buffer, Count : Longint) : Longint<br />
9012: // RegisterMethod('Function Write( const Buffer, Count : Longint) : Longint<br />
9013: function Read(Buffer:String;Count:LongInt):LongInt<br />
90<strong>14</strong>: function Write(Buffer:String;Count:LongInt):LongInt<br />
9015: function ReadString(Buffer:String;Count:LongInt):LongInt //FileStream<br />
9016: function WriteString(Buffer:String;Count:LongInt):LongInt<br />
90<strong>17</strong>: function ReadInt(Buffer:integer;Count:LongInt):LongInt<br />
9018: function WriteInt(Buffer:integer;Count:LongInt):LongInt<br />
9019: function ReadByteArray(Buffer:TByteArray;Count:LongInt):LongInt');<br />
9020: function WriteByteArray(Buffer:TByteArray;Count:LongInt):LongInt');<br />
9021:<br />
9022: procedure ReadAB(Buffer: TByteArray;Count:LongInt)<br />
9023: procedure WriteAB(Buffer: TByteArray;Count:LongInt)<br />
9024: procedure ReadABD(Buffer: TByteDynArray;Count:LongInt)<br />
9025: procedure WriteABD(Buffer: TByteDynArray;Count:LongInt)<br />
9026: procedure ReadAC(Buffer: TCharArray;Count:LongInt)<br />
9027: procedure WriteAC(Buffer: TCharArray;Count:LongInt)<br />
9028: procedure ReadACD(Buffer: TCharDynArray;Count:LongInt)<br />
9029: procedure WriteACD(Buffer: TCharDynArray;Count:LongInt)<br />
9030:<br />
9031: function Seek(Offset:LongInt;Origin:Word):LongInt<br />
9032: procedure ReadBuffer(Buffer:String;Count:LongInt)<br />
9033: procedure WriteBuffer(Buffer:String;Count:LongInt)<br />
9034: procedure ReadBufferInt(Buffer:Integer;Count:LongInt)');<br />
9035: procedure WriteBufferInt(Buffer:Integer;Count:LongInt)');<br />
9036: procedure ReadBufferFloat(Buffer:Double;Count:LongInt)');<br />
90<strong>37</strong>: Procedure WriteBufferFloat(Buffer:Double;Count:LongInt)');<br />
9038:<br />
9039: procedure ReadBufferAB(Buffer: TByteArray;Count:LongInt)<br />
9040: procedure WriteBufferAB(Buffer: TByteArray;Count:LongInt)<br />
9041: procedure ReadBufferABD(Buffer: TByteDynArray;Count:LongInt)<br />
9042: procedure WriteBufferABD(Buffer: TByteDynArray;Count:LongInt)<br />
9043: procedure ReadBufferAW(Buffer: TWordArray;Count:LongInt)<br />
9044: procedure WriteBufferAW(Buffer: TWordArray;Count:LongInt)<br />
9045: procedure ReadBufferAWD(Buffer: TWordDynArray;Count:LongInt)<br />
9046: procedure WriteBufferAWD(Buffer: TWordDynArray;Count:LongInt)<br />
9047: procedure ReadBufferAW(Buffer: TWordArray;Count:LongInt)<br />
9048: procedure WriteBufferAW(Buffer: TWordArray;Count:LongInt)<br />
9049: procedure ReadBufferAC(Buffer: TCharArray;Count:LongInt)<br />
9<strong>05</strong>0: procedure WriteBufferAC(Buffer: TCharArray;Count:LongInt)<br />
9<strong>05</strong>1: procedure ReadBufferACD(Buffer: TCharDynArray;Count:LongInt)<br />
9<strong>05</strong>2: procedure WriteBufferACD(Buffer: TCharDynArray;Count:LongInt)<br />
9<strong>05</strong>3:<br />
9<strong>05</strong>4: procedure ReadBufferP(Buffer: PChar;Count:LongInt)<br />
9<strong>05</strong>5: procedure WriteBufferP(Buffer: PChar;Count:LongInt)<br />
9<strong>05</strong>6: procedure ReadBufferO(Buffer: TObject;Count:LongInt)');<br />
9<strong>05</strong>7: procedure WriteBufferO(Buffer: TObject;Count:LongInt)');<br />
9<strong>05</strong>8: //READBUFFERAC<br />
9<strong>05</strong>9: function InstanceSize: Longint<br />
9060: Procedure FixupResourceHeader( FixupInfo : Integer)<br />
9061: Procedure ReadResHeader<br />
9062:<br />
9063: {$IFDEF DELPHI4UP}<br />
9064: function CopyFrom(Source:TStream;Count:Int64):LongInt<br />
9065: {$ELSE}<br />
9066: function CopyFrom(Source:TStream;Count:Integer):LongInt<br />
9067: {$ENDIF}<br />
9068: RegisterProperty('Position', 'LongInt', iptrw);<br />
9069: RegisterProperty('Size', 'LongInt', iptrw);<br />
9070: end;<br />
9071: end;<br />
9072:<br />
9073:<br />
9074: { ******************************************************************<br />
9075: Unit DMATH - Interface for DMATH.DLL<br />
9076: ****************************************************************** }<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: 1<strong>05</strong>