Einzelnen Beitrag anzeigen

Benutzerbild von mika
mika

Registriert seit: 25. Okt 2002
176 Beiträge
 
Delphi 6 Professional
 
#6

Re: Wer kann mir diese C Funktion uebersetzen?

  Alt 30. Jan 2006, 15:12
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>
:: don't Panic ::
  Mit Zitat antworten Zitat