VCµ÷ÓÃDELPHI±àдµÄDLL£¬µ÷Óóö´í£¬
ÒÑÖªDELPHI±àдµÄDLLÌṩ¸øÎÒ SourceClear_Fun(pIntComPort:LongInt):LongInt;stdcall;export;
¶øÌṩ¸øÎÒC#ÑùÁÐΪ[DllImport("DLL7000.dll")]
public static extern int SourceClear_Fun(int comPort);
ÎÒÏÖÔÚÐèÒªÔÚVCÖе÷ÓÃ
typedef int (_cdecl *SourceClear_Fun_t)(int comPort);
HINSTANCE hinstDLL=NULL;
hinstDLL=LoadLibrary("DLL7000.dll");
if (hinstDLL!=NULL)
{
SourceClear_Fun_t Proc;
Proc = (SourceClear_Fun_t)GetProcAddress (hinstDLL,"SourceClear_Fun");
int tmp;
tmp=Proc(comPort);
FreeLibrary(hinstDLL);
return tmp;
}
else
{
AfxMessageBox("×°ÔØDLLʧ°Ü");
return -2;
}
Ôõôµ÷Óúó³ÌÐòÖÕÖ¹£¬°ï°ïÎÒ¿´¿´Ê²Ã´ÔÒò{{--
Ïà¹ØÎÊ´ð£º
ÎÒдÁ˸öС³ÌÐò£¬ÉÏÃæÌí¼ÓÁËÒ»¸öshockwaveflash¿Ø¼þ£¬È»ºóÔÚmovieÀïдÈëswfÎļþµÄ·¾¶£¬È»ºóÖ´ÐÐûÓÐÎÊÌâ¡£
µ±ÎÒ°ÑÕâ¸ö³ÌÐò×ªÒÆµ½Áíһ̨µçÄÔÖ´ÐÐʱ£¬ shockwaveflash ¿Ø¼þÏÔʾ¿Õ°×¡£Ò²¾ÍÊÇûÓмÓÔØÄǸöswfÎļþ¡£ ......
procedure RunFunction;
type
TFunc = function(A: Integer): Integer;stdcall;¡¡//ÕâÀï¸ù¾ÝDLLÀïÃæº¯ÊýµÄÉùÃ÷ÐÞ¸Ä
var
......
Çë½Ì¸÷·¸ßÊÖ¡£ÎäÁÖǰ±²¡£ÎÒ½«B.EXE×ö³É×ÊÔ´Îļþ£¬È»ºó¼Óµ½123.dllÖС£ÓÃA.EXEÀ´µ÷ÓÃ123.dllÖеÄB.EXE
Çë¸÷λǰ±²°ïæָ½ÌÏ¡£A.exeÈçºÎÀ´µ÷ÓÃdllÖеÄexe£¿´úÂëÓÖ¸ÃÈçºÎд£¿
ÎÞÈ˻شð£¿
×ö³É×ÊÔ´Î ......
°´²»Í¬µÄÈË£¬²»Í¬µÄȨÏ޷ֱ𿪡£
·½·¨Ì«¶àÁË¡¡ÔÚÓû§µÄÐÅÏ¢Öжà¸ö²Ëµ¥ÁÐ±í¡£»òÕß°´È¨ÏÞ±ê¼ÇÔڲ˵¥µÄtagÀïÃæ£¬È»ºóÓû§È¨ÏÞÓëÕâ¸öȨÏÞ×ö¶Ô±È¡£Ì«¶àÁË¡¡
Ò»°ã¿ØÖÆaction
ÓýÇÉ«¿ØÖÆ
ÎÒÏÖÔÚÕýºÃÔÚ×öÕⷽà ......
´íÎóÌáʾΪ£º
Exception EOleSysError in module TwServer.exe at 0007CABD.
·ÃÎÊOLE×¢²á±í´íÎó
ËÄÜÌṩһϽâ¾ö°ì·¨°¡£¿
Delphi¼¸¿ª·¢µÄѽ?
ÒýÓÃ
Delphi¼¸¿ª·¢µÄѽ?
del ......