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

Вниз

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

 
Busik ©   (2006-11-01 18:51) [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;


 
Sam Stone ©   (2006-11-01 19:45) [1]

if InternetGetConnectedState(бла-бла-бла)then
отправляем письмо
else
halt;


 
Джо ©   (2006-11-01 19:47) [2]

Меня больше интересует вопрос, как связать автора.


 
Busik ©   (2006-11-01 19:56) [3]

Джо,ты не прав!!!Вспомни себя,каким ты был.


 
Джо ©   (2006-11-01 20:05) [4]

> [3] Busik ©   (01.11.06 19:56)
> Джо,ты не прав!!!Вспомни себя,каким ты был.

Вспомнил. Всплакнул. Но так и не смог припомнить, чтобы я спамил в веб-конференциях.


 
Busik ©   (2006-11-01 20:12) [5]

end.


 
Busik ©   (2006-11-01 20:49) [6]

К стати это не работает

procedure TForm1.FormCreate(Sender: TObject);
var dwConnectionTypes: DWORD;
begin
dwConnectionTypes:=IC_MODEM+IC_LAN+IC_PROXY;
if InternetGetConnectedState(@dwConnectionTypes,0) then

         NMSMTP1.Host :="87.249.30.162";
        NMSMTP1.UserID :="Busik";
       NMSMTP1.Charset := "windows-1251";
       NMSMTP1.PostMessage.FromAddress :="...........";
NMSMTP1.PostMessage.ToAddress.Text :="..............";
NMSMTP1.PostMessage.Body.Text :="Hello";
NMSMTP1.PostMessage.Subject :="Ot tuda";
NMSMTP1.SendMail;
    if NMSMTP1.Connected then
       NSMTP1.Disconnect;
else

halt;

end;

end.


 
Ketmar ©   (2006-11-01 20:57) [7]

>[6] Busik(c) 1-Nov-2006, 20:49
>К стати это не работает
мы скорбим вместе с автором.

зыж используй вертикальный конструкционный элемент здания для причинения повреждений, несовместимых с жизнью. (ц) DiamondShark


 
Sam Stone ©   (2006-11-01 20:58) [8]


> [6] Busik ©   (01.11.06 20:49)

Рыдаль... :)


 
Орион ©   (2006-11-01 21:09) [9]

> [6] Busik ©   (01.11.06 20:49)

орех! давненько не было


 
Gero ©   (2006-11-02 00:21) [10]

> [6] Busik ©   (01.11.06 20:49)

Приобрети книгу по основам паскаля и внимательно прочитай.


 
Gero ©   (2006-11-02 00:21) [11]

> [6] Busik ©   (01.11.06 20:49)

Приобрети книгу по основам паскаля и внимательно прочитай.


 
Busik ©   (2006-11-02 01:16) [12]

Да ,Хорошо что ещё по морде не дали..............видно пацаны не в настроении.


 
Джо ©   (2006-11-02 01:31) [13]

> [12] Busik ©   (02.11.06 01:16)
> Да ,Хорошо что ещё по морде не дали..............видно пацаны
> не в настроении.

Дружище, можно вопрос личного характера? У тебя какая специальность?


 
Плохиш ©   (2006-11-02 12:20) [14]


> Джо ©   (02.11.06 01:31) [13]


> У тебя какая специальность?

Спрашиваешь, словно не догадался ещё :-)


 
Сергей М. ©   (2006-11-02 12:24) [15]


> Busik ©   (01.11.06 20:49) [6]


А почему это должно работать ?
Что вообще по-твоему означает "Интернет eсть" ?


 
Сергей М. ©   (2006-11-02 12:31) [16]


> Busik


Вот у тебя, к примеру, есть сотовый телефон.

Уехав на время в другие края и веси ты, к примеру, не открыл услугу роуминга и связаться с нужными абонентами не имеешь возможности, хотя и находишься в зоне обслуживания того или иного сотового оператора.

Означает ли это, что у тебя нет доступа ко всемирной сети мобильной связи ?



Страницы: 1 вся ветка

Текущий архив: 2006.11.19;
Скачать: CL | DM;

Наверх




Память: 0.5 MB
Время: 0.041 c
2-1162280494
Делфи
2006-10-31 10:41
2006.11.19
IP


2-1162400081
olevacho_
2006-11-01 19:54
2006.11.19
Forbidden при вызове get метода в TIDHTTP


15-1162215563
@!!ex
2006-10-30 16:39
2006.11.19
GotDotNet


2-1162587041
Ekzot
2006-11-03 23:50
2006.11.19
Путь к исполняемому файлу


2-1162488318
funky
2006-11-02 20:25
2006.11.19
Сколько макс. файлов можно загрузить в OpenDialog?