ClientSocket/Serversocket SendText

[S_Yevgeniy]

Доброе время суток. У меня тоже была токая проблема на форумах в Интернете я нашел такое решение
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 за примеры и помощь.