|
对文件或图片进行流操作，下面是一个示例代码：
1unit Unit1;
2 3interface 4 5uses 6 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 7 Dialogs, StdCtrls, ExtCtrls,types; 8 9type 10 TForm1 = class(TForm) 11 Open: TOpenDialog; 12 Button3: TButton; 13 Panel1: TPanel; 14 Image1: TImage; 15 procedure Button3Click(Sender: TObject); 16 procedure Image1Click(Sender: TObject); 17 private 18 { Private declarations } 19 public 20 { Public declarations } 21 end; 22 23var 24 Form1: TForm1; 25 BitmapmemoryStream:TMemoryStream; 26 Bitmap1:TBitmap; 27 bt:TByteDynArray; 28implementation 29 30{$R *.dfm} 31 32procedure TForm1.Image1Click(Sender: TObject); 33 var 34 files:TFileStream; 35 begin 36 BitmapmemoryStream:=TMemoryStream.Create;// file://建立MemoryStream 37 Bitmap1:=TBitmap.Create; 38 if open.Execute then 39 begin 40 files:= TFileStream.Create(open.FileName,fmShareDenyWrite); 41 try 42 Bitmap1.LoadFromStream(files); 43 image1.Picture.Bitmap:=Bitmap1; 44 except 45 ShowMessage('^-^,错了'); 46 end; 47 end; 48 end; 49 50procedure TForm1.Button3Click(Sender: TObject); 51var ms:TMemoryStream ; 52begin 53ms:=TMemoryStream.Create; 54if Assigned(Bitmap1) then 55 Bitmap1.SaveToStream(BitmapmemoryStream); 56 if BitmapMemoryStream<>nil then 57 begin 58 try 59 // BitmapmemoryStream.SaveToFile('Bitmap1.txt'); //file://内存流保存，大小与 60 SetLength(bt,BitmapmemoryStream.Size); // .InstanceSize 61 BitmapmemoryStream.Read(bt,BitmapmemoryStream.Size); // file://Bitmap1.bmp一样 62 ms.Write(bt,length(bt)); 63 ms.SaveToFile('F:\\1.txt'); 64 except 65 showmessage('error on access memory!'); 66 end; 67 end; 68 end; 69end. 70 |
2023-10-27
2022-08-15
2022-08-17
2022-09-23
2022-08-13
六六分期app的软件客服如何联系？不知道吗？加qq群【895510560】即可！标题：六六分期
今天小编告诉大家如何处理win10系统火狐flash插件总是崩溃的问题，可能很多用户都不知
今天小编告诉大家如何对win10系统删除桌面回收站图标进行设置，可能很多用户都不知道
今天小编告诉大家如何对win10系统电脑设置节能降温的设置方法，想必大家都遇到过需要
我们在使用xp系统的过程中,经常需要对xp系统无线网络安装向导设置进行设置，可能很多
今天小编告诉大家如何处理win7系统玩cf老是与主机连接不稳定的问题，可能很多用户都不
电脑对日常生活的重要性小编就不多说了，可是一旦碰到win7系统设置cf烟雾头的问题，很
我们在日常使用电脑的时候，有的小伙伴们可能在打开应用的时候会遇见提示应用程序无法
今天小编告诉大家如何对win7系统打开vcf文件进行设置，可能很多用户都不知道怎么对win
今天小编告诉大家如何对win10系统s4开启USB调试模式进行设置，可能很多用户都不知道怎
请发表评论