TWebbrowser og genforsøg?

a := 'http://www.experten.dk';
  try
    idhttp1.Get(a);
  except
  end;

agg sorry
så ikke lige det var med webbrowser

hmm

vil det også virke med webbrowseren?

try
Webbrowser1.navigate('http://www.eksperten.com/');
  except
  end;

vil den ikke kun forsøge 1 gang og hvis det ikke lykkes så give op?

jo men så lav en løkke, ikke pænt med det vil virke

Kan man ikke lave noget med try.. untill i stedet?

Hvis det stadig kun skal bruges til at finde links så vil jeg foreslå at du glemmer webbrowser og bruger idhttp og så selv løber teksten igennem efter links.

@kroning

Men vil det samme problem ikke bare opstå med idhttp? Kan man få idhttp til at blive ved med at forsøge en side i uendelighed eller X antal gange?

Well, jeg tror jeg nøjes med en anden løsning. I må gerne begge smide et svar.

Ja det kan gøres som vallemanden skrev, utestet:

function hent : boolean
begin
result:=true;
a := 'http://www.experten.dk';
  try
    idhttp1.Get(a);
  except
  result:=false;
  end;
end;

begin
repeat
until hent;
end;

b

Fisk

kroning, det blev vist til en kommentar :)

Er der forresten nogen af jer der kan fortælle hvad man skal "release" for at kører idhttp.get en gang til?

Dette crasher hvis jeg først trykker på button1 og derefter på button2:

procedure TForm1.Button1Click(Sender: TObject);
var
a: string;
begin
a := idhttp1.get('http://www.eksperten.dk');
idhttp1.free;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
a: string;
begin
a := idhttp1.get('http://www.eksperten.dk');
idhttp1.free;
end;

Den første kan den godt tage, men ikke den næste.

jeg køre den 1gang hver 5 min i en timer og jeg releaser ikke, og programmet køre 24/7

prøv at fjerne .free

ok