DELPHI DLLʵ²Î´«´°Ìå
//DLL ·ÅÔÚEXEÖÐûÎÊÌâ
function SkinForm(var skfrm:TForm):Integer;stdcall;
var
skf:TbsBusinessSkinForm;
nskfrm:TForm;
begin
frmUUMain:=skfrm;
skf:=TbsBusinessSkinForm.Create(skfrm); //ÕâÀï³öÏÖVA´íÎó£¬
UpdateSkin(skfrm);
//SkinForm(skfrm);
Result:=0;
end;
ÇëÎÊÔõô½â¾ö°¡£¿
¼ì²éÒ»ÏÂskfrmÊÇ·ñΪ¿Õ¡£
²»»áΪ¿ÕµÄ¡£¿ÉÒÔͨ¹ýskfrm.Caption:='Changed'; ÓÐЧ
ÓвŠshxinzhou
skf:=TbsBusinessSkinForm.Create(TForm(skfrm)); //ÕâÑùÊÔÊÔ£¡
skf:=TbsBusinessSkinForm.Create(TForm(Integer(skfrm))); //ÕâÑù¡£¡£¡£¡£¡£¡£¡£
ÎÒÊÔÊÔ¿´°¡¡£Ð»Ð»
Invalid Class Type,
TbsBusinessSkinForm.Create(nil)ÊÔÊÔ
Ò»¶¨Òª´«ÈëTFORMʵÌåµÄ¡£
Ïà¹ØÎÊ´ð£º
ÎÒ±¾À´ÔÚѧУÊÇŪµÄJ2EE
×òÌìÈ¥Á˳¤É³Ò»¼Ò¹«Ë¾Ó¦Æ¸ ˵ÊÇÓÐÒ»¸öÏîÄ¿ delphiµÄ
ʵϰÆÚÒ»¸öÔ ËÄÌì°ëµÄdelphiÅàѵ ºóÃæ25Ìì¸øÄãÒ»¸öÉè¼ÆÎĵµ×Ô¼º×öÒ»¸öÏîÄ¿
×ߺ󲻾ôòµç»°¹ýÀ´½ÐÎÒÐÇÆÚһȥ±¨µ½
¿´µ½delphiµ ......
select * from shuju.DB where ¿ªÅ̼Û-ÊÕÅ̼Û<=0.02
¿ªÅÌ¼Û ÓëÊÕÅÌ¼Û ÊÇÊý¾Ý¿âÀïµÄ×Ö¶Î
select * from aTableName where ((¿ªÅ̼Û-ÊÕÅ̼Û) <=0.02 )
¿ªÅ̼۱ÈÊÕÅ̼۵ÍÁ½·ÖÒÔϵÄÇé¿ö
Mark!!!!!!
se ......
ÎÒÓÐÒ»¸öedit£¬Ò»¸öbutton£¬½«editÊäÈëµÄÄÚÈÝÔÚsqlÖнøÐвéÕÒ£¬button°´ÏºóÔÚºóÃæÏÔʾ³öÀ´£¬µ«ÊÇÎÒÓÐÒ»¸öÎÊÌ⣬Èç¹ûÔÚsql²éѯ²»µ½¾ÍºÜÂé·³£¬Ïñ±¨´íÒ»ÑùµÄÌøÒ»¸ö¶Ô»°¿ò³öÀ´£¬ÎÒÏëÈç¹ûûÓÐËÑË÷µ½£¬ÄÇÌøÒ»¸ö¶Ô»°¿ò³öÀ´ ......
µ÷ÓÃdelphiдµÄÒ»¸öcom×é¼þ£¬·½·¨ÊÇ
procedure test(out Param1: Integer); safecall;
×¢²ácomÖ®ºóÔÚc#ÖÐÒýÓö¼Ã»ÓÐÎÊÌâ
............´´½¨²¿·Ö¾ÍÊ¡ÂÔ²»Ð´ÁË
............
int v_int;
test(out v_int); µ÷ÓÃte ......
ÎÊ´ó¼Ò¸öÎÊÌ⣺
ÏÖÔÚÓÐÒ»¸öÏֳɵijÌÐò£¬ÊÇvisual foxpro×öµÄ£¬Êý¾Ý¿âÊÇdbfÎļþ£¬ÎÒûÓÐÓùýfoxpro£¬¿ªÊ¼¶¼Ã»ÕÒµ½Êý¾Ý¿â£¬ÖÕÓÚ¿´Ã÷°×ÔÀ´dbf¾ÍÊÇÊý¾Ý¿â£¬£¨µ«Õâ¸ö³ÌÐòºÃ¶à¸ödbf°¡£¡»¹Ã»°²×°foxpro£¬Ã»´ò¿ªÕâЩÊý¾Ý¿â ......