JPG en record... tamaño variable?

[[marceloalegre]]

Oks!, a ver... en cuanto al tema de la clase... es factible implementar algo como esto? (perdon, no se si estaremos bien, si es lo que me querias decir...)

Veamos...

Código Delphi [-]
unit uClaseTest;
interface
uses classes,jpeg;

type
TFileRecord = packed record
  Dato1: Cardinal;
  Dato2: SmallInt;
  Dato3: Byte; //datos varios....
  PhotoSize: Cardinal; //largo en bytes de la foto...
  //Photo ... no puedo 
 end;
 
TFileClass = class (TObject)
  public
  Dato1: Cardinal;
  Dato2: SmallInt;
  Dato3: Byte; //datos varios....
  PhotoSize: Cardinal; //largo en bytes de la foto...
  Photo: TJPEGImage;
  constructor create(FileRecord:TFileRecord;StreamData:TmemoryStream);
 end;
 
implementation
uses DateUtils, uUtil;
{ TDeposit }
constructor TFileClass.create(FileRecord:TFileRecord;StreamData:TmemoryStream);
begin
    inherited create;
    Dato1:=FileRecord.Dato1;
    Dato2:=FileRecord.Dato2;
    Dato3:=FileRecord.Dato3;
    PhotoSize:=FileRecord.PhotoSize;
    Photo:= TJPEGImage.Create;
    Photo.LoadFromStream(StreamData);
end;
end.

Con esto, si es que funciona podria cargar la foto dentro de la clase llamandola así, desde el metodo que recorro el memorystream:

Código Delphi [-]
var
unFileClassData:TFileClass;
unFileRecord:TFileRecord;
StreamData:TMemoryStream;
begin
//Imaginemos que estoy dentro del while recorriendo el Memorystream.. 
StreamData.Read(unFileRecord,sizeof(TFileRecord));
unFileClassData:=TFileClassData.create(unFileRecord,StreamData);//Le paso el registro, y el memorystream para que extraiga la foto al hacer el create...

Bueno... no se si alcanzo a explicarme de acuerdo a lo que me dices domingo...

Fijate que te parece, sin apuros, y cuando puedas!!(logicamente todos estamos ocupados en nuestras cuestiones ...!), me gustaria ver ese "poco de codigo" que siempre aportas donde las cosas quedan totalmente claras.

Saludos!!!