Telefonat annehmen aus Fritzbox

[kdf]

Zitat von jus:

Hallo,

zum Anfangen finde ich die FRITZ!Box Komponente v0.17 sehr gut. Die aktuelle Doku und die Seite vom Autor findet man hier. Da wir in der Firma eine Fritzbox im Büro haben, nutze ich die Fritzbox um die Telefonnummer des Anrufers auszulesen. Das Stichwort nennt sich "Anrufmonitor". Soweit ich weiß enthält die Fritzboxkompnenten von Garfield auch einen Anrufmonitor.

Ja, habe mir mal die Demo davon angeschaut. Das könnte die Lösung sein. Die Listen der 7490 konnte ich auslesen. Den Monitor habe ich noch nicht zum Laufen bekommen. Meine Konfiguration ist aber auch etwas eigen. Da ist die 6490, die eigentlich nur als Kabelmodem läuft und die Telefonie bereitstellt. Die ist aber nicht im lokalen Netz. Dahinter läuft die 7490 im lokalen Netz. Die 7490 stellt Fax zur Verfügung, da die Capi over TCP nur mit einer Box im lokalen Netz läuft. Die mit der Demo ausgelesene Liste ist also nur Fax. Diese Konfiguration mit 2 Boxen ist erforderlich, da ich eine feste IP habe.

K.-D.

[jus]

ich habe CallMonitor v0.1.1.0 Source runtergeladen und unter Delphi 2007 kompiliert. Die EXE funktionierte bei mir auf Anhieb bei meiner Fritzbox.

Der Source kompilierte bis auf eine minimale Änderung sogar unter Delphi Rio 10.3.1.

Delphi-Quellcode:

procedure WSAError;
{*******************************************************************************
*  Winsocks Fehler ausgeben.
}
var
  Len : Integer;
  Str : AnsiString;
begin
  Setlength(Str, 260);
  Len := Formatmessage(Format_Message_from_System, nil, WinSock.WSAGetLastError, 0, @Str[1], Length(Str), nil);
  Setlength(Str, Len);
  MessageBox(0, PAnsiChar(Str), 'Socket Error', MB_OK or MB_ICONERROR or MB_TASKMODAL); 
end;

MessageBox auf MessageBoxA geändert:

Delphi-Quellcode:

procedure WSAError;
{*******************************************************************************
*  Winsocks Fehler ausgeben.
}
var
  Len : Integer;
  Str : AnsiString;
begin
  Setlength(Str, 260);
  Len := Formatmessage(Format_Message_from_System, nil, WinSock.WSAGetLastError, 0, @Str[1], Length(Str), nil);
  Setlength(Str, Len);
  MessageBoxA(0, PAnsiChar(Str), 'Socket Error', MB_OK or MB_ICONERROR or MB_TASKMODAL); // <------------------ hier geändert!!!!!!!!!!
end;

Und auch die EXE von Rio funktionierte bei mir auf Anhieb bei meiner Fritzbox.
Vielleicht liegt es bei dir an den Firewalleinstellungen? Und überprüfe sicherheitshalber ob das Freischalten immer noch mit "#96*5*" funktioniert. Es kann sein, dass bei neuerer Firmware oder einem anderen Modell eine andere Tastenkombination notwendig ist. Gib halt bescheid, wenn du die Lösung gefunden hast.

lg,
jus

[kdf]

ich habe Virenschutz und Firewall komplett ausgeschaltet. #96*4* und #96*5* kann ich beliebig schalten. Das wird auch im Display so angezeigt "Callmonitor ein/aus". Es gibt immer wieder diese Fehlermeldung.

[HolgerX]

Hmm..

Welchen 'Host' gibst Du denn an?
'fritz.box' ?

Bei mir muss ich die IP der Box angeben, da ich nen alternativen DNS bei mir eingestellt habe und somit fritz.box nicht aufgelöst werden kann.

Der Callmonitor hat zwar ein paar kleine Bugs und es fehlen Try/finally, auch ist die Ableitung von TThread unnötig, da dessen funktionen garnicht verwendet werden, aber ansonsten funktioniert er..

[kdf]

Zitat von jus:

ich habe CallMonitor v0.1.1.0 Source runtergeladen und unter Delphi 2007 kompiliert. Die EXE funktionierte bei mir auf Anhieb bei meiner Fritzbox.

Der Source kompilierte bis auf eine minimale Änderung sogar unter Delphi Rio 10.3.1.
jus

Wie groß ist bei Rio die EXE ?

Ich habe bei Seattle eine Größe von 2.165.248 byte und kann die nur mit ausgeschaltetem Virenscanner (Kaspersky) compilieren. Die läuft einwandfrei, solange der Virenscanner aus ist. Den Virenscanner wieder einschalten und die EXE ist weg.

Wenn ich diese Demo mit Delphi 6 compiliere, gibt es dieses Problem nicht. Die EXE hat nur eine Größe von 452.608 byte.

[jus]

Zitat von kdf:

...

Wie groß ist bei Rio die EXE ?

Ich habe bei Seattle eine Größe von 2.165.248 byte und kann die nur mit ausgeschaltetem Virenscanner (Kaspersky) compilieren. Die läuft einwandfrei, solange der Virenscanner aus ist. Den Virenscanner wieder einschalten und die EXE ist weg.

Wenn ich diese Demo mit Delphi 6 compiliere, gibt es dieses Problem nicht. Die EXE hat nur eine Größe von 452.608 byte.

die Rio ist in Debug Einstellung 2.333.184 Bytes groß. Ich habe auf Windows 7 den Delphi 2007 mit "MS Security Essentials" und auf den Windows 10 "Windows Defender" laufen. Beide machen mir überhaupt keine Probleme, weder beim Kompilieren noch beim Starten. Ich habe dir die 2 kompilierten EXE Dateien angehängt.

lg,
jus