[Selw]

Пишу клиент-серверное приложение, и когда с клиента отправляю сообщение на сервер через SendText, сервер виснет...подскажите, пожалуйста, как это исправить?

[SPYtm]

наверное нужно выложить кусок кода, на котором виснет, чтобы можно было что-то подсказать

[Selw]

да собственно кода немного:
прием данных сервером:

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
begin
a:=ServerSocket1.Socket.ReceiveText;

if a = '1' then
begin
Label1.Caption := 'Ок';
end;
end;

Отправка данных клиентом:

procedure TForm1.Button3Click(Sender: TObject);
begin
ClientSocket1.Socket.SendText(Edit2.text);
end;

[4erep_88]

попробуй

Код:

a:=Socket.ReceiveText;

вместо

Код:

a:=ServerSocket1.Socket.ReceiveText;