Home > Back-end >  Ask ace to convert the following c code to Delphi.
Ask ace to convert the following c code to Delphi.

Time:12-29

# # ifndef QUOTE_H
# define QUOTE_H

# include "TapQuoteAPI. H"
# include "../Common/SimpleEvent. H "

The class Quote: public ITapQuoteAPINotify
{
Public:
Quote (void);
To Quote (void);

Void SetAPI ITapQuoteAPI * (pAPI);
Void RunTest ();

Public:
//implementation of ITapQuoteAPINotify
Virtual void TAP_CDECL OnRspLogin (TAPIINT32 errorCode, const TapAPIQuotLoginRspInfo * info).
Virtual void TAP_CDECL OnAPIReady ();
Virtual void TAP_CDECL OnDisconnect (TAPIINT32 reasonCode);
Virtual void TAP_CDECL OnRspChangePassword (TAPIUINT32 sessionID, TAPIINT32 errorCode);
Virtual void TAP_CDECL OnRspQryExchange (TAPIUINT32 sessionID, TAPIINT32 errorCode, TAPIYNFLAG isLast, const TapAPIExchangeInfo * info).
Virtual void TAP_CDECL OnRspQryCommodity (TAPIUINT32 sessionID, TAPIINT32 errorCode, TAPIYNFLAG isLast, const TapAPIQuoteCommodityInfo * info).
Virtual void TAP_CDECL OnRspQryContract (TAPIUINT32 sessionID, TAPIINT32 errorCode, TAPIYNFLAG isLast, const TapAPIQuoteContractInfo * info).
Virtual void TAP_CDECL OnRtnContract (const TapAPIQuoteContractInfo * info).
Virtual void TAP_CDECL OnRspSubscribeQuote (TAPIUINT32 sessionID, TAPIINT32 errorCode, TAPIYNFLAG isLast, const TapAPIQuoteWhole * info).
Virtual void TAP_CDECL OnRspUnSubscribeQuote (TAPIUINT32 sessionID, TAPIINT32 errorCode, TAPIYNFLAG isLast, const TapAPIContract * info).
Virtual void TAP_CDECL OnRtnQuote (const TapAPIQuoteWhole * info).

Private:
ITapQuoteAPI * m_pAPI;
TAPIUINT32 m_uiSessionID;
SimpleEvent m_Event;
Bool m_bIsAPIReady;
};

# endif//QUOTE_H
  • Related