|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
08.10.2009, 19:52 | #11 |
Форумчанин
Регистрация: 08.07.2009
Сообщений: 246
|
Доброе время суток. У меня тоже была токая проблема на форумах в Интернете я нашел такое решение
procedure TForm2.ServerSocket1ClientRead(Send er: TObject; Socket: TCustomWinSocket); Edit1.Text:=(String(Socket.ReceiveT ext)); End; Заменить на procedure TForm2.ServerSocket1ClientRead(Send er: TObject; Socket: TCustomWinSocket); var strRec: AnsiString; //AnsiString; begin SetLength(strRec, Socket.ReceiveLength); SetLength(strRec, Socket.ReceiveBuf(Pointer(strRec)^, Length(strRec))); //Edit1.Text:= string(strRec); Edit1.Text:= String(strRec); End; Русский и английский поддерживается нормально а вот казахский язык не поддерживается но не думаю что он вам будет нужен. Это у меня с ним проблема возникла может вы подскажете что можно сделать чтобы и он работал Заранее спасибо. Еще спасибо Stilet за примеры и помощь.
Да прибудет с Вами свет и радость!!!
Последний раз редактировалось S_Yevgeniy; 09.10.2009 в 07:12. |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Serversocket,clientsocket | prizrak1390 | Работа с сетью в Delphi | 10 | 21.04.2009 16:04 |
Работа с ServerSocket и ClientSocket | AlDelta | Работа с сетью в Delphi | 12 | 28.09.2008 11:18 |
Вопрос про ServerSocket и ClientSocket | civic.qip | Работа с сетью в Delphi | 8 | 27.09.2008 02:04 |
Работа с Clientsocket и Serversocket | prizrak1390 | Работа с сетью в Delphi | 3 | 26.04.2008 22:59 |
Events в ServerSocket и ClientSocket | LiFeStyle | Работа с сетью в Delphi | 3 | 22.11.2007 22:26 |