Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 16.04.2013, 21:33
Pilyla Pilyla вне форума
Прохожий
 
Регистрация: 09.04.2013
Сообщения: 23
Версия Delphi: Delphi 7
Репутация: 10
Сообщение Ошибка 11004 в чем дело не пойму

две программы, одна-с ServerSocket,другая-ClientSocket. Клиент запускает сервер, и коннектится к нему. но почему-то возникает ошибка 11004. вчем дело,не пойму. Вот код.
Сервер
изначально установлены свойста Port :=1963;
Active:=true;


Код:
procedure TForm1.ServerSocket1ClientConnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
Memo1.Lines.Add('+');
end;

Клиент

procedure TForm1.FormCreate(Sender: TObject);
begin
t:=0;
ClientSocket1.Port:=1963;
ClientSocket1.host:='263.6.0.0';
ClientSocket1.address:='263.6.0.0';
ClientSocket1.active:=false;
end;

procedure TForm1.ClientSocket1Connect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
memo1.Lines.Add('+');
end;

procedure TForm1.Button1Click(Sender: TObject);    
begin
  if   (findwindow(nil,'Идет процесс')=0 )
  then        begin
  shellExecute(Handle,'open','D:\server0\server.exe',nil,nil,SW_SHOWNORMAL) ;
  timer1.Enabled:=true;
  end else 
if  ((findwindow(nil,'Идет процесс')<>0 )and  (t=0 ) )   then   // если окно найдено и  первый раз
begin    ClientSocket1.Active:=true  ;
    showmessage('00000')      ;  end
else if((findwindow(nil,'Идет процесс')<>0 )and  (t=1 ) ) then    //ранее нажата кнопка с найденным окном
begin ClientSocket1.Active:=false  ;
showmessage('11111')  ; end;
  t:=1;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if (findwindow(nil,'Идет процесс')<>0 )then  begin
    timer1.enabled:=false;
   showmessage('timer');
    clientSocket1.Active:=true;
   end;
end;
Админ: Пользуемся тегами для оформления кода!

Последний раз редактировалось Admin, 16.04.2013 в 21:57.
Ответить с цитированием
  #2  
Старый 16.04.2013, 21:39
Pilyla Pilyla вне форума
Прохожий
 
Регистрация: 09.04.2013
Сообщения: 23
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию

ClientSocket1.address:='263.6.0.0';
и ошибка 10049

Последний раз редактировалось Pilyla, 16.04.2013 в 21:41.
Ответить с цитированием
  #3  
Старый 16.04.2013, 21:40
Аватар для Alegun
Alegun Alegun вне форума
LMD-DML
 
Регистрация: 12.07.2009
Адрес: Богородское
Сообщения: 3,025
Версия Delphi: D7E
Репутация: 1834
По умолчанию

error 11004 - Valid name, no data record of requested type
найдено имя (сервер) но к нему нет данных запрашиваемого типа (например ip)

З.Ы. Тогда так - ошибка 10049 : Невозможно использовать запрошенный адрес для привязки в порту

Цитата:
WinSock Error Descriptions
WSAEADDRNOTAVAIL (10049) Cannot assign requested address.
Berkeley description: Normally results from an attempt to create a socket with an address not on this machine.
WinSock description: Partly the same as Berkeley. The "address" it refers to is the remote socket name (protocol, port and address). This error occurs when the sin_port value is zero in a sockaddr_in structure for connect() or sendto().
In Berkeley, this error also occurs when you are trying to name the local socket (assign local address and port number) with bind(), but Windows Sockets doesn't ascribe this error to bind(), for some unknown reason.
Developer suggestions: Assume bind() will fail with this error. Let the network system assign the default local IP address by referencing INADDR_ANY in the sin_addr field of a sockaddr_in structure input to bind(). Alternately, you can get the local IP address by calling gethostname() followed by gethostbyname()...

Последний раз редактировалось Alegun, 16.04.2013 в 22:03.
Ответить с цитированием
  #4  
Старый 16.04.2013, 21:57
Pilyla Pilyla вне форума
Прохожий
 
Регистрация: 09.04.2013
Сообщения: 23
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию Если использовать localhost,то работает

очень странно
Ответить с цитированием
  #5  
Старый 16.04.2013, 22:27
Аватар для PhoeniX
PhoeniX PhoeniX вне форума
Always hardcore!
 
Регистрация: 04.03.2009
Адрес: СПб
Сообщения: 3,239
Версия Delphi: GCC/FPC/FASM
Репутация: 62149
По умолчанию

Цитата:
ClientSocket1.address:='263.6.0.0';
о_О странный IP. Во-первых, последний октет не может быть 0. Во-вторых, октет имеет диапазон 0..255, как могло получиться 263?
__________________
Оставайтесь хорошими людьми...
VK id2634397, ds [at] phoenix [dot] dj
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 14:15.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter