Fritz!Box Anrufbeantworter schalten

[noisy_master]

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

[noisy_master]

Moin zusammen!

Will ja nicht nerven, aber hat keiner eine Idee, oder will keiner mit mir reden?

Danke!

[baumina]

Wenn die Beschreibung und die Beispiele einer Komponente nicht ausreichen, empfiehlt es sich meist den Hersteller der Komponente direkt zu kontaktieren.

[noisy_master]

Ich frage ja auch nur, da sich hier im Forum schon einige mit der Komponente angefreundet haben http://www.delphipraxis.net/179127-f...e-v0-17-a.html.

Daher ging ich mal davon aus, dass vielleicht der eine oder andere eine Idee zu meinem Problem hat.
Geht mir ja auch nicht um die Komponente an sich, sondern mehr um die FB API, die ich scheinbar "falsch" bediene

[p80286]

in einer der letzten CT's gab es einen recht ausführlichen Artikel zu Fritzbox, kam mir jedenfalls so vor, da ich mich damit eher wenig beschäftige.

Gruß
K-H

[Der.Kaktus]

Zitat von noisy_master:

Ich frage ja auch nur, da sich hier im Forum schon einige mit der Komponente angefreundet haben http://www.delphipraxis.net/179127-f...e-v0-17-a.html.

Daher ging ich mal davon aus, dass vielleicht der eine oder andere eine Idee zu meinem Problem hat.
Geht mir ja auch nicht um die Komponente an sich, sondern mehr um die FB API, die ich scheinbar "falsch" bediene

im Prinzip ja.."aber"..AVM hat wieder einiges geaendert ab Version 6.2x..vielleicht haengt es damit zusammen
mein jahrelang genutztes program von richard_B hier "FritzboxReconnect"..funktionierte ab dieser Version auch nicht mehr ..leider (((((

[noisy_master]

N'abend,

so...gelöst!!!

der wesentliche Fehler war es musste ein GET und kein POST sein

so muss der Setter nun aussehen:

Delphi-Quellcode:

procedure TFritzBox.SetTAMState(aValue: boolean);
{*******************************************************************************
*  -17- Anrufbeantworter ein- /ausschalten.
}
begin
   if (GetTAMState) xor (aValue) then
     FRITZBOX_LUAGetScript('fon_devices', 'tam_list.lua', '&useajax=1&TamNr=0&switch=toggle', True);
end;

Vielleicht kann ja irgendwer sonst noch was damit anfangen.....