CommandText:=StrToInt(AThread.Connection.ReadLn()) ;
case CommandText of
1:
BTN1.Click;
2:
BTN2.Click;
end;
چنتا نکته :
چون کامپوننت TCPServer برای هر کانکشن یه ترد میسازه ، شما نمیتونید به اشیا مین ترد در یه ترد جانبی دسترسی داشته باشید.
بهتره با یه SendMessage این پیغام رو به فرم اصلی برنامتون بفرستید و با یه مسیج هندلر (WndProc) پیغام رو مورد بررسی قرار بدید.
دوم اینکه روی اون سیستم کلاینتتون ، برید و ببینید به صورت لوکال این کار انجام میشه؟
شاید میکروفون رو نمیشناسه.
اولا از صحت شرایط رو کلاینت مطمئن بشید.