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?