Форум: "Начинающим";
Текущий архив: 2006.11.19;
Скачать: [xml.tar.bz2];
ВнизКак связать эти две программы, Найти похожие ветки
← →
Busik © (2006-11-01 18:52) [0]Подскажите плиз ,как связать эти две программы, то есть если Интернет есть шлём
письмо ,если нет тихо выходим ,не задавая лишних вопросов.
//Этот код проверяет наличие подключенного Интернета
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;
const IC_Modem=1;
IC_LAN= 2;
IC_PROXY=3;
IC_MODEM_BUSY=4;
winetdll="wininet.dll";
type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
function InternetGetConnectedState(lpdwFlags:LPDWORD; dwReserved: DWORD):
BOOLEAN; stdcall; external winetdll name "InternetGetConnectedState";
{$R *.dfm}
procedure TForm1.Timer1Timer(Sender: TObject);
var dwConnectionTypes: DWORD;
begin
dwConnectionTypes:=IC_MODEM+IC_LAN+IC_PROXY;
if InternetGetConnectedState(@dwConnectionTypes,0) then
else
end;
end.
---------------------------------------------------------------------------------------------------------------------
//Этот код отправляет письмо
var
a,b,c String
------------------------------------------------------
-------------------------------------------------
NMSMTP1.Host :="87.249.30.162";
NMSMTP1.UserID :="Busik";
NMSMTP1.Charset := "windows-1251";
NMSMTP1.PostMessage.FromAddress :=a;
NMSMTP1.PostMessage.ToAddress.Text :=b;
NMSMTP1.PostMessage.Body.Text :=c;
NMSMTP1.PostMessage.Subject :="Ot tuda";
NMSMTP1.SendMail;
if NMSMTP1.Connected then
NSMTP1.Disconnect;
end;
end.
← →
Leonid Troyanovsky © (2006-11-01 19:14) [1]
> Busik © (01.11.06 18:52)
> если Интернет есть шлём
> письмо ,если нет тихо выходим ,не задавая лишних вопросов.
тихо выходим ,не задавая лишних вопросов.
--
Regards, LVT.
← →
Орион © (2006-11-01 19:31) [2]> [0] Busik © (01.11.06 18:52)
вам на xakep.ru - там такие же как вы, там помогут.
← →
Busik © (2006-11-01 20:03) [3]Спасибо что не отказали ......................
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.11.19;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.071 c