TServerSocket TClientSocket в FireMonkey

[lis]

Здравствуйте

Мне нужно организовать обмен массивами типа unsigned char между приложением и контроллером через Ethernet. То есть "в сети" будет всегда 1 клиент и 1 сервер.

Столкнулся со следующей проблемой:

При создании приложения на VCL для передачи массивов типа char пользовался указанными в названии темы компонентами

ServerSocket1->Socket->Connections[0]->SendBuf(Message,MessLenght)
void __fastcall TfrmMain::ServerSocket1ClientRead(TObject *Sender, TCustomWinSocket *Socket)
{
RecLenght = Socket->ReceiveLength();
Socket->ReceiveBuf(RecBuffer,RecLenght);
}

Сейчас пишу аналогичное приложение на FireMonkey, и тут указанных компонентов нет.. Попробовал заморочиться с Indy (IdCmdTCPServer1, IdCmdTCPClient1) - пока получается только отправить/получить String, и то как-то неудобно и муторно.. 

MyContext->Connection->IOHandler->WriteLn("lala");
AContext->Connection->IOHandler->ReadLn();

Подскажите пожалуйста, есть ли "заменитель" TServerSocket TClientSocket в FireMonkey? Или может чем ещё можно решить мою задачу..  Или хоть как это сделать через Indy?..

 

Заранее спасибо!

Изменено 22 июня, 2015 пользователем lis

[Евгений Корепов]

Как то так? 

Var mes : TIdBytes;
begin
SetLength(mes,3);
mes[0] = 0x0A;
mes[1] = 0x23;
mes[2] = 0xBC;
ifTCPClient.Connect(IP,Port);
if  ifTCPClient.Connected Then
idTCPClient.IOHandler.Write(mes,Length(mes));  
...

Код "mes[0] = 0x0A;" не стал менять для наглядности, а TIdBytes = array of Byte;

Изменено 3 июля, 2015 пользователем Евгений Корепов

[david_yusupov]

Не могу знать во время или нет... это библиотека работает на MAC OS, на андройде не проверял.

http://www.ararat.cz/synapse/doku.php/download