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

DELPHI ÎļþѹËõ¼ÓÃÜ

1¡¢  ÏµÍ³¹¦ÄÜ
1£©¡¢Êý¾ÝѹËõ
ʹÓÃDELPHIÌṩµÄÁ½¸öÁ÷ÀࣨTCompressionStreamºÍTDecompressionStream£©À´Íê³ÉÊý¾ÝµÄѹËõºÍ½âѹËõ¡£
2£©¡¢Êý¾Ý¼ÓÃÜѹËõ
ͨ¹ýDelphi±à³ÌÖГÁ÷”µÄÓ¦ÓÃʵÏÖÊý¾Ý¼ÓÃÜ£¬Ö÷Òª²ÉÓÃTstreamµÄÁ½¸öÅÉÉúÀàTfilestream¡¢Tmemorystream À´Íê³ÉµÄ£»ÆäÖÐÊý¾ÝѹËõ²¿·Ö²ÉÓÃ1£©µÄʵÏÖ·½·¨
3£©¡¢Ë«»÷ѹËõÎļþ×Ô¶¯¹ØÁª½âѹ
ͨ¹ý¸ü¸Ä×¢²á±íµÄʵÏÖÀ©Õ¹ÃûÓë³ÌÐòÎļþµÄ¹ØÁª£¬Ö÷Òª²ÉÓÃTregistry£»²¢ÇÒ£¬APIº¯ÊýSHChangeNotifyʵÏÖ×¢²áЧ¹ûµÄÁ¢¼´³ÊÏÖ¡£
4£©¡¢¿ÉÉú³É×Ô½âѹÎļþ
×Ô½âѹµÄÎļþʵÏÖÊý¾ÝѹËõ1£©ÓëÊý¾Ý¼ÓÃÜѹËõ2£©µÄ×Ô¶¯½âѹ£»²¢ÇÒ£¬Í¨¹ý×ÊÔ´ÎļþµÄʹÓÃʵÏÖ¿ÉÖ´ÐеÄ×Ô½âѹÎļþÓëÊý¾ÝÎļþµÄºÏ²¢£¬À´Íê³ÉÊý¾ÝµÄ×Ô½âѹʵÏÖ¡£
2¡¢  ÏµÍ³ÊµÏÖ
2.1¡¢¹¤×÷Ô­Àí
2.2¡¢¹Ø¼ü¼¼ÊõµÄ½²Êö
£¨Ò»£©ZLIB
1£©¡¢»ùÀà TCustomZlibStream£ºÊÇÀàTCompressionStreamºÍTDecompressionStream ÀàµÄ»ùÀ࣬ËüÖ÷ÒªÓÐÒ»¸öÊôÐÔ£º OnProgress£¬ÔÚÀà½øÐÐѹËõ»ò½âѹËõµÄ¹ý³ÌÖлᷢÉúÕâ¸öµÄʼþ ¡£
¸ñʽ£ºProcedure OnProgress (Sender: TObject); dynamic;
2£©¡¢Ñ¹ËõÀàTCompressionStream£º³ýÁ˼̳ÐÁË»ùÀàµÄOnProgress ÊôÐÔÍ⣬ÓÖÔö¼ÓÁËÒ»¸öÊôÐÔ£ºCompressionRate£¬ËüµÄ¶¨ÒåÈçÏ£º
Property CompressionRate: Single read GetCompressionRate;
ͨ¹ýÕâ¸öÊôÐÔ£¬¿ÉÒԵõ½Ñ¹Ëõ±È¡£
ËüµÄ¼¸¸öÖØÒªµÄ·½·¨¶¨ÒåÈçÏ£º
Constructor TCompressionStream.Create (CompressionLevel: TCompressionLevel; Dest: TStream);
ÆäÖУºTcompressionLevel£¨Ñ¹ËõÀàÐÍ£©£¬ËüÓÉÈçϼ¸¸ö¶¨Ò壺
¡¡¡¡¡¡£±£©¡¢ clNone £º²»½øÐÐÊý¾ÝѹËõ£»
¡¡¡¡¡¡£²£©¡¢ clFastest£º½øÐпìËÙѹËõ£¬ÎþÉüѹËõЧÂÊ£»
¡¡¡¡¡¡£³£©¡¢ clDefault£º½øÐÐÕý³£Ñ¹Ëõ£»
¡¡¡¡¡¡£´£©¡¢ clMax£º ½øÐÐ×î´ó»¯Ñ¹Ëõ£¬ÎþÉüËÙ¶È£»
Dest£ºÄ¿µÄÁ÷£¬ÓÃÓÚ´æ·ÅѹËõ¹ýµÄÊý¾Ý¡£
Function TCompressionStream.Write (const Buffer; Count: Longint): Longint;
ÆäÖУºBuffer£ºÐèҪѹËõµÄÊý¾Ý£»
¡¡¡¡¡¡Count: ÐèҪѹËõµÄÊý¾ÝµÄ×Ö½ÚÊý£»
º¯Êý·µ»ØÐ´ÈëÁ÷µÄ×Ö½ÚÊý¡£
×¢Ò⣺ѹËõÀàTCompressionStreamµÄÊý¾ÝÖ»ÄÜÊÇдÈëµÄ£¬Èç¹ûÊÔͼ´ÓÆäÄÚ²¿¶ÁÈ¡Êý¾Ý£¬½«·¢ÉúÒ»¸ö"Error "Òì³£¡£ÐèҪѹËõµÄÊý¾Ýͨ¹ý·½·¨ WriteдÈëÁ÷ÖУ¬ÔÚдÈëµÄ¹ý³ÌÖоͱ»Ñ¹Ëõ£¬²¢±£´æÔÚÓɹ¹Ô캯ÊýÌṩµÄÄÚ´æÁ÷£¨TmemoryStream£©ÖÐ,ͬʱ´¥·¢ OnProcess ʼþ¡£
3£©¡¢ ½âѹËõÀà TDecompressionStream :ºÍѹËõ


Ïà¹ØÎĵµ£º

delphi ÈçºÎ°²×°EhLib,DbGridEh¿Ø¼þ

1¡¢µ±È»ÊÇÏÈÒªÐ¶ÔØÒÔǰ°²×°µÄEhlib×é¼þÁË£¬Ôڲ˵¥µÄ“Component”µÄ“install Packeges”ÀѡÔñehlib XX£¬Ñ¡Ôñ“Remove”¡£
2¡¢½ÓÏÂÀ´ÔÚ¿âÀï¼ÓÈëÕâ¸ö¿Ø¼þµÄÒýÓ÷¾¶£¬ÏÈн¨Ò»¸öÎļþ¼Ð£¬±ÈÈç“D:\Component\Ehlib”£¨×îºÃ°ÑÒª°²×°µÄ¿Ø¼þ¶¼¿½±´µ½Õâ¸öComponentĿ¼Ï£©£¬È»ºó°Ñ ......

delphiÖÐapplication.processmessagesµÄ×÷ÓÃ


delphiÖÐapplication.processmessagesµÄ×÷ÓÃ

procedure TForm1.Button2Click(Sender: TObject);
var
   I, J, X, Y: Word;
begin
   I := 0;
   J := 0;
   while I < 64000 do
   begin
     Randomize;
   & ......

±±¾©ÕÐÆ¸£ºdelphi³ÌÐòÔ±¡¢Èí¼þ½çÃæÉè¼ÆÃÀ¹¤


±±¾©ÌÚ¶ÈÍøÂç¿Æ¼¼ÓÐÏÞ¹«Ë¾
µØÖ·:±±¾©º£µíÇøÑ§Çå·
µç»°:82755789
Òò¹¤×÷ÐèÒª,ÏÖÃæÏò±±¾©ÕÐÆ¸ÒÔÏÂְλ.
DelphiÈí¼þ¹¤³Ìʦ
1¡¢¾«Í¨Delphi¿ª·¢£¬ÊìϤVCL¼Ü¹¹£¬´úÂë·ç¸ñÁ¼ºÃ¡£
2¡¢ÓÐÁ¼ºÃµÄÍŶӺÏ×÷¾«Éñ£¬¸»Óд´Ð¾«Éñ;
3¡¢ÊìÏ¤ÍøÂç±à³Ì£¬¶ÔIndy×é¼þ£¬Socket¿ª·¢ÓÐÒ»¶¨µÄÁ˽â;
4¡¢ÊìÏ¤ÃæÏò¶ÔÏó±à³Ì˼Ïë,ÓÐ×é¼þ»ò¿Ø¼þ±à ......

delphi ¿ØÖÆ·Ö²¼Ê½Êý¾Ý¿âͨÐÅ·½Ê½

Ò»¡¢     ÍøÂç²¼¾Ö
   һ̨ÖÐÐÄSQL·þÎñÆ÷£¨¼ò³Æ£ºÖÐÐÄ·þÎñÆ÷£©£¬¶ą̀·Ö²¼ÔÚ²»Í¬µØÓòµÄSQL·þÎñÆ÷£¨¼ò³Æ£º±¾µØ·þÎñÆ÷£©£¬¸÷¸ö±¾µØ·þÎñÆ÷ºÍÖÐÐÄ·þÎñÆ÷¶¼ÄÜͨ¹ýinternetʵÏÖÍøÂ绥Á¬¡£
¶þ¡¢ËùÓÃÓïÑÔ¼°Êý¾Ý¿â£ºDelphi +Sql
¶þ¡¢     ͨÐÅÒªÇó
   ÿ̨±¾µØ·þÎñÆ ......

DelphiÖÐÁ÷µÄ»ù±¾¸ÅÄî¼°º¯ÊýÉùÃ÷

Ò»¡¢DelphiÖÐÁ÷µÄ»ù±¾¸ÅÄî¼°º¯ÊýÉùÃ÷
ÔÚDelphiÖÐ,ËùÓÐÁ÷¶ÔÏóµÄ»ùÀàΪTStreamÀà,ÆäÖж¨ÒåÁËËùÓÐÁ÷µÄ¹²Í¬ÊôÐԺͷ½·¨¡£ TStreamÀàÖж¨ÒåµÄÊôÐÔ½éÉÜÈçÏÂ: 1¡¢Size:´ËÊôÐÔÒÔ×Ö½Ú·µ»ØÁ÷ÖÐÊý¾Ý´óС¡£ 2¡¢Position:´ËÊôÐÔ¿ØÖÆÁ÷ÖдæÈ¡Ö¸ÕëµÄλÖᣠTstreamÖж¨ÒåµÄÐé·½·¨ÓÐËĸö: 1¡¢Read:´Ë·½·¨ÊµÏÖ½«Êý¾Ý´ÓÁ÷ÖжÁ³ö¡£º¯ÊýÔ­ÐÎΪ: ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ