Record in Blob

[Edelfix]

Hallo,
ich habe in meinem Programm mehrere Blob Felder in einer ADS Datenbank. In diesen Blob Feldern werden ganze Records gespeichert. So weit so gut. Beispiel:

Delphi-Quellcode:

Procedure PutBlob(Field:TField; P:Pointer; Size:Integer);
begin
          aMemoryStream.write(P^, Size);
          try
            aBlobStream := Field.DataSet.CreateBlobStream(Field as TBlobField, bmReadWrite);
            Field.Clear;
            aBlobStream.seek(0,soFromBeginning);
            aMemoryStream.SaveToStream(aBlobStream);
          except
           on e:exception do
             MessageDLG(Field.Fieldname+': '+'Fehler bei Blob schreiben'+#13#10+e.Message,mtWarning,[mbOK],0);
          end;
end;

Jetzt soll mit der Datenbank auch ein PHP Programm arbeiten. Nun sind Records in PHP unbekannt.

Die Idee ist zusätzlich zu den Blob Feldern die Records in Memo Felder zu speichern. Ideal wäre als JSON Format. In Delphi 10.4 gibt es eine bequeme Möglichkeit Objekte in JSON zu transferieren. Aber nicht Records. Man könnte die Records in Klassen transferieren. Das würde aber den Ramen sprengen. Denn die Records sind massenweise im Projekt vorhanden.

Erste Frage: Ist das eine gute Idee?
Zweite Frage: Wie stelle ich das am besten an?

[Der schöne Günther]

Ich bin mit der Json-(De)serialisierung die in der Standardbibliothek dabei ist nie warm geworden.

Das Ding hier hat mich bislang nie im Stich gelassen:

https://github.com/paolo-rossi/delphi-neon

Zitat:

Neon is a serialization library for Delphi that helps you to convert (back and forth) objects and other values to JSON. It supports simple Delphi types but also complex class and records.

[Edelfix]

Das sieht vielversprechend aus. Vielen Dank.