mORMot Open Source

great work ab!
do you think is possible the same structure for desktop application?

i try to explain the scenarios...
i have a TSQLPerson with a TCollection (but could be a tdynarray also) property "ContactDetails" where i store telephon numbers, emails etc etc.
Now, what i want, is retrieve a TSQLTable (ExecuteList with a personalized query) that contains (just one!) contactDetail (for example the contactDetail marked as "default").
is possible?

i would like to exchange position at two element, but without know the type of element...so i can't use an helper variable...
for example when i know the record type, to shift up an element i do:
var myHelperVar: TMyRecordType;

myHelperVar := TmyRecordType(myDynArray.ElemPtr(Pos)^);
myDynArray.Delete(Pos);
myDynArray.Insert(Pos-1, myHelperVar);

there is a way to do without know the record type!?

excuse me ab,
i see the code of RecordEquals in synCommons and seems iterate in the field of a record...with a parameter TypeInfo.
but i can pass to my generic procedure the typeinfo of the specific tdynarray.
what do you think?

ok, so a question...
if i would like to create my own user interface, how bind the object with component?
now i use a procedure to "bind" objetc and vcl similar at mormotUIEdit with "load" and "save" method but i think there are best method to do...?
anyone have other solution?
Model GUI Mediator pattern is a good solution? it can be implemented at framework level or mormot offer other way to do?
thanks

hi ab,
when i meet mormot i forgot tclientdataset so i wont return to the past
now i use a procedure to "bind" objetc and vcl similar at your mormotUIEdit but im curious about livebindings potential (?!).

I use TSQLRawBlob so save/restore pdf file and .fr3 file (report) using explicit call to updateBlobField without problem.
Which kind of file cause the problem?i can test in my application.

thanks ab and esmondb!
the problem its TDateTimePicker so i make some test.
put TDateTimePicker on form and set kind property to dtkDate and Time property to null.
run the program.
all seems ok until i disable and re-enable the TDateTimePicker. In this case Time value is set to current time!
i work around with esmondb solution ---> trunc(TDateTimePicker.Date)
thanks again,
Emanuele

i assign date form tdatetimepicket like this

myTSQLRecord.myDateTime := myTDateTimePicker.Date;

why in database i find the time?

SQLite

hi ab,
which methods the orm offer to do this?

yes i know that it is not implemented yet, i would like to implement but i can't understand how read the TSQLRecordMany instance by RTTI!
i try

case aFieldType of
          sftDateTime: begin
            CD := TDateTimePicker.Create(Scroll);
            CD.Kind := dtkDate;
            CD.DateTime := Iso8601ToDateTime(aValue);
          end;
          sftTimeLog, sftModTime: begin
            CD := TDateTimePicker.Create(Scroll);
            CD.Kind := dtkDate;
            TimeLog.Value := GetInt64(pointer(aValue));
            CD.DateTime := TimeLog.ToDateTime;
          end;
          sftCreateTime:
            ; // is low-level read/only field by design
          sftBlob, sftMany:
           begin
               obj := TSQLRecordMany(Pointer(aValue)); //but aValue = ''!!!!! WHY??
           end;

thanks,
Emanuele

it's clear my situation and what i would like to do?
any idea?

if i have TSQLRecordMany published property is a real instance after TSQLRecord.create, its right?

sorry eraldo,
i don't understand...you need a method to do a select of view (where "view" is a database view) or you need a method to get an user's selection of record from a view (where "view" is V part in MVC)?

see MainDemo.
you can find that ab use TFileServer and TFileClient classes like your purpose.

thanks i see synfile main project and now i work with blob!

i found solution.

myColl := pointer(GetOrdProp(MyObj,pointer(GetPropInfo(MyObj.ClassType, aProperty.Name))));