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实现通过Luhn算法校验信用卡卡号是否有效

本文实例讲述了PHP实现通过Luhn算法校验信用卡卡号是否有效的方法。分享给大家供大家参考。具体实现方法如下: $numbers = "49927398716 49927398717...

php URL验证正则表达式

复制代码 代码如下: <?php $url = 'http://www.baidu.com/zongzi/oo.html'; $n = preg_match_all("/http:...

PHP中通过ADODB库实现调用Access数据库之修正版本 原创

PHP中通过ADODB库实现调用Access数据库之修正版本 原创

最主要的下载地址了,请先看上一篇文章。http://adodb.sourceforge.net/本地下载 下载此文件此文件解压后放到adodb目录里,最好是全部啊,不是只有ohtml.i...

php 获取远程网页内容的函数

<?php $curDomain = $_SERVER['HTTP_HOST']; $strHTML = file_get_contents('//www.jb51.net/Dom...

PHP函数checkdnsrr用法详解(Windows平台用法)

本文实例讲述了PHP函数checkdnsrr用法。分享给大家供大家参考,具体如下: 在php.net上是这样说的: (PHP 4, PHP 5) checkdnsrr — Check D...