IStream与TStream之间的相互转换

yipeiwu_com5年前PHP代码库
  
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;    //必加此二单元

相关文章

php实现向javascript传递数组的方法

本文实例讲述了php实现向javascript传递数组的方法。分享给大家供大家参考。具体如下: 这里介绍的PHP进行数组传值给javascript的技巧,此方法适用php5.2以上,ph...

php 获取当前访问的url文件名的方法小结

推荐函数: 一是PHP获取当前页面的网址: dedecms也是用的这个 //获得当前的脚本网址 function GetCurUrl() { if(!empty($_SER...

php中的抽象方法和抽象类

1、什么是抽象方法? 我们在类里面定义的没有方法提的方法就是抽象方法。所谓的没有方法体指的是,在声明的时候没有大括号以及其中的内容,而是直接在声明时在方法名后加上分号结束,另外在声明抽象...

PHP中引用类型和值类型功能与用法示例

本文实例讲述了PHP中引用类型和值类型功能与用法。分享给大家供大家参考,具体如下: PHP中的四种简单类型和复杂类型array都是值类型。同类型间赋值传递的是值,即创建一个副本给新变量。...

解决phpmyadmin 乱码,支持gb2312和utf-8

解决phpmyadmin 乱码,支持gb2312和utf-8˂!-- google 的广告条 2005年09月20日换位置 唉,22号被停了.郁闷,没作弊呀 11.27日...