How to TValue / TOmniValue

[haentschman]

Guten Morgen alle...

Ich habe mich mal intensiv mit der Omni TL beschäftigt. Dazu habe ich sowohl das Handbuch als auch die Beispiele von den Delphi Tagen im Gebrauch.

Nun heißt es ja überall:

Zitat:

In short, TOmniValue is a smart record (record with functions and operators) which functions similar to a Variant or TValue but is faster. It can store simple data types, objects, interfaces and (in Delphi 2009 and newer) records.

...nun versuche ich der Funktion
CreateWorkItem(Value: TOmniValue) des BackgrounndWorkers ein TObject(Instanz)zu übergeben. Egal wie ich es anstelle(direkt, extra TOmniValue, gecasted etc.), alle Versuche laufen in Fehler:

Zitat:

[DCC Fataler Fehler] backgroundWorker1.pas(119): F2084 Interner Fehler: URW1136

Zitat:

[DCC Fataler Fehler] BackgroundWorker.dpr(16): F2084 Interner Fehler: O780

Im Großen und Ganzen läuft es darauf hinaus, daß ich zu dämlich bin TOmniValue zu benutzen...

Die Suche nach einem "How to" brachte nix weltbewegendes zum Vorschein...

Ich bitte Euch hiermit um Erleuchtung.


Eine mögliche Lösung:

Delphi-Quellcode:

TTest = class
  strict private
    FDBMS: Integer;
  public
    property DBMS: Integer read FDBMS write FDBMS;
  end;
.
.
.
FTest: TTest; // Instanz ist erzeugt
.
.
.
FBkGet := Parallel.BackgroundWorker;
FBkGet.NumTasks(Environment.Process.Affinity.Count * 2);
FBkGet.OnRequestDone(
  procedure(const Sender: IOmniBackgroundWorker;
    const workItem: IOmniWorkItem)
  begin
      MarkLoaded(TTest(TOmniValue(workItem.Data).AsObject).DBMS); // Cast Orgie zurück
    end);
FBkGet.Execute(RetrievePageBk);

FBkGet.Schedule(FBkGet.CreateWorkItem(TOmniValue(FTest).AsObject)); // Cast Orgie um Objekt abzulegen

...funktioniert soweit. Nur ist mir die Cast Orgie zuwieder . Geht das besser?