AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Datenbanken DataSnap TFDJSONDataSets in die DB schreiben
Thema durchsuchen
Ansicht
Themen-Optionen

DataSnap TFDJSONDataSets in die DB schreiben

Ein Thema von Kostas · begonnen am 28. Jun 2015 · letzter Beitrag vom 28. Jun 2015
Antwort Antwort
Kostas

Registriert seit: 14. Mai 2003
Ort: Gerstrhofen
1.099 Beiträge
 
Delphi 10 Seattle Enterprise
 
#1

DataSnap TFDJSONDataSets in die DB schreiben

  Alt 28. Jun 2015, 22:31
Datenbank: Firebird • Version: 2.5 • Zugriff über: DataSnap
Hallo Zusammen,


das Problem vorab: oStream.read(FJSONDataSets, SizeOf(FJSONDataSets)); SizeOf liefert nicht die Objektgröße
von FJSONDataSets sondern vermutlich die Anzahl der Tabellen.


Ich habe eine Hand voll Tabellen aus denen ich markierte Datensätze von einem DataSnap Client zu einen Data Server
übertragen muss. Alle Daten sollen zu einem Paket zusammengefasst werden. Es bietet sich an ein TFDJSONDataSets
zu verwenden da es mehrere Tabellen aufnehmen kann. Das FJSONDataSets wird auch komplett richtig übertragen. Testhalber
habe ich einzelne Tabellen nach dem Empfang ausgelesen und als XML in ein File gespeichert. Der Transport funktioniert also.

Das Problem ist nun, ich würde gerne das komplette FJSONDataSets Object in ein Blob schreiben um es später zu verarbeiten.
Genau das gelingt mir nicht. Leider hat FJSONDataSets kein SaveToStream. Ich habe es versucht mit einem TMemoStream. Vermutlich
mache ich etwas falsch denn SizeOf(FJSONDataSets) gibt immer 4 aus obwohl es deutlich größer ist.

Hat jemand eine Idee wie das mit dem TMemoStream funktioniert?
FJSONDataSets wird ja auch serialisiert über DataSnap. Eigentlich müsste es dafür Methoden geben.



Delphi-Quellcode:
function TdmDALPostfach.SavePaketInDB(FJSONDataSets:TFDJSONDataSets): integer;
var

  id: Integer;
begin
  result := 0;

  TThread.Synchronize(nil, procedure
  var
    oConn: TFDConnection;
    oCmd: TFDCommand;
    oStream: TMemoryStream;
  begin

    oStream := TMemoryStream.Create();
    oConn := TFDConnection.Create(nil);
    oCmd := TFDCommand.Create(nil);

    try
      oStream.read(FJSONDataSets, SizeOf(FJSONDataSets));


      oConn.ConnectionDefName := PostfachConnectionDefName;

      oCmd.Connection := oConn;

      oCmd.CommandText.Text := 'INSERT INTO PAKETE(LIZENZID, INHALT, ZEITPUNKT) values (:LIZENZID, :INHALT, :ZEITPUNKT)';
      oCmd.Params[0].AsInteger := 1;
      oCmd.Params[1].LoadFromStream(oStream,ftBlob);
      oCmd.Execute;
      oConn.Close;
    finally
      oConn.Free;
      oCmd.Free;
      oStream.Free;
    end;
  end);
end;
Gruß Kostas
  Mit Zitat antworten Zitat
Benutzerbild von Sir Rufo
Sir Rufo

Registriert seit: 5. Jan 2005
Ort: Stadthagen
9.454 Beiträge
 
Delphi 10 Seattle Enterprise
 
#2

AW: DataSnap TFDJSONDataSets in die DB schreiben

  Alt 28. Jun 2015, 23:03
Zu deinem SizeOf Problem:

Du ermittelst die Größe des Referenzzeigers und der ist 4 Byte groß (weil du eine 32bit Exe erzeugt hast).

Das gleiche Ergebnis bekommst du mit
Delphi-Quellcode:
var Obj: TObject;

SizeOf( Obj );
Kaum macht man's richtig - schon funktioniert's
Zertifikat: Sir Rufo (Fingerprint: ‎ea 0a 4c 14 0d b6 3a a4 c1 c5 b9 dc 90 9d f0 e9 de 13 da 60)
  Mit Zitat antworten Zitat
Kostas

Registriert seit: 14. Mai 2003
Ort: Gerstrhofen
1.099 Beiträge
 
Delphi 10 Seattle Enterprise
 
#3

AW: DataSnap TFDJSONDataSets in die DB schreiben

  Alt 28. Jun 2015, 23:17
Hallo Sir Rufo,

aha, jetzt ist klar warum immer 4 Byte ausgegeben werden. Hast du eine Idee wie ich die Gesamtgröße abfragen kann oder
geht es überhaupt nicht so wie ich mir das vorstelle das FJSONDataSets komplett in ein Blob zu schreiben?

Gruß Kostas
  Mit Zitat antworten Zitat
Benutzerbild von Sir Rufo
Sir Rufo

Registriert seit: 5. Jan 2005
Ort: Stadthagen
9.454 Beiträge
 
Delphi 10 Seattle Enterprise
 
#4

AW: DataSnap TFDJSONDataSets in die DB schreiben

  Alt 28. Jun 2015, 23:20
So wie du dir das vorstellst geht das nicht ...

Hast du dir die Doku schon angeschaut? (Ja schwach wie gewohnt, aber der entscheidende Hinweis ist schon da)
Kaum macht man's richtig - schon funktioniert's
Zertifikat: Sir Rufo (Fingerprint: ‎ea 0a 4c 14 0d b6 3a a4 c1 c5 b9 dc 90 9d f0 e9 de 13 da 60)
  Mit Zitat antworten Zitat
Kostas

Registriert seit: 14. Mai 2003
Ort: Gerstrhofen
1.099 Beiträge
 
Delphi 10 Seattle Enterprise
 
#5

AW: DataSnap TFDJSONDataSets in die DB schreiben

  Alt 28. Jun 2015, 23:35
Meinst du DataSetsToJSONObject?

Mein Delphi XE7 hat keine Hilfe zu TFDJSONDataSets aber in des sources bin ich soeben auf etwas gestoßen.

[Edit]
Jetzt habe ich eine Möglichkeit gefunden.
Über die Klasse TFDJSONInterceptor ist es möglich das gesamte FJSONDataSets als AJSONObject zu konvertieren.
Das lässt sich einwandfrei als Text in ein Blob vom typ Text schreiben und wieder zurück.
TFDJSONInterceptor.DataSetsToJSONObject(FJSONDataSets, AJSONObject);

Geändert von Kostas (28. Jun 2015 um 23:57 Uhr)
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 12:26 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz