Conocer el tamaño en memoria de un objeto

[_Io]

Hola , buenas noches.

Como puedo conocer el tamaño que ocupa en memoria un objeto creado a partir de una clase.

Mi idea es meterlo en un stream, para trabajar con el mismo.

Un ejemplo

Código Delphi [-]
procedure TForm1.Button5Click(Sender: TObject);
var
  NifEnt :VNifV2Ent;
  NifSal :VNifV2Sal;
  j:integer;
begin


  NifEnt:=Consulta_NIF;
  try

    NifSal:=vxf.soap_getNIFdata(NifEnt);

    if vxf.soap_UltimoError = '' then
    begin

  //  Carga salida
      for j:=0 to length(NifSal) -1 do
      begin

        if assigned(NifSal[j]) then
        begin

          memo2.Lines.Add(NifSal[j].Nif);
          memo2.Lines.Add(NifSal[j].Nombre);
          memo2.Lines.Add(NifSal[j].Resultado);

        end;

      end;

    end
    else
      memo2.Lines.Add(vxf.soap_UltimoError);

  finally

    setlength(NifSal,0);
    setlength(NifEnt,0);

  end;

end;

Cómo podría saber el tamaño de NifEnt, para poder guardarlo en un stream?

Muchas Gracias.

[navbuoy]

¿Cómo calcular el tamaño?
Opción 1: Si solo quieres el número de elementos

Código Delphi [-]
Size := Length(NifEnt); // número de elementos

Opción 2: Si necesitas el tamaño en bytes

Código Delphi [-]
SizeInBytes := Length(NifEnt) * SizeOf(TNifV2Ent);

¿Cómo guardar NifEnt en un TMemoryStream?
Si los campos son datos simples (integer, double, etc), podés hacer algo así:

Código Delphi [-]
var
  stream: TMemoryStream;
begin
  stream := TMemoryStream.Create;
  try
    stream.WriteBuffer(NifEnt[0], Length(NifEnt) * SizeOf(TNifV2Ent));
    stream.SaveToFile('nifent.dat');
  finally
    stream.Free;
  end;
end;

⚠️ Si el record contiene strings u objetos, esto no sirve, porque los strings son punteros. En ese caso necesitás serializar manualmente cada campo.

🛠 Alternativa para datos complejos (con strings)
Si TNifV2Ent contiene string, tendrías que escribir algo así:

Código Delphi [-]
for i := 0 to High(NifEnt) do
begin
  WriteLnToStream(stream, NifEnt[i].Nif);
  // y así con cada campo
end;

Y para escribir un string a un stream:

Código Delphi [-]
procedure WriteLnToStream(Stream: TStream; const S: string);
var
  len: Integer;
begin
  len := Length(S);
  Stream.WriteBuffer(len, SizeOf(len));
  Stream.WriteBuffer(PChar(S)^, len * SizeOf(Char));
end;

[_Io]

Buenos días.

Perdona por la tardanza en responder, he estado fuera.

Las clases de las que me gustaría conocer el tamaño son del tipo TRemotable, las cuales pueden contener propiedades tambien del tipo TRemotable, con lo cual por lo que te he leído habría que serializar cada campo, en fin habrá que arremangarse.

Muchas gracias por la respuesta.

[navbuoy]

Correcto, las clases del tipo TRemotable (usadas en Delphi para SOAP WebServices) no pueden medirse directamente en bytes como lo harías con un array o una estructura común. Esto se debe a que:

TRemotable hereda de TPersistent, y puede tener propiedades complejas, referencias, objetos anidados, etc.

No tiene una representación fija en memoria como un record, porque sus propiedades pueden estar implementadas por métodos get/set.

Algunas propiedades pueden ser dinámicas, opcionales o contener listas de objetos.

¿Qué hacer si quieres conocer el “tamaño” real de una instancia de TRemotable?
La mejor forma es serializar el objeto y medir el resultado, por ejemplo, en XML (formato que SOAP usa).

Ejemplo: medir el tamaño en bytes serializando con TSoapSerializer

Código Delphi [-]
uses Soap.InvokeRegistry, Soap.SOAPDomConv, Soap.OPToSOAPDomConv, Soap.SOAPAttachIntf;

function GetRemotableSize(RemotableObj: TRemotable): Integer;
var
  Serializer: ISoapSerializer;
  BufferStream: TMemoryStream;
  Converter: TOPToSoapDomConvert;
begin
  BufferStream := TMemoryStream.Create;
  try
    Serializer := TSoapSerializer.Create(BufferStream);
    Converter := TOPToSoapDomConvert.Create(nil);

    // Serializar el objeto como nodo XML
    Converter.ObjectToSoap(RemotableObj, nil, Serializer, '', '');

    // El tamaño resultante es el tamaño del stream
    Result := BufferStream.Size;
  finally
    BufferStream.Free;
    Converter.Free;
  end;
end;

¿Qué hace esto?
Usa TSoapSerializer y TOPToSoapDomConvert para serializar el objeto TRemotable a XML.

Escribe esa serialización a un TMemoryStream.

Devuelve el tamaño del stream como tamaño aproximado del objeto.

Cómo usarlo:

Código Delphi [-]
var
  NifEnt: VNifV2Ent;
  size: Integer;
begin
  NifEnt := Consulta_NIF;
  size := GetRemotableSize(NifEnt);
  ShowMessage('Tamaño estimado: ' + IntToStr(size) + ' bytes');

Consideraciones
El tamaño obtenido es el tamaño de la representación serializada, no de la estructura en RAM.

Este método sigue siendo válido si el objeto contiene otros TRemotable anidados.

[_Io]

Empezado por navbuoy

Correcto, las clases del tipo TRemotable (usadas en Delphi para SOAP WebServices) no pueden medirse directamente en bytes como lo harías con un array o una estructura común. Esto se debe a que:

TRemotable hereda de TPersistent, y puede tener propiedades complejas, referencias, objetos anidados, etc.

No tiene una representación fija en memoria como un record, porque sus propiedades pueden estar implementadas por métodos get/set.

Algunas propiedades pueden ser dinámicas, opcionales o contener listas de objetos.

¿Qué hacer si quieres conocer el “tamaño” real de una instancia de TRemotable?
La mejor forma es serializar el objeto y medir el resultado, por ejemplo, en XML (formato que SOAP usa).

Ejemplo: medir el tamaño en bytes serializando con TSoapSerializer

Código Delphi [-]
uses Soap.InvokeRegistry, Soap.SOAPDomConv, Soap.OPToSOAPDomConv, Soap.SOAPAttachIntf;

function GetRemotableSize(RemotableObj: TRemotable): Integer;
var
  Serializer: ISoapSerializer;
  BufferStream: TMemoryStream;
  Converter: TOPToSoapDomConvert;
begin
  BufferStream := TMemoryStream.Create;
  try
    Serializer := TSoapSerializer.Create(BufferStream);
    Converter := TOPToSoapDomConvert.Create(nil);

    // Serializar el objeto como nodo XML
    Converter.ObjectToSoap(RemotableObj, nil, Serializer, '', '');

    // El tamaño resultante es el tamaño del stream
    Result := BufferStream.Size;
  finally
    BufferStream.Free;
    Converter.Free;
  end;
end;

¿Qué hace esto?
Usa TSoapSerializer y TOPToSoapDomConvert para serializar el objeto TRemotable a XML.

Escribe esa serialización a un TMemoryStream.

Devuelve el tamaño del stream como tamaño aproximado del objeto.

Cómo usarlo:

Código Delphi [-]
var
  NifEnt: VNifV2Ent;
  size: Integer;
begin
  NifEnt := Consulta_NIF;
  size := GetRemotableSize(NifEnt);
  ShowMessage('Tamaño estimado: ' + IntToStr(size) + ' bytes');

Consideraciones
El tamaño obtenido es el tamaño de la representación serializada, no de la estructura en RAM.

Este método sigue siendo válido si el objeto contiene otros TRemotable anidados.

Entendido perfectamente, muy bien explicado y muchas gracias por los ejemplos.

[navbuoy]

suelo preguntarle a ChatGPT cuando son cosas de Delphi, yo es que Pascal no lo controlo mucho, me es familiar debido a que esta ligado con C++ Builder pero como ya os dije, yo trabajo mas con C++ Builder

pero sabes?? a veces depende mucho de como le preguntas a ChatGPT para que te de mas o menos la información "fiable"

pero si te vale la informacion pues oye, eso que hemos ganado.