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

VCÖе÷ÓÃDelphiµÄDLLÖеĻص÷º¯ÊýÀý×Ó

//Delphi²¿·Ö  
 //»Øµ÷º¯Êý¶¨Òå
type TOnMyCallBack = procedure(data:pchar; id:Integer);stdcall;  
 //DLLÖеĵ¼³öº¯ÊýÉùÃ÷
procedure StartCall(param:   TOnMyCallBack(data:pchar; id:Integer);stdcall;  
begin
  ...  
  ...  
end;  
 
-----------------------------------------------------------------------------------------------------------------------------
//vcµ÷Óò¿·Ö
typedef void (CALLBACK *MY_CallBack)(void *, char *data, int id);
void CALLBACK cxxGetDllData(void *data, int id)
{
     CString ss;
      ss.Format("%s:%d", data, id);
::MessageBox(NULL, "ÊÕµ½Êý¾Ý:", ss, MB_OK | MB_ICONWARNING);
}
 
void CTttDlg::OnOK()
{
//¶¯Ì¬¼ÓÔØDLLµ½µ±Ç°EXEµÄ½ø³Ì¿Õ¼ä
     HINSTANCE hDll = LoadLibrary("d:\\temp\\test.dll");
if(!hDll)
{
:MessageBox(NULL, "¼ÓÔØ¶¯Ì¬Á´½Ó¿âʧ°Ü£¡", "Notice", MB_OK | MB_ICONWARNING);
        return ;
    }
    MY_CallBack hStartCall = (MY_CallBack) ::GetProcAddress(hDll, "StartCall");
    if(!hStartCall)
    {
        ::MessageBox(NULL,"»ñÈ¡StartCallº¯ÊýµØÖ·´íÎó£¡","Notice",MB_ICONWARNING);
        return ;
    }
       hStartCall(cxxGetDllData,"123456",100);  
}  


Ïà¹ØÎĵµ£º

Delphi¶¨Ê±Showmessageʼþ

ÔÚDelphiÖУ¬µ÷ÓÃShowmessageºó£¬ÈçºÎʹµ¯³öµÄ¶Ô»°¿òÔÚÒ»ÃëÖÓºó×Ô¶¯¹Ø±Õ£¬¶ø²»ÓÃÊÖ¶¯È¥µãÈ·¶¨
1:ÓÃtimer¿Ø¼þµÄº¯Êý
procedure TForm1.Timer1Timer(Sender: TObject);
var
AHandle: THandle;
begin
AHandle := FindWindow('TMessageForm',
PChar(Application.Title));
if AHandle > 0 then
SendMessage( ......

DelphiÖÐADOÒì²½Ö´Ðз½Ê½

     µ±A D O¿ªÊ¼´¦ÀíÊý¾Ýºó£¬Ó¦ÓóÌÐò±ØÐëµÈµ½A D O´¦ÀíÍê±ÏÖ®ºó²Å¿ÉÒÔ¼ÌÐøÖ´ÐС£µ«
ÊdzýÁËͬ²½Ö´Ðз½Ê½Ö®Í⣬ A D OÒ²ÌṩÁËÒì²½Ö´Ðеķ½Ê½£¬ÔÊÐíµ±A D O´¦Àíʱ£¬
Ó¦ÓóÌÐòÈÔÈ»Äܹ»ÏȼÌÐøÖ´ÐС£¶øµ±A D O´¦ÀíÊý¾ÝÍê±ÏÖ®ºó£¬ A D O»áÒÔʼþµÄ·½
ʽ֪ͨӦÓóÌÐò£¬´ËʱӦÓóÌÐò¿ÉÒÔÔÙ¸ù¾ÝA D OÖ´ÐÐµÄ ......

DelphiÀàÐÍת»»


Chr ½«Ò»¸öÓÐÐòÊý¾Ýת»»ÎªÒ»¸öANSI×Ö·û  
Ord ½«Ò»¸öÓÐÐòÀàÐÍֵת»»ÎªËüµÄÐòºÅ  
Round ×ª»»Ò»¸öʵÐÍֵΪËÄÉáÎåÈëºóµÄÕûÐÍÖµ  
Trunc ×ª»»Ò»¸öʵÐÍֵΪСÊý½Ø¶ÏºóµÄÕûÐÍÖµ  
Int ·µ»Ø¸¡µãÊýµÄÕûÊý²¿·Ö  
IntToStr ½«Êýֵת»»Îª×Ö· ......

Delphi 7 µÄÒ»¸öÆæ¹ÖµÄBug

½üÀ´·¢ÏÖÒ»¸öDelphiĪÃûÆäÃîµÄbug£¬µ±Ê¹ÓÃSetOptionalParamʱ£¬²»ÄÜʹÓÃÒ»Á¬´®Êý×ÖµÄ×Ö·û´®£¬Èç'101'£¬×¢Ò⣬ÊÇ´øÒýºÅµÄ¡£ÔÚSaveToFileʱ£¬¾Í»á³öÏÖ'Invalid field type'µÄÒì³££¬ÕæÊǰÙ˼²»µÃÆä½â£¡Á¬'001'ÕâÖÖ´®Ò²²»ÐУ¬È¥µôÒýºÅ£¬Ö±½Ó°´Êý×Ö¸³Öµ£¬ÔòÕý³£¡£
procedure TForm1.Button1Click(Sender: TObject);
var
  ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ