Как скрыть ошибку при отсутствие Интернета

[Alex11223]

Не писать код выводящий ее.

[АлександрDelphi]

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

Не писать код выводящий ее.

так мне придется убрать idhttp а без этого не как

[Alex11223]

Я про это вообще-то. Где вы тут idhttp нашли?

Synapse это библиотека для работы с HTTP, FTP, ...
Аналог/замена Indy.

Сообщение от АлександрDelphi

Я установил Synapse а как через неё убрать ошибку?

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,httpsend, StdCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    ScrollBar1: TScrollBar;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
if not HttpGetText('http://вашсайт.нет', Memo1.Lines) then
  ShowMessage('Не получилось скачать:(');
end;
end.

[АлександрDelphi]

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

Я про это вообще-то. Где вы тут idhttp нашли?

Synapse это библиотека для работы с HTTP, FTP, ...
Аналог/замена Indy.

Получается мне надо переписать

procedure TForm1.FormShow(Sender: TObject);

var
  hddid:string;
begin
//Тут вывод ключа идет у меня 
   try

    hddid:=idhtp1.Get  ('open txt fail''http://imperial2016.ucoz.com/Warface/'+edt1.Text+'.txt');
  except
    hddid:='0';
//Тут если нет интернета 
//То все что в программе не активно
 //но выдает ошибку

  end;
  if idhtp1.ResponseCode = 404    then  // это как я понял ошибка
  Begin
//Тут если ключ не активен 
///То все что в программе не активно


    Exit;
    Exit;
  End   else

    lbl1.Caption:=''+ idhtp1.Get  ('open txt fail''http://imperial2016.ucoz.com/Warface/'+edt1.Text+'.txt');
//Тут если ключ активный 
//То все что в программе активно




   form1.Show;

  //Activation.Close;

  idhtp1.free;
  Exit;

end;

[Streletz]

Сообщение от АлександрDelphi

Получается мне надо переписать

Переписать под Synapse.

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

В "Lite" (специальное "издание" от китайского хацкера) вроде 9 или 10.

про минорные версии не забываем.

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

[АлександрDelphi]

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

Переписать под Synapse.

И как мне это участок когда переписать под Sunapse подскажи

var
  hddid:string;
begin
//Тут вывод ключа идет у меня 
   try

    hddid:=idhtp1.Get  ('open txt fail''http://imperial2016.ucoz.com/Warface/'+edt1.Text+'.txt');
  except
    hddid:='0';
//Тут если нет интернета 
//То все что в программе не активно
 //но выдает ошибку

  end;
  if idhtp1.ResponseCode = 404    then  // это как я понял ошибка
  Begin
//Тут если ключ не активен 
///То все что в программе не активно


    Exit;
    Exit;
  End   else

    lbl1.Caption:=''+ idhtp1.Get  ('open txt fail''http://imperial2016.ucoz.com/Warface/'+edt1.Text+'.txt');
//Тут если ключ активный 
//То все что в программе активно




   form1.Show;

  //Activation.Close;

  idhtp1.free;
  Exit;

end;

[Alex11223]

Посмотреть документацию и примеры на сайте Synapse и переписать. Тут ж самые основы, ничего сложного.

Только "open txt fail" совсем не похоже на часть URL.

[АлександрDelphi]

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

Посмотреть документацию и примеры на сайте Synapse и переписать. Тут ж самые основы, ничего сложного.

Только "open txt fail" совсем не похоже на часть URL.

Давайте вы мне напишите за денюшку 50\50 готов
Я почитал что и как но все ровно не понял

[Alex11223]

Не, сам пиши
Ну или раздел Фриланс есть.