Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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×ÔÊÊÓ¦·Ö±æÂÊ£¨±È½ÏÍêÃÀµÄÒ»¸ö·½·¨£©

procedure TfrmMain.FormCreate(Sender: TObject); //Ö÷´°ÌåFormCreateʼþ
var FWidth:integer;
begin
  if (screen.Width <> 1024) then  //¼ÙÉèÄãÉè¼Æ³ÌÐòʱµÄ·Ö±æÂÊΪ1024
  begin
    FWidth:=width;
    scaled:=true;
  & ......

Delphi 2010 µÄChar

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

Delphi + DBµÄ²éѯÓÅ»¯Éè¼ÆË¼Ïë

¾­µä°¸Àý·ÖÏí Ôݲ»Éæ¼°·ÖÇø±í,±íÉè¼ÆµÈ Ö»´Ó±È½ÏdzµÄ½Ç¶ÈÀ´ÓÅ»¯
1.Ïȼì²é³ÌÐò ¼ì²éÄ£ÐͲãµÄÉè¼ÆÓë±àÂëÊÇ·ñºÏÀí ½«ºÍÕâ¸ö±íÓÐÓа󶨵ÄÊý¾Ý¸ÐÖª¿Ø¼þÈ«²¿È¥µô¡£
2.¹ÀËãÒ»¸öÊý¾ÝµÄ×î´óÁ¿ ¿ÉÒÔ´ÓÉè¼Æ½Ç¶È Ò²¿ÉÒÔ´Ó¿Í»§ÌṩµÄÊý¾Ý·ÖÎö δÀ´Ò»¶¨ÖÜÆÚÄÚµÄÔ¤Ôö³¤Á¿
3.½«ÌõÂëµÄ³¤¶È±£´æÆðÀ´£¬ÏÈÓÃÌõÂëµÄ³¤¶È½øÐйýÂË£¬Èç¹û80%ÒÔÉϵ ......

DelphiÖ¸ÕëÀàÐÍdzÎö

²Î¿¼×ÊÁÏ
“dz̸Object PascalµÄÖ¸Õë”
“Delphi Ö¸ÕëÈëÃÅ”
 
»ù±¾ÖªÊ¶
Ö¸Õë
Ö¸ÕëÊÇÒ»¸öÌØÊâµÄ±äÁ¿£¬ËüÀïÃæ´æ´¢µÄÊýÖµ±»½âÊͳÉΪÄÚ´æÀïµÄÒ»¸öµØÖ·¡£  
×¢Ò⣺
£¨1£©¡¢Ö¸Õë¶ÔÓ¦×ÅÒ»¸öÊý¾ÝÔÚÄÚ´æÖеĵØÖ·£¬µÃµ½ÁËÖ¸Õë¾Í¿ÉÒÔ×ÔÓɵØÐ޸ĸÃÊý¾Ý¡£
£¨2£©¡¢Ò»¸öÖ¸Õë±äÁ¿½ö½öÊÇ´æ´¢Ò ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ