FRITZ!Box Komponente v0.17

[Garfield]

Das Schalten des WLAN scheint doch nicht so einfach zu sein. Es funktioniert das Holen der Informationen, das Ausschalten des WLAN, das Schalten und Ändern des GästeWLAN.

[Garfield]

Das Einschalten und Ändern des WLAN funktioniert. Zumindest wenn man nicht über WLAN mit der Box verbunden ist.

[Garfield]

Neue Version 0.17.

Ich habe die Komponente überarbeitet und die Merkmale welche nicht mehr funktionierten entfernt sowie den Anrufmonitor integriert. Wenn man angemeldet ist/war und das Telefonbuch geladen ist, werden wenn möglich bei der Anrufsignalisierung die Namen mitangezeigt. Hinzu gekommen ist ein wenig WLAN.

[Perlsau]

Hallo Garfield,

ich teste gerade deine Komponente mit XE7 und muß feststellen, daß dabei ein paar Löcher im Speicher zurückbleiben:

An unexpected memory leak has occurred. The unexpected small block leaks are:
85 - 92 bytes: TStringList x 8

Meine Recherche ergab, daß fReceived daran schuld ist: Diese Stringliste wird in Zeile 2406 erzeugt, aber nicht wieder freigegeben:

Delphi-Quellcode:

constructor THTTPRequest.create;
{*******************************************************************************
*  -1- Klasse erstellen.
}
begin
  inherited;
  fContent  := '';
  fReceived := TStringList.Create;
  fPort     := 80;
  fHTTPSend.Method          := 'GET';
  fHTTPSend.FileURL         := '';
  fHTTPSend.Hostname        := '';
  fHTTPSend.Accept          := '*/*';
  fHTTPSend.ContentType     := 'text/html, text/xml';
  fHTTPSend.ContentLength   := 0;
  fHTTPSend.Soap.Namespace  := '';
  fHTTPSend.Soap.Request    := '';
  FillChar(fHTTPRcvd, SizeOf(fHTTPRcvd), 0);
end;

Durch Einfügen einer Zeile in die Destroy-Methode der Klasse THTTPRequest konnte der Fehler behoben werden:

Delphi-Quellcode:

{$IfDef DELPHI}
destructor THTTPRequest.destroy;
{*******************************************************************************
*  -1- Klasse freigeben.
}
begin
  if Assigned(fReceived) Then fReceived.Free; // meine Ergänzung
  inherited;
end;
{$EndIf}

[DeddyH]

Ganz nebenbei:

Zitat:

if Assigned(fReceived) Then fReceived.Free;

ist faktisch dasselbe wie
fReceived.Free; Man soll ja eben deshalb Free statt Destroy verwenden, weil Free intern die eigene Referenz prüft, da muss man das ja nicht außerhalb noch einmal machen.

[Perlsau]

Okay, danke, wo du recht hast

[DeddyH]

Ich seh das öfter, es ist ja auch nicht falsch, aber eben unnötig