[anghela]

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

Код:

 if ClientSocket1.Active then
  begin
    ClientSocket1.Close;
    Exit;
  end;

  ClientSocket1.Host:='78.85.164.232';
  ClientSocket1.Port:=1001;
  ClientSocket1.Open;

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

Код:

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 для передачи данных. Для подключения пишу такой код для кнопки:

Код:

 if ClientSocket1.Active then
  begin
    ClientSocket1.Close;
    Exit;
  end;

  ClientSocket1.Host:='78.85.164.232';
  ClientSocket1.Port:=1001;
  ClientSocket1.Open;

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

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

[anghela]

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

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