IStream與TStream之間的相互轉(zhuǎn)換
更新時(shí)間：2008年08月01日 00:48:51 作者：
IStream與TStream之間的相互轉(zhuǎn)換的代碼
procedure TForm1.Button1Click(Sender: TObject);
var
memoStream,OleStream:TStream;
Stream : IStream;
begin
image1.Picture :=nil;
image2.Picture :=nil;
//顯示初始照片
image1.Picture.LoadFromFile('c:\logo.bmp');
memoStream := TmemoryStream.Create;
try
//將照片保存為TmemoryStream
image1.Picture.Bitmap.SaveToStream(memoStream);
memoStream.Position :=0;
//將TmemoryStream轉(zhuǎn)成IStream
stream:=TStreamAdapter.Create(memoStream);
//將IStream轉(zhuǎn)成TOleStream ==TmemoryStream
OleStream := TOleStream.Create(Stream);
image2.Picture.Bitmap.LoadFromStream(OleStream);
finally
memoStream.Free;
OleStream.Free;
end;
end;
///////////////////////////
uses
....................AxCtrls,ActiveX; //必加此二單元
相關(guān)文章
我不知道怎么說(shuō)才好，因?yàn)槲以谧xINI文件的時(shí)候，往往都是用現(xiàn)成的函數(shù)：parse_ini_file或者是parse_ini_string，但怎么寫(xiě)入，就是另外的方法了（自己實(shí)現(xiàn)。。。。）2011-01-01
此函數(shù)可創(chuàng)建一個(gè)隨機(jī)字符串，作為用戶的隨機(jī)密碼等。2010-05-05
PHP實(shí)現(xiàn)通過(guò)文本文件統(tǒng)計(jì)頁(yè)面訪問(wèn)量功能示例
這篇文章主要介紹了PHP實(shí)現(xiàn)通過(guò)文本文件統(tǒng)計(jì)頁(yè)面訪問(wèn)量功能,涉及php文件讀寫(xiě)、數(shù)值計(jì)算及圖形操作相關(guān)實(shí)現(xiàn)技巧,需要的朋友可以參考下2019-02-02
PHP使用星號(hào)隱藏用戶名,手機(jī)和郵箱的實(shí)現(xiàn)方法
這篇文章主要介紹了PHP使用星號(hào)隱藏用戶名,手機(jī)和郵箱的實(shí)現(xiàn)方法,涉及php針對(duì)字符正則替換的相關(guān)操作技巧,需要的朋友可以參考下2016-09-09
深入eAccelerator與memcached的區(qū)別詳解
本篇文章是對(duì)eAccelerator與memcached的區(qū)別進(jìn)行了詳細(xì)的分析介紹，需要的朋友參考下2013-06-06
將一維或多維的數(shù)組連接成一個(gè)字符串的php代碼
自定義一個(gè)函數(shù) ，把一個(gè)數(shù)組變成用，（逗號(hào)）連接起來(lái)的字符串 （注意：應(yīng)考慮到多維數(shù)組的情況，并以返回值的形式返回）2010-08-08
這篇文章主要介紹了php判斷表是否存在的方法,實(shí)例分析了三種常見(jiàn)的判斷表的方法,涉及php操作數(shù)據(jù)庫(kù)的相關(guān)技巧,需要的朋友可以參考下2015-06-06
PHP中for循環(huán)語(yǔ)句的幾種變型...2006-11-11
在本文里小編給大家整理的是關(guān)于php依賴注入知識(shí)點(diǎn)內(nèi)容，需要的朋友們可以學(xué)習(xí)參考下。2019-09-09
解決文件名解壓后亂碼的問(wèn)題 將文件名進(jìn)行轉(zhuǎn)碼的代碼
中文win32下，文件名使用GBK編碼 Linux下，文件名使用UTF-8編碼 解決文件名解壓后亂碼的問(wèn)題，使用將文件名進(jìn)行轉(zhuǎn)碼2012-01-01