| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Опять не работает сокет
ATLANTIDO © (2002-01-31 23:39:00)Господа программисты ! Возможно такой вопрос уже звучал, но...
Я использую в приложении clientsocket, который должен коннектится
к серверу, но не известно запущен сервер или нет. Я в
onError поставил ErrorCode:=0 - все замечательно работало,
даже когда сервер не запущен окно об ошибке не выскакивало.
А вот теперь ! Теперь я вообще не понимаю что творится !
Когда я явно указываю (в Object Inspector"е) IP-адрес
сервера приложение нормально работает (не выдается ошибка даже
если сервер не запущен). Но если я задаю айпишник програмно,
то не зависимо от того ЗАПУЩЕН сервер или нет возникает
ошибка Windows Socket Error: (10049), on API "connect".
Привожу код (хоть тут и приводить нечего):
procedure TForm1.FormCreate(Sender: TObject);
var
RemoteIP:string;
Reg : TRegistry;
begin
....{работа с реестром}
ClientSocket1.Address := Reg.ReadString("remoteip");
ClientSocket1.Active := True;
end;
Подскажитечто мне делать!
ATLANTIDO (2002-02-01 23:34:00) [1]Кстати , ещетакая тема : все это я делал на 127.0.0.1,
а записывая в .Host "localhost" все проходило нормально.
Может это делфи так поломали :-)?
ATLANTIDO (2002-02-01 23:27:00) [2]С хостом не работает а "не выдает ошибку".
Когда я делаю все тоже самое (см. исходник) только
с использованием свойства Host мой клиент все равно не
коннектится, просто обработчик ошибки нормально работает.
Вопрос остается открытым...
$hade (2002-02-01 12:11:00) [3]...ClientSocket1.Address - тут можно указывать тока IP...
надо делать так
ClientSocket1.HOST := Reg.ReadString("remoteip");
^^^^^
тада все работает...вроде..))
Pat (2002-02-01 00:16:00) [4]Аналогичная проблема. Такое ощущение, что сокеты сговорились и не хотят работать :-))
| |
