Forum: Programmieren allgemein
Delphi
by Fritzew,
16. Jan 2017
Wieso geht stdcall nicht was meckert wer da?
Forum: Programmieren allgemein
Delphi
by Fritzew,
16. Jan 2017
Dein Code hat hier auch nicht funktioniert. Erst nachdem ich den Stdcall and die Einzelnen funktionen gehängt habe.
Ich denke die Fehlermeldungen vom Compiler sind hier "Suboptimal".
In Wirklichkeit passt nämlich die Signatur nicht
Forum: Programmieren allgemein
Delphi
by Fritzew,
16. Jan 2017
TTestClass = class(TInterfacedObject, IInterface1, IInterface2, IInterface3 )
private
function I2Init: Boolean; stdcall;
function I3Init: Boolean; stdcall;
public
function Init: Boolean; stdcall;// Init aus IInterface1
function IInterface2.Init = I2Init;
function IInterface3.Init = I3Init;
end;