Forum: Object-Pascal / Delphi-Language
Delphi
by Tonic1024,
9. Jun 2016
Mein Chef hat beschlossen, dass das alles zu lange dauert und ich muss nun zunächst ein anderes Projekt vorziehen.
Trotzdem möchte ich zukünfitgen "Probleminhabern" (:wink:) noch die vermeintliche (werde ich genau wissen wenn das Projekt abgeschlossen sein wird) Auflösung verraten. Sie basiert auf dem Vorschlag von Himitsu (Vielen Dank dafür) und wirft zumindest den Methoden-Signatur Fehler...
Forum: Object-Pascal / Delphi-Language
Delphi
by Tonic1024,
1. Jun 2016
Okay. Probiere ich aus...
Forum: Object-Pascal / Delphi-Language
Delphi
by Tonic1024,
31. Mai 2016
Ob das wirklich nen Unterschied macht?
Himitsus Vorschlag werde ich morgen früh direkt mal ausprobieren. Jetzt mach ich erst mal Schluss... Für heut bin ich mit den Nerven zu Fuß... :?
Forum: Object-Pascal / Delphi-Language
Delphi
by Tonic1024,
31. Mai 2016
Das ist auch der Ansatz, den ich bisher verfolgte.
type
TIAVInterface = class(TInterfacedObject)
function QueryInterface(const IID: TGUID; out Obj): HResult; stdcall;
function _AddRef: Integer; stdcall;
function _Release: Integer; stdcall;
private
FGUID: TGUID;
Forum: Object-Pascal / Delphi-Language
Delphi
by Tonic1024,
30. Mai 2016
Okay, also war mein erster Gedanke doch gar nicht so verkehrt...
Um ganz ehrlich zu sein. Was bei der Übersetzung dort von mir erwartet wird ist völliges Neuland für mich. Ich bin mir auch nicht sicher ob ich die Zusammenhänge überhaupt richtig verstanden hab. Könnte es helfen wenn ich den kompletten Code (nur die Interface Implementation) mal hier hoch lade?
Es geht darum managed code aus...
Forum: Object-Pascal / Delphi-Language
Delphi
by Tonic1024,
30. Mai 2016
Hallo Forum...
Ich versuche grad einen ca 900 Zeilen langen C++ Code nach Delphi zu übersetzen. Meinem ersten Gefühl nach ist der ganze folgende Code eigentlich nicht zwingend notwendig. Jedoch mag der Code insgesammt nicht funktionieren also versuche ich jetzt ob es damit vielleicht doch eine tiefere Bewandtnis hat. Dort ist Folgendes zu finden:
class IUnknownImpl: IUnknown {
public:
...