Error interface method

[AsleyCruz]

Hi bros
I got this error on line 25 in the attached file uShellDragDrop.pp

uShellDragDrop.pp(25,17) Error: No matching implementation for interface method "SetData(const tagFORMATETC;var TagSTGMEDIUM;LongBool):LongInt; StdCall;" found

This file was working in a previous version of Lazarus 2.x,
now its not working with Lazarus 3.0.

Code: Pascal  [Select][+][-]

1. TDataObject = class(TInterfacedObject, IDataObject)
2. private
3. ...

Can you please help me? Thanks a lot.

[Zoran]

Hi bros
I got this error on line 25 in the attached file uShellDragDrop.pp

uShellDragDrop.pp(25,17) Error: No matching implementation for interface method "SetData(const tagFORMATETC;var TagSTGMEDIUM;LongBool):LongInt; StdCall;" found

This file was working in a previous version of Lazarus 2.x,
now its not working with Lazarus 3.0.

Code: Pascal  [Select][+][-]

1. TDataObject = class(TInterfacedObject, IDataObject)
2. private
3. ...

Can you please help me? Thanks a lot.

The parameter "medium" of function SetData is declared as "var" in the interface, whereas in your implementation it is const. Probably used to be const, I don't know.

So, when you replace "const medium" with "var medium" it compiles.

Code: Pascal  [Select][+][-]

1. function SetData(const formatetc: TFormatEtc; var medium: TStgMedium;
2.       fRelease: BOOL): HRESULT; stdcall;
3.