Einzelnen Beitrag anzeigen

Benutzerbild von mika
mika

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

Wer kann mir diese C Funktion uebersetzen?

  Alt 29. Jan 2006, 19:15
Hallo Delphi-Praxis!

Ich hab ein Problem nämlich das ich eine DLL schreiben muss für eine Anwendung. Jetzt
habe ich allerdings Probleme beim auslesen der Parameter, soweit ich das mitbekommen
habe wird als einziger Parameter ein Pointer auf eine mir bekannte Struktur übergeben.

Als Beispiel habe ich in der Hilfe der Anwendung diesen Beispiel C Code gefunden der
erklärt wie das ganze vonstatten gehen soll. Allerdings sind meine C Kenntnisse arg
begrenzt ebenso wie mein Wissen über Pointer unter Delphi

Könnte mir jemand aus dieser C Methode mal eine Delphi Methode schreiben? Dann wär ich
schon n ganzes Stück weiter!

Code:
struct TEST_SUB_PARAMS  // This structure represents the parameters passed to
{                        // the Log_B_of_X function.
   double  base;
   double  x;
   HWND    hwnd;   // Note: the handle to the frame window is always tacked on
                     // as a final parameter (even if there are no others).
};

extern "C" // This makes this a C function rather than a C++ function!
{
   // Borland & Microsoft add a leading underscore to a 'C' name for export!
   // All ProModel XSUB calls must go to a function with this signature.
   double _export Log_B_of_X(void *p)
   {
      MessageBox(GetTopWindow(hWndFrame),"Executing Log_B_of_X function.","XSUB",MB_OK);

      // Parameters come in in a structure pointed to by p;
      TEST_SUB_PARAMS *params;
      params = (TEST_SUB_PARAMS*)p;
      hWndFrame = params->hwnd;
      return log(params->x) / log(params->base);
   }
}
Danke schonmal an euch

[edit=alcaeus]SQL- in C-Tags umgewandelt. Mfg, alcaeus[/edit]
[edit=mika]Wir haben C Format BB-Codes? Wusst ich gar nicht [/edit]
:: don't Panic ::
  Mit Zitat antworten Zitat