Hallo Gemeinde,
ich muss mal wieder eine kleine Zusatzfunktion in meine SW einbauen: An- und Abschalten des in die FritzBox integrierten Anrufbeantworters.
ich habe mir mal die Komponente von Fr-An geschnappt (Kompliment: geile Komponente) und versucht die ein wenig zu pimpen:
Das Abfragen des AB Status funktioniert super:
Delphi-Quellcode:
function TFritzBox.GetTAMState : boolean;
var
aQuery : TQueryArray;
aAnswer : TStringArray;
begin
SetLength(aQuery, 1);
aQuery[0].aVar := 'aktiv';
aQuery[0].aPath := 'tam:settings/TAM0/Active';
aAnswer := FRITZBOX_LUAMultiQueryAsString(aQuery);
if Length(aAnswer) = 1
then begin
Result := aAnswer[0] = '1';
end
else
Result := false;
SetLength(aQuery, 0);
SetLength(aAnswer, 0);
end;
Nur das Setzen geht schief(error von der Box und AB wird nicht geschaltet)
Delphi-Quellcode:
procedure TFritzBox.SetTAMState(aValue: boolean);
begin
FRITZBOX_LUAPostScript('fon_devices', 'tam_list.lua', 'useajax&TamNr=0&switch=toggle', True);
end;
obwohl das gleich direkt in der Weboberfläche der FritzBox funktioniert:
http://fritz.box/fon_devices/tam_lis...&switch=toggle
Hat irgendwer eine Idee, was ich jetzt schon wieder verbockt habe?
(ich habe auch schon diverse Kombinationen versucht(die Getter
URL, ohne useajax,...)
Danke schon mal im voraus für eure Antworten!
Dirk