• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    公众号

delphi流操作心得

原作者: [db:作者] 来自: [db:来源] 收藏 邀请

对文件或图片进行流操作,下面是一个示例代码:

 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

鲜花

握手

雷人

路过

鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
上一篇:
Matlab 解一元非线性方程发布时间:2022-07-18
下一篇:
Matlab匿名函数,子函数,私有函数,重载函数,eval和feval函数 ...发布时间:2022-07-18
热门推荐
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服(服务时间 9:00~18:00)

在线QQ客服
地址:深圳市南山区西丽大学城创智工业园
电邮:jeky_zhao#qq.com
移动电话:139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap