zeoslib installation iunknown.queryinterface(....

[arturx]

Ich versuche augenblicklich, mein Lazarus upzudaten : Version 0.29. läuft auch prächtig (auf Win 2000)
Die zeoslib Installation bricht jedoch ab mit der Fehlermeldung :

Code: Alles auswählen

C:\Programme\lazarus\components\zeoslib\src\core\ZClasses.pas(84,22) Error: No matching implementation for interface method "IUnknown.QueryInterface(constref TGuid,out <Formal type>):LongInt; StdCall;" found

Hat einer von Euch eine Idee, wie dieses Problem behebbar ist oder wo ich nachschauen kann ?

[mse]

http://wiki.freepascal.org/User_Changes ... en_changed

[arturx]

Vielen Dank, Super, das ist es !!!!!!

Für den Fall, dass noch irgendjemand dieses Problem haben sollte,
folgt nun die 1:1 Umsetzung des Tips :

in unit zclasses müssen 2 Zeilen überschrieben werden :

Code: Alles auswählen

TContainedObject = class(TAggregatedObject, IInterface)
  protected
    function QueryInterface(constref IID: TGUID; out Obj): HResult; virtual; {$IFNDEF WINDOWS}cdecl{$ELSE}stdcall{$ENDIF};//<-- New
// old:    function QueryInterface(const IID: TGUID; out Obj): HResult; virtual; stdcall;
  end;

Code: Alles auswählen

function TContainedObject.QueryInterface(constref IID: TGUID; out Obj): HResult;//<--- New
// Old.: function TContainedObject.QueryInterface(const IID: TGUID; out Obj): HResult;
begin
  if GetInterface(IID, Obj) then
    Result := S_OK
if Value <> nil then
  begin
    Result := (IZInterface(Self) = Value)
      or ((Self as IZInterface) = (Value as IZInterface));
  end else
   Result := False;
end;

Auch wenn es für die meisten sofort offensichtlich ist :
Vielleicht hilft es ja irgendjemandem, der den Tip nicht auf Anhieb umsetzen kann....

[knight]

Bei mir läuft Zeos ohne jede Anpassung. Vielleicht liegt es auch daran, daß ich mit Linux arbeite.

knight

[marcov]

Bei mir läuft Zeos ohne jede Anpassung. Vielleicht liegt es auch daran, daß ich mit Linux arbeite.

Oder eine fpc 2.4.x gebasierter Lazarus. Nur 2.5.x hat diese Änderung.