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