Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как связать эти две программы [D6]

Busik © (2006-11-01 18:51:00)
Подскажите плиз ,как связать эти две программы, то есть если Интернет есть шлём
письмо ,если нет тихо выходим ,не задавая лишних вопросов.

//Этот код проверяет наличие подключенного Интернета

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;

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

> Busik

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

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

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

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

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

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

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

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

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

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

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

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

Busik (2006-11-02 01:16:00) [5]
Да ,Хорошо что ещё по морде не дали..............видно пацаны не в настроении.

Gero (2006-11-02 00:21:00) [6]
> [6] Busik © (01.11.06 20:49)

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

Gero (2006-11-02 00:21:00) [7]
> [6] Busik © (01.11.06 20:49)

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

Орион (2006-11-01 21:09:00) [8]
> [6] Busik © (01.11.06 20:49)

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

Sam Stone (2006-11-01 20:58:00) [9]

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

Рыдаль... :)

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

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

Busik (2006-11-01 20:49:00) [11]
К стати это не работает

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.

Busik (2006-11-01 20:12:00) [12]
end.

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

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

Busik (2006-11-01 19:56:00) [14]
Джо,ты не прав!!!Вспомни себя,каким ты был.

Джо (2006-11-01 19:47:00) [15]
Меня больше интересует вопрос, как связать автора.

Sam Stone (2006-11-01 19:45:00) [16]
if InternetGetConnectedState(бла-бла-бла)then
отправляем письмо
else
halt;

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »