Einzelnen Beitrag anzeigen

noisy_master

Registriert seit: 17. Jun 2009
Ort: Wolfenbüttel/Baddeckenstedt
260 Beiträge
 
Delphi XE5 Professional
 
#1

Fritz!Box Anrufbeantworter schalten

  Alt 1. Mär 2015, 20:51
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
Dirk

Geändert von noisy_master ( 1. Mär 2015 um 20:53 Uhr) Grund: Fehlerbeschreibung ergänzt
  Mit Zitat antworten Zitat