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µ ......
xml := CreateOleObject('Microsoft.XMLHTTP');
xml.Open('GET','http://www.google.com', False);
xml.Send;
xml.responseText;
ʹÓÃxml.responseText¿ÉÒÔ»ñÈ¡ÍøÒ³Ô´Âë,µ«ÊÇÔÙ´Î ......
ƽʱѧϰJavaΪÖ÷ ÏÖÔÚ¹«Ë¾ÒªÇóѧϰDelphi ÒòΪ´ÓÀ´Ã»Ñ§¹ý ÌØ´ËÒ»ÎÊ
Ç¿´óÔÚWIN32×ÀÃæ¿ª·¢£¬Ò²¿ÉÒÔ½áºÏJAVA×ö½çÃæ(RIA¿ª·¢)
Èç¹ûÓÃDelphi×ö½çÃæ£º
1.ȱµãÊÇ»¹Òª·¢²¼
2.ÓŵãÔòÊDz»ÐèҪѧJS\AJAX¿ò¼Ü,Ò²²»Óõ£ÐÄ ......
DelphiÖÐÓÃspcomm·¢ËͺͽÓÊÕÖÐÎÄ¡¢Ó¢ÎĶÌÐŵijÌÐò´úÂë £¬£¬ÄÄλ´óϺÓаï°ïæ
СµÜ²»Ê¤¸Ð¼¤.........
×îºÃÊÇÓÃATÖ¸ÁÀ´ÊµÏÖ´®¿ÚͨÐŵģ¡£¡£¡£¡
ÊDz»ÊÇÓÃsim508Ä£¿é°¡ Ë ......