Delphi 7 + KOL, проблема

← →
Фунтик © (2008-04-12 13:20) [0]

Есть объект, объявленный как:

TMyManager = class
MyConnecttion: TMyConnection;
procedure ButtonOKPressed(Sender: PControl; var Mouse: TMouseEventData);
public
Constructor Create(AParent: PControl);
Destructor Destroy;
end;

TMyConnection выглядит так:

TMyConnection = class
private
GetSAddrSocket: PAsyncSocket;
ConSocket: PAsyncSocket;
MajorVer,
MinorVer,
Ver: Cardinal;

ServerAddr: String;
ServerPort: String;
public
function GetStatusName(Status: Cardinal): String;

constructor Create;
destructor Destroy; override;
//
end;

Дык вот, при использовании такого события, внутри TMyManager:

procedure TMraManager.ButtonOKPressed(Sender: PControl; var Mouse: TMouseEventData);
begin
MyConnection.ChangeStatus($00000002);
end;

получаю Runtime Error, но если метод этого класса не вызывать, а допустим просто MsgOk("1"), то все нормально

← →
D[u]fa (2008-04-12 13:28) [1]

так а MyConnection создан? и что за ChangeStatus

← →
Фунтик © (2008-04-12 13:32) [2]

Да, MyConnection создан в Project1.dpr, вот так:
var MraMgr: TMRAManager; begin MraMgr := TMRAManager.Create(Applet);

ChangeStatus это метод, который принимает на входе Cardinal и меняет статус согласно ему (программа - IM messenger)
procedure TMyConnection.ChangeStatus(Status: Cardinal);

← →
Фунтик © (2008-04-12 13:38) [3]

Что-я намудрил, вобщем TMRAManager = TMyManager

← →
D[u]fa (2008-04-12 16:39) [4]

ну так надо трейсить ChangeStatus

← →
Фунтик © (2008-04-13 06:18) [5]

с ченджстатусом все нормально (ставлю брекпоинт на первую строку в этом методе - до нее не доходит, ошибка вылазиет до)

← →
D[u]fa (2008-04-13 13:04) [7]

Фунтик, если ошибка идет до то скорее всего к тому момент класс еще не создан, код из твоего 2-ого поста когда выполняется то?

Спасибо всем, проблема решена

Delphi 7 + KOL, проблема Найти похожие ветки