Дополнительный поток и Exception в главном. Что будет?

← →
Leonid Troyanovsky © (2006-10-16 21:02) [120]

> Kolan © (16.10.06 20:46) [118]

> получаю resourse TSynchronizationForm not found. Как избавится?

Создавай потомка TForm.
Или, если нужно окно (невидимое), а не форма - AllocateHwnd.

--
Regards, LVT.

← →
Kolan © (2006-10-16 21:02) [121]

> Сделай компонент, который

А так как я предлагаю нельзя?

← →
Kolan © (2006-10-16 21:08) [122]

Создавай потомка TForm.

Ну, а я че делаю...

TSynchronizationForm = class(TForm) public procedure SXPackageReady(var Msg: TMessage); message SX_PACKAGEREADY; end;

> Или, если нужно окно (невидимое), а не форма - AllocateHwnd.

Посмотрю.

← →
Kolan © (2006-10-16 21:11) [123]

> AllocateHwnd

О вроде то что надо.. Шас испробую.

← →
Leonid Troyanovsky © (2006-10-16 21:15) [124]

> Kolan © (16.10.06 21:02) [121]

> > Сделай компонент, который
> А так как я предлагаю нельзя?

Можно, наверное.

Но, для того, чтобы делать нечто обобщающее, скажем,
аналог TDataSource как промежуточной абстракции
между слоями, представлениями и т.п., нужно наработать
некий материал, пищу для ума, дабы понять, что полезно,
а что лишнее.

Да и неплохо осознавать, делается ли нечто одноразовое,
или вещь на каждый день.

--
Regards, LVT.

← →
Kolan © (2006-10-16 21:18) [125]

> Да и неплохо осознавать, делается ли нечто одноразовое,
> или вещь на каждый день.

На каждый день. Этот менеджер связи - вообще универсальная штука. Я его вставляю во все проекты...

← →
Kolan © (2006-10-16 21:20) [126]

Вроде наваял с AllocateHwnd. Только незнаю как ссылку на объект в сообщении передать:
http://delphimaster.net/view/2-1161018380/

← →
Kolan © (2006-10-16 21:28) [127]

:) Получилось, вроде. Правдо AV, шас поотлаживаю :)

← →
Leonid Troyanovsky © (2006-10-16 21:31) [128]

> Kolan © (16.10.06 21:08) [122]

> Создавай потомка TForm.

type TFormX = class (TForm) public constructor Create(AOwner: TComponent); override; .. end; constructor TFormX.Create; begin CreateNew(AOwner); end;

--
Regards, LVT.

> Leonid Troyanovsky © (16.10.06 21:31) [128]
>
>

Ааа вот как надо, а я генофонд глянул и не че там не понял :) С AllocateHWND ИМХО приятнее тем более для этого оно и нужно :)

Убейте меня пожалуйста. Теперь AV и тоже только при возникновении исключения.

Итак получив пакет я передаю его на обработку при помощи окна(AllocateHWND). В обработке возникает исключение,

Тут исключение:
FPackageRecieveEvent(Self, FPackageManager.ParseRecievedPackage(MyPackage));

Но, FPackageRecieveEvent вызывается:
procedure TMainForm.PackageRecieveEvent(Sender: TObject; Package: IPackage); begin ShowMessage("PackageRecieved"); end;

Окно показывается, нажимаю ОК - получаю AV.
Если исключения нет, то все нормально :)...
Уффф, благодарю за помощь. Чуть-чуть осталос, наверно :)

Аааа это из-за интерфейса, а я уже странно смеяться стал.

Из за исключения Package = nil. А это что приведет к AV вот тут?:
Package: IPackage

Вообщем тема закрыта успешно. Всех благодарю, особенно Ketmar и Leonid Troyanovsky за вправление мозгов :)

Дополнительный поток и Exception в главном. Что будет? Найти похожие ветки