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

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 работают


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

---

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

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



Память: 0.45 MB
Время: 0.036 c