VPF::Инет и ПрогрессБар - Форум программистов

Bigreddog

Дата 24.6.2009, 22:51 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 27
Регистрация: 27.10.2007

Репутация: нет
Всего: нет

Доброго времени суток! У меня такой вопрос что нужно изменить чтобы при соединении с инетом работал ПрогрессБар а если нет соединения то не работал. Вот примерный код. Спасибо за внимание.

Код


const INTERNET_CONNECTION_MODEM = 1;
      INTERNET_CONNECTION_LAN   = 2;
      INTERNET_CONNECTION_PROXY   = 3;

{$R *.dfm}
 var
  I: Integer;
procedure TForm1.Button1Click(Sender: TObject);
var
  dwConnectionTypes: DWORD;
begin
  dwConnectionTypes:=INTERNET_CONNECTION_MODEM+INTERNET_CONNECTION_LAN+INTERNET_CONNECTION_PROXY;
  if InternetGetConnectedState(@dwConnectionTypes,0) then
  else
    ShowMessage('No Connection');

    Button1.Enabled := True;
ProgressBar1.Min := 0;
ProgressBar1.Max := 10000000;
 for I := 0 to 222222 do
  begin
    ProgressBar1.Position := I;
  end;
  Beep;
  form1.showmodal;
  Button1.Enabled := True;
end;

Это сообщение отредактировал(а) Bigreddog - 24.6.2009, 22:52

Keeper89

Дата 24.6.2009, 23:22 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 6
Всего: 58

Что будет показывать этот ПрогрессБар?!

--------------------

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

Bigreddog

Дата 24.6.2009, 23:26 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 27
Регистрация: 27.10.2007

Репутация: нет
Всего: нет

Загрузку файла. Типа обновление программы

Romikgy

Дата 25.6.2009, 09:38 (ссылка)

(нет голосов)

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 3
Всего: 146

Цитата(Bigreddog @ 24.6.2009, 21:51

)

const INTERNET_CONNECTION_MODEM = 1;
INTERNET_CONNECTION_LAN = 2;
INTERNET_CONNECTION_PROXY = 3;

http://msdn.microsoft.com/en-us/library/aa384702(VS.85).aspx

--------------------

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

kami

Дата 25.6.2009, 23:50 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1806
Регистрация: 25.8.2007
Где: Санкт-Петербург

Репутация: 6
Всего: 72

Просветите неразумного - причем здесь тип соединения? Какая разница - через что идет выход в интернет?

Начинаем загрузку файла.
Началась? отлично, интернет у нас в кармане. Можно отображать прогрессбар и в какой-нибудь callback-функции менять его значение по мере загрузки.
Не началась? Значит, пролетела птица обломинго. И не обязательно из-за того, что тырнета нет - может, сервер перегружен, может злостный админ забанил наш IP. Да мало ли, что может быть?

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »