DocuWorks APIのラッピングクラス

Tue, 12 Feb 2008 18:00:09 +0900

DocuWorks APIは便利ですが、それをさらにDelphi流に
扱うため、ラッピングクラスも作っています。

たとえば

var

  DWF: TDwFile;

begin

  if OpenDialog1.Execute then

  begin

    S := OpenDialog1.Filename;

    DWF := TDWFile.Create(S, XDW_OPEN_UPDATE, XDW_AUTH_NONE);

    S := ExtractFileDir(ParamStr(0))+'\test.bmp';

    DWF.AddBMPAnnotation(S, 1, 0, 0);

    DWF.Save;

    DWF.Free;

  end;

end;

こんな感じですぐにBMPアノテーションが貼り付けられてしまうというお手軽クラスです。

DoruWorks API on WorkToolSmith

DocuWorks APIのラッピングクラス