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

Delphi TStream Ïêϸ½éÉÜ

Delphi TStream Ïêϸ½éÉÜ
Stream¶ÔÏó£¬ÓÖ³ÆÁ÷ʽ¶ÔÏó£¬ÊÇTStream¡¢THandleStream¡¢TFileStream¡¢TMemoryStream¡¢TResourceStreamºÍTBlobStreamµÈµÄͳ³Æ¡£ËüÃÇ·Ö±ð´ú±íÁËÔÚ¸÷ÖÖý½éÉÏ´æ´¢Êý¾ÝµÄÄÜÁ¦£¬ËüÃǽ«¸÷ÖÖÊý¾ÝÀàÐÍ(°üÀ¨¶ÔÏóºÍ²¿¼þ) 
ÔÚÄÚ´æ¡¢Íâ´æºÍÊý¾Ý¿â×Ö¶ÎÖеĹÜÀí²Ù×÷³éÏóΪ¶ÔÏó·½·¨£¬²¢ÇÒ³ä·ÖÀûÓÃÁËÃæÏò¶ÔÏó¼¼ÊõµÄÓŵ㣬ӦÓóÌÐò¿ÉÒÔÏ൱ÈÝÒ×µØÔÚ¸÷ÖÖStream¶ÔÏóÖп½±´Êý¾Ý¡£
¡¡¡¡ÏÂÃæ½éÉܸ÷ÖÖ¶ÔÏóµÄÊý¾ÝºÍ·½·¨¼°Ê¹Ó÷½·¨¡£
TStream¶ÔÏó
¡¡¡¡TStream¶ÔÏóÊÇÄÜÔÚ¸÷ÖÖý½éÖд洢¶þ½øÖÆÊý¾ÝµÄ¶ÔÏóµÄ³éÏó¶ÔÏó¡£´ÓTStream ¶ÔÏó¼Ì³ÐµÄ¶ÔÏóÓÃÓÚÔÚÄÚ´æ¡¢Windows×ÊÔ´Îļþ¡¢´ÅÅÌÎļþºÍÊý¾Ý¿â×ֶεÈý½éÖд洢Êý¾Ý¡£
¡¡ StreamÖж¨ÒåÁËÁ½¸öÊôÐÔ£ºSizeºÍPosition¡£ËüÃÇ·Ö±ðÒÔ×Ö½ÚΪµ¥Î»±íʾµÄÁ÷µÄ´óСºÍµ±Ç°Ö¸ÕëλÖá£TStreamÖж¨ÒåµÄ·½·¨ÓÃÓÚÔÚ¸÷ÖÖÁ÷ÖжÁ¡¢Ð´ºÍÏ໥¿½±´¶þ½øÖÆÊý¾Ý¡£ÒòΪËùÓеÄStream¶ÔÏó¶¼ÊÇ´ÓTStreamÖм̳ÐÀ´µÄ£¬ËùÒÔÔÚTStreamÖж¨ÒåµÄÓòºÍ·½·¨¶¼Äܱ»Stream¶ÔÏóµ÷ÓúͷÃ
ÎÊ¡£´ËÍ⣬ÓÖÓÉÓÚÃæÏò¶ÔÏó¼¼ÊõµÄ¶¯Ì¬Áª±à¹¦ÄÜ£¬TStreamΪ¸÷ÖÖÁ÷µÄÓ¦ÓÃÌṩÁËͳһµÄ½Ó¿Ú£¬¼ò»¯ÁËÁ÷µÄʹÓ㻲»Í¬Stream¶ÔÏóÊdzéÏóÁ˶Բ»Í¬´æ´¢Ã½½éµÄÊý¾ÝÉϵIJÙ×÷£¬Òò´Ë£¬TStreamµÄÐè·½·¨ÎªÔÚ²»Í¬Ã½½é¼äµÄÊý¾Ý¿½±´ÌṩÁË×î¼ò½ÝµÄÊֶΡ£
TStreamµÄÊôÐԺͷ½·¨
¡¡¡¡1. PositionÊôÐÔ¡¡
     ÉùÃ÷£ºproperty Position: Longint; 
¡¡¡¡PositionÊôÐÔÖ¸Ã÷Á÷ÖжÁдµÄµ±Ç°Æ«ÒÆÁ¿¡£
¡¡¡¡2. SizeÊôÐÔ
¡¡¡¡ÉùÃ÷£ºproperty Size: Longint; 
     SizeÊôÐÔÖ¸Ã÷ÁËÒÔ×Ö½ÚΪµ¥Î»µÄÁ÷µÄµÄ´óС£¬ËüÊÇÖ»¶ÁµÄ¡£
¡¡¡¡3. Copyfrom·½·¨
¡¡¡¡ÉùÃ÷£ºfunction Copyfrom(Source: TStream; Count: Longint): Longint; 
     Copyfrom´ÓSourceËùÖ¸¶¨µÄÁ÷Öп½±´Count¸ö×Ö½Úµ½µ±Ç°Á÷ÖУ¬ ²¢½«Ö¸Õë´Óµ±Ç°Î»ÖÃÒÆ¶¯Count¸ö×Ö½ÚÊý£¬º¯Êý·µ»ØÖµÊÇʵ¼Ê¿½±´µÄ×Ö½ÚÊý¡£
¡¡¡¡4. Read·½·¨
¡¡¡¡ÉùÃ÷£ºfunction Read(var Buffer; Count: Longint): Longint; virtual; abstract; 
     Read·½·¨´Óµ±Ç°Á÷Öеĵ±Ç°Î»ÖÃÆð½«Count¸ö×Ö½ÚµÄÄÚÈݸ´ÖƵ½BufferÖУ¬²¢°Ñµ±Ç°Ö¸ÕëÏòºóÒÆ¶¯Count¸ö×Ö½ÚÊý£¬º¯Êý·µ»ØÖµÊÇʵ¼Ê¶ÁµÄ×Ö½ÚÊý¡£Èç¹û·µ»ØÖµÐ¡ÓÚCount£¬ÕâÒâζ×ŶÁ²Ù×÷ÔÚ¶ÁÂúËùÐè×Ö½ÚÊýǰָÕëÒѾ­µ½´ïÁËÁ÷µÄβ²¿¡£
¡¡¡¡Read·½·¨ÊdzéÏó·½·¨¡£Ã¿¸öºó¼ÌStream¶ÔÏó¶¼Òª¸ù¾Ý×Ô¼º


Ïà¹ØÎĵµ£º

Delphi±éÀúPanel×é¼þÉϵÄËùÓпؼþ

procedure frmMain.CLS; //Ö÷´°Ìå×Ô¶¨ÒåʼþCLS
var i:integer;
begin
  for i:=0 to panel5.ControlCount -1 do
  begin
    if panel5.Controls[i] is TEdit then  //Edit×é¼þ
    begin
       ((panel5.Contro ......

Delphi 2010 µÄChar

½ñÌìÓÃdelphi 2010£¬×öÒ»¸ö¼òµ¥µÄÄÚ´æÓ³ÉäµÄ³ÌÐò£¬ÔÚdelphiÒÔǰ°æ±¾ÉÏÅܵĺúõijÌÐò£¬ÔÚ2010ÉÏ£¬¾ÓÈ»³öÏÖÁ˲»Í¬µÄЧ¹û£¬·¢ËͶ˷¢Ë͵Ä×Ö·û´®£¬½ÓÊÕ¶ËÖ»ÊÕµ½Ò»°ë£¬´ó¸Å³ÌÐòÈçÏ£º
·¢ËͶˣº
var
    str : String;
begin
  CopyMemory(@(PShare^.Data),str,Length(str));  //°ÑÊý¾Ý¿½±´µ½ ......

»ùÓÚDelphiµÄSocket I/OÄ£ÐÍÈ«½Ó´¥(×ܽá) [ת]

ת×Ô´ó¸»ÎÌhttp://www.delphibbs.com/keylife/iblog_show.asp?xid=30049
ÀϳÂÓÐÒ»¸öÔÚÍâµØ¹¤×÷µÄÅ®¶ù£¬²»Äܾ­³£»ØÀ´£¬ÀϳºÍËýͨ¹ýÐżþÁªÏµ¡£ËûÃǵÄÐŻᱻÓʵÝԱͶµÝµ½ËûÃǵÄÐÅÏäÀï¡£
¡¡¡¡ÕâºÍSocketÄ£Ðͷdz£ÀàËÆ¡£ÏÂÃæÎÒ¾ÍÒÔÀϳ½ÓÊÕÐżþΪÀý½²½âSocket I/OÄ£ÐÍ¡£
¡¡¡¡Ò»£ºselectÄ£ÐÍ
¡¡¡¡Àϳ·dz£Ïë¿´µ½Å®¶ùµÄÐÅ¡£ÒÔÖ ......

DelphiÖÐDLL³õʼ»¯ºÍÍ˳ö´¦Àí

DelphiÖÐDLL³õʼ»¯ºÍÍ˳ö´¦Àí
choysan
2010-01-08 8:56:43
<1>ÀûÓÃUnitµÄInitalizationÓëFinalizationÕâÁ½¸öС½Ú
¡¡¡¡¿ÉÒÔÔÚUnitµÄÕâÁ½¸öС½ÚÖа²ÅÅUnitµÄ½øÈëºÍÍ˳ö£¬µ«ÊÇ
ProgramÓëLibrary²¢Ã»ÓÐÕâÁ½¸ö²¿·Ö£¬ËùÒÔÖ»ÄÜдÔÚUnitÖС£
<2>ÀûÓÃExitProc±äÁ¿
¡¡¡¡ÔÚLibraryµÄbegin..end.ÖмäÊÇ¿ÉÒÔд´úÂëµÄ£ ......

Delphi bookmarkʹÓÃ

¹ØÓÚÊéÇ©(BookMark)²Ù×÷£»    
  ÊéÇ©²Ù×÷Ö÷ÒªÓÃÓÚÔÚ±íÖпìËٵض¨Î»¼Ç¼ָÕ룬ÔÚÓ¦ÓóÌÐòÖг£³£Òª±£´æ¼Ç¼ָÕëËùÔÚµÄλÖã¬ÔÚ½øÐÐÆäËû´¦ÀíÖ®ºó£¬Ï£ÍûÄÜ¿ìËٵطµ»Øµ½ÏÈǰָÕëËùÔÚµÄλÖ㬴Ëʱ£¬Ê¹ÓÃÊéÇ©½«ÏÔµÃÌØ±ðÓÐÓá£ÓйØÊéÇ©²Ù×÷£¬DelphiÌṩÁËÈý¸ö·½·¨£¬ËüÃÇÊÇ£º  
  ¡ñ&n ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ