Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.11.19;
Скачать: CL | DM;

Вниз

Как связать эти две программы,   Найти похожие ветки 

 
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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.047 c
1-1160398467
CDfdfgf
2006-10-09 16:54
2006.11.19
Tms "xlsadapter" - что это?


2-1162313990
Ezorcist
2006-10-31 19:59
2006.11.19
Проблемы с формой в dll :(


15-1162375517
pasha_golub
2006-11-01 13:05
2006.11.19
Стоимость дизайна для програм


2-1162459271
Amt2001
2006-11-02 12:21
2006.11.19
Помогите разобраться


2-1162226881
Evo
2006-10-30 19:48
2006.11.19
как убрать ошибку