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; //必加此二单元
0
0
IStream与TStream之间的相互转换_PHP
php中文网
发布时间：2016-06-01 12:24:37
|1168人浏览过
|来源于php中文网
原创
相关文章
如何在 PHP 中安全高效地提取数组中的每个值为独立变量
如何在 PHP 中安全高效地提取关联数组中的每个键值对为独立变量
如何在 PHP 中安全高效地提取数组中的每个键值对为独立变量
PHP 中解析 XML 字符串并提取指定节点与属性的完整教程
PHP 中使用 SimpleXML 精确解析 XML 字符串并提取结构化数据
本站声明：本文内容由网友自发贡献，版权归原作者所有，本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容，请联系admin@php.cn
热门AI工具
相关专题
void是一元运算符，执行右侧表达式但始终返回undefined；用于丢弃返回值、阻止a标签跳转、IIFE忽略结果、动态导入不取Promise、安全获取undefined。本专题为大家提供相关的文章、下载、课程内容，供大家免费下载体验。
1
2025.12.29
调整VSCode界面字体大小可通过设置编辑器或整体UI缩放实现；2.修改"Editor:FontSize"改变代码字体；3.设置"Window:ZoomLevel"调整整体界面字体；4.使用Ctrl+滚轮快捷键临时缩放。本专题为大家提供相关的文章、下载、课程内容，供大家免费下载体验。
1
2025.12.29
单行注释快捷键为Ctrl+/（Windows/Linux）或Cmd+/（macOS），块注释使用Shift+Alt+A（Windows/Linux）或Shift+Option+A（macOS），VSCode会根据语言类型自动匹配语法，如JavaScript用//，Python用#，C++用//，若快捷键无效需检查语言扩展或插件冲突。本专题为大家提供相关的文章、下载、课程内容，供大家免费下载体验。
1
2025.12.29
本专题系统讲解 Golang 在命令行工具（CLI）开发中的实战应用，内容涵盖参数解析、子命令设计、配置文件读取、日志输出、错误处理、跨平台编译以及常用CLI库（如 Cobra、Viper）的使用方法。通过完整案例，帮助学习者掌握 使用 Go 构建专业级命令行工具与开发辅助程序的能力。
4
2025.12.29
热门下载
相关下载
精品课程
最新文章
