[anghela]

Делаю клиент-серверное приложение. Использую компоненты TClientSocket? TSrverSocket для передачи данных. Для подключения пишу такой код для кнопки:

Код:

1 2 3 4 5 6 7 8 9

if ClientSocket1.Active then  begin    ClientSocket1.Close;    Exit;  end;    ClientSocket1.Host:='78.85.164.232';  ClientSocket1.Port:=1001;  ClientSocket1.Open;

Для клиентСокет (это просто для проверки будут данные приходить или нет):

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

procedure TForm11_oplata_kred.ClientSocket1Connect(Sender: TObject;   Socket: TCustomWinSocket); begin   Socket.SendText('hello');   ListBox1.Items.Add('< hello'); end;   procedure TForm11_oplata_kred.ClientSocket1Read(Sender: TObject;   Socket: TCustomWinSocket); begin   ListBox1.Items.Add('> ' + Socket.ReceiveText); end;   procedure TForm11_oplata_kred.Button1Click(Sender: TObject); begin   ClientSocket1.Socket.SendText(Edit1_ssud_schet.Text);   ListBox1.Items.Add('< ' + Edit1_ssud_schet.Text); end;

Выводит ошибку на Host. Подскажите, в чем ошибка. IP правильный, проверяла.

[M.A.D.M.A.N.]

Какого типа ошибка?

[poli-smen]

Сообщение от anghela

Делаю клиент-серверное приложение. Использую компоненты TClientSocket? TSrverSocket для передачи данных. Для подключения пишу такой код для кнопки:

Код:

.....
Выводит ошибку на Host. Подскажите, в чем ошибка. IP правильный, проверяла.

Какую ошибку хоть выводит? У меня этот код работает и никаких ошибок не выдаёт.

[anghela]

выходит ошибка: Asynchronous socket error 10061. Process stopped

меняла порт, ошибка по прежнему выходит. Антивирус ничего не показывает