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´Ó6.0¾Í¿ªÊ¼Ö§³ÖWeb ServicesµÄ¿ª·¢ºÍÓ¦ÓÃÁË£¬±¾ÎÄͨ¹ýʹÓÃDelphi 7.0µ÷ÓÃÐÂÀË·¢ËͶÌÐŵÄWeb Service½øÐжÌÐÅÓ¦ÓóÌÐò¿ª·¢ÕâһʵÀýÏêϸµÄ½éÉÜÔÚDelphiÖÐÈçºÎ¿ª·¢»ùÓÚWeb ServicesµÄÓ¦ÓÃϵͳ¡£
µÚÒ»²½£¬×¼±¸¹¤×÷£¬Á˽âÐÂÀ˶ÌÐÅWeb Service¡£ÐÂÀË·¢ËͶÌÐŵÄWeb ServiceµØÖ·ÊÇhttp://smsinter.sina.com.cn/ws/smswebs ......
Delphi ¹Ø¼ü×ÖÏê½â[ÕûÀíÓÚ "³È×Ó" µÄÌû×Ó]
absolute
//ËüʹµÃÄãÄܹ»´´½¨Ò»¸öбäÁ¿, ²¢ÇҸñäÁ¿µÄÆðʼµØÖ·ÓëÁíÒ»¸ö±äÁ¿Ïàͬ.
var
Str: string[32];
StrLen: Byte absolute Str;
//Õâ¸öÉùÃ÷Ö¸¶¨Á˱äÁ¿StrLenÆðʼµØÖ·ÓëStrÏàͬ.
//ÓÉÓÚ×Ö·û´®µÄµÚ0¸öλÖñ£´æÁË×Ö·û´®µÄ³¤¶È, ËùÒÔStrLenµÄÖµ¼´×Ö·û´®³¤¶È.
begin ......
²Î¿¼×ÊÁÏ
“dz̸Object PascalµÄÖ¸Õë”
“Delphi Ö¸ÕëÈëÃÅ”
»ù±¾ÖªÊ¶
Ö¸Õë
Ö¸ÕëÊÇÒ»¸öÌØÊâµÄ±äÁ¿£¬ËüÀïÃæ´æ´¢µÄÊýÖµ±»½âÊͳÉΪÄÚ´æÀïµÄÒ»¸öµØÖ·¡£
×¢Ò⣺
£¨1£©¡¢Ö¸Õë¶ÔÓ¦×ÅÒ»¸öÊý¾ÝÔÚÄÚ´æÖеĵØÖ·£¬µÃµ½ÁËÖ¸Õë¾Í¿ÉÒÔ×ÔÓɵØÐ޸ĸÃÊý¾Ý¡£
£¨2£©¡¢Ò»¸öÖ¸Õë±äÁ¿½ö½öÊÇ´æ´¢Ò ......
°ïÖúÒ³ÔÚhttp://delphi.about.com/cs/adptips2003/a/bltip0203_2.htm
×Ô¼ºÔÚʵÏֵĹý³ÌÖеľßÌå¹ý³ÌÈçÏ£º
function InstallInf(const PathName: string; hParent: HWND): Boolean;
var
instance: HINST;
begin
instance := ShellExecute(hParent,
PChar('open ......
¹ØÓÚÊéÇ©(BookMark)²Ù×÷£»
ÊéÇ©²Ù×÷Ö÷ÒªÓÃÓÚÔÚ±íÖпìËٵض¨Î»¼Ç¼ָÕ룬ÔÚÓ¦ÓóÌÐòÖг£³£Òª±£´æ¼Ç¼ָÕëËùÔÚµÄλÖã¬ÔÚ½øÐÐÆäËû´¦ÀíÖ®ºó£¬Ï£ÍûÄÜ¿ìËٵطµ»Øµ½ÏÈÇ°Ö¸ÕëËùÔÚµÄλÖ㬴Ëʱ£¬Ê¹ÓÃÊéÇ©½«ÏÔµÃÌرðÓÐÓá£ÓйØÊéÇ©²Ù×÷£¬DelphiÌṩÁËÈý¸ö·½·¨£¬ËüÃÇÊÇ£º
¡ñ&n ......