Вот код.
Сервер
изначально установлены свойста 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,то работает
