Einzelnen Beitrag anzeigen

delphis spassbremse

Registriert seit: 7. Jun 2007
Ort: Enger
104 Beiträge
 
Delphi 7 Enterprise
 
#1

Probleme mit Records in DLL's

  Alt 29. Jul 2010, 20:06
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?
  Mit Zitat antworten Zitat