Лидеры

ни с ЯП, ни с ОС Вы не угадали https://github.com/jimmckeeth/FireMonkey-Android-Voice Есть и для делфи и для плюсов. Пользуйтесь

Есть метод. TControl.MakeScreenshot

Да пожалуйста) procedure nnn; var socket: TSocket; LBytes: TBytes; LRecesiv: TBytes; Begin socket := TSocket.Create(TSocketType.TCP); try // ну только ваш ип socket.Connect(TNetEndpoint.Create(192, 168, 1, 1, 8081)); LBytes := [233, 123, 001, $FF]; socket.Send(LBytes); while True do // Begin if socket.Receive(LRecesiv) = 0 then Continue; // если ничего не пришло - опять запрашиваем инфу if LRecesiv = LBytes then socket.Send([66, 124]); End; finally socket.Free; end; end;

Обновленная версия Более реалистичные диалоги для андроид 5.0 и выше MyDialogs_ZuBy.zip