사이트:www.jschina.com.cn IStream과 TStream 간의 상호 변환

프로시저 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
//사진을 TmemoryStream으로 저장
image1.Picture.Bitmap.SaveToStream(memoStream);
memoStream.Position :=0
//TmemoryStream을 IStream으로 변환
stream:=TStreamAdapter.Create ( Memostream);
// Isstream을 Tolestream으로 전환 == TMEMORYSTREAM
Olestream: = Tolestream.create (stream)
iMage2.picture.BitMapromStream (Olestr eam)
memoStream .무료
OleStream.Free
끝

///////////////// // ///                                                                                      
위 내용은 site:www.jschina.com.cn의 내용을 포함하여 site:www.jschina.com.cn IStream과 TStream 간의 상호 변환을 소개했습니다. PHP 튜토리얼에 관심이 있는 친구들에게 도움이 되기를 바랍니다.