繁體中文当前位置: 首页 > 图文教程 > 网络编程 > PHP > IStream与TStream之间的相互转换
- PHP
- MySQL手册版本 5.0.20-MySQL优化(四) （1）(3)
- MySQL手册版本 5.0.20-MySQL优化(四) （1）(2)
- Navicat MySQL图形客户端mac新版发布
- MySQL手册版本 5.0.20-MySQL优化(四) （1）
- MySQL手册版本 5.0.20-MySQL优化(二) （1）(4)
- MySQL手册版本 5.0.20-MySQL优化(二) （1）(3)
- MySQL手册版本 5.0.20-MySQL优化(二) （1）(2)
- MySQL手册版本 5.0.20-MySQL优化(二) （1）
- 经验总结：mysql 的一些基本应用
- 如何在Windows上配置并整合PHP和MySQL(1)
- 如何在Windows上配置并整合PHP和MySQL(2)
- 程序员最容易犯的五个PHP数据库问题及解释
- 如何利用MySQL加密函数保护Web网站敏感数据
- SQL Server日志文件总结及充满处理方式
- 用Apache Geronimo创建并部署blog和wiki 模块
- 对SQL数据库定期进行收缩 减小日志存储压力
- 从4.0到5.1 为什么MySQL却被冠名"玩具数据库"
- 在数据库中 如何进行分类分组并总计SQL信息
- 深入浅出举例应用 SQL数据库使用系列
- 实例：用触发器生成数据库表的数据操作日志
PHP 中的 IStream与TStream之间的相互转换
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-10-12 浏览: 286 ::
收藏到网摘: n/a
IStream与TStream之间的相互转换的代码
procedure TForm1.Button1Click(Sender: TObject);
var
memoStream,OleStream:TStream;
Stream : IStream;
begin
image1.Picture :=nil;
image2.Picture :=nil;
//显示初始照片
image1.Picture.LoadFromFile('/upload/tech/20091012/20091012015718_202cb962ac59075b964b07152d234b70.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; //必加此二单元
评论 (0) All
