Ver Mensaje Individual
  #9  
Antiguo 10-10-2007
pmcastilla pmcastilla is offline
Miembro
 
Registrado: jul 2006
Posts: 22
Reputación: 0
pmcastilla Va por buen camino
Post

Antes de realizar los cambios de ip debes cerrar el puerto, sino genera un conflicto y tirar error.
Proba el mismo codigo con esa extra linea.
Código Delphi [-]
while not fin de la base de datos do
begin
//Extra Linea
   ClientSocket.Active := False;
   clientSocket.port := 2701;
   ClientSocket.Host := 'Dir IP1';
   try
      ClientSocket.Active := true;
   except
      on e:exception do 
         ShowMessage('Puerto '+IntToStr(clientSocket.port)+' de la direccion '+ClientSocket.Host+' está cerrado.'+#13+#10+e.Message)
   end
   next;
end;
Responder Con Cita