Heim  >  Artikel  >  Backend-Entwicklung  >  site:www.jschina.com.cn IStream与TStream之间的相互转换

site:www.jschina.com.cn IStream与TStream之间的相互转换

WBOY
WBOYOriginal
2016-07-29 08:38:381239Durchsuche

  
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转成IStream    
    stream:=TStreamAdapter.Create(memoStream);    
  //将IStream转成TOleStream ==TmemoryStream    
    OleStream := TOleStream.Create(Stream);    
    image2.Picture.Bitmap.LoadFromStream(OleStream);    
  finally   
    memoStream.Free;    
    OleStream.Free;    
  end;    
end;    
   
///////////////////////////    
uses   
....................AxCtrls,ActiveX;    //必加此二单元

以上就介绍了site:www.jschina.com.cn IStream与TStream之间的相互转换,包括了site:www.jschina.com.cn方面的内容,希望对PHP教程有兴趣的朋友有所帮助。

Stellungnahme:
Der Inhalt dieses Artikels wird freiwillig von Internetnutzern beigesteuert und das Urheberrecht liegt beim ursprünglichen Autor. Diese Website übernimmt keine entsprechende rechtliche Verantwortung. Wenn Sie Inhalte finden, bei denen der Verdacht eines Plagiats oder einer Rechtsverletzung besteht, wenden Sie sich bitte an admin@php.cn