Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Сети > Инет и ПрогрессБар

Автор: Bigreddog 24.6.2009, 22:51

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

Код


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;

Автор: Keeper89 24.6.2009, 23:22

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

Автор: Bigreddog 24.6.2009, 23:26

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

Автор: Romikgy 25.6.2009, 09:38

Цитата(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

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

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