variable in dll wird nicht "gespeichert"

[ghost007]

Hallo,
ich versuche über eine procedure ein handle von meiner form an die dll zu schicken und dort eine variable zu setzten, die das handle enthält.

Delphi-Quellcode:

.
.
.
var
  target_handle: THandle;
.
.
.
procedure SetHandle(target: THandle); stdcall;
begin
 target_handle:=target;
 ShowMessage('handle set   '+IntToStr(target)+' : '+IntToStr(target_handle));
end;
.
.
.
exports
 SetHandle;
.
.
.

Wenn ich diese prozedur aufrufe und ihr ein handle über gebe, wird in der message, 2mal das eingegebene handel angezeigt -> ich vermute es ist angekommen und gesetzt.

Wenn ich jedoch nun folgende prozedur in der gleichen unit aufrufe

Delphi-Quellcode:

.
.
.
procedure SendName;
begin
 ShowMessage(IntToStr(target_handle));
end;
.
.
.

Dann gibt mir die message eine 0 zurück.
Wo liegt hier der hund begraben ? warum "merkt" er sich target_handle nicht?

MfG - Ghost007

[Apollonius]

Wird diese DLL für einen globalen Hook verwendet?

[ghost007]

Ja

[bitsetter]

Hi,

in diesem gab es ein ähnliches Problem.

[sirius]

Zitat:

Zitat von ghost007

Ja

Dann ist genau das dein Problem.
Du kannst da keine globalen Variablen verwenden. Abhilfe schaffen am einfachsten Memory Mapped Files.

[ghost007]

ok ?! ^^ ezz bin ich noch verwirrter.
Was ist da die lösung? das, es quasi für jeden prozess die variable target_handle gibt hab ich nun verstanden, aber wie setz ich die in jeder "instanz" des hooks ?

MfG - Ghost007

[EDIT]
Memory mapped files o.O ? ^^ hab grad schonmal die forensuche bemüht. Aber da wird auch vergeblich nach einem tutorial gesucht.
[/EDIT]

[ghost007]

*PUSH*

[sirius]

Du kannst eben nicht in jeder Instanz die Variable setzen.

MMFs werden eigentlich in jedem Beispiel für globale Hooks verwendet.
Du brauchst
-CreateFileMapping
-MapViewOfFile
und
-UnMapViewofFile
-CloseHandle

[dominikkv]

jo, das Problem hatte ich auch mal.

Lösung:
1) Die Unit UnitWDBIPCDemoObj (Anhang) in die uses
2) In dieser Unit die Klasse TWDB_IPCDemoObj so verändern wie du willst (Felder usw einführen)
3) In deiner DLL:

Delphi-Quellcode:

var
  oDemoObj: TWDB_IPCDemoObj;

4) Zum lesen/Schreiben der Daten:

Delphi-Quellcode:

oDemoObj := TWDB_IPCDemoObj.Create('NameDesProgs');
showmessage(IntToStr(oDemoObj.MainHandle));
oDemoObj.meineVariable := 1234;

Freigeben brauchst du nicht... kannst ja im UnInstallHook die Felder auf 0 setzen :stupid:

[ghost007]

hey,

dominikkv das sieht sehr vielversprechend aus :) ich werd mir das mal anschaun und meld mich dann nochmal :)

MfG - Ghost007

P.S. Dank :-D

[EDIT]
Funktioniert wunderbar :) danke danke danke
[/EDIT]