[Delphi] prenesenie EVENT na cudzi UNIT

Zaujimalo by ma, ci sa da, aby bola vykonana EVENT (procedura), ktora patri pod UNIT1, ju uskutocnit na UNIT2 ?

Priklad:
EVENT: FormCreate, na UNIT1


Da sa, aby bola tato procedura aj v UNIT2 ? Ak, nie ako sa riesi toto spojenie?

ake spojenie myslis ?

Ide o tento komponet TMS Async32, co sa nan jeden uzivatel pytal http://www.pcforum.sk/rs-232-vt109347.html .

Problem je v tom, ze ten komponent mam umiestneny na Form1. A potreboval by som aj vo Form2 aby som mohol precitat ked mi pride novy bajt na RS232.
Komponent pracuje tak, ze po prijme noveho bajtu vykona EVENT _ OnRxChar, procedura - a samotny prikaz na precitanie prijateho bajtu je .

Zatial to riesim takym sposobom, ze mam nastaveny casovac (TIMER) a ten pravidelne vzorkuju a cita stav portu, ibaze chcel by som odlachsit PC, tak by bolo dobre miesto casovaca (TIMER) aby nastala EVENT (procedura) po novom prijme (ako je to na FORM1).

no toto asi iba tak ze v TForm1.VaComm1RxChar budes mat volanie procky z unitu2 cize v TForm1.VaComm1RxChar nacitas data z commportu a bud ich spracujes pre potreby form1 alebo ich volanim procky z uni2 posles do form2. apropo aj ine komponenty to riesia cez timmer takze s vytazenim pc by som si take starosti nerobil.

Ak som správne pochopil, chceš volať event triedy z jedného unitu v inom unite rovnakej triedy? Ak áno, tak skús spraviť nasledovnú vec, či to je to, čo chceš:

1.) Vytvor si nový projekt, a na formulár umiestni button, v ktorého OnClick evente bude:


2.) V menu vyber vytvoriť nový form a do Unitu2 do uses pridaj Unit1.
3.) Na Form2 umiestni taktiež button
4.) Do OnCreate eventu Form2 pridaj:

5.) Nakoniec nastav v Object Inspectore pre oba formuláre Visible na true ( aby boli oba viditeľné hneď po štarte )

Spusť aplikáciu a po kliknutí na tlačidlo na jednom i druhom formulári sa vykoná rovnaká udalosť Button1 eventu z Form1. Ak si potreboval práve toto, tak máš postup, ako priradiť event druhej triede.

to coldak:
tak 1. moznost by sla , ibaze ja som to chcel mat pekne oddele jedna cast progrmu vo form1 druha cast vo form2, ... form5 takto by som to vsetko do form1 nabachal.
No ked nebude ine riesenie, necham to na tom TIMER, je tam cas 50 ms vzorkovania, je to OK pre PC ?

to Fico:
No ja som to trochu inak myslel, v Form1 by sa vykonala jedna instrukcia a v druhom Form2 by sa zas ina instrukcia vykonala. Pricom by ten komponet v Form1, vyvolal EVENT aj na tom Form2.


Inak povedane, dal by som prvok Edit1 na Form1, po zmene textu by sa vykonala EVENT na Form1

A na Form2 by som chcel nech tiez mi vyvola EVENT - Edit1Change, pricom by bol iny prikaz vykonany napr:


Cize vlastne obe hlasky by vyskocili po zmene textu v EDIT1, pricom tu 2. hlasku by vykonal 2 UNIT. Snad som to dobre vysvetlil

Tak to potom môžeš volať jeden event z toho druhého:



uses Unit2;


Nebude to už systémové volanie, ale neviem, či sa dá nastaviť objektu viac ako jedna obsluha na jeden event.

Ak by si mohol, poslal by si mi to v projekte, pretoze presne som asi nepochopil co kde dat a nechce mi to skompilovat.

Urobil som to takto, na Form1 som dal EDIT1 a na Form2 nic som nepridava.

Unit1:



Unit2:


Co som zle spravil?

Do definície typu triedy TForm2 si nedal funkciu Edit1Change:

Opat velka vdaka Fico.
Uz mi to ide pod tym komponetom TMS Async32, aspon sa o nieco odlahsi PC a nieco nove som sa naucil.

EDIT:
To volanie je asi ako rychle? Potreboval by som aspon do 50ms, to snad je?

Volanie prebehne okamžite po ukončení celého kódu pred ním



Čiže najprv sa vykoná jeden potom druhý. Ak potrebuješ, aby bežali takmer súčasne oba eventy, môžeš použiť vlákna, ale daj pozor na synchronizáciu, ak pracuješ s rovnakými dátami.

OK, nepotrebujem sucastne aby pracovali. Takto to plne vyhovuje.


Teraz ma napadla taka vec (mimo temy) ako sa da v Delphi urobit oneskorenie radovo us? pretoze sleep/ timer, vsetko je od 1 ms

Skús pozrieť, neskúšal som to:
http://www.swissdelphicenter.ch/torry/printcode.php?id=1727

Ale myslím, že tak malé oneskorenie ani nie je nutné, môžeš rovno pokračovať bez čakania, prípadne si sprav krátku slučku for s prázdnym telom.

Zaujimave riesenie, vies mi aj vysvetlit ako to funguje. Mne to pripada, ze na zaklade taktu prepocita pocet instrukcii a tym vyde to oneskorenie, alebo sa mylim ?

presne tak riesit kratke cakanie nema zmysel, aj tak ho nedokazes vykonat presne, nakolko samotna rezia na take nieco zaberie viac casu. a musis si uvedomit ze tam mas preemptivny multitasking cize tvoj proces nieje vykonávaný kontinualne ale raz za cas mu je prideleny procesorovy cas a interval pristupu k procesoru je rozny v zavyslosti od aktualneho poctu prave beziacich procesov a ich priorit.

To je pravda, len zaujimalo by ma, ked su rozne meracie zariadenia, ktore musia mat pristup na port aj 1 E+5 za 1 sek, ako je to riesene, zvysia si prioritu, ale aj tak multitasking to nezastavi ?

citanie z portu funguje tak ze si vytvoria vlakno ktore si otvori port a snazi sa z neho nieco nacitat, cize caka na nejake data kym netimeoutuje, po timeoute si bud nieco kratke vykona alebo sa hned zase pokusi citat z portu a zase pokial netimeoutuje. vdaka timeout nemusi tak casto skusat.