Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 15-10-2018
Missael Missael is offline
Miembro
NULL
 
Registrado: sep 2018
Posts: 37
Poder: 0
Missael Va por buen camino
Verificar conexión a Internet en lapsos de tiempo

Buenas Tardes y hola de nuevo

Estoy haciendo una aplicación en delphi donde el usuario debe subir unos archivos a un servidor, un botón los manda al servidor, ahí todo esta bien, mi problema es que no se como hacer que cuando no tenga conexión a Internet, la aplicación verifique su conexión cada cierto tiempo, cuando ya detecte que el host tiene Internet, automáticamente se reanude la acción de mandar los archivos al servidor y así sucesivamente, cuando los haya subido todos, solo mandar un mensaje de 'Upload Succesful'

Espero puedan ayudarme, Muchas Gracias
Responder Con Cita
  #2  
Antiguo 16-10-2018
CarlosReyesg CarlosReyesg is offline
Miembro
 
Registrado: ago 2010
Posts: 21
Poder: 0
CarlosReyesg Va por buen camino
Cita:
Empezado por Missael Ver Mensaje
Buenas Tardes y hola de nuevo

Estoy haciendo una aplicación en delphi donde el usuario debe subir unos archivos a un servidor, un botón los manda al servidor, ahí todo esta bien, mi problema es que no se como hacer que cuando no tenga conexión a Internet, la aplicación verifique su conexión cada cierto tiempo, cuando ya detecte que el host tiene Internet, automáticamente se reanude la acción de mandar los archivos al servidor y así sucesivamente, cuando los haya subido todos, solo mandar un mensaje de 'Upload Succesful'

Espero puedan ayudarme, Muchas Gracias
buen día
te comparto una de las funciones que utilizo para validar si hay conexión a Internet no se si te sirva lo demás que necesitas tenes que analizarlo
funciona solo para windows
Código Delphi [-]
/////////////////////////////////////////////////////
///   Validar si hay internet
///   Ing. Carlos Reyes
class function TClientCommon.Ping(URL: PCHAR): Boolean;
var
  hNet      : Pointer;
  hUrl      : Pointer;
  BytesRead : DWORD;
  Buffer    : array [0..64] of char;
begin
   Result    := False;
   BytesRead := 0;

   if InternetAttemptConnect(0) <> ERROR_SUCCESS then exit;

   hNet := InternetOpen('WebIng', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
   if hNet <> nil then
   begin
      hUrl:= InternetOpenUrl(hNet, URL, nil, 0, INTERNET_FLAG_RELOAD, 0);
      if hUrl <> nil then
      begin
         ZeroMemory(@Buffer[0], sizeof(Buffer));
         Result:= InternetReadFile(hUrl, @Buffer[0], sizeof(Buffer), BytesRead);
         Result:= Result and (BytesRead > 0);
         InternetCloseHandle(hUrl);
      end;
      InternetCloseHandle(hNet);
   end;
   Result := Result and (Pos('Access Denied', Buffer) = 0);
end;

Código Delphi [-]
Implementacion
if TClientCommon.Ping('http://www.google.com') then
begin
     //escribie codigo que necesites
end;
pienso que deberias de crear una apliacion de tipo servicio y coloques un timer que puedas configurarlo atravez de un archivo .ini

ojala te sirva......



"Entre las dificultades se esconde la oportunidad"--> Albert Einstein
Responder Con Cita
  #3  
Antiguo 17-10-2018
Missael Missael is offline
Miembro
NULL
 
Registrado: sep 2018
Posts: 37
Poder: 0
Missael Va por buen camino
Buenas Tardes

Muchas gracias Ingeniero, la verdad si me funcionó bastante, le agradezco su tiempo para resolver mi duda.

Saludos.
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
verificar conexion a internet Firemonkey con Rad LACV FireMonkey 3 07-01-2016 17:37:00
Verificar conexion de internet/protocolo carlosprotos Varios 13 28-03-2015 14:50:04
Verificar Parametro de conexion en mydac webmasterplc OOP 3 01-08-2012 18:11:53
Verificar la Conexión a internet servicomp Internet 6 16-01-2011 19:20:17
Verificar si el computador tiene acceso a internet? Gattaca Varios 3 19-03-2009 02:46:43


La franja horaria es GMT +2. Ahora son las 21:13:15.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi