En qué versión de Delphi se ha corregido cierto problema en Vcl.OleCtrls.pas

[JOSEPE]

Aunque creo que ya no es necesario, igual pongo el metodoGetIUnknownProp incluido en Delpi 10 Seattle .
Saludos.

Código Delphi [-]
function TOleControl.GetIUnknownProp(Index: Integer): IUnknown;
var
  Temp: TVarData;
begin
  GetProperty(Index, Temp);
  Result := IUnknown(Temp.VUnknown);
  IUnknown(Temp.VUnknown) := nil;
end;

[[Al González]]

A partir de aquí, de mi parte son solo ideas, pero te invito a intentarlo y ojalá lo consigamos.

Comienza por crear un ayudante de clase (class helper) para TOleControl llamado TOleControlHelper, a fin de acceder de manera formal y segura a su campo privado FControlDispatch. El ayudante debe permitir sobrescribir el valor de ese campo. Y crea una clase nueva llamada TOleControlDispatchFixer que implemente la interfaz IDispatch y contenga un campo protegido llamado InternalDispatch de tipo IDispatch, aunque de momento los métodos de la clase estén vacíos. Usaremos una instancia de esta clase para sustituir y envolver (wrap) a la interfaz que TOleControl guarda en FControlDispatch.

Si algo no compila hazlo saber, para contar con la ayuda de los compañeros. Yo regreso luego.

[dec]

Hola a todos,

Tratando de comenzar con lo que dices, Al, he querido preparar un programa que sirva a modo de ejemplo, y, me he encontrado con alguna cosa "rara" que paso a comentar:

1º Si en un Timer creo un botón (TButton) y lo destruyo a continuación, repetidamente, noto que el programa no consume ni un ápice de memoria más, quedándose en la memoria que ocupaba al principio de su ejecución. (1)

2º Si en un Timer creo un navegador (TWebBrowser) y lo destruyo a continuación, repetidamente, noto que el programa aumenta el consumo de memoria, incluso con el parche efectuado en "Vcl.OleCtrls.pas". ¡De hecho el método parcheado "GetIDispatchProp" no se ejecuta! (2)

3º Si en un Timer creo un navegador (TEmbeddedWB) y lo destruyo a continuación, repetidamente, noto que el programa automenta el consumo de memoria, incluso con el parche efectuado en "Vcl.OleCtrls.pas". ¡Pero esta vez sí que se ejecuta el método parcheado "GetIDispatchProp"!

Esto me hace pararme a pensar qué demonios puede estar pasando, habida cuenta de que, en efecto, en mi programa sí que he notado mejoría en el consumo de memoria RAM, si bien es cierto que no se pueden comparar mi programa con el ejemplo que he hecho para hacer estas pruebas: probablemente mi programa consuma mucha más memoria, de modo que tal vez mucha de ella se libere, pero otra más o menos pequeña parte no lo haga, es decir, que parece que el problema sigue estando ahí, hasta cierto punto, como parecen demostrar las pruebas que estoy haciendo.

Notas:

1. Sólo si no destruyo los botones creados la memoria aumenta muy poco a poco pero de forma apreciable.

2. Esto me llama la atención doblemente, porque, el compañero que propuso la solución del artículo enlazado, al menos quien escribió el artículo... estaba usando un componente "TEmbeddedWB" y no directamente un "TWebBrowser".

[dec]

Hola de nuevo,

Más sorpresas... me encuentro en la unidad "SHDocVw_EWB" del componente "EmbeddedWB" con lo siguiente:

Código Delphi [-]
uses
  EwbAcc, Windows, ActiveX, Classes 
  {$IFDEF USE_OleCtrlsFix}, OleCtrlsFix{$ENDIF}, OleCtrls, 
   OleServer, StdVCL{$IFDEF DELPHI6_UP}, Variants{$ENDIF};

Y aquí la unidad en cuestión:

Código Delphi [-]
unit OleCtrlsFix;

interface

uses
  OleCtrls, Windows, Messages;

type
  TOleControlFix = class(TOleControl)
  protected
  //  procedure WMPaint(var Message: TWMPaint); message WM_PAINT;
    function GetIDispatchProp(Index: Integer): IDispatch;
    function GetIUnknownProp(Index: Integer): IUnknown;
  end;

implementation

{ TOleControlFix }

{procedure TOleControlFix.WMPaint(var Message: TWMPaint);
var
  PS: TPaintStruct;
begin
  if Message.DC = 0 then
  begin
    BeginPaint(Handle, PS);
    EndPaint(Handle, PS);
  end;
end; }

function TOleControlFix.GetIDispatchProp(Index: Integer): IDispatch;
var
  Temp: TVarData;
begin
  GetProperty(Index, Temp);
// Result := IDispatch(Temp.VDispatch); ***** Change to:
  Pointer(Result) := Temp.VDispatch; //this avoids the extra AddRef
end;

function TOleControlFix.GetIUnknownProp(Index: Integer): IUnknown;
var
  Temp: TVarData;
begin
  GetProperty(Index, Temp);
// Result := IDispatch(Temp.VUnknown); ***** Change to:
  Pointer(Result) := Temp.VUnknown; //this avoids the extra AddRef
end;
end.

Voy a ver qué pasa con "USE_OleCtrlsFix"... pero, ¿no es esto algo parecido a lo que pretendemos hacer? Ay madre...

Actualizo: No; definitivamente no es lo que se pretende hacer, empero, tal vez sea suficiente y una forma de no tocar la VCL... desde luego acabo de encontrar dicha opción desactivada en el archivo "EWB.inc": voy a probar a activarla a ver qué ocurre...

[dec]

Hola,

Aquí el resultado de algunas pruebas. La opción "USE_OleCtrlsFix" que viene con el componente "EmbeddedWB" está desactivada por defecto y marcada como "experimental". Si la activamos, he comprobado en mi programa que no se soluciona el problema. Resulta que aunque el método "GetIDispatchProp" de la clase interpuesta se ejecuta, también lo hace el de la unidad "Vcl.OleCtrls.pas" (?) de modo que el problema persiste.

Lo único que parece solucionar el problema es el parche en la unidad "Vcl.OleCtrls.pas", quiero decir, que, si pensábamos usar una clase interpuesta, tal vez esto no funcione. Pero creo que tú, Al, ibas un poco más allá...

Me gustaría saber porqué el ejemplo que he preparado incrementa el consumo de memoria (mucha o poca) incluso con el parche en "Vcl.OleCtrls.pas", pero, al menos, si es que el problema se sigue produciendo (por algún otro lado) lo cierto es que parece menor que sin el parche, al menos por las pruebas realizadas en mi programa.

[[Al González]]

¡Harás que me desvele de nuevo, David!

Aun cuando un buen samaritano tenga disponibles estas horas de normal vigilia para aclararnos esas dudas, yo en la noche (del 24 de noviembre de este año ) estaré leyendo con mucho interés lo que has encontrado y lo que derive de ello.

Off topic: Espero encontrar pronto un programador que me ayude con varias cosas que tengo acá.

[dec]

Hola,

Tranquilo majo... en realidad no corre prisa alguna, puesto que, de momento el problema se ha mitigado mucho o puede decirse que ha desaparecido, quiero decir, en mi programa. Estaría bien aclararse un poco más, pero, como digo, no corre ninguna prisa, ¡así que nada de desvelos!