Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
korsar-pirat
19 / 19 / 2
Регистрация: 15.05.2011
Сообщений: 137
#1

Проверка подключения к интернету не работает

10.06.2015, 11:16. Просмотров 336. Ответов 3
Метки нет (Все метки)

Использую вот такую штуку:
Delphi
1
2
3
4
5
6
Try
 IdHTTP1.Get( 'http://yandex.ru' );
 InetConnection := True;
Except
 InetConnection := False;
End;
но всегда получается False, раньше работало нормально.

Вот целиком процедура TForm1.FormCreate, где я это проверяю.
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
procedure TForm1.FormCreate(Sender: TObject);
var
  Buf: TMemoryStream;
  Img: TJPEGImage;
  URL: String;
  InetConnection: boolean;
begin
 
Try
 IdHTTP1.Get( 'http://yandex.ru' );
 InetConnection := True;
Except
 InetConnection := False;
End;
 
Form1.BorderStyle:=bsNone; //оформление формы без рамочек и т.п.
 
    //Проверяем связь с интернетом
    if (InetConnection=true) then
      begin
   URL := 'http://ссылка_на_картинку.jpg';
  try
   Buf := TMemoryStream.Create;
   IdHTTP1.Get (URL, Buf);
   Img := TJPEGImage.Create;
   Buf.Write(Pointer(Buf)^, SizeOf(Buf));
   Buf.Position := 0;
   Img.LoadFromStream(Buf);
   Image1.AutoSize := True;
   Image1.Picture.Assign(Img);
  finally
    Buf.Free;
    Img.Free;
  end;
  Memo1.Lines.Add('Актуальная версия:');
  Memo1.Lines.Add(IdHTTP1.get('http://ссылка_на_файл.txt'));
    end
    else Image1.Picture:=Image2.Picture;
 
 
   BASS_Init(-1, 44100, 0, application.Handle, nil);
   BASS_StreamFree(Channel);
   channel:=BASS_StreamCreateFile(FALSE,pchar('A Survivor Is Born.mp3'),0,0,0 {$IFDEF UNICODE} or BASS_UNICODE {$ENDIF});
   BASS_ChannelPlay(Channel, True);
 
   music:=true;
{
MediaPlayer1.FileName := 'Jason Graves - A Survivor Is Born.mp3';
MediaPlayer1.Open;
MediaPlayer1.Play;
 }
end;

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.06.2015, 11:16
Ответы с готовыми решениями:

Не работает проверка пароля
я только учусь не судите строго исходник тут

Не работает проверка существует ли элемент(ы) TreeView
if node = nil then showmessage('дерево пустое!'); Данная проверка...

Проверка подключения к интернету
Проблема такая мне нужно проверить подключен ли интернет через VBS или bat ...

Проверка наличия подключения к Интернету
Надо узнать есть ли соединение с интернетом. Подойдет любой способ с ping или с...

Проверка подключения к интернету. Почему Exception игнорируется?
Подскажите пожалуйста кто знает...отправляю емаил без инета, все равно пишет...

3
SYSM
117 / 117 / 30
Регистрация: 21.10.2011
Сообщений: 308
10.06.2015, 12:03 #2
попробуй в onShow перенести все
1
korsar-pirat
19 / 19 / 2
Регистрация: 15.05.2011
Сообщений: 137
15.06.2015, 11:17  [ТС] #3
Цитата Сообщение от SYSM Посмотреть сообщение
попробуй в onShow перенести все
Спасибо, вроде помогло. Сейчас снова нормально работает.
0
DenNik
Непрофессионал
1786 / 1309 / 305
Регистрация: 26.07.2011
Сообщений: 7,582
15.06.2015, 11:34 #4
используй http://ya.ru - быстрее грузиться будет
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
15.06.2015, 11:34

Проверка подключения к Интернету - продумать логику поведения программы
Здравствуйте. Пишу код, который каждые 3 секунды проверяет подключение к...

В папке "Сетевые подключения" пусто, подключения к интернету нет, но нельзя войти в настройки адаптера
В папке "Сетевые подключения" - пусто. К интернету подключение есть но не...

Пропало окошко "Состояние подключения (имя подключения)" при подключении к интернету
Всем привет вопрос в теме)


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru