Привязка к железу

[FreeZon]

Смотрите у меня привязка стоит программы. Вот такой код (часть кода):

try
    hddid:=IdHTTP1.Get('http://cyber-hack.ru/privateproducte/key/'+sedit1.Text+'.lic');
  except
    hddid:='0';
  end;
  if IdHTTP1.ResponseCode = 404 then
  Begin
    sLabel6.Caption:=('не активирован');
    idhttp1.free;
 
  End else
  begin
  sLabel6.Caption:=('активирован');
  sButton2.Enabled:=True;
  end;
 
  form1.Show;
 
  //Activation.Close;
 
  idhttp1.free;

Если инет есть, то... программа работает правильно. Но как только выключишь инет она перестает работать так как инета нету значит это НЕ IdHTTP1.ResponseCode = 404 и выполняется код sLabel6.Caption:=('активирован');
sButton2.Enabled:=True;

Есть какой нибудь другой вариант привязки? Эта не катит, или как нибудь её подправить...

[FaTaL]

Проверь сначала есть ли доступ в инет и если нет, то сообщай об этом и закрывай программу.

[FreeZon]

Сообщение от FaTaL

Проверь сначала есть ли доступ в инет и если нет, то сообщай об этом и закрывай программу.

Да я не могу найти нормального кода для проверки. Потому что локалка работает и пишет типа есть или еще что нибудь. Дайте нормальный рабочий способ для всех что без глюков

[Пепел Феникса]

а кто мешает обработать except ветку?

[FreeZon]

Сообщение от Пепел Феникса

а кто мешает обработать except ветку?

СКажи как . Че загадками то говорить

[Пепел Феникса]

Сообщение от FreeZon

СКажи как . Че загадками то говорить

try
    hddid:=IdHTTP1.Get('http://cyber-hack.ru/privateproducte/key/'+sedit1.Text+'.lic');
  except
    hddid:='0';
   sLabel6.Caption:=('активирован');
   sButton2.Enabled:=True;
  end;
  if IdHTTP1.ResponseCode = 404 then
  Begin
    sLabel6.Caption:=('не активирован');
    idhttp1.free;
 
  End else
  begin
  sLabel6.Caption:=('активирован');
  sButton2.Enabled:=True;
  end;
 
  form1.Show;
 
  //Activation.Close;
 
  idhttp1.free;

а вообще это не загадки.
вы сами должны код понимать и писать.

подтолкнуть то подтолкнем, но не за вас же писать.

[Serge_Bliznykov]

Пепел Феникса, так ваш код без интернета скажет, что софт активирован!
А топикстартеру, имхо, наоборот надо!

я бы так написал:

hddid := '0';
  try
    try
      hddid:=IdHTTP1.Get('http://cyber-hack.ru/privateproducte/key/'+sedit1.Text+'.lic');
    except
      hddid:='0';
    end;
 finally
    idhttp1.free;
 end;

  if hddid = '0' then
  Begin
    sLabel6.Caption:=('не активирован');
  End else
  begin
  sLabel6.Caption:=('активирован');
  sButton2.Enabled:=True;
  end;
...

p.s. и не тешьте себя ложными надеждами. Любой доморощенный хакер, как только доберётся в exe до данного куска кода вырубит проверку и программа всегда будет считать себя активированной!

[Пепел Феникса]

Сообщение от Serge_Bliznykov

Пепел Феникса, так ваш код без интернета скажет, что софт активирован!
А топикстартеру, имхо, наоборот надо!

Ой, не тот кусок скопировал.

try
    hddid:=IdHTTP1.Get('http://cyber-hack.ru/privateproducte/key/'+sedit1.Text+'.lic');
  except
    hddid:='0';
    sLabel6.Caption:=('не активирован')
  end;
  if IdHTTP1.ResponseCode = 404 then
  Begin
    sLabel6.Caption:=('не активирован');
    idhttp1.free;
 
  End else
  begin
  sLabel6.Caption:=('активирован');
  sButton2.Enabled:=True;
  end;
 
  form1.Show;
 
  //Activation.Close;
 
  idhttp1.free;

[VMG]

все такие умные , а помочь так и не помогают )

[Пепел Феникса]

Сообщение от VMG

все такие умные , а помочь так и не помогают )

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

в чем конкретно проблема?
уже даже готовый код лежит, и при этом посоветовали что такой метод проверки не ахти.
что вы еще хотите? суперпупер защиту готовую?...я просто не понимаю.