2014 dxdy logo

Научный форум dxdy

Математика, Физика, Computer Science, Machine Learning, LaTeX, Механика и Техника, Химия,
Биология и Медицина, Экономика и Финансовая Математика, Гуманитарные науки




 
 Ошибка 11004 delphi
Сообщение16.04.2013, 20:30 
Вот код.
Сервер
изначально установлены свойста 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;


-- 16.04.2013, 19:41 --

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

-- 16.04.2013, 19:56 --

Если использовать localhost,то работает

 
 
 
 Re: Ошибка 11004 delphi
Сообщение16.04.2013, 22:35 
Адрес Вашего сервера - 263.6.0.0:1963 - очень странный:
263 > 255, чего быть не должно.

На всякий случай, вдруг пригодится:
Windows Sockets Error Codes

 
 
 [ Сообщений: 2 ] 


Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group