Istream用法

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;    //必加此二单元

本文来自互联网用户投稿，文章观点仅代表作者本人，不代表本站立场，不承担相关法律责任。如若转载，请注明出处。 如若内容造成侵权/违法违规/事实不符，请点击【内容举报】进行投诉反馈！