Форум: "Начинающим";
Текущий архив: 2006.02.19;
Скачать: [xml.tar.bz2];

Вниз

Как програмно узнать есть ли коннект с интернетом.?   Найти похожие ветки 

← →
Officeman   (2006-02-04 13:17) [0]

Написал программу. Теперь надо чтоб при запуске программа открывала
URL адрес. но с учётом проверки соединения с интернет. т.е. если соединения есть или такой адрес найден(есть ответ), тогда открываем окно броузера. иначе не открываем.

нашёл похожую тему
http://delphimaster.net/view/6-1138956468/
но практически ничего не понял.

Объясните как сделать проще. Пожалуйста.

---

← →
Anatoly Podgoretsky ©   (2006-02-04 13:21) [1]

Что такое соединение с Интернет и зачем оно тебе нужно?
Просто запрашивай ресурс и обрабатывай ошибку.

---

← →
Officeman   (2006-02-04 13:31) [2]

после запуска программы, открывается окно броузера в котором загружается
html(или другая) страничка  с  баннерами. в слущае если такой адрес найден.

>Просто запрашивай ресурс и обрабатывай ошибку.
Это можно сделать если будет использоватся компонент TWebBrowser?
или это можно сделать без использованяи компонента?

я открываю ссылки так обычно.
ShellExecute(0, "", "http://......", "", "", SW_SHOW);
каким образом можно сделать обработку проверки. если адрес не найден?

программой будет пользоватся примерно 100 разных человек ежедневно.
Хочу чтоб прога пользу приносила.

---

← →
DrPass ©   (2006-02-04 13:35) [3]

Проверить связь можно обычным пингом, например, с помощью компоненты IdICMP

---

← →
Officeman   (2006-02-04 14:03) [4]

в  IdICMPClient  надо задавать HOST  в виде IP адреса.
как узнать IP адрес =)) например адрес такой   http://stalkerz.info

---

← →
Officeman   (2006-02-04 14:11) [5]

=)) ступил. уже разобрался с IP =))

---

← →
Officeman   (2006-02-04 14:17) [6]

нашёл пример работы компоненты    IdICMPClient

вот он.:  помылаешь адрес хоста. и пингуешь. получаешь в Memo результаты каждый интервал 1000.



unit Main;

interface

uses
 {$IFDEF Linux}
 QGraphics, QControls, QForms, QDialogs, QStdCtrls, QExtCtrls,
 {$ELSE}
 windows, messages, graphics, controls, forms, dialogs, stdctrls, extctrls,
 {$ENDIF}
 SysUtils, Classes, IdIcmpClient, IdBaseComponent, IdComponent, IdRawBase, IdRawClient;

type
 TfrmPing = class(TForm)
 lstReplies: TListBox;
 ICMP: TIdIcmpClient;
 Panel1: TPanel;
 btnPing: TButton;
 edtHost: TEdit;
 procedure btnPingClick(Sender: TObject);
 procedure ICMPReply(ASender: TComponent; const ReplyStatus: TReplyStatus);
 private
 public
 end;

var
 frmPing: TfrmPing;

implementation
{$IFDEF MSWINDOWS}{$R *.dfm}{$ELSE}{$R *.xfm}{$ENDIF}

procedure TfrmPing.btnPingClick(Sender: TObject);
var
 i: integer;
begin
 ICMP.OnReply := ICMPReply;
 ICMP.ReceiveTimeout := 1000;
 btnPing.Enabled := False; try
 ICMP.Host := edtHost.Text;
 for i := 1 to 4 do begin
 ICMP.Ping;
 Application.ProcessMessages;
 //Sleep(1000);
 end;
 finally btnPing.Enabled := True; end;
end;

procedure TfrmPing.ICMPReply(ASender: TComponent; const ReplyStatus: TReplyStatus);
var
 sTime: string;
begin
 // TODO: check for error on ping reply (ReplyStatus.MsgType?)
 if (ReplyStatus.MsRoundTripTime = 0) then
 sTime := "<1"
 else
 sTime := "=";

 lstReplies.Items.Add(Format("%d bytes from %s: icmp_seq=%d ttl=%d time%s%d ms",
 [ReplyStatus.BytesReceived,
 ReplyStatus.FromIpAddress,
 ReplyStatus.SequenceId,
 ReplyStatus.TimeToLive,
 sTime,
 ReplyStatus.MsRoundTripTime]));
end;



=) немогу сообразить.
когда при работе программы ХОСТИНГ не обнаруживается. программа выдаёт ошибку. надо сделать так чтобы ошибку невыдавало.

---

← →
Gero ©   (2006-02-04 14:25) [7]

> я открываю ссылки так обычно.
> ShellExecute(0, "", "http://......", "", "", SW_SHOW);
> каким образом можно сделать обработку проверки. если адрес
> не найден?

В общем случае никаким.

---

← →
Gero ©   (2006-02-04 14:26) [8]

> программа выдаёт ошибку. надо сделать так чтобы ошибку невыдавало.

try
except

---

← →
Officeman   (2006-02-04 14:43) [9]

напиши кусок кода как ты себе это представляешь! там много событий немогу понять какие относятся к этой ошибке. ошибка типа

# Socet Error 11004

---

← →
Gero ©   (2006-02-04 14:50) [10]

> там много событий немогу понять какие относятся к этой ошибке

ICMP.Ping;

---

← →
Officeman   (2006-02-04 15:11) [11]

в коде примера не сказано как отловить ошибку когда не пингуется адрес
=((  если кто знает привидите пример пожалуйста.

---

← →
Officeman   (2006-02-04 19:04) [12]

никто не знает или вопрос не ясен? подскажите кто знает. плиз плиз плиз...

---

← →
HITMAN ©   (2006-02-04 20:11) [13]

function TForm1.IsConnectedToInternet: Boolean;
var
  dwConnectionTypes: DWORD;
begin
  dwConnectionTypes :=
    INTERNET_CONNECTION_MODEM +
    INTERNET_CONNECTION_LAN +
    INTERNET_CONNECTION_PROXY;
  Result := InternetGetConnectedState(@dwConnectionTypes, 0);
end;


буттон1.клик

  if IsConnectedToInternet then
   begin
    Timer1.Enabled:=false;
    StartMessageLoad();
   end;


---

← →
Officeman   (2006-02-04 20:30) [14]

to HITMAN, большое - человеческое спасибо!!

---

← →
HITMAN ©   (2006-02-04 21:58) [15]

implementation

uses WinInet;

{$R *.dfm}

помойму ещё надо вставить WinInet

или поищи нужное тут:
(это пример с моего проэкта, поэтому толком непомню)

unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
 IdMessageClient, IdSMTP, StdCtrls, idMessage, ComCtrls, ExtCtrls, XPMan,
 Buttons, ImgList, Gauges, IdPOP3, SHELLAPI, Menus, ActiveX, MSHTML,
 OleCtrls, SHDocVw, FileCtrl;

---

← →
Officeman   (2006-02-05 02:56) [16]

я сразу разобрался.  спасибо за помощь. модуль отлично работает. =)

p.s. я не чайник. просто немного рассеяный.

тут анекдот вспомнил:

Купил книгу "С++ для чайников", оказалось что надо ещё купить "С++ для идиотов."

=)))))))))))))

---

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

Форум: "Начинающим";
Текущий архив: 2006.02.19;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.49 MB
Время: 0.038 c