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

[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!