CODEGEAR RAD 2009.
Разбираюсь с компонентами интернета и столкнулся с проблемой:
Сервер:
Код:
String a;
TcpServer1->Receiveln(a);
TDateTime now = TDateTime::CurrentDateTime();
Memo1->Lines->Add(DateTimeToStr(now) + " Received: ");
Memo1->Lines->Add(String(a));
Memo1->Lines->Add("--------------------");
TcpServer1->Receiveln(a);
TDateTime now = TDateTime::CurrentDateTime();
Memo1->Lines->Add(DateTimeToStr(now) + " Received: ");
Memo1->Lines->Add(String(a));
Memo1->Lines->Add("--------------------");
Клиент:
Код:
TcpClient1->Active = true;
String s;
s = Form1->Edit1->Text;
TcpClient1->Sendln(s);
Form1->Label1->Caption="Отправляю сбщ";
TcpClient1->Active = false;
String s;
s = Form1->Edit1->Text;
TcpClient1->Sendln(s);
Form1->Label1->Caption="Отправляю сбщ";
TcpClient1->Active = false;
Проблема:
На сервере при получении сообщения возникают ошибки и в буфере "a" - тип String принимаются мысли с марса= (