Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

delphiÖÐSynchronize

delphiÖÐSynchronizeÕâ¸ö¶«¶«ÓÐʲôÓã¿ÎÒÖªµÀÊÇÏß³Ìͬ²½Ê¹ÓõÄ
ÊÇ·ñÊÇÒ»¸öº¯Êý»ò±äÁ¿£¬µ±Ò»¸öÏß³ÌÔÚʹÓÃʱ£¬Èç¹ûÕâ¸öº¯ÊýʹÓÃÁËSynchronizeÐÞîߵϰ¾Í²»ÔÊÐí±ðÒ»¸öÏß³ÌÀ´µ÷ÓÃÕâ¸öº¯Êý
1Â¥£º±ðµÄÏ̻߳áµÈ´ý¸Ã²Ù×÷Íê³Éºó²ÅÄܼÌÐø
2Â¥£ºÄã˵µÄ»ù±¾ÊÇÕâ¸öÒâ˼¡£ËüµÄÄ¿µÄÊDZÜÃâ¶à¸ö×ÓÏß³Ìͬʱ·ÃÎÊÖ÷Ïß³Ì×ÊÔ´¡£
ʾÀý£º
procedure ServerThread.ListItemEnd; //×ÓÏ̵߳ÄÒ»¸ö·½·¨
begin
if (ListItem <> nil) then
ListItem.SubItems.Strings[3] := '´«ËÍÍê±Ï'; //ListItemÊÇÖ÷Ï̵߳ÄÒ»¸öTreeViewµÄÒ»ÐÐ
end;
procedure ServerThread.ClientExecute; //×ÓÏß³ÌÖ´ÐÐ
begin
Synchronize(ListItemEnd);
//Èç¹ûÖ±½ÓдListItemEnd£¬¿ÉÄÜ·¢Éú³åÍ»¡£
end;
—————————————————————————————————
MaximStr := '³èÈè²»¾ª£¬¿´Í¥Ç°»¨¿ª»¨Â䣬ȥÁôÎÞÒ⣻
»ÙÓþÓÉÈË£¬ÍûÌìÉÏÔÆ¾íÔÆÊæ£¬¾ÛÉ¢Èη硣';
if Not Assigned(I) then
I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '¼ÙÈçÉÏÊö´úÂëÖгöÏÖ“OA”µÈ×ÖÑù£¬É¾³ýËüÃÇ';
I.Desire := '¼Ó²»¼Ó·ÖËæÄã';
—————————————————————————————————
¡¡¡¡¡¡¡¡¡¡
3Â¥£ºµ±´´½¨Á˶à¸öỊ̈߳¬²¢ÇÒ¶à¸öÏ̶߳¼Òª·ÃÎÊͬһ×ÊÔ´£¬£¬¾ÍÓпÉÄܳöÏÖ»ìÂÒ£¬ÓÚÊÇÓÃSynchronizeÀ´¿ØÖÆ£¬Ê¹Í¬Ò»Ê±¼äÖ»ÓÐÒ»¸öÏß³ÌʹÓÃÄDz¿·Ö×ÊÔ´£¬Synchronize²ÎÊýÀïÃæµÄ´úÂë¾ÍÊǶàÏß³ÌÐèÒª¹«¹²µÄ´úÂ룡
4Â¥£º1¡£synchronize·½·¨µÄ²úÉúÓëvclµÄ¾ÖÏÞÐÔÓйØ,ÒòΪvcl¿Ø¼þÔÚͬһʱ¿ÌÖ»Äܱ»µ¥Ï̷߳ÃÎÊ£¬Èç¹û¶à¸öÏß³Ìͬʱ·ÃÎÊvcl,vcl»á³öÏÖÎÊÌâ¡£ËùÒÔÎÊÁ˰²È«µØ·ÃÎÊvcl,TthreadÀàÌṩÁËÒ»¸ö·½·¨½Ðsynchronize£¬Ëû¿ÉÒÔÈÃÏß³ÌÖеķ½·¨ÔÚÖ÷Ïß³ÌÖÐÖ´ÐУ¬ËùÒÔÎÒÃÇ¿ÉÒÔ°Ñ·ÃÎÊvclµÄ´úÂë¶¼·ÅÔÚÕâ¸ö·½·¨ÖУ¬È»ºóÓÉÖ÷Ïß³ÌÖ´ÐУ¬´Ó¶øÈ·±£vclÄܱ»°²È«µØ·ÃÎʵ÷ÓÃ.ËüµÄÀàÐÍÊÇTThreadMethod=procedure of object;procedure ²ÎÊý:Sychronize(Method:TThreadMethod);
2¡£µ±´´½¨Ò»¸öÏß³Ìʱ£¬vcl»áÔ


Ïà¹ØÎĵµ£º

Delphi²Ù×÷INIÎļþµÄÒ»°ã²½Öè

Delphi²Ù×÷INIÎļþ²½ÖèÈçÏ£º
-------------------------------------
1£©ÔÚUsesÖÐÌí¼ÓiniFileµ¥Ôª£»
2£©ÉùÃ÷TiniFile¶ÔÏó£»
3£©´´½¨TiniFile¶ÔÏó£»
----------------try------------------
4£©INIÎļþ¶Áд²Ù×÷£»
--------------finally----------------
5£©ÊÍ·ÅTiniFile¶ÔÏó£»
---------------end--------------- ......

Delphi IDhttp »ñÈ¡Cookie

»ñÈ¡post£¬»òÕßget·µ»ØµÄcookie£¬³ýÁ˹ýÂË·µ»ØµÄ×Ö·û´®Ö®Í⣬×î¼òµ¥µÄ·½·¨ÊÇʹÓÃidhttpµÄCookieManagerÊôÐÔ
±ÈÈç»ñµÃIDhttp·µ»ØµÄÈ«²¿Cookie
if idhttp1.CookieManager.CookieCollection.Count > 0 then
for i := 0 to idhttp1.CookieManager.CookieCollection.Count - 1 do
temp := temp + idhttp1.Cooki ......

DelphiÖж¯Ì¬Á´½Ó¿â(DLL)µÄ½¨Á¢ºÍʹÓÃ

¶¯Ì¬Á´½Ó¿âÊÇÒ»¸öÄܹ»±»Ó¦ÓóÌÐòºÍÆäËüµÄDLLµ÷ÓõĹý³ÌºÍº¯ÊýµÄ¼¯ºÏÌå,ËüÀïÃæ°üº¬µÄÊǹ«¹²´úÂë»ò×ÊÔ´¡£ÓÉÓÚDLL´úÂëʹÓÃÁËÄÚ´æ¹²Ïí¼¼Êõ,ÔÚijЩµØ·½windowsÒ²¸øÁËDLLһЩ¸ü¸ßµÄȨÏÞ,Òò¶øDLLÖпÉÒÔʵÏÖһЩһ°ã³ÌÐòËù²»ÄÜʵÏֵŦÄÜ,ÈçʵÏÖwindowsµÄHOOK¡¢ISAPIµÈ¡£Í¬Ê±,DLL»¹Îª²»Í¬ÓïÑÔ¼ä´úÂë¹²ÏíÌṩÁËÒ»Ìõ·½±ãµÄ;¾¶¡£Òò¶øD ......

×Ö·û´®¡¢PCharÓë×Ö·ûÊý×éÖ®¼äµÄת»»(delphi)

ÉèÓÐÒÔÏÂÈý¸ö±äÁ¿£º
var
  s:string;
  p:pchar;
  a:array[1..20] of char;
ÄÇôÈýÕßÖ®¼äµÄת»»ÈçÏ£º
1¡¢×Ö·û´®µ½PChar
    p:=PChar(s);
2¡¢PCharµ½×Ö·û´®
    s:=p;
3¡¢PCharµ½×Ö·ûÊý×é
    StrCopy(@a,p);
4¡¢×Ö·ûÊý×éµ½PChar
   ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ