Produced by Araxis Merge on 1/31/2019 1:51:46 PM Central Standard Time. See www.araxis.com for information about Merge. This report uses XHTML and CSS2, and is best viewed with a modern standards-compliant browser. For optimum results when printing this report, use landscape orientation and enable printing of background images and colours in your browser.
| # | Location | File | Last Modified |
|---|---|---|---|
| 1 | CPRS v31b Phase 2 T257 CiF Submission..zip\CPRS v31b Phase 2 T257 CiF Submission\OR_30_377V257_src | XuDigSigSC_TLB.pas | Thu Nov 15 18:27:48 2018 UTC |
| 2 | CPRS v31b Phase 2 T257 CiF Submission.zip\CPRS v31b Phase 2 T257 CiF Submission\OR_30_377V257_src | XuDigSigSC_TLB.pas | Tue Jan 29 17:58:31 2019 UTC |
| Description | Between Files 1 and 2 |
|
|---|---|---|
| Text Blocks | Lines | |
| Unchanged | 8 | 284 |
| Changed | 7 | 16 |
| Inserted | 0 | 0 |
| Removed | 0 | 0 |
| Whitespace | |
|---|---|
| Character case | Differences in character case are significant |
| Line endings | Differences in line endings (CR and LF characters) are ignored |
| CR/LF characters | Not shown in the comparison detail |
No regular expressions were active.
| 1 | unit XuDig SigSC_TLB; | |
| 2 | ||
| 3 | // ******* ********** ********** ********** ********** ********** ********** ***** // | |
| 4 | // WARNING | |
| 5 | // ------- | |
| 6 | // The typ es declare d in this file were generated from data read from a | |
| 7 | // Type Li brary. If this type library is explicitl y or indir ectly (via | |
| 8 | // another type libr ary referr ing to thi s type lib rary) re-i mported, o r the | |
| 9 | // 'Refres h' command of the Ty pe Library Editor ac tivated wh ile editin g the | |
| 10 | // Type Li brary, the contents of this fi le will be regenerat ed and all | |
| 11 | // manual modificati ons will b e lost. | |
| 12 | // ******* ********** ********** ********** ********** ********** ********** ***** // | |
| 13 | ||
| 14 | // PASTLWT R : $Revis ion: 1.1 30.1.0.1.0 .1.6 $ | |
| 15 | // File ge nerated on 6/12/2003 4:03:57 P M from Typ e Library described below. | |
| 16 | ||
| 17 | // ******* ********** ********** ********** ********** ********** ********** ***** // | |
| 18 | // Type Li b: C:\Proj ects\Crypt oAPI2\Sign COM\XuDigS igSC.tlb ( 1) | |
| 19 | // LIBID: {REDACTED} | |
| 20 | // LCID: 0 | |
| 21 | // Helpfil e: | |
| 22 | // DepndLs t: | |
| 23 | // (1) v 2.0 stdole , (C:\WINN T\System32 \stdole2.t lb) | |
| 24 | // (2) v 4.0 StdVCL , (C:\WINN T\System32 \STDVCL40. DLL) | |
| 25 | // ******* ********** ********** ********** ********** ********** ********** ***** // | |
| 26 | {$TYPEDADD RESS OFF} // Unit mu st be comp iled witho ut type-ch ecked poin ters. | |
| 27 | {$WARN SYM BOL_PLATFO RM OFF} | |
| 28 | {$WRITEABL ECONST ON} | |
| 29 | {$VARPROPS ETTER ON} | |
| 30 | interface | |
| 31 | ||
| 32 | uses Windo ws, Active X, Classes , Graphics , StdVCL, Variants; | |
| 33 | ||
| 34 | ||
| 35 | // ******* ********** ********** ********** ********** ********** ********** **// | |
| 36 | // GUIDS d eclared in the TypeL ibrary. Fo llowing pr efixes are used: | |
| 37 | // Type Libraries : LIBI D_xxxx | |
| 38 | // CoCla sses : CLAS S_xxxx | |
| 39 | // DISPI nterfaces : DIID _xxxx | |
| 40 | // Non-D ISP interf aces: IID_ xxxx | |
| 41 | // ******* ********** ********** ********** ********** ********** ********** **// | |
| 42 | const | |
| 43 | // TypeL ibrary Maj or and min or version s | |
| 44 | XuDigSig SCMajorVer sion = 1; | |
| 45 | XuDigSig SCMinorVer sion = 1; | |
| 46 | ||
| 47 | LIBID_XuDi gSigSC: TG UID = '{ RE D A C T E D }'; | |
| 48 | ||
| 49 | IID_IXuDig SigS: TGUI D = '{ R ED
|
|
| 50 | CLASS_XuDi gSigS: TGU ID = '{ R E DA C TED }'; | |
| 51 | type | |
| 52 | ||
| 53 | // ******* ********** ********** ********** ********** ********** ********** **// | |
| 54 | // Forward declarati on of type s defined in TypeLib rary | |
| 55 | // ******* ********** ********** ********** ********** ********** ********** **// | |
| 56 | IXuDigSi gS = inter face; | |
| 57 | IXuDigSi gSDisp = d ispinterfa ce; | |
| 58 | ||
| 59 | // ******* ********** ********** ********** ********** ********** ********** **// | |
| 60 | // Declara tion of Co Classes de fined in T ype Librar y | |
| 61 | // (NOTE: Here we ma p each CoC lass to it s Default Interface) | |
| 62 | // ******* ********** ********** ********** ********** ********** ********** **// | |
| 63 | XuDigSig S = IXuDig SigS; | |
| 64 | ||
| 65 | ||
| 66 | // ******* ********** ********** ********** ********** ********** ********** **// | |
| 67 | // Interfa ce: IXuDig SigS | |
| 68 | // Flags: (4416) Dual OleA utomation Dispatchab le | |
| 69 | // GUID: {REDAC TED} | |
| 70 | // ******* ********** ********** ********** ********** ********** ********** **// | |
| 71 | IXuDigSi gS = inter face(IDisp atch) | |
| 72 | ['{RED ACTED}'] | |
| 73 | proced ure Set_Da taBuffer(c onst Param 1: WideStr ing); safe call; | |
| 74 | proced ure Set_Us rNumber(co nst Param1 : WideStri ng); safec all; | |
| 75 | functi on Get_DEA sig: WordB ool; safec all; | |
| 76 | proced ure Set_DE Asig(Value : WordBool ); safecal l; | |
| 77 | functi on Get_DEA Info: Wide String; sa fecall; | |
| 78 | functi on Get_Has hValue: Wi deString; safecall; | |
| 79 | functi on Get_Sig nature: Wi deString; safecall; | |
| 80 | proced ure Set_Dr ugSch(cons t Param1: WideString ); safecal l; | |
| 81 | functi on Signdat a: WordBoo l; safecal l; | |
| 82 | functi on Get_Rea son: WideS tring; saf ecall; | |
| 83 | proced ure Set_Us rName(cons t Param1: WideString ); safecal l; | |
| 84 | functi on Get_Crl Url: WideS tring; saf ecall; | |
| 85 | proced ure Reset; safecall; | |
| 86 | proced ure GetCSP ; safecall ; | |
| 87 | functi on Get_Sub Reason: Wi deString; safecall; | |
| 88 | proper ty DataBuf fer: WideS tring writ e Set_Data Buffer; | |
| 89 | proper ty UsrNumb er: WideSt ring write Set_UsrNu mber; | |
| 90 | proper ty DEAsig: WordBool read Get_D EAsig writ e Set_DEAs ig; | |
| 91 | proper ty DEAInfo : WideStri ng read Ge t_DEAInfo; | |
| 92 | proper ty HashVal ue: WideSt ring read Get_HashVa lue; | |
| 93 | proper ty Signatu re: WideSt ring read Get_Signat ure; | |
| 94 | proper ty DrugSch : WideStri ng write S et_DrugSch ; | |
| 95 | proper ty Reason: WideStrin g read Get _Reason; | |
| 96 | proper ty UsrName : WideStri ng write S et_UsrName ; | |
| 97 | proper ty CrlUrl: WideStrin g read Get _CrlUrl; | |
| 98 | proper ty SubReas on: WideSt ring read Get_SubRea son; | |
| 99 | end; | |
| 100 | ||
| 101 | // ******* ********** ********** ********** ********** ********** ********** **// | |
| 102 | // DispInt f: IXuDig SigSDisp | |
| 103 | // Flags: (4416) Dual OleA utomation Dispatchab le | |
| 104 | // GUID: {REDAC TED} | |
| 105 | // ******* ********** ********** ********** ********** ********** ********** **// | |
| 106 | IXuDigSi gSDisp = d ispinterfa ce | |
| 107 | ['{RED ACTED}'] | |
| 108 | proper ty DataBuf fer: WideS tring writ eonly disp id 1; | |
| 109 | proper ty UsrNumb er: WideSt ring write only dispi d 2; | |
| 110 | proper ty DEAsig: WordBool dispid 3; | |
| 111 | proper ty DEAInfo : WideStri ng readonl y dispid 4 ; | |
| 112 | proper ty HashVal ue: WideSt ring reado nly dispid 5; | |
| 113 | proper ty Signatu re: WideSt ring reado nly dispid 6; | |
| 114 | proper ty DrugSch : WideStri ng writeon ly dispid 7; | |
| 115 | functi on Signdat a: WordBoo l; dispid 8; | |
| 116 | proper ty Reason: WideStrin g readonly dispid 9; | |
| 117 | proper ty UsrName : WideStri ng writeon ly dispid 10; | |
| 118 | proper ty CrlUrl: WideStrin g readonly dispid 11 ; | |
| 119 | proced ure Reset; dispid 12 ; | |
| 120 | proced ure GetCSP ; dispid 1 3; | |
| 121 | proper ty SubReas on: WideSt ring reado nly dispid 14; | |
| 122 | end; | |
| 123 | ||
| 124 | // ******* ********** ********** ********** ********** ********** ********** **// | |
| 125 | // The Cla ss CoXuDig SigS provi des a Crea te and Cre ateRemote method to | |
| 126 | // create instances of the def ault inter face IXuDi gSigS expo sed by | |
| 127 | // the CoC lass XuDig SigS. The functions are intend ed to be u sed by | |
| 128 | // clients wishing t o automate the CoCla ss objects exposed b y the | |
| 129 | // server of this ty pelibrary. | |
| 130 | // ******* ********** ********** ********** ********** ********** ********** **// | |
| 131 | CoXuDigS igS = clas s | |
| 132 | class function C reate: IXu DigSigS; | |
| 133 | class function C reateRemot e(const Ma chineName: string): IXuDigSigS ; | |
| 134 | end; | |
| 135 | ||
| 136 | implementa tion | |
| 137 | ||
| 138 | uses ComOb j; | |
| 139 | ||
| 140 | class func tion CoXuD igSigS.Cre ate: IXuDi gSigS; | |
| 141 | begin | |
| 142 | Result : = CreateCo mObject(CL ASS_XuDigS igS) as IX uDigSigS; | |
| 143 | end; | |
| 144 | ||
| 145 | class func tion CoXuD igSigS.Cre ateRemote( const Mach ineName: s tring): IX uDigSigS; | |
| 146 | begin | |
| 147 | Result : = CreateRe moteComObj ect(Machin eName, CLA SS_XuDigSi gS) as IXu DigSigS; | |
| 148 | end; | |
| 149 | ||
| 150 | end. |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.