CAD把当前图形保为一个jpg文件（com接口Delphi语言）

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

procedure TForm2.Button1Click(Sender: TObject);        var              param            : IMxDrawResbuf;              ret               : IMxDrawResbuf;        begin              // 创建参数对象              param :=  CoMxDrawResbuf.Create();               // 文件路径,-10是参数的DXF组码，取-10控件自动确定DXF组码              param.AddString('c:test.jpg');              // jpg的宽度              param.AddLong(1200);              // jpg的高度              param.AddLong(500);              // jpg的背景色,    16777215 = 0xFFFFFF,是白色              param.AddLong(16777215);              // 调用自定义函数 Mx_SaveJpgFileEx              ret := IMxDrawResbuf(MxDrawX1.CallEx('Mx_SaveJpgFileEx',param));              if ret.AtString(0) = 'Ok' then              begin                showmessage('保存成功到C:test.jpg');              end;        end;