Проблема с отправкой текста через tclientsocket (delphi) v2.0

[dyonysos]

пытаюсь отправить текст с помощю tclientsocket (D2009) и вот что получается:

//отправка
procedure TForm1.SendClick(Sender: TObject);
begin
clientsocket1.Socket.SendText(edit2.Text);
end;

//прием
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
  var
  s:string;
begin
s:=socket.ReceiveText;
memo1.Lines.Add(s);
end;

посоветовали поменять набор символов (http://programmersforum.ru/showthrea...495#post335495)
но не помогает как видно! в чем проблема?

[russian-stalker]

попробуйте вместо STRING, ANSISTRING

[dyonysos]

вот что получилось:

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
  var
  s:ansistring;
begin
s:=socket.ReceiveText;
memo1.Lines.Add(s);
end;

[russian-stalker]

А если так:

//отправка
procedure TForm1.SendClick(Sender: TObject);
begin
clientsocket1.Socket.SendText(ansistring(edit2.Text));
end;

//прием
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
  var
  s:ansistring;
begin
s:=ansistring(socket.ReceiveText);
memo1.Lines.Add(s);
end;

Или ещё как выход попробовать по аналогии с типом char

[dyonysos]

тоже самое (???????? вместо privet)!
а что за аналогия с чар? только не ругайте,я только начал учить дэлфи...

[SERG1980]

Может это не сервер виноват а мемо, попробуйте в другие текстовые компоненты вывести текст (edit, panel, .......)

[dyonysos]

пробовал в лейбл,тоже самое!

[SERG1980]

Ещё попробуйте

var s:widestring

или попробовать считать текст без переменной

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
begin
memo1.Lines.Add(socket.ReceiveText);
end;

[dyonysos]

уже лучьше! вместо квадртиков йероглифы показывает если widestring использовать,а без переменной добавляется строка с пробелами.

[SERG1980]

Если не трудно выложите ваш проект желательно с ЕХЕ