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?