IStream与TStream之间的相互转换_php技巧-php教程-PHP中文网

首页

后端开发

php教程

IStream与TStream之间的相互转换_php技巧

WBOYWBOYWBOYWBOYWBOYWBOYWBOYWBOYWBOYWBOYWBOYWBOYWB

May 17, 2016 am 09:35 AM

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

声明

本文内容由网友自发贡献，版权归原作者所有，本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容，请联系admin@php.cn

PHP记录：PHP日志分析的最佳实践Mar 10, 2025 pm 02:32 PM

PHP日志记录对于监视和调试Web应用程序以及捕获关键事件，错误和运行时行为至关重要。它为系统性能提供了宝贵的见解，有助于识别问题并支持更快的故障排除

在Laravel中使用Flash会话数据Mar 12, 2025 pm 05:08 PM

Laravel使用其直观的闪存方法简化了处理临时会话数据。这非常适合在您的应用程序中显示简短的消息，警报或通知。默认情况下，数据仅针对后续请求： $请求 -

php中的卷曲：如何在REST API中使用PHP卷曲扩展Mar 14, 2025 am 11:42 AM

PHP客户端URL（curl）扩展是开发人员的强大工具，可以与远程服务器和REST API无缝交互。通过利用Libcurl（备受尊敬的多协议文件传输库），PHP curl促进了有效的执行

简化的HTTP响应在Laravel测试中模拟了Mar 12, 2025 pm 05:09 PM

Laravel 提供简洁的 HTTP 响应模拟语法，简化了 HTTP 交互测试。这种方法显着减少了代码冗余，同时使您的测试模拟更直观。基本实现提供了多种响应类型快捷方式： use Illuminate\Support\Facades\Http; Http::fake([ 'google.com' => 'Hello World', 'github.com' => ['foo' => 'bar'], 'forge.laravel.com' =>