function ReadTime(intDevno: Integer; var strGet: Pchar): Integer; stdcall; external 'ast.dll'; //¶ÁÈ¡ÈÕÆÚʱ
bcbµ÷ÓÃdelphi µÄdllÕâ¾äÔÚbcbÖÐÈçºÎת»¯¡£
Ó¦¸ÃÊÇC/C++ code:
int __stdcall ReadTime(int intDevno, char *strGet);
C/C++ code:
void __fastcall TForm1::FormCreate(TObject *Sender)
{
......
ÒªÇóºÜ¼òµ¥£¬¶®DELPHI+MSSQL¾Í¿ÉÒÔ¡£¡£
û¾ÑéÒªÇ󡣡£¹¤×Ê2K~2.5K£¬²»°ü³Ôס£¬
ÔÚÍâµÄÈËÉ÷ÖØ¿¼ÂÇ£¬¿ÉÂòÉç±££¬
Èç¹ûÏëÕÒ̤½Å°åµÄÇëÒ»±ßÈ¥£¬
¿ÉÒÔ³ÐŵÈç¹ûÄܸÉÊ£¬¹«Ë¾Òµ¼¨²»´íµÄʱºò¹¤×Ê·½ÃæÒ»¶¨»áÓÐÌáÉý£¬
ÎÒ²»ÊÇÀϰ壬ÓÐÒâÁªÏµQQ£º824093156
2K~2.5K£¬²»°ü³Ôס£¬Õâ¸ö´ýÓö´úÁ˵ã
ÔÚ¹ãÖÝ´ýÓöȷʵµÍÁ˵㣬Ʈ¹ý£¬Ä÷ ......
delphi´úÂë±ä³ÉbcbºóÌ«ÉÁ,¶¼ÊÇÔÚ FormPaint ·½·¨ÖÐ
delphi´úÂë:::
var
i: integer;
rgn: HRGN;
r: TRect;
begin
with Canvas do begin
//ÀûÓÃimgTitleBarBG»æÖƱêÌâ±³¾°
for i:=0 to ClientWidth div imgTitleBarBG.Width do
  ......
//adoquery1.SQL.add('insert into ѧÉúÊé·ÑÀúÊ·¿â(°à¼¶Ãû,Êé·Ñ,ÁìÊéÊé·Ñ,½áÓàÊé·Ñ,¾°ìÈË,²Ù×÷Ô±,×îºóÐÞ¸Äʱ¼ä,˵Ã÷,°à¼¶ÈËÊý) values (:classname,:s0,0,:s1,:s2,:s3,date(),:s4,:s5)');
adoquery1.SQL.add('update ѧÉúÊé·ÑÀúÊ·¿â set °à¼¶Ãû=:classname,Êé·Ñ=:s0,½áÓàÊé·Ñ=:s1,¾°ìÈË=:s2,²Ù×÷Ô±=:s3,×îºó ......
±ÈÈç 4£¬6£¬8£¬12£¬16£¬17£¬20£¬28£¬29£¬30£¬31Õ⼸¸öÊýÖÐÈ¡8¸öÊý
ÔõôµÃ³ö Õâ×éÊý¿ÉÒÔ×é³ÉÄÄЩ×éºÏ£¿
Çî¾Ù·¨
ÒýÓÃ
±ÈÈç 4£¬6£¬8£¬12£¬16£¬17£¬20£¬28£¬29£¬30£¬31Õ⼸¸öÊýÖÐÈ¡8¸öÊý
ÔõôµÃ³ö Õâ×éÊý¿ÉÒÔ×é³ÉÄÄЩ×éºÏ£¿
ÎÊÌâ ÊÇÎÒ²»»áд°¡ Äãд¹ýÂð ¿ÉÒÔ·¢¶Î´úÂë ÎҲο¼²Î¿¼Âð
¼òµ¥µÄÓÃforÑ»·£¬Ò»¸ö¸öÈ¥ÅÅÁÐ
......
СµÜÊÇÓÃDelphi7×öµÄÒ»¸öСÈí¼þ£¬ÏëÊÔÊÔÈçºÎÖÆ×÷³ÉÔÚûÓÐDelphi»·¾³Ï°²×°ÎÒ×öµÄСÈí¼þ£¬×îºÃÊÇÖÆ×÷³É¿ÉÖ´ÐеÄexeÎļþ¡£Ð»Ð»¸÷λ¸ßÊÖÁË°¡
Èç¹ûʹÓÃadoµÄ»°£¬Ò»°ã¿ÉÒÔÖ±½Ó·¢²¼£¬Èç¹ûʹÓÃÆäËûdll»òocxµÄ»°£¬ÐèÒª°²×°Ê±×¢²áocx×é¼þ£¬Õâ¸ö¸úÄãÓõ½µÄ»·¾³ÓйØ
delphi±àÒëºó²»¾ÍÊÇexeÎļþÂð?
ÂïÒâ˼£¿£¿
Èç¹ûûÓÐÓÃËü ......
×ܼǼÊý:1117; ×ÜÒ³Êý:187; ÿҳ6 Ìõ;
Ê×Ò³ ÉÏÒ»Ò³ 1
[2] [3] [4] [5] [6] [7] [8] [9] [10] ÏÂÒ»Ò³ βҳ