importierte COM TLB lässt sich nicht compilieren.

[stoxx]

Zitat:

Zitat von negaH

Eine Variante kann in Delphi, wenn ich nicht falsch liege, keine Records aufnehmen.

Gruß Hagen

Hallo Hagen,


Es scheint doch zu gehen, ein Freund von mir hat es so gelöst...

Delphi-Quellcode:

function VariantZuRecord(const V: OleVariant): CQGCELConfiguration;
var P : Pointer;
begin
 P := VarArrayLock(V);
try
  Move(P^, Result, SizeOf(Result));
finally
  VarArrayUnlock(V);
end;
end;

function RecordZuVariant(const Rec: CQGCELConfiguration): OleVariant;
var
 P : Pointer;
begin
  Result := VarArrayCreate([0, SizeOf(Rec) - 1], varByte);
  P := VarArrayLock(Result);
try
  Move(Rec, P^, SizeOf(Rec));
finally
  VarArrayUnlock(Result);
end;
end;