DLL: функция VaComm.WriteText() вызывается при наличии MessageDlg [D6]
bnv123 © (2006-09-06 17:34:00)
Есть компонент 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:00) [1]
> вызовы процедур и функций TVaComm работают
Что значит "работают" ?
А когда они "не работают", то в чем и как это проявляется
?
Наверх 
ЧАТ |
Орешник |
|
