Цитата:
|
Сообщение от Rick
Вначале запускаю приложение с TServerSocket, затем запускаю приложение с TClientSocet:
Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
cl1.Active :=true; это надо писать в конце
cl1.Address :=edit1.Text ;// здесь прописан адрес
cl1.Port :=7777;
end;
пишет: Asynchronous socket error 10049  |
........................................