Сохранение фрагмента в растровый формат

Автор thenil, 14.11.09, 23:53:57

« назад - далее »

0 Пользователи и 1 гость просматривают эту тему.

thenil

Вопрос элементарный и даже ламерский, но с чего-то начинать нужно.

Сабж: сохранить активный документ в, предположим, JPEG.
В хелповых примерах ничего похожего не нашёл, посему писал по аналогии. Писал в Delphi.

Имеем функцию:

Procedure SaveJPG(str:string);
var
  rasterPar    : ksRasterFormatParam;
begin
    rasterPar := ksRasterFormatParam( kompas.activedocument2D  ); 

  if rasterPar = nil then  Exit;

    rasterPar.Init;
  With rasterPar do
   begin
    format:=FORMAT_BMP;
    colorBPP:=BPP_COLOR_01;
    greyscale:=true;
    extResolution:=0;
    extScale:=1;         
    colorType:=BLACKWHITE;
    OnlyThinLine:=true;
    Pages:='1-1';
    multiPageOutput:=false;
    rangeIndex:=0;     
   end;
    end;

If iDocument2D.SaveAsToRasterFormat(str, rasterPar   ) then  Kompas.ksMessage('Сохранил '+str);

end;

При компиляции и последующем запуске - вылетает с системной ошибкой на этапе выполнения функции rasterPar.Init.

Надеюсь на помощь.

Slaviation

 rasterPar := ksRasterFormatParam( kompas.activedocument2D  ); 
doc:= ksDocument2D( kompas.ActiveDocument2D  );
rasterPar := ksRasterFormatParam( doc.RasterFormatParam); 
+ Благодарностей: 1

thenil