首页 > TAG信息列表 > MyStream

Fdmemtable 内存表保存图片的例子

1 var 2 aStream: TMemoryStream; 3 LDataSet: TFDDataSet; // 申请一个FD数据集 4 MyStream: Tmemorystream; 5 MyJPEG: TJpegImage; 6 MyPng: TPngImage; 7 begin 8 inherited; 9 if img2.Picture.Graphic = nil then 10 begin 11 Application.Me