
DLL,       .

 FarCards 6.XX

DLL    GetCardInfoEx  TransactionsEx.
    .

-----------------------------------------------------------------------
function GetCardInfoEx(
  Card: Int64; Restaurant, UnitNo: DWORD;
  Info: Pointer;
  InpBuf: Pointer; InpLen: DWORD; InpKind: Word;
  var OutBuf: Pointer; var OutLen: DWORD; var OutKind: Word
  ): Integer; stdcall;

     

:

Card        -  
Restaurant  -  
UnitNo      -  
Info        -  ,    ,
                
InpBuf      -      
InpLen      -    
InpKind     -     (0- 1-XML)
OutBuf      -   
OutLen      -    (  150kb)
OutKind     -     (2-Pr1me 101-)



0 -  ,  Info 
1 -   

,    Info:

Word          = 1164  (    )

Byte         ,   
            0 - ,   
            1 - , 

Byte          
            0 - 
            1 - 

Byte          
            0 - 
            1 - 

Byte           
            0 - , 
            1 - ,  

Byte           
            0 -  
            1 - 

Byte         
            0 - 
            1 - 
256     Asciiz  -    -    

40      Asciiz  -   
Int64         
DWORD        
DWORD        
Word         
Word         
Int64         ,  
Int64       ,    ,  
Int64           N 2,  
Int64           N 3,  
Int64           N 4,  
Int64           N 5,  
Int64           N 6,  
Int64           N 7,  
Int64           N 8,  
256     Asciiz -    
256     Asciiz -      
256     Asciiz -     


-----------------------------------------------------------------------

function TransactionsEx(
  Count: DWORD; List: Pointer;
  InpBuf: Pointer; InpLen: DWORD; InpKind: Word;
  var OutBuf: Pointer; var OutLen: DWORD; var OutKind: Word
  ): Integer; stdcall;

      

:

Count       -  
List        -  ,   o -  (Pointer) 
                (. )
InpBuf      -      
InpLen      -    
InpKind     -      (0- 1-XML)
OutBuf      -   
OutLen      -    (  150kb)
OutKind     -   



0 -   
1 -     
     -   ,   !

  

Word          = 122 
Int64       
Int64         
DWORD        
Byte         
            0 -  (   )
            1 - 
            2 -  (   )
            3 -   (   )

Int64       ,  ,
                0 ():
                      -  ,
                  -  ;
                1 ():
                  -  ,
                  -  ;
                2 ():
                    -  ,
                  -  ;
                3 ():
                  -  ,
                  -  ;
Word         
DWORD         ( 0 -> 30/12/1899 )
Byte         
DWORD        
         (8 )
Int64          A
Word          A   * 100  (1500 -> 15.00%)
Int64          B
Word          B   * 100
Int64          C
Word          C   * 100
Int64          D
Word          D   * 100
Int64          E
Word          E   * 100
Int64          F
Word          F   * 100
Int64          G
Word          G   * 100
Int64          H
Word          H   * 100

-----------------------------------------------------------------------

procedure Init; stdcall; -    DLL

-----------------------------------------------------------------------

procedure Done; stdcall; -    DLL

-----------------------------------------------------------------------

function GetCardImageEx( Card: Int64; Info: Pointer ): Integer; stdcall;

     ,   
  .
  - BMP, JPEG, GIF.

 :

Int64       
Info         ,    



0 -  
1 -     

,    Info:

Word          = 258 

256      Asciiz  -    


-----------------------------------------------------------------------

function GetDiscLevelInfoL( Account: DWORD; Info: Pointer ): Integer; stdcall;

      

 :

Account -  
Info -  ,       



0 -  ,  Info 
1 - c  

  ,    Info:

Word          = 90  (    )

40      Asciiz  -    .
40      Asciiz  -  c  .
Int64       ,      

-----------------------------------------------------------------------

procedure FindCardsL( FindText: PAnsiChar; CBFind: Pointer; Back: Pointer ); stdcall;

   . 

    DLL   call-back  CBFind(). 
    DLL   Back.
Card  Holder -    .
  CBFind:

procedure CBFind( Back: Pointer; Account: DWORD; Card: Int64; Holder: PAnsiChar ); stdcall;

-----------------------------------------------------------------------

procedure AnyInfo( InpBuf: Pointer; InpLen: DWORD; var OutBuf: Pointer; var OutLen: DWORD ); stdcall;

  

InpBuf -   
InpLen -    
OutBuf -  
OutLen -   

----------------------------------------------------------------------

function FindEmail( Email: PAnsiChar; Info: Pointer ): Integer; stdcall;

   e-mail.

 :

Email -  e-mail
Info -  ,    ,   



0 -  ,  Info 
1 - c  

  ,    Info:

Word          = 54  (    )
DWORD        
Int64        
40      Asciiz  -   

-----------------------------------------------------------------------

procedure FindAccountsByKind( Kind: Integer; FindText: PAnsiChar; CBFind: Pointer; Back: Pointer ); stdcall;

    .

Kind -   
       2 -   ( )
       3 -  QR 

    DLL   call-back  CBFind().
    DLL   Back.
Card  Holder -    .
  CBFind:

procedure CBFind( Back: Pointer; Account: DWORD; Card: Int64; Holder: PAnsiChar ); stdcall;

=====================================================================
