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

Necesitamos más información, por favor, revisa nuestra guía de estilo, gracias.

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

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