Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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¶ÔÄÚ´æµÄ²Ù×÷ʲôµÄ¿ÉÄÜÓйأ¬ÎÒÊÇÕâÃ


Ïà¹ØÎÊ´ð£º

Delphi´úÂë»»³ÉVB´úÂë ¼±¼±

type SFPRDA=packed record
¡¡¡¡¡¡¡¡¡¡¡¡czmm:Word;¡¡¡¡¡¡¡¡¡¡¡¡//²Ù×÷ÃÜÂë¡£
¡¡¡¡¡¡¡¡¡¡¡¡sqcz:array[1..8] of packed record dm:Byte; mm:Word end;¡¡
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡//8¸öÊÚȨ²Ù×÷Ô ......

delphiÖÐACCESSµÄ×Ô¶¨Ò庯ÊýÔõôÓÃÄØ...

ÎÒÔÚÄ£¿éÀï×Ô¶¨ÒåÁËÒ»¸öº¯Êý:stradd()

¿ÉÊÇÔÚadoquery1.sql.add('select stradd(author) from book');
ʱÌáʾstradd䶨Òå...

Õâ¸öÎÊÌâÓÐʲô°ì·¨¿ÉÒÔ½â¾öµÄÂð? ·Ç³£¸Ð¼¤!


......

delphiÈçºÎÏòAccessÊý¾Ý±íÖÐ×Ô¶¨Òå×Ö¶Î

delphiÈçºÎÏòAccessÊý¾Ý±íÖÐ×Ô¶¨Òå×Ö¶Î?È»ºóÏÔʾµ½DBGridÖÐ
ÔõôûÈËÀíÎÒѽ

·Ö·Ö߯ÉÙßÖ£¬Ò»°ãÈ˶¼ÀÁµÃ½øÀ´¡­¡­*^_^*

SQL
creat table TableName(ID Counter Primary Key,FieldName varchar(20))

ADOQue ......

¼±£¡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ºÅ