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?