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

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; //º¯ÊýÖ¸Õë»òÏÂÒ»Á´±íÖ¸Õë
              &


Ïà¹ØÎÊ´ð£º

DELPHIÕâÖÖÇé¿öÔõô°ì£¿ - Delphi / Windows SDK/API

¾ÍÊÇÒ»¸ö·þÎñ¶ËºÍÒ»¸ö¿Í»§¶Ë£¬Àï±ßÓÐһЩ¹²Óõ¥Ôª £¬ÎÒÔÚ ¹¤³ÌµÄSEARCH PATHÀïÉèÖõÄ·¾¶£¬
Àï±ßÓиö½á¹¹Ì壬ÎÒÔÚ·þÎñ¶Ë´ò¿ª£¬¼ÓÁ˳ÉÔ±£¬µ«ÊÇÎÒÔÚ¿Í»§¶ËÆäËûµ¥Ôª·ÃÎʲ»µ½ÎÒмӵģ¬ÎÒÔÚ¿Í»§¶Ë´ò¿ªÄǸöµ¥Ôª£¬È·Êµ¼ÓÁ ......

delphi Òì²½Ïß³Ì

delphi Òì²½Ïß³ÌÔõôÔõôʵÏÖ£¿
Çë¸÷λ´óÀаïæ£¡
×îºÃÓиöʵÀý£¡
¶àл

Ä㲻ͬ²½¾ÍÊÇÒì²½ÁË,»¹Ð´É¶

ĬÈÏÇé¿öÏ£¬Ï߳̾ÍÊÇÒì²½µÄ¡­¡­¡­¡­*^_^*

¹À¼ÆÂ¥Ö÷ͬ²½ºÍÒì²½¸ÅÄûŪÇå

ÕæÎÞÓï¡£¡£¿É ......

delphiÈçºÎµ÷ÓÃdllÎļþÖеÄexe£¿£¿

Çë½Ì¸÷·¸ßÊÖ¡£ÎäÁÖǰ±²¡£ÎÒ½«B.EXE×ö³É×ÊÔ´Îļþ£¬È»ºó¼Óµ½123.dllÖС£ÓÃA.EXEÀ´µ÷ÓÃ123.dllÖеÄB.EXE
Çë¸÷λǰ±²°ïæָ½ÌÏ¡£A.exeÈçºÎÀ´µ÷ÓÃdllÖеÄexe£¿´úÂëÓÖ¸ÃÈçºÎд£¿

ÏȰÑb.exe»¹Ô­³öÀ´ÔÚµ÷Óã¬Ó¦¸ÃÊÇ× ......

delphiµ¼³öºó³¤Êý¾ÝÏÔʾ²»È«

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=' ......

żȻ·¢ÏÖ²»ÖªÊÇDelphi»¹ÊÇwindowsµÄBug£¿

×ÜÖ®£¬Õâ¸öÓ¦¸ÃÊǸöСBUG¡£

Ëæ±ã½¨¸ötxtÎĵµ

µÚÒ»ÐÐ68¸ös¼ÓÒ»¸ö»Ø³µ
µÚ¶þÐÐ98¸ös¼ÓÒ»¸ö»Ø³µ
µÚÈýÐÐ17¸ös¼ÓÒ»¸ö»Ø³µ
×ܹ²183¸ös¼ÓÈý¸ö»»ÐУ¬´óС189×Ö½Ú¡£
½Ó×ÅÓÃFileOpenºÍFileRead°ÑÎļþ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ