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

delphi µ÷ÓÃ vc dll ÎÊÌâ

ÎÒµ÷ÓÃvcµÄdll£¬´«ËͽṹÌå²ÎÊý¡£vc½ÓÊܺó´ÓÄÚ´æÖп½±´³öÎÒ´«Ë͵ÄÖµ¡£×ª»»Ö®ºóÊÇÂÒÂë
À´´íµØ·½ÁË.

È¥DELPHI

ddd

ÖªµÀ´íÁË

ÓÐû¾ßÌå´úÂë°¡

//ÏòÖÕ¶Ë·¢ËÍÃŽû±¨¾¯ÐÅÏ¢
    function alarmSentDoor(var pDoorPara :Alley_ALARM_PARA):boolean;stdcall;external 'warnerdll.dll';
½á¹¹Ì嶨Òå
Door_ALARM_PARA = record
        cAlarmTime : array[0..MAX_ALARM_TIME_LEN] of char; //±¨¾¯Ê±¼ä
    cDoorID    : array[0..MAX_ALLEY_ID_LEN] of char;  //±¨¾¯ÃźÅ
    cCause    : array[0..MAX_ALARM_CAUSE_LEN] of char; //±¨¾¯Ô­Òò
    end;

¿´À´Ö»Äܰﶥ

ÒýÓÃ
//ÏòÖÕ¶Ë·¢ËÍÃŽû±¨¾¯ÐÅÏ¢
    function alarmSentDoor(var pDoorPara :Alley_ALARM_PARA):boolean;stdcall;external 'warnerdll.dll';
½á¹¹Ì嶨Òå
Door_ALARM_PARA = record
        cAlarmTime : array[0..MAX_ALARM_TIME_LEN] of char; //±¨¾¯Ê±¼ä
    cDoorID    : array[0..MAX_ALLEY_ID_LEN] of char;  //±¨¾¯ÃźÅ
    cCause    : array[0..MAX_ALARM_CAUSE_LEN] of char; //±¨¾¯Ô­Òò
    end;

¿´²»³öÄãʹÓõÄÊÇÏÔʾµ÷Óû¹ÊÇÒþʾµ÷Óã¬ÄãÄǸödllÎļþÔÚ±àÒëʱÊÇ·ñÓÐ´í£¬ÎÊÌâ¿ÉÄܳöÔÚÄǸödllÎļþÖС£

ûÓдíÎó£¬Ó¦¸ÃÊDzÎÊý´«µÝÎÊÌâ¡£¸údelphiÓëvc¶ÔÄÚ´æµÄ²Ù×÷ʲôµÄ¿ÉÄÜÓйأ¬ÎÒÊÇÕâÃ


Ïà¹ØÎÊ´ð£º

ÐèÒª°Ñvb´úÂëת³Édelphi»òVC++µÄ´úÂë¡£

ÔõôʵÏÖdosÏÂrunas×Ô¶¯ÊäÈëÃÜÂë
http://bbs.pfan.cn/post-278076.html
´úÂëÈçÏÂ:
VB code:

Option Explicit
Private Const LOGON_WITH_PROFILE = &H1&
Private Const CREATE_DEFAULT_ERRO ......

Çë½ÌdelphiÖÐʹÓÃaccessÊý¾Ý¿â½øÐÐÊý¾Ýµ¼ÈëµÄÎÊÌâ

Ïò¸÷λ¸ßÊÖÇóÖú¡£
ÎÒÓÃdelphi2009±àдÁËÒ»¸ö¹ÜÀíϵͳ£¬Ê¹ÓõÄÊÇaccessÊý¾Ý¿â¡£ÏÖÔÚÏëͨ¹ý¶àÈËÒ»Æð¼ÈëÊý¾Ýºó£¬½«Êý¾Ýµ¼³ö£¬µ¼³öµÄÊý¾Ý¿â°üº¬¶à¸öÏàͬµÄ±í¡£ÔÙ½«µ¼³öµÄÊý¾ÝÒÀ´Îµ¼È뵽ͬһ¸öÊý¾Ý¿âµÄÏàͬ±íÖУ¬µ¼Èë ......

תÌû£ºDELPHI±àд·þÎñ³ÌÐò×ܽá¶þ£­£­±àд¼¼ÇÉ

Ô­ÎĵØÖ·£ºhttp://hi.baidu.com/sqldebug/blog/item/58a764624a44d74eeaf8f863.html

Ò»¡¢ÈçºÎÏÞÖÆÏµÍ³·þÎñºÍ×ÀÃæ³ÌÐòÖ»ÔËÐÐÒ»¸ö

ÈçºÎÏÞÖÆÏµÍ³·þÎñºÍ×ÀÃæ³ÌÐòÖ»ÔËÐÐÒ»¸ö

ÔÚ¹¤³Ì¼ÓÈëÏÂÁдúÂë¿ÉÒÔ ......

¼±£¡DelphiÖÐÏÔʾc#µÄvs2008дµÄ¿Ø¼þ

ÎÒÏ뽫c#дµÄ¿Ø¼þǶµ½Delphi7µÄFormÖÐÏÔʾ£¬µ«ÊÇʼÖÕÊÇÃ»×ø³É£¬ÎÒͨ¹ýµ¼ÈëtlbÎļþ£¬¿ÉÒÔͨ¹ýc#дµÄ½Ó¿Ú£¬ÊµÏÖÔÚDelphiÖÐÏÔʾһ¸ö´°Ì壬µ«ÊÇÏÔʾµÄÖ»ÊÇÔÚ×ÀÃæÉϸ¡¶¯µÄ´°Ì壬ÎÞ·¨½«ËûµÄ¸¸ÈÝÆ÷Ö¸¶¨ÎªDelphiµÄForm£¬ÎÒÏë ......

delphi Óë C# λÔËËã ÓкôóÇø±ð£¬Çë½Ì¸÷λ£¡

delphi º¯Êý£º

function RB(A: longint): longint;
begin
  Result := (A shr 24) or ((A shr 8) and $FF00) or ((A shl 8) and $FF0000) or (A shl 24);
end;


ÎÒת³ÉC#£º

& ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ