IdHttp Formular per POST - RangeCheckError

[fkerber]

Hi!

Es geht darum ein Formular zu "simulieren", das ansonsten per POST abgesendet würde. Das funktioniert an sich auch super (also die Aktion, die vom Formular angestoßen wird, wird einwandfrei ausgeführt (Telefonanruf mit der FritzBox) - doch dann bekomme ich einen RangeCheck-Error onTop:

Zitat:

---------------------------
Benachrichtigung über Debugger-Exception
---------------------------
Im Projekt Project1.exe ist eine Exception der Klasse ERangeError mit der Meldung 'Fehler bei Bereichsprüfung' aufgetreten.
---------------------------
Anhalten Fortsetzen Hilfe
---------------------------

Eingrenzen konnte ich es auf diesen Aufruf in der Unit IdSysVCL:

Delphi-Quellcode:

class function TIdSysVCL.StrToInt(const S: string;
  Default: Integer): Integer;
begin
  Result := SysUtils.StrToIntDef(Trim(S),Default);
end;

Hat jemand eine Idee, woran das liegen könnte? Der gesamte Aufruf sieht so aus:

Delphi-Quellcode:

begin
  if not Assigned(aHttp) then
    exit;
  try
    AHTTP.Request.ContentType := 'application/x-www-form-urlencoded';
    try
      AHTTP.Post(AtoURL,aParams);
    except
      on E: Exception do
        showmessage('Fehler bei der Übertragung: ' + E.message);
    end;
  finally
  end;
end;

procedure TForm2.Button1Click(Sender: TObject);
var
sl: TStringlist;
begin
sl:=TStringlist.Create;
   sl.add('login:command/password=PASSWORT');
   sl.add('telcfg:settings/UseClickToDial=1');
   sl.add('telcfg:command/Dial=TELEFONNUMMER');
   sl.add('telcfg:settings/DialPort=2');

  SendPostData(IdHttp1, 'http://fritz.box/cgi-bin/webcm',sl);
  sl.free;
end;

(Ja, der Stringlist fehlen noch Schutzblöcke )


Ciao, Frederic