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ÖвâÊÔµ÷Ó㬻ᱨµØÖ·Òì³£
Ïà¹ØÎÊ´ð£º
Àý×Ó³ÌÐò¼û¸½¼þ£¬ÓÃDelphi 7½øÐбàÒë
ÎÊÌâ´úÂëΪ
Delphi(Pascal) code:
if Node.ChildNodes <> nil then
begin
for i := 0 to Node.ChildNodes.Count - 1 do
begin
cNode := N ......
±¾È˽ñÄê17Ëê,·Ç³£Ï²»¶delphi,µ«ÓÉÓÚ»ù´¡ÓÐÏÞ,´ÓÍøÉÏÏÂÔØ×ÊÁÏѧϰ,¿´µÃÔÎËÀÁË,¶¼²»ÖªµÀÔÚ˵ʲô!ËùÒÔ½ñÌìÔÚ´Ë·¢Ìû,¹ãÑû¸÷λdelphi°®ºÃÕß°ïÖúÎÒ!Èç¹û±¾ÈËËûÈÕÓÐÐÒѧµÃdelphi±à³Ì,¶¨µ±°ÑÔ´´úÂë·¢²¼³öÀ´,ÔÚ´ËÒ»±í¸Ðл!Ï ......
»¹ÓÐÅóÓÑʹÓà Delphi for PHP µÄ£¿ ÔÚ´ËÂÛ̳ÉÏÕâ·½ÃæÐÅÏ¢Ï൱ÉÙ£¬Óеϰ¿ÉÒÔ½»ÏÂÅóÓÑ£¬È˶à×ßµÃÎÈ£¬×ßµÃÔ¶¡£
QQ909992998
DELPHI »¹ÊDz»´íµÄ£¬DELPHI FOR PHP Èç¹û֮ǰÊÇÓÃDELPHI ¿ª·¢¹¤¾ßµÄ»° ˼·¶¼ÊÇ˳³ ......
ÈçºÎʹÐÂÔöµÄsheetÔÚǰһ¸ösheetºó£¬excelĬÈÏÓÐ3¸ösheet,ÈçÎÒÐÂÔöÒ»¸ösheet4,ÔõÑùʹËüÊDzåÔÚsheet3ºóÄØ£¬¶ø²»ÊDzåÔÚsheet1ǰ£¿
ÓÒ¼ü²»ÐÐÂð£¿
Worksheets.Add ·½·¨
¸Ã·½·¨ÓÃÓÚн¨¹¤×÷±í¡£
Function Ad ......
ÏÖÔÚÐèÒª´òÓ¡delphi´°ÌåÉÏËùÓеĶ«Î÷£¬ÎÒÏÈץͼÔÙ´òÓ¡£¬¿ÉÊÇ´òÓ¡²»³öÀ´£¬Çë´óÏÀÃǰïæ¡£
Ö»ÊÇÎҵĴúÂ룺
procedure TForm1.FormCreate(Sender: TObject);
var
cvsFullScreenCanvas:TCanvas;
dc: ......