DLL: функция VaComm.WriteText() вызывается при наличии MessageDlg

← →
bnv123 (2006-09-06 17:34) [0]

Есть компонент TVaComm (от Varian Async 32) для СОМ-порта.
В программе создаю форму TForm и отдельно объект TObj.

type TForm1= class(TForm)
...
end;

type TObj=class
private
{ Private declarations }
VaComm1:TVaComm;
TimerWaitDataBlk:TTimer;
TimerDlySendCmd :TTimer;
procedure onTimerWaitDataBlk(Sender:TObject);
procedure onTimerDlySendCmd(Sender:TObject);
procedure VaComm1RxChar(Sender: TObject; Count: Integer);
public
{ Public declarations }
end;

Переношу TObj в dll, таймеры работают,
вызовы процедур и функций TVaComm работают, только если добавить MessageDlg():

procedure TObj.OnTimerDlySendCmd(Sender: TObject);
begin
Obj.TimerDlySendCmd.Enabled:=false;
Obj.VaComm1.WriteText(cmd);
MessageDlg("onTcmd",mtInformation,[mbOK],0);//**
end;

Что изменить, чтобы работало без MessageDlg?
В чем причина?

Спасибо

← →
Сергей М. © (2006-09-07 09:06) [1]

> вызовы процедур и функций TVaComm работают

Что значит "работают" ?
А когда они "не работают", то в чем и как это проявляется ?

DLL: функция VaComm.WriteText() вызывается при наличии MessageDlg Найти похожие ветки