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

maXbox3 3.9.9.195
14/05/2015 08:37:17 AM
15009: Type(TSyslogSeverity','(Emergency, Alert, Critical, Error, Warning,Notice,Info,Debug);
15010: SIRegister_TSyslogMessage(CL);
15011: SIRegister_TSyslogSend(CL);
15012: Function ToSysLog(const SyslogServer:string;Facil:Byte;Sever:TSyslogSeverity;const
Content:string):Boolean;
15013: end;
15014:
15015:
15016: procedure SIRegister_mimemess(CL: TPSPascalCompiler);
15017: begin
15018: AddTypeS('TMessPriority', '( MP_unknown, MP_low, MP_normal, MP_high )');
15019: SIRegister_TMessHeader(CL);
15020: //AddTypeS('TMessHeaderClass', 'class of TMessHeader');
15021: SIRegister_TMimeMess(CL);
15022: end;
15023:
15024: procedure SIRegister_mimepart(CL: TPSPascalCompiler);
15025: begin
15026: (FindClass('TOBJECT'),'TMimePart');
15027: AddTypeS('THookWalkPart', 'Procedure ( const Sender : TMimePart)');
15028: AddTypeS('TMimePrimary', '( MP_TEXT, MP_MULTIPART, MP_MESSAGE, MP_BINARY )');
15029: AddTypeS('TMimeEncoding', '( ME_7BIT, ME_8BIT, ME_QUOTED_PRINTABLE, ME_BASE64, ME_UU, ME_XX )');
15030: SIRegister_TMimePart(CL);
15031: Const('MaxMimeType','LongInt'( 25);
15032: Function GenerateBoundary : string');
15033: end;
15034:
15035: procedure SIRegister_mimeinln(CL: TPSPascalCompiler);
15036: begin
15037: Function InlineDecode( const Value : string; CP : TMimeChar) : string');
15038: Function InlineEncode( const Value : string; CP, MimeP : TMimeChar) : string');
15039: Function NeedInline( const Value : AnsiString) : boolean');
15040: Function InlineCodeEx( const Value : string; FromCP : TMimeChar) : string');
15041: Function InlineCode( const Value : string) : string');
15042: Function InlineEmailEx( const Value : string; FromCP : TMimeChar) : string');
15043: Function InlineEmail( const Value : string) : string');
15044: end;
15045:
15046: procedure SIRegister_ftpsend(CL: TPSPascalCompiler);
15047: begin
15048: Const('cFtpProtocol','String '21');
15049: Const('cFtpDataProtocol','String '20');
15050: Const('FTP_OK','LongInt'( 255);
15051: Const('FTP_ERR','LongInt'( 254);
15052: AddTypeS('TFTPStatus', 'Procedure ( Sender : TObject; Response : Boolean; const Value : string)');
15053: SIRegister_TFTPListRec(CL);
15054: SIRegister_TFTPList(CL);
15055: SIRegister_TFTPSend(CL);
15056: Function FtpGetFile( const IP, Port, FileName, LocalFile, User, Pass : string) : Boolean');
15057: Function FtpPutFile( const IP, Port, FileName, LocalFile, User, Pass : string) : Boolean');
15058: Function FtpInterServerTransfer(const FromIP,FromPort, FromFile, FromUser, FromPass : string; const ToIP,
ToPort, ToFile, ToUser, ToPass : string) : Boolean');
15059: end;
15060:
15061: procedure SIRegister_httpsend(CL: TPSPascalCompiler);
15062: begin
15063: Const('cHttpProtocol','String '80');
15064: AddTypeS('TTransferEncoding', '( TE_UNKNOWN, TE_IDENTITY, TE_CHUNKED )');
15065: SIRegister_THTTPSend(CL);
15066: Function HttpGetText( const URL : string; const Response : TStrings) : Boolean');
15067: Function HttpGetBinary( const URL : string; const Response : TStream) : Boolean');
15068: Function HttpPostBinary( const URL : string; const Data : TStream) : Boolean');
15069: Function HttpPostURL( const URL, URLData : string; const Data : TStream) : Boolean');
15070: Function HttpPostFile(const URL,FieldName,FileName:string;const Data:TStream;const
ResultData:TStrings):Bool;
15071: end;
15072:
15073: procedure SIRegister_smtpsend(CL: TPSPascalCompiler);
15074: begin
15075: Const('cSmtpProtocol','String '25');
15076: SIRegister_TSMTPSend(CL);
15077: Function SendToRaw(const MailFr,MailTo,SMTPHost:string;const MailData:TStrings;const Usrname,
Passw:string):Bool;
15078: Function SendTo(const MailFrom,MailTo,Subject,SMTPHost:string;const MailData:TStrings):Boolean;
15079: Function SendToEx(const MailFrom, MailTo, Subject, SMTPHost : string; const MailData : TStrings; const
Username, Password : string):Boolean');
15080: end;
15081:
15082: procedure SIRegister_snmpsend(CL: TPSPascalCompiler);
15083: begin
15084: Const('cSnmpProtocol','String '161');
15085: Const('cSnmpTrapProtocol','String '162');
15086: Const('SNMP_V1','LongInt'( 0);
15087: Const('SNMP_V2C','LongInt'( 1);
15088: Const('SNMP_V3','LongInt'( 3);
15089: Const('PDUGetRequest','LongWord')( $A0);
15090: Const('PDUGetNextRequest','LongWord')( $A1);
15091: Const('PDUGetResponse','LongWord')( $A2);
15092: Const('PDUSetRequest','LongWord')( $A3);
PC08 E:\maxbox3\mXGit39988\maxbox3\docs\maxbox_extract_funclist399.txt
http://www.softwareschule.ch/maxbox.htm T: 297
p: 175