Delphi´úÂëÓÃBCBÖØÐ´ºó³öÏÖµÄÕâ¸ö´íÎóÔõô»ØÊÂ?
[C++ Fatal Error] MakeObjectInstance.cpp(91): F1004 Internal compiler error at 0xd43c33 with base 0xce0000
ǰÁ½ÈÕ¿´ÁËһƪ¹ØÓÚVCL´°¿Ú×¢²áµÄÎÄ,¾õµÃºÜºÃ,¿ÉϧÊÇÓÚÊǾö¶¨×Ô¼ºDelphiµÄÔ´Âë,ûѧ¹ýDelphi,ÓÚÊÇ×Ô¼º±§×ÅѧϰµÄ̬¶È½«ÄǶÎDelphi´úÂëÓÃBCBÖØÐ´ÁËÒ»±é,ÓÚÊǾͳöÏÖÁËÕâ¸ö´íÎó.´ó¼Ò°ïæ¿´¿´Ôõô½â¾ö.
Ô´Âë:
#include <windows.h>
//#include <VCL.h>
//------------------------------------------------------------------------------
#define DEFCALLBACKMETHOD(Method,parameters) parameters
#define HOKMETHODTOCALLBACKPROC(Method) MakeCallBackMethod(Method)
//------------------------------------------------------------------------------
typedef void __fastcall (__closure *TObjCallBackMethod);//(HWND hwnd,UINT uMsg,UINT idEvent,DWORD dwTime);
//typedef TObjInst _TObjInst;
//typedef TObjInst _TInstBlock ;
void _stdcall StdProc(void);
//------------------------------------------------------------------------------
typedef struct _TObjInst //¶ÔÏó·½·¨Ö¸ÕëÁ¬
{
char Code; //CallÖ¸Áî´æ·Åµã
int Offset; //StdProcÆ«ÒÆÁ¿
union
{
struct
{
void* Obj; //¶ÔÏóµÄthisÖ¸Õë
void* Proc; //º¯ÊýÖ¸Õë»òÏÂÒ»Á´±íÖ¸Õë
&
Ïà¹ØÎÊ´ð£º
¾ÍÊÇÒ»¸ö·þÎñ¶ËºÍÒ»¸ö¿Í»§¶Ë£¬Àï±ßÓÐһЩ¹²Óõ¥Ôª £¬ÎÒÔÚ ¹¤³ÌµÄSEARCH PATHÀïÉèÖõÄ·¾¶£¬
Àï±ßÓиö½á¹¹Ì壬ÎÒÔÚ·þÎñ¶Ë´ò¿ª£¬¼ÓÁ˳ÉÔ±£¬µ«ÊÇÎÒÔÚ¿Í»§¶ËÆäËûµ¥Ôª·ÃÎʲ»µ½ÎÒмӵģ¬ÎÒÔÚ¿Í»§¶Ë´ò¿ªÄǸöµ¥Ôª£¬È·Êµ¼ÓÁ ......
delphi Òì²½Ïß³ÌÔõôÔõôʵÏÖ£¿
Çë¸÷λ´óÀаïæ£¡
×îºÃÓиöʵÀý£¡
¶àл
Ä㲻ͬ²½¾ÍÊÇÒì²½ÁË,»¹Ð´É¶
ĬÈÏÇé¿öÏ£¬Ï߳̾ÍÊÇÒì²½µÄ¡¡¡¡*^_^*
¹À¼ÆÂ¥Ö÷ͬ²½ºÍÒì²½¸ÅÄûŪÇå
ÕæÎÞÓï¡£¡£¿É ......
Çë½Ì¸÷·¸ßÊÖ¡£ÎäÁÖǰ±²¡£ÎÒ½«B.EXE×ö³É×ÊÔ´Îļþ£¬È»ºó¼Óµ½123.dllÖС£ÓÃA.EXEÀ´µ÷ÓÃ123.dllÖеÄB.EXE
Çë¸÷λǰ±²°ïæָ½ÌÏ¡£A.exeÈçºÎÀ´µ÷ÓÃdllÖеÄexe£¿´úÂëÓÖ¸ÃÈçºÎд£¿
ÏȰÑb.exe»¹Ô³öÀ´ÔÚµ÷Óã¬Ó¦¸ÃÊÇ× ......
Delphi(Pascal) code:
procedure Tpaigon.N2Click(Sender: TObject);
var
j,col:integer;
filename:string;
MSExcel,xlsheet,xlBook:Variant; //ole ComObj
begin
IF DBGrid1.Fields[0].AsString=' ......
×ÜÖ®£¬Õâ¸öÓ¦¸ÃÊǸöСBUG¡£
Ëæ±ã½¨¸ötxtÎĵµ
µÚÒ»ÐÐ68¸ös¼ÓÒ»¸ö»Ø³µ
µÚ¶þÐÐ98¸ös¼ÓÒ»¸ö»Ø³µ
µÚÈýÐÐ17¸ös¼ÓÒ»¸ö»Ø³µ
×ܹ²183¸ös¼ÓÈý¸ö»»ÐУ¬´óС189×Ö½Ú¡£
½Ó×ÅÓÃFileOpenºÍFileRead°ÑÎļþ ......