Delphi·Ö½âÄ£¿éµÄ¼¼Êõ
ÖÚËùÖÜÖª£¬ÏµÍ³ÐèÒª½øÐжàÈ˲¢Ðпª·¢Ê±£¬Ó¦¸Ã°Ñϵͳ·Ö²ð³É¶ÀÁ¢µÄÄ£¿é£¬ÕâÑù²ÅÄܱÜÃ⿪·¢³åÍ»¡£µ«ÈçºÎ½øÐзֲðÄØ£¿ÔÚDelphiϵͳÖУ¬ÓкܶàÖÖ·½·¨£¬ÏÂÃæÀ´½øÐÐÒ»Ò»½éÉÜÓë·ÖÏí¡£
1.°ÑÄ£¿é²ð·Ö³É°ü(dpk)£¬Ö±½ÓÔÚÖ÷³ÌÐòÖÐͨ¹ýLoadPackageº¯Êý°Ñ°ü×°ÔØ½øÀ´¼´¿É¡£²»¹ýÕâÖÖ·½·¨Ò²ÓÐЩ²»±ã£¬ËùÓеÄÀà±ØÐë¼Ì³Ð×ÔTPersistentClass£¬²¢ÇÒRegisterClassÖ®ºó²ÅÄܱ»GetClass´ÓÖ÷³ÌÐò»ñÈ¡£¬ÕâÑù²Ù×÷Ò²ÊDZȽÏÂé·³µÄ¡££¨²»ÍƼöʹÓã©
2.°ÑÄ£¿é²ð·Ö³ÉDLL£¬±àÒëʱ²»´ø°ü±àÒ루ÎÊÌ⣺ÓÉÓÚÀàÔÚ¶ÀÁ¢µÄ¿Õ¼ä£¬Ê¹ÓÃÍⲿ°üʱ£¬ÈÝÒײúÉúÀ಻¼æÈݵÄÎÊÌ⣬ÔÚDLLÖÐÅжÏÀàÊÇ·ñ¼Ì³Ð×ÔÖ÷exeÖеĶÔÏóÊDz»Ðе쬶øÕâÖÖÐèÇóÓÖ¾³£³öÏÖ£¬Òò´Ë²»ÍƼöʹÓÃÕâÖÖ·½Ê½¡££©
3.°ÑÄ£¿é²ð·Ö³ÉDLL£¬±àÒëʱ´ø°ü±àÒ루ÔÚproject->Options->PackagesÖаÑBuild with runtime packagesÑ¡ÉÏ£©£¬È»ºó°ÑÐèÒªµÄ°ü´ø½øÈ¥¼´¿É£¬Ö÷³ÌÐòÒ²ÊÇ´ø°ü±àÒ룬ÕâÑùÖ÷³ÌÐòÓëDLL¾Í»áʹÓù²Í¬µÄÀà·ÖÅä±í¿Õ¼ä£¬¶ÔÏàͬµÄÀà¾Í¿ÉÒÔ½øÐмæÈÝÅжÏÁË£¬ÕâÑù¾Í¿ÉÒÔʹÓÃDLLÖм̳Ð×Ô¹«¹²°üÖеĻùÀàÀ´ÊµÏÖ¹¦ÄÜÁË£¬ÁíÍâÕâÑù»¹¿ÉÒÔ±ÜÃâºÜ¶àÎÊÌ⣬ÈçʹÓõÚÈý·½¿Ø¼þ²úÉúµÄÆæ¹ÖÎÊÌ⣬DLL½¨Á¢µÄ×Ó´°¿ÚÎÞ·¨ÔÚÖ÷´°¿ÚÖГ´æ»î”µÄÎÊÌ⣬µÈµÈ¡£
4.°ÑÄ£¿é²ð·Ö³É´ø¹«¹²°üµÄDLL»òdpk£¬°Ñ»ùÀà²ðµ½¹«¹²°üÖУ¬¹«¹²°üÖаüº¬È«¾Ö±äÁ¿£¬ÔÚDLL»òdpkÖпÉÒÔʹÓÃinitilization¶ÔÈ«¾Ö±äÁ¿½øÐгõʼ»¯£¬²»ÐèÒª´«µÝÈκβÎÊý£¬ÕâÑù¾Í¿ÉÒÔʵÏְѽӿÚÀàºÍÈ«¾Ö±äÁ¿·ÅÔÚ¹«¹²°üÖУ¬¾ßÌåʵÏÖÀàÖ±½ÓÒýÓù«¹²±äÁ¿µÄ·½°¸£¬²»¹ýʹÓÃÕâÖÖ·½Ê½Ê±£¬½Ó¿ÚµÄµÝÔöʽ¿ª·¢Òª×¢ÒâµÄÊǹÜÀíÎÊÌâ¡£
ÓÐÈËÖ÷ÕÅÔÚ¿ª·¢Ç°¾Í»¨±È½Ï³¤µÄʱ¼ä°Ñ½Ó¿ÚÉè¼ÆºÃ£¬²»¹ýÕâÖÖ“ÀíÏë”Çé¿öÖ»ÓÐÔÚÀíÏë¹ú¶ÈÄڲſÉÄܳöÏÖ£¬²»ÐèÒªÐ޸ĵĽӿÚÉè¼ÆÊDz»¿ÉÄܵġ£²»¹ý×îÖ÷ÒªµÄÊÇÉè¼ÆºÃÒ»¸ö¹µÍ¨Á÷³Ì£¬ÕâÖÖ¹µÍ¨»úÖÆÈçºÎ½¨Á¢ÄØ£¿²»Í¬µÄ¿ª·¢ÍŶÓÓв»Í¬µÄʵÏÖ»úÖÆ£¬ÇëÓÐÐËȤµÄÅóÓÑÒ»ÆðÀ´¿´¿´ÏÂÖܵÄÉè¼Æ¹¦ÄÜÌÖÂÛ¡£
Ïà¹ØÎĵµ£º
DelphiÖÐʵÏÖÎļþ¿½±´µÄÈýÖÖ·½·¨
1£®µ÷ÓÃAPIº¯Êý
procedure CopyFile(fromFileName,ToFileName:string);
var
f1,f2:file;
Begin
AssignFile(f1,fromFileName); file://Ö¸¶¨Ô´ÎļþÃû
AssignFile(f2,ToFileName); file://Ö¸¶¨Ä¿±êÎļþÃû
Reset(f1);
Try
Rewrite(f2);
Try
If Lzcopy(TfileRec(f1).handle,TfileRe ......
Client:TSocketConnection ºÍServer: Scktsrvr¹ØÏµ----ѹËõÊý¾Ý´«Êä
Ò»Ö±ÓÃSocketConnectionºÍ·þÎñ¶ËµÄ´«ÊäÊý¾ÝÔÚÈý²ãÊý¾Ý¿âÖУ¬´ÓÀ´Ã»ÓÐ×¢Òâµ½ËüÃÇÖ®¼äµÄÊý¾Ý´«Ê䣬ֻÊÇÏë×Å£¬¹ÜËüÁË£¬ÍøÂçµÄÊ£¬Ç°¶Îʱ¼äÔÚDelphiÖеÄDemosÖз¢ÏÖDemos\Midas\Intrcpt.dprÀý×Ó£¬ºÇºÇ£¬ÔÙ¿´Á˰ëÌìµÄVCL·¢ÏÖ¿ÉÒÔ½«Client¶Ë·¢Ë͵ĸøServerµÄÊ ......
// ÅжÏÊÇ·ñÊÇÊýÖµÐÍ By yangxiao 2007.7.21
function isNumeric(strText: WideString): Boolean;
var
s: string;
i, l, p: Integer;
begin
Result := False;
l := Length(strText);
if l = 0 then Exit;
s := '';
for i:=1 to l do
......
¿ª·¢²½Ö裺
1¡¢´´½¨ActiveX Library¹¤³Ì¡£
2¡¢´´½¨COM Object¡£
3¡¢´´½¨Type Library£¬²¢´´½¨ÏàÓ¦½Ó¿Ú¡£
4¡¢´´½¨½Ó¿Ú¶ÔÓ¦µÄº¯ÊýºÍʵÏÖ¡£
¾ßÌåÈçÏ£º
1¡¢´´½¨COM Object¡£
new|other|activeX|com object
ÔÚClass Name(±¾ÀýÀïÀàÃûÀïÌîObject£¬¿É°´×Ô¼ºÐèÒªÌîд) ÌîдÀàÃû.(Instancing:ʵÀý´´½¨·½Ê½,Threading Model:Ï ......
delphiÖÐSynchronizeÕâ¸ö¶«¶«ÓÐʲôÓã¿ÎÒÖªµÀÊÇÏß³Ìͬ²½Ê¹ÓõÄ
ÊÇ·ñÊÇÒ»¸öº¯Êý»ò±äÁ¿£¬µ±Ò»¸öÏß³ÌÔÚʹÓÃʱ£¬Èç¹ûÕâ¸öº¯ÊýʹÓÃÁËSynchronizeÐÞîߵϰ¾Í²»ÔÊÐí±ðÒ»¸öÏß³ÌÀ´µ÷ÓÃÕâ¸öº¯Êý
1Â¥£º±ðµÄÏ̻߳áµÈ´ý¸Ã²Ù×÷Íê³Éºó²ÅÄܼÌÐø
2Â¥£ºÄã˵µÄ»ù±¾ÊÇÕâ¸öÒâ˼¡£ËüµÄÄ¿µÄÊDZÜÃâ¶à¸ö×ÓÏß³Ìͬʱ·ÃÎÊÖ÷Ïß³Ì×ÊÔ´¡£
ʾÀý£º
......