• Добро пожаловать на Форум пользователей ПО АСКОН. Пожалуйста, авторизуйтесь.
 

Уважаемые пользователи,

Хотим проинформировать вас о режиме работы регистрации на нашем сайте.

Зарегистрироваться возможно в рабочие дни, с 8:00 до 20:00 (мск).

Если у вас возникнут вопросы или потребуется дополнительная информация, не стесняйтесь обращаться к нашей службе поддержки. Вы можете связаться с нами по указанным контактным данным на нашем сайте.

Благодарим вас за понимание и сотрудничество. Мы ценим ваше терпение и стремимся предоставить вам лучший опыт использования нашего сервиса.

С уважением,
Команда Ascon

Первый шаг в Delphi

Автор Kir@, 24.02.09, 13:01:23

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

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

Kir@

Дня доброго, при компиляции выдает сообщение:

File not found   'ksAuto.dcu'

Подскажите, пожалуйста, где взять, как и куда подключить.

Kir@

Сделал я этот первый шаг  :)
Что делать при:
warning klTLB.pas: Symbol 'Kompas Object' is specific to a platform  8-)

klimvv

ничего не делать - это ж не ошибка а предупреждение  :-)))

Kir@

Так оно и не компилится  :(((

library Project2;

interface

uses
  SysUtils,
  Classes,
  klTLB in '..\..\..\..\..\..\..\Documents and Settings\Administrator\My Documents\Kir\D for K\ksLibs\klTLB.pas',
  ksAuto in '..\..\..\..\..\..\..\Documents and Settings\Administrator\My Documents\Kir\D for K\ksLibs\ksAuto.pas',
  ksConstTLB in '..\..\..\..\..\..\..\Documents and Settings\Administrator\My Documents\Kir\D for K\ksLibs\ksConstTLB.pas',
  KsTLB in '..\..\..\..\..\..\..\Documents and Settings\Administrator\My Documents\Kir\D for K\ksLibs\KsTLB.pas',
  LDefin2D in '..\..\..\..\..\..\..\Documents and Settings\Administrator\My Documents\Kir\D for K\ksLibs\LDefin2D.pas',
  LDefin3D in '..\..\..\..\..\..\..\Documents and Settings\Administrator\My Documents\Kir\D for K\ksLibs\LDefin3D.pas',
  Libtool in '..\..\..\..\..\..\..\Documents and Settings\Administrator\My Documents\Kir\D for K\ksLibs\LibTool.pas';

var Kompas: KompasObject;

implementation

//{$R *.res}

procedure Otrezok;
var Doc: ksDocument2D;
  begin
  Doc:=ksDocument2D(KompasActiveDocument2D);
  Doc.ksLineSeg(0,0,50,70,1);
  end;


end.


_________________________________

[Error] Project2.dpr(13): Declaration expected but 'INTERFACE' found
[Error] Project2.dpr(26): Undeclared identifier: 'KompasObject'
[Error] Project2.dpr(28): '.' expected but 'IMPLEMENTATION' found

yarikv

это пособие прочти сначала, все станет понятно:
http://download.ascon.ru/public/educat/master/DelphiAUTO.zip

есть еще тема Исходники..
там выложены примеры для некоторых задач
http://forum.ascon.ru/index.php/topic,5841.0.html

Kir@

А где я по-твоему брал указанный выше код?
Вот на тех ресурсах и брал.

yarikv

значит плохо читал пособие. потому что там все прекрасно расписано. особенно первые шаги. да и форум пошерстить можно. эти вопросы уже обсуждались.

YorikER

Цитата: Kir@ от 25.02.09, 03:46:18

klTLB in '..\..\..\..\..\..\..\Documents and Settings\Administrator\My Documents\Kir\D for K\ksLibs\klTLB.pas',
ksAuto in '..\..\..\..\..\..\..\Documents and Settings\Administrator\My Documents\Kir\D for K\ksLibs\ksAuto.pas',
ksConstTLB in '..\..\..\..\..\..\..\Documents and Settings\Administrator\My Documents\Kir\D for K\ksLibs\ksConstTLB.pas',
KsTLB in '..\..\..\..\..\..\..\Documents and Settings\Administrator\My Documents\Kir\D for K\ksLibs\KsTLB.pas',
LDefin2D in '..\..\..\..\..\..\..\Documents and Settings\Administrator\My Documents\Kir\D for K\ksLibs\LDefin2D.pas',
LDefin3D in '..\..\..\..\..\..\..\Documents and Settings\Administrator\My Documents\Kir\D for K\ksLibs\LDefin3D.pas',
Libtool in '..\..\..\..\..\..\..\Documents and Settings\Administrator\My Documents\Kir\D for K\ksLibs\LibTool.pas';


Я плохо понял, зачем так сложно... Просто скачайте klTLB.pas и другие в папку своего Delphi проекта, включите в состав проекта и компилируйте на здоровье... Я давно так делаю...

yarikv

Я делаю чуть по другому:

В прокте Делфи
Projekt - Options - Directories/Conditionals
в поле Serch Parts указываю папку Include
(у меня она распологается С:\Program Files\ASCON\KOMPAS-3D V10\SDK\Include\)

Run - Parametrs в поле Host Application указываю путь к Kompas.exe
(C:\Program Files\ASCON\KOMPAS-3D V10\Bin\KOMPAS.Exe)


Kir@

Благодарю, попробую.

Kir@

В продолжение старой темы.
Строю эпюру.
Часть кода:
a:=inputbox('','','');
b:=strtoint (a);

Подскажите, пожалуйста, как мне вставить значение "а" в нужную точку чертежа. У Троицкого вставке двух абзацев посвящено 2 листа. Думаю, можно это как-то проще сделать :)

Цитата: Kir@ от 24.02.09, 14:49:38
Сделал я этот первый шаг  :)
Что делать при:
warning klTLB.pas: Symbol 'Kompas Object' is specific to a platform  8-)

В модуле который использует функции из klTLB.pas, прописать директиву компилятору
{$WARN SYMBOL_PLATFORM OFF} ,
чтобы предупреждения не выводились, их выводится много и можно пропустить предупреждения, на которые стоит обратить внимание.