Correo electrónico
Hola a todos:
A traves de un programa creado con delphi, como compruevo si tengo conexión a internet para mandar un correo electrónico automáticamente, sin que de ninguna notificación de que va a mandarlo o de que a sido enviado.:confused: :confused: Un saludo |
Bueno, amigo (trucomania)
Eso me suena raro pero confio en tu buena voluntad, para detectar si hay conexion a internet puedes hacer lo siguiente:
procedure TForm1.Button1Click(Sender: TObject); function FuncAvail(_dllname, _funcname: string; var _p: pointer): boolean; { Devuelve true si la funcion _funcname esta disponible en la DLL _dllname. Si es asi, almacena en _p la direccion de la función. } var _lib: tHandle; begin Result := false; if LoadLibrary(PChar(_dllname)) = 0 then exit; _lib := GetModuleHandle(PChar(_dllname)); if _lib <> 0 then begin _p := GetProcAddress(_lib, PChar(_funcname)); if _p <> nil then Result := true; end; end; { En la ayuda de M$ pone que la funcion se encuentra en SHELL32.DLL, pero en mi Windowz98 no esta en esa DLL pero si en URL.DLL. Desconozco como ira en otros sistemas Windows. } var InetIsOffline : function(dwFlags: DWORD): BOOL; stdcall; begin { Ojo: 'InetIsOffline' debe de estar escrito con estas mayusculas y minusculas.} if FuncAvail('URL.DLL', 'InetIsOffline', @InetIsOffline) = true then if InetIsOffLine(0) = true then ShowMessage('No estas conectado') else ShowMessage('Estas conectado!'); end; |
Gracias por tu Código, utilizo el XP me funciona. Lo que haora quiero saber es como mando un correo con un archivo *.txt automaticamente.¿Me entiendes lo que quiero decir?
Bueno espero que me me entiendas y me mandes prontico otro trozo de código. Por cierto ¡¡¡Felicidades y enarobuena!!!:D Es Chico o Chica |
La franja horaria es GMT +2. Ahora son las 04:00:24. |
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