|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Windows 7 и TClientSocket
Помогите плиз, может чета не догоняю. Программка клиент висит все время в процессах и должна если сервер доступен на любом из вышеуказанных ip коннектится к серверу, делаю таймер и коннект:
Код:
procedure TForm1.Timer1Timer(Sender: TObject); begin ClientSocket1.Close; Timer1.Enabled := False; try if socnum<2 then inc(socnum) else socnum:=0; case socnum of 0: ClientSocket1.Address:='*********'; // тут нормальные айпи место звездочек 1: ClientSocket1.Address:='*********'; 2: ClientSocket1.Address:='*********'; end; ClientSocket1.Open; except end; end; procedure TForm1.ClientSocket1Error(Sender: TObject; Socket: TCustomWinSocket; ErrorEvent: TErrorEvent; var ErrorCode: Integer); begin ErrorCode := 0; ClientSocket1.Close; Timer1.Enabled:=true; end; Так вот, в вин Хр это проходит нормально, а в семерке работает только если запустить из самой среды дэльфи, сканил ТСР активность программы если запускать не из среды, вообще не пытается установить соединение, почему такое может быть? И сразу еще один вопрос, почему программка если нет сервера и пытается подключаться на айпи и порт, плодит открытые порты? пока не забьет все доступные порты? ( |