программа на delphi7...

Автор aid, 22.04.10, 20:31:25

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

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

aid

22.04.10, 20:31:25 Последнее редактирование: 22.04.10, 23:44:23 от aid
Всем привет! Никто не занимался созданием такого рода программ на delphi 7?
Мне необходимо создать программу, которая:
1. Откроет компас V11.
2. Библиотеку выбора оборудования (станков)
3. И будет возможность их вставлять на чертеже!

Николай

Что-то сложновато...В компасе мы пробовали работать с демкой библиотеки "Планировка цехов".(Кажется так называется) Всё отлично работало и без Делфи.Там и контуры станков зашиты. Большая номенклатура.

aid

Вот мне необходимо чтоб программа работа через эту библиотеку... это реально?

aid

Проверьте пожалуйста вот эту программу, и скажите что здесь не так? У меня ошибки показывает!
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics,
  Controls, Forms, Dialogs, ExtCtrls, StdCtrls,
  ComObj, ksauto, ksTLB;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1:                TForm1;
  Kompas:               KompasObject;
  Doc:                  ksDocument2D;
  NameDocForOpen:       WideString;
  ResultOpenDoc:        Boolean;

implementation

{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);
begin
  NameDocForOpen:=ExtractFileDir(Application.ExeName)+'\Cherteg.CDW';
  try
  Kompas:=KompasObject(CreateOleObject('KOMPAS.Application.7'));
  except
    exit;
  end;
  Kompas.Visible:=true;
  doc:=ksDocument2D(Kompas.Document2D);
  ResultOpenDoc:=doc.ksOpenDocument(NameDocForOpen, WordBool(0));
end;

end.

Заранее спасибо.

Maxagg

Здесь еще не дописано  :)
посмотрите здесь, вам должно помочь
http://delphivs.ucoz.ru/publ/sozdanie_dokumentov/1-1-0-3
и
http://delphivs.ucoz.ru/forum/3-9-1