锘??xml version="1.0" encoding="utf-8" standalone="yes"?><rss version="2.0" xmlns:dc="http://purl.org/dc/elements/1.1/" xmlns:trackback="http://madskills.com/public/xml/rss/module/trackback/" xmlns:wfw="http://wellformedweb.org/CommentAPI/" xmlns:slash="http://purl.org/rss/1.0/modules/slash/"><channel><title>&#20122;&#27954;&#20813;&#36153;&#32593;&#31449;&#22312;&#32447;&#35266;&#30475;&#44;&#20122;&#27954;&#19968;&#21306;&#20108;&#21306;&#30005;&#24433;&#44;&#20122;&#27954;&#27807;&#27807;&#32654;&#22899;&#20122;&#27954;&#27807;&#27807;</title><link>http://www.tkk7.com/howard/category/2164.html</link><description>鎵�瀛︾敋嫻咃紝鎵�鐭ョ敋灝?/description><language>zh-cn</language><lastBuildDate>Wed, 28 Feb 2007 01:06:18 GMT</lastBuildDate><pubDate>Wed, 28 Feb 2007 01:06:18 GMT</pubDate><ttl>60</ttl><item><title>鍦―ephi涓嬌鐢═Stream璇誨啓鏁版嵁鐨勬妧宸?/title><link>http://www.tkk7.com/howard/archive/2005/07/15/7798.html</link><dc:creator>howard</dc:creator><author>howard</author><pubDate>Fri, 15 Jul 2005 12:41:00 GMT</pubDate><guid>http://www.tkk7.com/howard/archive/2005/07/15/7798.html</guid><wfw:comment>http://www.tkk7.com/howard/comments/7798.html</wfw:comment><comments>http://www.tkk7.com/howard/archive/2005/07/15/7798.html#Feedback</comments><slash:comments>0</slash:comments><wfw:commentRss>http://www.tkk7.com/howard/comments/commentRss/7798.html</wfw:commentRss><trackback:ping>http://www.tkk7.com/howard/services/trackbacks/7798.html</trackback:ping><description><![CDATA[From: <A >http://xuguohua.diy.myrice.com/skill/34.htm</A>&nbsp;<BR>&nbsp;&nbsp;&nbsp; 鍦―ephi涓彁渚涗簡涓�涓娊璞＄殑鏁版嵁綾誨瀷TStream鏉ユ敮鎸佸嫻佸紡鏁版嵁鐨勬搷浣溿�傝繖浜涙暟鎹�氬父鏉ヨ嚜鏂囦歡銆佹暟鎹簱銆佸唴瀛樺璞°�丱LE瀵硅薄絳夛紝TStream鎻愪緵浜嗙粺涓�銆佺畝媧佺殑鏂規硶鏉ヨ繘琛屾暟鎹殑璇誨啓銆傚湪閫氬父鎯呭喌涓嬶紝鎴戜滑騫朵笉闇�瑕佺洿鎺ヤ嬌鐢═Stream綾伙紝瀵規祦寮忔暟鎹殑璇誨啓灝佽鍦╒CL鎺т歡鐨勬柟娉曚腑銆備絾鏄鏋滆繖浜涙柟娉曟棤娉曟弧瓚蟲垜浠殑瑕佹眰錛屽氨闇�瑕佽嚜宸辨墜鍔ㄦ帶鍒舵暟鎹殑璇誨啓銆?
<H3><FONT color=#a30004>涓�銆?TStream鐨勫父鐢ㄧ殑鏂規硶鍜屽睘鎬э細</FONT></H3><FONT color=#ffffff>----</FONT> 1. function Read(var Buffer; Count: Longint): Longint; virtual; abstract 
<P><FONT color=#ffffff>----</FONT> 2. function Write(const Buffer; Count: Longint): Longint; virtual; abstract; 
<P><FONT color=#ffffff>----</FONT> 3. function Seek(Offset: Longint; Origin: Word): Longint; virtual; abstract; 
<P><FONT color=#ffffff>----</FONT> 4. property Position: Longint; 
<P><FONT color=#ffffff>----</FONT> 5. property Size: Longint 
<P><FONT color=#ffffff>----</FONT> Read錛學rite錛孲eek閮芥槸綰櫄鍑芥暟錛屾彁渚涗簡鏁版嵁璇誨啓鍜屽畾浣嶇殑鎶借薄鐨勬柟娉曘�俁ead鏂規硶灝嗘暟鎹粠Stream涓鍒癇uffer緙撳啿鍖轟腑錛學rite鍒欏疄鐜扮浉鍙嶇殑鎿嶄綔錛岃繑鍥炲�艱〃紺哄疄闄呰鍐欐暟鎹殑澶у皬銆係eek鎻愪緵浜嗗湪Stream涓Щ鍔ㄦ暟鎹寚閽堢殑鏂規硶銆傚弬鏁癘rigin鍙互鍙杝oFromBeginning錛宻oFromCurrent錛宻oFromEnd 涓変釜鍊鹼紝Offset鏄亸縐婚噺錛岃繑鍥炲�兼槸褰撳墠Stream鏁版嵁鎸囬拡鐨勪綅緗�?
<P><FONT color=#ffffff>----</FONT> Position琛ㄧず浜嗘暟鎹寚閽堝湪Stream涓殑浣嶇疆銆傝繖涓睘鎬ф槸鍙鍐欑殑錛屽畠瀹為檯涓婂氨鏄�氳繃璋冪敤Seek鏂規硶瀹炵幇鐨勶紝鎵�浠ュ疄闄呬嬌鐢ㄦ椂浣跨敤榪欎釜灞炴�ф洿涓烘柟渚夸竴浜涖�係ize灞炴�ц〃紺哄綋鍓峉tream鐨勫ぇ灝忥紝瀵逛簬涓嶅悓鐨凷tream錛屾湁浜涙椂鍊欐槸鍙鐨勩�?
<H3><FONT color=#a30004>浜屻�?Stream鏁版嵁鐨勮鍐欍�?/FONT></H3><FONT color=#ffffff>----</FONT> 1. SaveToStream(Stream: TStream ); //灝嗙被涓殑鏁版嵁鍐欏埌Stream鐨勫綋鍓嶄綅緗腑 
<P><FONT color=#ffffff>----</FONT> 2. LoadFromStream(Stream: TStream); //浠庡綋鍓嶄綅緗鍏tream閲岀殑鏁版嵁 
<P><FONT color=#ffffff>----</FONT> 瀹為檯浣跨敤鏃舵垜浠熀鏈笂鍙浣跨敤涓婇潰涓や釜鍑芥暟灝卞彲浠ヤ簡銆?
<H3><FONT color=#a30004>涓夈�?渚嬪瓙</FONT></H3><FONT color=#ffffff>----</FONT> TStream鐨勭戶鎵挎爲鍥懼鍥?鎵�紺?鐣?錛屽疄闄呬嬌鐢ㄦ椂姣旇緝甯哥敤鐨勬槸TFileStream錛孴MemoryStream錛孴blobStream錛屽氨浠ヨ繖涓夌嫻佷婦涓�渚嬭鏄庡叿浣撶敤娉曘�?
<P><FONT color=#ffffff>----</FONT> 鍒涘緩涓�涓獥浣揊orm1錛屾斁緗笁涓寜閽産tnRead錛宐tnInvert錛宐tnSave鍜屼竴涓枃浠舵墦寮�瀵硅瘽妗哋penDialog1浠ュ強鏁版嵁鎺т歡DataSource1錛孴able1錛宼est. 
<P><FONT color=#ffffff>----</FONT> 浣跨敤Dephi鎻愪緵鐨凞atabase Desktop鍒涘緩涓�涓〃test錛岃〃閲屾湁涓�涓瓧孌靛煙Image錛屾暟鎹簱鏂囦歡鍚嶅瓨涓簍est.db銆傚湪紿椾綋涓婃斁緗竴涓猅Database鎺т歡dbTest錛屼竴涓猅Table鎺т歡Table1,涓�涓狣ataSource鎺т歡DataSource1,涓�涓猅DBNavigator鎺т歡DBNavigator1銆傚皢dbTest涓庡垰鎵岲esktop鍒涘緩鐨勬暟鎹簱鐩歌繛錛孴able1鐨凾ableName灞炴�ц涓簍est.db錛孌ataSource1鐨凞ataSet灞炴�ц涓篢able1錛孌BNavigator1鐨凞ataSource灞炴�ц涓篋ataSource1錛孷isibleButtons灞炴�у墠鍥涗釜璁句負TRUE銆傛澶栵紝灝哾btest鐨凜onnected璁句負TRUE錛孴able1鐨凙ctive灞炴�ц涓篢RUE錛屼嬌寰楁暟鎹簱涓�寮�濮嬪氨澶勪簬鎵撳紑鐘舵�併�?
<P><FONT color=#ffffff>----</FONT> 浜嬩歡浠ｇ爜緙栧啓濡備笅錛?
<P><FONT color=#ffffff>----</FONT> 1. btnRead鐨凜lick浜嬩歡錛岃繖閲屾紨紺轟簡TFileStream鐨勭敤娉曘�?<PRE><FONT size=2>var
  MS: TFileStream;
begin
  if OpenDialog1.Execute then
  begin
MS:=TFileStream.Create
(OpenDialog1.FileName, fmOpenRead);
    Image1.Picture.Bitmap.LoadFromStream(MS);
    MS.Free;
  end;
end;</FONT>
</PRE><FONT color=#ffffff>----</FONT> 2. btnInvert鐨凜lick浜嬩歡錛岃繖閲屾紨紺轟簡TMemoryStream鐨勭敤娉曘�傚叾涓嬌鐢ㄤ簡Invert鍑芥暟錛岃繖鏄竴涓畝鍗曠殑灝嗗浘璞″弽鑹茬殑鍑芥暟錛堜粎瀵圭湡褰╁浘璞℃湁鏁堬級錛屽畠榪斿洖涓�涓寚鍚戝鐞嗚繃鐨勫浘璞℃暟鎹潡鐨勬寚閽堛�?<PRE><FONT size=2>var
  M
S: TMemoryStream;
  pImage: pointer;
begin
  MS:=TMemoryStream.create;
  Image1.Picture.Bitmap.SaveToStream(MS);
  MS.Position:=0;
  pImage:=Invert(MS.Memory, MS.size); 
 //Memory灞炴�ф槸鎸囧悜瀹為檯鍐呭瓨鍧楃殑鎸囬拡
  MS.Write(pImage^,MS.size);
  MS.Position:=0;         
 //涓婁竴琛屼唬鐮佷嬌鎸囬拡縐誨埌浜哠tream鏈熬錛屾墍浠ヨ澶嶄綅
  Image1.Picture.Bitmap.LoadFromStream(MS);
  FreeMem(pImage);			
  MS.Free;
end;</FONT>

<FONT size=2> Invert鍑芥暟濡備笅錛?
function TForm1.Invert
(pImage: pointer; size: Integer): pointer;
var
  pData, pMem: PChar;
  i: Integer;
begin
  pMem:=AllocMem(size);
  CopyMemory(pMem,pImage,size);
  pData:=pMem+54;
  for i:=0 to size-54-1 do
  begin
    pData^:=Char(not integer(pData^));
    pData:=pData+1;
  end;
  Result:=pMem;
end;</FONT>
</PRE><FONT color=#ffffff>----</FONT> 1. btnSave鐨凜lick浜嬩歡錛岃繖閲屾紨紺轟簡TMemoryStream鐨勫彟涓�縐嶇敤娉曪紝灝哠tream涓殑鏁版嵁鍐欏埌鏁版嵁搴撲腑鍘匯�?<PRE><FONT size=2>var
  MS: TMemoryStream;
begin
  MS:=TMemoryStream.create;
  Image1.Picture.Bitmap.SaveToStream(MS);
  MS.Position:=0;
  Table1.Append;   
 //鍦ㄦ暟鎹簱涓坊鍔犱竴鏉¤褰?
  TBlobField(Table1.FieldbyName
('image')).LoadFromStream(MS);
  Table1.Post;	      
//灝嗘墍浣滅殑鏇存柊鍐欏叆鏁版嵁搴?
end;</FONT>
</PRE><FONT color=#ffffff>----</FONT> 4. DBNavigator1鐨凜lick浜嬩歡錛岃繖閲屾紨紺轟簡TBlobStream鐨勭敤娉曪紝浣跨敤浜嗗拰鍐欏叆鏃朵笉鍚岀殑鏂規硶鏉ヨ鍑烘暟鎹簱鐨勫浘璞℃暟鎹�?<PRE><FONT size=2>var
  MS: TStream;
begin
  with Table1 do
  MS:=CreateBlobStream
(FieldbyName('image'),bmRead);
  Image1.Picture.Bitmap.
LoadFromStream(MS);
  MS.Free;
end;</FONT>
</PRE><FONT color=#ffffff>----</FONT> 鐜板湪浣犲凡緇忚兘澶熷湪鏂囦歡錛屾暟鎹簱錛屽唴瀛樹腑浠繪剰璇誨啓鏁版嵁嫻佷簡銆傝瘯璇曠湅鍚э紒<img src ="http://www.tkk7.com/howard/aggbug/7798.html" width = "1" height = "1" /><br><br><div align=right><a style="text-decoration:none;" href="http://www.tkk7.com/howard/" target="_blank">howard</a> 2005-07-15 20:41 <a href="http://www.tkk7.com/howard/archive/2005/07/15/7798.html#Feedback" target="_blank" style="text-decoration:none;">鍙戣〃璇勮</a></div>]]></description></item></channel></rss>                        <footer>
<div class="friendship-link">
<p>感谢您访问我们的网站，您可能还对以下资源感兴趣：</p>
<a href="http://www.tkk7.com/" title="&#20122;&#27954;&#97;&#118;&#25104;&#20154;&#29255;&#22312;&#32447;&#35266;&#30475;">&#20122;&#27954;&#97;&#118;&#25104;&#20154;&#29255;&#22312;&#32447;&#35266;&#30475;</a>

<div class="friend-links">


</div>
</div>

</footer>

主站蜘蛛池模板：
<a href="http://gzweida88.com" target="_blank">亚洲偷偷自拍高清</a>|
<a href="http://xinyuanmy.com" target="_blank">亚洲午夜国产精品无卡</a>|
<a href="http://3t77.com" target="_blank">狠狠入ady亚洲精品</a>|
<a href="http://dodxs.com" target="_blank">在线观看免费宅男视频</a>|
<a href="http://wua72.com" target="_blank">亚洲高清一区二区三区电影</a>|
<a href="http://xxxxcccc.com" target="_blank">免费无码肉片在线观看</a>|
<a href="http://2266511.com" target="_blank">91丁香亚洲综合社区</a>|
<a href="http://xtolm.com" target="_blank">女人18毛片特级一级免费视频</a>|
<a href="http://semaopu.com" target="_blank">色在线亚洲视频www</a>|
<a href="http://815389.com" target="_blank">免费无码一区二区三区蜜桃大</a>|
<a href="http://xvwenyue.com" target="_blank">亚洲欧美成人av在线观看</a>|
<a href="http://www-887234.com" target="_blank">成人毛片免费视频</a>|
<a href="http://senimei9.com" target="_blank">91精品免费在线观看</a>|
<a href="http://dzhyyy.com" target="_blank">亚洲第一页在线播放</a>|
<a href="http://selangcun.com" target="_blank">国产一卡二卡3卡四卡免费</a>|
<a href="http://zzyqr.com" target="_blank">亚洲av永久中文无码精品</a>|
<a href="http://0415ss.com" target="_blank">亚洲国产精品无码久久九九
</a>|
<a href="http://avqq222.com" target="_blank">国产精品免费AV片在线观看</a>|
<a href="http://xyyfamily.com" target="_blank">亚洲国产成人久久精品动漫</a>|
<a href="http://sjmthanks.com" target="_blank">亚洲日韩一区二区三区</a>|
<a href="http://bii59.com" target="_blank">国产中文字幕免费</a>|
<a href="http://leeszewan.com" target="_blank">精品免费久久久久国产一区
</a>|
<a href="http://rhacu.com" target="_blank">亚洲女子高潮不断爆白浆</a>|
<a href="http://sdsupuchem.com" target="_blank">四虎影视永久免费视频观看</a>|
<a href="http://znboxcdn107.com" target="_blank">一级全免费视频播放</a>|
<a href="http://igdytt.com" target="_blank">亚洲AV无码第一区二区三区</a>|
<a href="http://6atb.com" target="_blank">91成人免费在线视频</a>|
<a href="http://tv787.com" target="_blank">亚洲AV无码成人网站在线观看</a>|
<a href="http://gzjing365.com" target="_blank">最近中文字幕免费mv在线视频</a>|
<a href="http://6878vip.com" target="_blank">最新精品亚洲成a人在线观看</a>|
<a href="http://5gg1.com" target="_blank">中文字幕无码一区二区免费</a>|
<a href="http://ydxcsh.com" target="_blank">久久精品国产亚洲Aⅴ香蕉</a>|
<a href="http://aa77cc.com" target="_blank">日本一道本不卡免费</a>|
<a href="http://yuyang0752.com" target="_blank">97久久国产亚洲精品超碰热</a>|
<a href="http://66qiqi.com" target="_blank">四虎在线播放免费永久视频</a>|
<a href="http://qq-gm.com" target="_blank">a级毛片免费观看视频</a>|
<a href="http://www-63228.com" target="_blank">亚洲日本国产综合高清</a>|
<a href="http://6nn5.com" target="_blank">无码视频免费一区二三区</a>|
<a href="http://yuduruizhi.com" target="_blank">一本久久免费视频</a>|
<a href="http://by7258.com" target="_blank">亚洲日韩乱码久久久久久</a>|
<a href="http://53ggk.com" target="_blank">亚洲AⅤ永久无码精品AA</a>|
<script>
(function(){
    var bp = document.createElement('script');
    var curProtocol = window.location.protocol.split(':')[0];
    if (curProtocol === 'https') {
        bp.src = 'https://zz.bdstatic.com/linksubmit/push.js';
    }
    else {
        bp.src = 'http://push.zhanzhang.baidu.com/push.js';
    }
    var s = document.getElementsByTagName("script")[0];
    s.parentNode.insertBefore(bp, s);
})();
</script>
</body>