Einzelnen Beitrag anzeigen

Benutzerbild von Björn Ole
Björn Ole

Registriert seit: 11. Jul 2008
166 Beiträge
 
Delphi XE Professional
 
#1

Pointer auf Record an DLL - so richtig?

  Alt 3. Mär 2009, 17:10
Hallo DP-Gemeinde.

Ich bin auf dem Gebiet noch etwas unsicher, darum wollte ich mal nachfragen, ob das, was ich hier gerade fabriziert habe, einigermaßen hinhaut.
Also funktionieren tut es, nur ob es auch gesund ist...

Code sagt ja bekanntlich mehr als 1000 Worte, darum leg ich einfach mal los:


Delphi-Quellcode:
// gemeinsame Unit
TMyRecord = packed record
  str: string;
  int: integer;
end;
PMyRecord = ^TMyRecord;


//Hauptform
procedure Modify(p_r: PMyRecord); stdcall; external 'my.dll';

{...}

procedure BtnClick;
var
  r: TMyRecord;
begin
  r.str:='hallo';
  r.int:=3;
  Modify(@r);
  showmessage(r.str+' '+IntToStr(r.int));
end;


//DLL
procedure Modify(p_r: PMyRecord); stdcall;
begin
  p_r.str:='huhu';
  p_r.int:=5;
end;
In der DLL soll der Inhalt verändert werden und danach im Formular weiterbenutzt werden können.
Ist das so in Ordnung? Oder kompletter Murx? Wär nett, wenn mir jemand ein paar Tipps geben könnte.

Danke,
Björn.
  Mit Zitat antworten Zitat