[ Trodmi @ 24.12.2009. 18:05 ] @
Delphi 7 - jednostavna server klijent aplikacija. Kako na server formi implementirati dugme koje ne dozvoljava klijentima (vec 'nakacenim') da salju dalje naredbe serveru? Nesto kao pause/resume. Unapred hvala.
[ savkic @ 24.12.2009. 18:58 ] @
> Kako na server formi implementirati dugme koje ne dozvoljava klijentima (vec 'nakacenim') da salju dalje naredbe serveru?
> Nesto kao pause/resume. Unapred hvala.

Možeš diskonektovati sve klijente ili podesiti neki boolean flag koji ćeš testirati prilikom obrade zahteva i ako je setovan samo izaći.
[ Trodmi @ 25.12.2009. 02:02 ] @
Kod?
[ savkic @ 25.12.2009. 11:59 ] @
> Kod?

Za diskonektovanje? npr. u OnTCPExecute, AContext.Connection.Disconnect; Ako hoćeš sve klijente do njih možeš doći preko FServer.Contexts.LockList...
Za flag dodaš neki globalnu boolean promenljivu u klasu čiju vrednost ćeš ispitivati u OnTCPExecute ili gde već obrađuješ klijentske zahteve.