Hallo und erstmal danke für die Antworten,
das mit der Messagebox ist gar nicht so wichtig, ich habe das halt nur nicht hinbekommen die
Parameter zu ermitteln die das aufrufende Programm mir übergeben will.
Delphi-Quellcode:
type
PTEST_SUB_PARAMS = ^TTEST_SUB_PARAMS;
TTEST_SUB_PARAMS = record
base: double;
x: double;
h: HWND;
end;
function Log_B_of_X(var p): Double; cdecl;
var
params: PTEST_SUB_PARAMS;
begin
params := @p;
MessageBox(GetTopWindow(params.h), 'Executing Log_B_of_X function.' , 'XSUB',MB_OK);
Result := ln(params.x) / ln(params.base);
end;
So hatte ich das auch gemacht allerdings glaube ich das ich vor dem
params := @ params;
noch ein
new(params);
gemacht hab...
Leider kann ich das jetzt nicht mehr testen da ich das aufrufende Programm nicht hier habe
Allerdings schien ich ja schon auf der richtigen Spur zu sein...
Sobald ich wieder testen kann schreib ich euch ob ich das inzwischen hinbekommen habe!
Danke für eure Hilfe, Michael.
<edit>
Jetzt sehe ich grade das du als parameter gar keinen typ angegeben hast in der funktion und ausserdem
nicht stdcall verwendest sondern cdecl! Ist das sehr wichtig?
function Log_B_of_X(var p): Double; cdecl;
Hab grade noch mal nachgeschaut, meine Funktion so sah so aus:
Delphi-Quellcode:
function Log_B_of_X(p: pointer): Double; stdcall;
var
params: PTEST_SUB_PARAMS;
begin
params := @p;
// Nur als Beispiel jetzt:
blabla := params^.base;
end;
Da werden die Unterschiede dann doch schon größer oder was sagt ihr?
</edit>