Скачать: CL | DM;

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]

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

---

← →
Дмитрий К ©   (2008-04-13 08:48) [6]

> Фунтик ©   (12.04.08 13:32) [2]

А где тут создание MyConnection?

---

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

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

---

← →
Фунтик ©   (2008-04-13 16:55) [8]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.012 c