1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

function SetValues(w1, w2: WORD): Byte; stdcall;
function WriteBlock(b1 : Byte; data: pointer; Size: WORD): Byte; stdcall;
// data: pointer -> zeigt auf einen Array of Byte
// Size: WORD    -> Anzahl der Elemente in data
function Init(Var Pptr1, Pptr2 : Pointer) : Byte; stdcall;
// Pptr1 zeigt auf einen Array[0..511] of Byte. Array befindet sich in der DLL.
// Pptr2 wie Pptr1, aber andere Array -> Array[0..127] of Byte.

// Als Global Variables deklariere ich zwei Pointer, die dann später beim OnCreate intialisiert werden. z.B.

var ptr1, ptr2 : pointer;
...
Init(ptr1,ptr2);                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

class TForm1 : public TForm
{
__published:  // IDE-managed Components
        ...
  ...
private:  // User declarations
  typedef unsigned char (__stdcall *LPSETVALUES)(WORD, WORD);  //Funktionsvereinbarung
  typedef unsigned char (__stdcall *LPWRITEBLOCK)(unsigned char ,unsigned char*, WORD);
  typedef unsigned char (__stdcall *LPINIT)(unsigned char* ,unsigned char*);

  HINSTANCE hDll;
  LPSETVALUES     lpSetValues;  // Function pointer
  LPWRITEBLOCK  lpWriteBlock;
  LPINIT    lpInit;
  
  unsigned char *ptr1;  // ptr1 & ptr2 werden in der Funktion
  unsigned char *ptr2;  // lpInit initialiesiert.
        

public:    // User declarations
        __fastcall TForm1(TComponent* Owner);
};