在线时间:8:00-16:00
迪恩网络APP
随时随地掌握行业动态
扫描二维码
关注迪恩网络微信公众号
对文件或图片进行流操作,下面是一个示例代码:
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
请发表评论