Probleme mit Records in DLL's

[delphis spassbremse]

Hallo Leute,

ich bin mal wieder dabei was in Delphi zu machen und bin etwas aus der Übung...

Ich versuche mit Dynamisch eingebundenen DLL's per Records zu kommunizieren.

Hier ein bisl Code:


Die DLL:

Delphi-Quellcode:

library tbDemo;

{...}

type TIRCMessage = record
  channel: PChar;
  username: PChar;
  content: PChar;
  accesslevel: integer;
  msgtype: integer;
end;

{...}

function hallo(msg: TIRCMessage): Pointer;
var
  res: TIRCMessage;
begin
  if msg.msgtype = 0 then
  begin
    res.channel := msg.channel;
    res.msgtype := 0;
    res.content := pchar('Hallo, '+msg.username);
  end;
  result := @res;
end;

{...}

Und nun der Teil der Anwendung

Delphi-Quellcode:

type TIRCMessage = record
  channel: PChar;
  username: PChar;
  content: PChar;
  accesslevel: integer;
  msgtype: integer;
end;

{...}

type dllModuleExecute = function(msg: Pointer): Pointer;


implementation

{...}

function TBotModule.execute(msg: TIRCMessage; remoteFunc: string): TIRCMessage;
var
  func: dllModuleExecute;
  msgBuffer: ^TIRCMessage;
begin
  result := emptyIRCMessage();
  func := GetProcAddress(dllHandle, pchar(remoteFunc));
  msgBuffer := func(@msg);
  showmessage(msgbuffer.content);
  result := msgBuffer^;
end;

Der zu sendene Record kommt vollständig und ohne Probleme an.
Der Code in der DLL modifiziert das ganze Ordentlich und wird beim showmessage richtig ausgegeben.

Wie man sieht, soll das Ergebnis der DLL funktion zurückgegeben werden.
Wenn ich jetzt aber ausserhalb der Funktion mit dem Ergebnis arbeiten möchte, bekomm ich immer einen Zugriffsverletzung.

Ich denke mal, ich muss irgendwie den Record auf dem Speicher kopieren?

Habt ihr ne Idee?

[mkinzler]

Pchar sind ja nur Zeiger auf die wirklichen Inhalte

[delphis spassbremse]

Oh das ist mir entflohen :)

Wie löse ich das am Besten?

[mkinzler]

Char-Arrays oder WideStrings

[delphis spassbremse]

Ich ralls gerade echt nicht :(

Ne Codehilfe wär ganz nett...