mORMot Open Source

 TSQLRESIM = class(TOrm)
  private
    fscl: RawUTF8;
    fPicture:RawUTF8;//RawBlob;
    fdel: byte;
  published
    property SCLID  : RawUTF8 read fscl write fscl;
    property PICTURE    : RawUTF8{ RawBlob} read fPicture write fPicture;
    property DELETED: byte read fdelwrite fdel;
  end;


    MAKRSM:= TSQLRESIM.CREATE;

   MAKRSM.SCLID:=x;

         r:=TRawByteStringStream.Create();
         r.LoadFromFile(OPD.FileName);  // OPENDIALOG
         r.Position:=0;
 
         MAKRSM.PICTURE:=StringToUtf8(r.DataString);

        if aClient.orm.Add(MAKRSM, True) = 0 then
        showmessage('OK');