Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

delphiµ÷ÓÃVCDLLÀàÇóÖú - VC/MFC / ½ø³Ì/Ïß³Ì/DLL

VCDLLÒѾ­´´½¨ºÃ¡£
ÎÒ½¨ÁËÒ»¸öÀà
´óÖ´úÂëÈçÏÂ

C/C++ code:

typedef class ZHallAPI
{

public:

virtual int GetVersion() = 0;

virtual int Prepare() = 0;

virtual int UnPrepare() = 0;

virtual int Connect(char* szIPAddr, unsigned short usIPPort) = 0;

virtual int DisConnect() = 0;

virtual int ClientLogin(const LPCLIENTLOGIN lpClientLogin, LPCLIENTLOGINRST lpClientLoginRst, char* szErrInfo) = 0;


} HALLAPI, *LPHALLAPI;

LPHALLAPI __stdcall GetHallApi();

LPHALLAPI __stdcall GetHallApi()
{
static ZClientInstance Instance;
return &Instance;
}
int ZClientInstance::MyPrepare()
{
int iRet(0);


if(this->bPrepared)
{

return T_OK;
}
this->lpClientAPI = GetClientAPI();
iRet = this->lpClientAPI->Prepare();
if(Z_OK != iRet)
{
return ERR_TP_CLIENT_ERROR;
}
this->bPrepared = true;
return T_OK;
}

int ZClientInstance::Prepare()
{

int iRet =this->MyPrepare();

if(T_OK != iRet)
{
this->UnPrepare();
}
return iRet;

}
int ZClientInstance::GetVersion()
{
//return this->API_VERSION;
return 123;
}
.......................


¸ÃdllÔÚvcϵ÷ÓòâÊÔͨ¹ý£¬ÔÚdelphiÖвâÊÔµ÷Ó㬻ᱨµØÖ·Òì³£


Ïà¹ØÎÊ´ð£º

PythonÖеÄUnicodeÔÚDelphiÈçºÎ»¹Ô­³ÉGb2312£¿

ÒÑÖªPython ÖУº
s = unicode("²âÊÔ", "gb2312")
s = u'\u6d4b\u8bd5'
print s
²âÊÔ

ÔÚDelphiÀïÃæÈçºÎ½«\u6d4b\u8bd5ÕâÑùµÄ»¹Ô­³ÉGb2312µÄºº×ÖÄØ£¿
ÕÒµ½¸ö·½·¨
......

delphi ×·Òª°æÈ¨·Ñ£¡£¡ - Delphi / ·Ç¼¼ÊõÇø

ÄãÃÇÓöµ½Õâ¸öÎÊÌâÂð£¿Ê¹ÓÃdelphi µÄʱºò£¬À´ÁËÒ»·âÐÅ¡£ËµÒªÎҽ̰æÈ¨·Ñ¡£Îһ赹¡£Ôõô°ì£¿
²»ÄÜÔõô°ì,Ò»ÊÇÀíËûÃÇ 2ÊDz»ÀíËûÃÇ

Äã·Å»°½ÐËûÃÇÀ´¹«Ë¾²é¡£¡£¡£¿´ËûÃÇÓе¨Ã»£¿

²»ÀíËûÃǾÍÊÇ£¬µ±Ê±Ò²ÎÊÎÒÃǹ«Ë¾ÒªµÄ ......

delphiÔõô¿ØÖÆUSB - Delphi / VCL×é¼þ¿ª·¢¼°Ó¦ÓÃ

ÒÔǰÖмäÕ¾ÊǵçÄÔͨ¹ý´®¿Ú¿ØÖƵģ¬ÏÖÔڸijÉÁËUSB½Ó¿Ú£¬ÇëÎÊÒªÔõô×ö°¡£¿Çó¸ßÊÖÖ¸µãÒ»ÏÂ
ÊÇusbת´®¿ÚÂð£¿ÄÇÓ¦¸Ã»¹ÊÇ¿ÉÒÔ°´´®¿Ú²Ù×÷µÄ£¬Ö»ÊÇËٶȲ»ÄÜÌ«¸ß

Èç¹û²»ÊÇusbת´®¿Ú£¬Çë²éÔÄusbÇý¶¯µÄsdk˵Ã÷¡£

Õâ¸öÊDz ......

delphi ÐÂÔösheetÎÊÌâ - Delphi / VCL×é¼þ¿ª·¢¼°Ó¦ÓÃ

ÈçºÎʹÐÂÔöµÄsheetÔÚǰһ¸ösheetºó£¬excelĬÈÏÓÐ3¸ösheet,ÈçÎÒÐÂÔöÒ»¸ösheet4,ÔõÑùʹËüÊDzåÔÚsheet3ºóÄØ£¬¶ø²»ÊDzåÔÚsheet1ǰ£¿
ÓÒ¼ü²»ÐÐÂð£¿

Worksheets.Add ·½·¨ 
¸Ã·½·¨ÓÃÓÚн¨¹¤×÷±í¡£
Function Ad ......

delphi ÐÄÌø°ü - Delphi / VCL×é¼þ¿ª·¢¼°Ó¦ÓÃ

ÎÒÔÚÏîÄ¿ÀïÊÇÔÚÕÒ²»µ½ÐÄÌø°üдʲôµØ·½ÁËÄÇλ´ó¸çÄܰïÎÒÔ¶³ÌЭÖúÕÒһϰ¡Ð»Ð»°¡
ÎÒqq398222333

Àϰ岻ÈÃ


ËÑË÷Ò»ÏÂɶ
Õâ¸öÏîÄ¿µÄ´úÂë²»ÊÇÄãдµÄ£¿

ËÑË÷²»µ½Âð

¾ÍÊÇд¹ýÁË£¬²»ÖªµÀ¶ªÔÚÄÄÁË£¬Â¥Ö÷´úÂëÐ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ