VPF::Unknown Error - Форум программистов

BUGOR

Дата 14.8.2006, 18:20 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 325
Регистрация: 12.3.2006

Репутация: 5
Всего: 16

В общем, знаю, что где-то я допустил простую и глупую ошибку, однако мне, как человеку недавно окунувшемуся в мощную систему ООП делфи трудно сориентироваться, поэтому помогите и прошу без лишней иронии.

Вот такой простой и понятный код:

Код


unit Unit2;

interface

uses
  Classes, MSTSCLib_TLB, Windows;

type
  Thread = class(TThread)
  MsTscAx: TMsTscAx;
  private
    { Private declarations }
  protected
    procedure Execute; override;
  public
    procedure MsTscAxFatalError(Sender: TObject; errorCode: Integer);
    procedure MsTscAxWarning(Sender: TObject; warningCode: Integer);
    procedure MsTscAxIdleTimeoutNotification(Sender: TObject);
    procedure MsTscAxLoginComplete(Sender: TObject);
    procedure MsTscAxDisconnected(Sender: TObject; discReason: Integer);
  end;

implementation

uses Unit1;

procedure Thread.Execute;
begin
  MsTscAx.Create(nil);
  MsTscAx.server := '72.232.93.245';
  with MsTscAx.AdvancedSettings do begin
    BitmapPeristence := 1;
    Compress := 1;
  end;
  MsTscAx.AdvancedSettings2.maxEventCount :=100;
  MsTscAx.UserName := 'administrator';
  MsTscAx.AdvancedSettings2.ClearTextPassword :='123456789';
  MsTscAx.Connect;
end;

procedure Thread.MsTscAxFatalError(Sender: TObject; errorCode: Integer);
begin
  MessageBoxA(0,'xx','dd',64);
  MsTscAx.Disconnect;
end;

procedure Thread.MsTscAxWarning(Sender: TObject; warningCode: Integer);
begin
  MessageBoxA(0,'xx','44d',64);
  MsTscAx.Disconnect;
end;

procedure Thread.MsTscAxIdleTimeoutNotification(Sender: TObject);
begin
  MessageBoxA(0,'xx','timeout',64);
  MsTscAx.Disconnect;
end;

procedure Thread.MsTscAxDisconnected(Sender: TObject; discReason: Integer);
begin
  MessageBoxA(0,'disconnect','disconnect',64);
  MsTscAx.Free;
end;

procedure Thread.MsTscAxLoginComplete(Sender: TObject);
begin
  MessageBoxA(0,'login','login',64);
  MsTscAx.Disconnect;
end;

end.

Стартую по F9 и вылетаю с такой ошибкой будь она неладна:

---------------------------
Debugger Exception Notification
---------------------------
Project RDP.exe raised exception class EClassNotFound with message 'Class TMsTscAx not found'. Process stopped. Use Step or Run to continue.
---------------------------
OK Help
---------------------------

Ну как же он не найден, когда активикс проинсталлирован, объявлен и создан?

Это сообщение отредактировал(а) BUGOR - 14.8.2006, 21:01

--------------------

Живу недоумевая, всё время хочу понять...
http://hunger.ru

Yanis

Дата 15.8.2006, 09:21 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111

BUGOR
Может быть RegisterClass попробовать.

--------------------

*щёлк*

Rennigth

Дата 15.8.2006, 10:04 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1708
Регистрация: 21.6.2004
Где: Moscow

Репутация: 49
Всего: 76

а это как?

Код


  MsTscAx.Create(nil);

Добавлено @ 10:05
Может

Код


  MsTscAx :=  TMsTscAx.Create(nil);

--------------------

(* Honesta mors turpi vita potior *)

Yanis

Дата 15.8.2006, 10:25 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111

Rennigth,
Тьфу блин smile

Как я мог незаметить! smile

--------------------

*щёлк*

BUGOR

Дата 15.8.2006, 10:32 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 325
Регистрация: 12.3.2006

Репутация: 5
Всего: 16

Увы, тоже самое smile

((( Блин, вот вечно на какой-нибудь глупости застрянешь и никто не знает в чём проблема smile

Yanis, что там про RegisterClass?)

Можете стукнуть в icq 827887 я залью проект, чтобы вам было проще посмотреть! Огромная просьба помочь, обратиться больше некуда...

--------------------

Живу недоумевая, всё время хочу понять...
http://hunger.ru

Snowy

Дата 15.8.2006, 11:33 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

регестрирование класса тут не при чём.
Открой файл MSTSCLib_TLB.pas и проверь, а точто ли он там есть...

dvamaster

Дата 15.8.2006, 11:48 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 559
Регистрация: 30.6.2004
Где: Россия : Курган

Репутация: 3
Всего: 10

Snowy, оно же компилиться

значит что-то с компонентом, он хоть тестился?

--------------------

Хорошую информацию трудно добыть. Сделать с ней что-нибудь - еще труднее. /L. Skywalker/

Что же я сделал не так? /Король Лир/

Я делаю это для твоего же блага! /Любой родитель и палач/

PKUNZIP.ZIP /неизвестный/

Snowy

Дата 15.8.2006, 11:50 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Значит ошибка подключения ActiveX.

BUGOR

Дата 15.8.2006, 14:56 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 325
Регистрация: 12.3.2006

Репутация: 5
Всего: 16

Snowy, ну ошибка, ну это понятно) А что можете посоветовать, чтобы её исправить?

--------------------

Живу недоумевая, всё время хочу понять...
http://hunger.ru

Rennigth

Дата 15.8.2006, 15:13 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1708
Регистрация: 21.6.2004
Где: Moscow

Репутация: 49
Всего: 76

BUGOR, ты mstscax.dll, в делфю из System32\mstscax.dll импортировал?
Еще вроде надо, regsvr32.exe mstscax.dll.(покрайней мере в 2k пришлось).
попробуй выполнить:
regsvr32.exe mstscax.dll /u
потом
regsvr32.exe mstscax.dll

P.S.: неуверен, давно с AX не работал... smile

--------------------

(* Honesta mors turpi vita potior *)

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »