Hallo,
ich habe ein Problem beim Auflisten der möglichen Annimationen.
Ich verwende folgende Code
Delphi-Quellcode:
Merlin : IAgentCtlCharacterEx;
...
procedure TFormMerlin.AgentAnimationEnum(L : TStrings);
var
AEnum : IEnumVariant;
AnimationNames : IAgentCtlAnimationNames;
Fetch : Cardinal;
V : OleVariant;
begin
AEnum:=Merlin.AnimationNames.Enum as IEnumVariant;
AEnum.Reset;
L.Clear;
Repeat
AEnum.Next(1,V, Fetch);
If VarToStr(V) <> EmptyStr then
L.Add(V);
Until Fetch = 0;
end;
Wenn ich den Source mit D5 compiliere läuft die Sache einwandfrei. Verwende ich jedoch D7 erzeugt der
Aufruf von
AEnum:=Merlin.AnimationNames.Enum as IEnumVariant;
folgenden Fehler.
Code:
Zugriffsverletzung bei der Adresse FFFFFFF
Das Problem ist, das Merlin.AnimationNames ins Leere zeigt.
Kennt jemand eine Lösung für D7?