Ahoj všem,
píšu si takový jednoduchý prográmek, který využívá unitu napsanou
někým jiným, a nedaří se mi rozchodit předávání hodnot z této unity do
mého programu. Opačným směrem vše funguje bez problémů. Zde je kus kódu
unity:
procedure TForm1.Connect_TWSClick(Sender: TObject);
var
Disp:IDispatch;
Event:_DTwsEvents;
begin
Tws1.connect('127.0.0.1', 7496, 0, 0);
Disp:=CreateComObject(CLASS_Tws) as IDispatch;
Event:=_DTwsEvents(Disp);
cas:=1;
Tws1.reqCurrentTime;
Event.currentTime(cas); //v proměnné cas by měl být aktuální čas, bohužel tomu tak není
V manuálu od té cizí unity se píše: ActiveX events receive information
from the system and make it available to an application. This section defines
the ActiveX events you can receive via the DTwsEvents interface.
A konkrétně pro proceduru currentTime: This method receives the current system
time on the server side.
Může mně prosím někdo alespoň nasměrovat, kde dělám chybu? Děkuji.
Děláme co je v našich silách, aby byly zdejší diskuze co nejkvalitnější. Proto do nich také mohou přispívat pouze registrovaní členové. Pro zapojení do diskuze se přihlas. Pokud ještě nemáš účet, zaregistruj se, je to zdarma.
