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