[Rick]

Здраствуйте. Вопрос по теории: у компонета TClientSocket свойство Address можно определять только на этапе Design-time или же его можно менять и в Run-time?

[Pilot_Red]

Можно и run-time

[Rick]

Вначале запускаю приложение с TServerSocket, затем запускаю приложение с TClientSocet:

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
cl1.Active :=true;
cl1.Address :=edit1.Text ;// здесь прописан адрес
cl1.Port :=7777;
end;

пишет: Asynchronous socket error 10049

[Pilot_Red]

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

Вначале запускаю приложение с TServerSocket, затем запускаю приложение с TClientSocet:

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
cl1.Active :=true; это надо писать в конце
cl1.Address :=edit1.Text ;// здесь прописан адрес
cl1.Port :=7777;
end;

пишет: Asynchronous socket error 10049

........................................

[Rick]

Теперь ошибка выходит, но не сразу (через 2-3 сек.) и номер ошибки другой: 10061

[Pilot_Red]

Я думаю что то с портами... проверяй чтобы настройки сходились.. и посмотри чтобы сервак был включен

[Rick]

Порт выбрал произвольно. А какой порт лучше юзать для отправки небольшого файла?

[Pilot_Red]

СВОБОДНЫЙ

C:\WINDOWS\system32\drivers\etc
файл services открываешь и смотришь в него, там прописываешь новый порт например 7777 по образу и подобию