TFDMemTable ohne DataSource als Datenspeicher verwenden

[himitsu]

Zitat von Ykcim:

Aber da ich die Daten manuell in die TFDMemTable spiele, benötige ich kein DataSet.

Die MemTable ist das DataSet.



Mal so aus Interesse: Bei welchem Befehl (Codezeile) kommt denn dieser Fehler? übersehn


Windows, oder was Anderes?
Im Windows könnte man ersatzweise eventuell noch das alte TClientDataSet probieren.

Und wenn garnichts geht, dann in eine LocalDB/MemDB (sqlite oder sonstwas).

[Uwe Raabe]

Zitat von Ykcim:

Delphi-Quellcode:

      else if Methode = 'QUERY' then begin
         MTable.Active;  //Hier tritt der Fehler auf
         MTable.FieldDefs.Clear;

Das ist schon merkwürdig, da Active ein Property ist und der Aufruf lediglich den State überprüft und überhaupt keine wirkliche Funktionalität beinhaltet. Demzufolge ist die Zeile auch vollkommen überflüssig, da der Rückgabewert von Active gar nicht verwendet wird, wobei dieser wegen des vorigen MTable.Close sowieso immer False liefern wird.

Laut deiner Beschreibung würde ich den Fehler eher in der Zeile MTable.LoadFromStream(LStream, sfJSON); //Daten in die TFDMemTable vermuten, nämlich dann wenn gar keine Daten im Stream vorhanden sind. Vielleicht solltest du das überprüfen bevor du das in MTable einliest.

[himitsu]

Was macht eigentlich MTable.Open, wenn keine Daten und Felder vorhanden sind?
Die Daten werden ja erst nachher geladen.


Manchmal ist der Fehler auch in der Zeile drüber (Debugger verrutscht), aber an effektivem Code ist davor auch nur das if Methode = 'QUERY' , welches ebenfalls keinen Fehler liefern sollte.

PS: Logic wird auch nie freigegeben.
Außerdem wird es immer erstellt, auch wenn es fast nie genutzt wird.
Tipp:

Delphi-Quellcode:

Logic := nil;
try
  ...
  Logic := TLogic.Create;
  ...
finally
  Logic.Free;
end;

Gibt MyStreamToString wirklich einen WideString zurück?
UnicodeString bzw. String (seit Delphi2009 ein Alias für UnicodeString) würde wohl auch passen.

[Ykcim]

Hallo Zusammen,

vielen Dank für Eure Anregungen. Ich habe daraufhin den Code etwas geändert und so scheint es jetzt zu funktionieren:

Delphi-Quellcode:

else if Methode = 'QUERY' then begin
         //MTable.Active;
         MTable.FieldDefs.Clear;
         MTable.Fields.clear;
         LStream:=LService.Get_LifeMData(Maschinen_ID, RefreshData) as TMemoryStream;
         LStream.Position:=0;
         //MTable.Open;
         MTable.LoadFromStream(LStream, sfJSON);
      end

Darüber hinaus habe ich Logic auch freigegeben

Zitat:

Laut deiner Beschreibung würde ich den Fehler eher in der Zeile MTable.LoadFromStream(LStream, sfJSON); //Daten in die TFDMemTable vermuten, nämlich dann wenn gar keine Daten im Stream vorhanden sind. Vielleicht solltest du das überprüfen bevor du das in MTable einliest.

Das habe ich geprüft, der Fehler tritt tatsächlich auf, wenn ich die TFDMemTable anfasse. Der Stream wird befüllt, was ich anhand der Größe (TStream.Size) geprüft habe.

Es scheint so, dass ich die TFDMemTable besser nicht anfasse, bevor die Daten reingeladen werden...

Vielen Dank
Patrick