IDHttp 403 Forbidden

[Punica]

Guten Tag,

ich programmiere ein Script um eine Datenbank zu fillen.

Man ruft diese Seite auf mit "http://Seite.de/add.php?s=" dann kommt ein Randomstring.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
x,y:integer;
zahl1, zahl2, ergebnis:real;
begin
while x<>y do begin
 Application.ProcessMessages;
 zahl1 := strtofloat(label2.caption);
 zahl2 := strtofloat('1');
 ergebnis := zahl1+zahl2;
if Radiobutton1.Checked then
begin
idhttp1.Get('http://seite.de/add.php?s='+RandomDigitString(strtoint(labelededit2.text)));
end;
if Radiobutton2.Checked then
begin
idhttp1.Get('http://seite.de/add.php?s='+Randomstring(StrToInt(Labelededit2.Text)));
end;
if Radiobutton3.Checked then
begin
idhttp1.Get('http://seite.de/add.php?s='+Randomstring(strtoint(labelededit2.text), labelededit1.text));
end;
Label2.Caption := floatToStr(ergebnis);
end;
end;

Wenn ich das so ausführen lasse, dann kommt immer bei dem 11ten Eintrag ein HTTP Error 403 Forbidden.

Wie kann ich diesen Fehler beheben?

Mfg

[geskill]

Hi,
vielleicht weil du ununterbrochen Anfragen an den Server sendest? Bau mal ein kleines delay ein:
sleep(250);

Was gibt der Server noch zurück? Vielleicht eine Fehlerbeschreibung?

Grüße

[Punica]

Das mit dem Delay hab ich schon probiert, egal was für einen ich nehme, beim 11ten Eintrag bleibt er stehen mit dem 403 Forbidden.

[alfold]

Ist diese Routine die gesamte, oder nur ein Auszug!

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
x,y:integer;
zahl1, zahl2, ergebnis:real;
begin
   while x<>y do
   begin
     ...
     ...
   end;
end;

Was ist mit x, y? Eigentlich undefiniert!
Demzufolge evtl auch eine Entlosschleife.
Dein Application.ProcessMessages hast Du deswegen auch da drin, weil sonst nix mehr geht.

Mal drüber nachdenken.

Gruss alfold