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');
SCLID ok but PICTURE empty. i try rawblob PICTURE empty
]]>