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)文章
PHP實(shí)現(xiàn)通過文本文件統(tǒng)計(jì)頁面訪問量功能示例
這篇文章主要介紹了PHP實(shí)現(xiàn)通過文本文件統(tǒng)計(jì)頁面訪問量功能,涉及php文件讀寫、數(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))連接起來的字符串 (注意:應(yīng)考慮到多維數(shù)組的情況,并以返回值的形式返回)2010-08-08
解決文件名解壓后亂碼的問題 將文件名進(jìn)行轉(zhuǎn)碼的代碼
中文win32下,文件名使用GBK編碼 Linux下,文件名使用UTF-8編碼 解決文件名解壓后亂碼的問題,使用將文件名進(jìn)行轉(zhuǎn)碼2012-01-01

