image读取流
摘要:1 var 2 bmp :TMemoryStream ; 3 begin 4 inherited; 5 bmp := TMemoryStream.Create ; 6 Image2.Picture.Graphic.SaveToStream(bmp); 7 bmp.Position := 0; 8 Image1.Picture.Graphic := TJPEGImage.Creat...
阅读全文
posted @
2016-06-01 10:56
delphi老中医
阅读(626)
推荐(0)
利用RTTI动态调用BPL
摘要:procedure TForm1.FormCreate(Sender: TObject);var ARttiContext: TRttiContext; ARttiPackage: TRttiPackage;begin ARttiContext := TRttiContext.Create; ...
阅读全文
posted @
2015-04-03 13:22
delphi老中医
阅读(1006)
推荐(0)