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 12-12-2011
Avatar de KingOfDragons
KingOfDragons KingOfDragons is offline
Miembro
 
Registrado: abr 2008
Ubicación: culiacan, sinaloa
Posts: 72
Poder: 16
KingOfDragons Va por buen camino
Envió de notificaciones

Buenas Tardes a todos, tengo una aplicación que esta funcionando pero quiero que mi servidor de base de datos me este enviando una notificación a mi correo de cuando se genere una factura nueva con ciertos parámetros, ya tengo probado el método del envió del correo pero me interesa que el sistema lo haga en automatico sin que el usuario intervenga ya sea que cada cierto tiempo revise la base de datos y me mande toda la información como lo puedo hacer
Responder Con Cita
  #2  
Antiguo 13-12-2011
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.022
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
Necesitamos más información, por favor, revisa nuestra guía de estilo, gracias.
Responder Con Cita
  #3  
Antiguo 13-12-2011
Avatar de KingOfDragons
KingOfDragons KingOfDragons is offline
Miembro
 
Registrado: abr 2008
Ubicación: culiacan, sinaloa
Posts: 72
Poder: 16
KingOfDragons Va por buen camino
Disculpa no se a que te refieres específicamente pero hay va lo que necesito, Tengo un sistema que registra las novedades en una empresa X, y lo que necesito hacer es que cuando se registre una novedad nueva que cumpla con los parámetros X y Z, envié un correo a un listado de usuario, el problema principal es que en la maquina donde se registran estos eventos no cuenta con Internet y quisiera que otra computadora lo hiciera y que fuera transparente para el usuario de ese equipo, mi idea principal es que se ejecutara como un servicio de windows pero mi delphi no tiene la opción para crear programas como servicios, la otra opción era ejecutar el programa al iniciar el programa pero me gustaría que se quedara minimizado y se quedara como si fuera el msn y que el usuario no intervenga para nada con el sistema, les paso el código que uso para el envió del correo

Esta función me permite saber si esta conectado el cable o esta conectado a una red inalambrica, Aclaro para que funcione la funcion InternetGetConnectedState hay que incluir en el uses "WinInet"

Código Delphi [-]
function IsConnected: boolean;
const
  // local system uses a modem to connect to the Internet.
  INTERNET_CONNECTION_MODEM      = 1;
  // local system uses a local area network to connect to the Internet.
  INTERNET_CONNECTION_LAN        = 2;
  // local system uses a proxy server to connect to the Internet.
  INTERNET_CONNECTION_PROXY      = 4;
  // local system's modem is busy with a non-Internet connection.
  INTERNET_CONNECTION_MODEM_BUSY = 8;

var
  dwConnectionTypes : LongWORD;
begin
  dwConnectionTypes := INTERNET_CONNECTION_MODEM +
                       INTERNET_CONNECTION_LAN +
                       INTERNET_CONNECTION_PROXY;
  Result := InternetGetConnectedState(@dwConnectionTypes,0);
end;

y con esta función reviso y hay Internet y envió el correo

Código Delphi [-]
Function TDataModule7.sendMail(Asunto,bODY:string):Boolean;
Var
  hSession: HInternet;
begin
 If IsConnected then
  begin
    hSession := InternetOpen(PChar(application.title),INTERNET_OPEN_TYPE_PRECONFIG,nil,nil,0);
    If Assigned(InternetOpenURL(hSession, pChar('Http://www.google.com'), nil, 0, 0, 0)) then
    begin
      idMessage.FromList.EMailAddresses := 'Y@gmail.com';
      idMessage.From.Name:='Nombre Cuenta';
      idMessage.Recipients.EMailAddresses := 'X@hotmail.com';
      idMessage.Subject := Asunto;
      idMessage.Body.Add(Body);
      idSMTP.Username := 'x';
      idSMTP.Password := '123456';
    try
      idSMTP.Connect;
      if idSMTP.Connected then
      begin
        idSMTP.Send(IdMessage);
        Result:=True;
      end
      Else
        Result:=False;
    finally
      if idSMTP.Connected then
        idSMTP.Disconnect;
    end;

  end
  else
    Result:=False;
  end
  else
    Result:=False;
end;

De antemano muchísimas gracias por su poyo, Saludos

Última edición por KingOfDragons fecha: 13-12-2011 a las 03:53:53.
Responder Con Cita
  #4  
Antiguo 14-12-2011
Avatar de KingOfDragons
KingOfDragons KingOfDragons is offline
Miembro
 
Registrado: abr 2008
Ubicación: culiacan, sinaloa
Posts: 72
Poder: 16
KingOfDragons Va por buen camino
Cerrado

Ya quedo resuelto el tema muchísimas gracias resulta que el delphi que tenia si podía hacer aplicaciones como servicios Gracias a todos por su apoyo si a alguien le interesa saber de este tema en esta pagina fue donde me base
Service Application Tutorial

Gracias a todos por su apoyo, Saludos
__________________
Dime y lo olvido, enséñame y lo recuerdo, involúcrame y lo aprendo
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
No me llegan las notificaciones........ yapt Varios 16 27-07-2010 17:21:06
mensajes o notificaciones de Windows Nora Armijos API de Windows 4 17-11-2008 21:14:45
Personalizar notificaciones angelp4492 API de Windows 4 08-01-2008 20:18:33
envio de archivo con el componente envio de archivo joel20 JAVA 1 04-08-2006 11:28:53
Mediaplayer y las notificaciones. Jorghino reyes Varios 4 26-08-2005 08:46:48


La franja horaria es GMT +2. Ahora son las 17:56:25.


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