C++ -> Delphi

[Pseudemys Nelsoni]

Moin,

ich weiss nicht wie es mit Themen ist bei denen es eigentlich ums gleiche geht, neuen Thread oder den alten benutzen egal ob essich um was anderes handelt?

Ich möchte einen C++ Code in Delphi-Code umwandeln. Original Code:

Code:

  void __stdcall (*LoadDll)(LOADINFO*);

  typedef struct {
    DWORD  mVersion;
    HWND   mHwnd;
    BOOL   mKeep;
  } LOADINFO;

Ich habe es so versucht:

Delphi-Quellcode:

type
  PLOADINFO = ^TLOADINFO;
  TLOADINFO = record
    mVersion: DWORD;
    mHwnd: HWND;
    mKeep: BOOL;
  end;
  TLoadDll = procedure(LoadInfo: PLOADINFO); stdcall;
var
  LoadDll: TLoadDll;

Leider gibts beim Aufruf eine AV, jemand ne Ahnung wie es richtig aussehen müsste? <g>

[Robert Marquardt]

Na der Variablen muss erst noch ein Wert zugewiesen werden.
Die source ist ein uebliches Konstrukt wenn man mit LoadLobrary() und GetProcAddress() eine DLL dynamisch laedt.

[Pseudemys Nelsoni]

Moin Robert,

Wie meinst du das mit Wert zuweisen? <g>
Welchen Wert? Wird im obigem C++-Code doch auch nicht gemacht oder?

[NicoDE]

Zitat:

Zitat von Pseudemys Nelsoni

Leider gibts beim Aufruf eine AV, jemand ne Ahnung wie es richtig aussehen müsste? <g>

Es sieht richtig aus.
Zeig mal den Code der die Struktur verwendet (C und Delphi).

[Pseudemys Nelsoni]

Moin Nico,

der Code steckt in einer DLL die von einem anderen Programm aus (mIRC) aufgerufen wird.
Ich quote dir mal den Teil der in der mIRC Hilfe steht:

Zitat:

Keeping a DLL Loaded after a call
By default a DLL is unloaded immediately after you make the /dll or $dll() call. You can keep a DLL loaded by including a LoadDll() routine in your DLL, which mIRC calls the first time you load the DLL:

void __stdcall (*LoadDll)(LOADINFO*);

typedef struct {
DWORD mVersion;
HWND mHwnd;
BOOL mKeep;
} LOADINFO;

mVersion contains the mIRC version number in the low and high words.

mHwnd contains the window handle to the main mIRC window.

mKeep is set to TRUE by default, indicating that mIRC will keep the DLL loaded after the call. You can set mKeep to FALSE to make mIRC unload the DLL after the call (which is how previous mIRCs worked).

Hats du da sonst noch ne Idee was ich da falsch gemacht haben könnte?


Übrigens habe ich den Methodenzeiger exportiert:

Delphi-Quellcode:

exports
  LoadDll;

[NicoDE]

Zitat:

Zitat von Pseudemys Nelsoni

Übrigens habe ich den Methodenzeiger exportiert

Gut, nur verstehe ich in dem Zusammenhang nicht, was der obige Code von Dir soll?

Zitat:

Zitat von Pseudemys Nelsoni

Delphi-Quellcode:

var
  LoadDll: TLoadDll;

[Pseudemys Nelsoni]

Nunja, Nico, von ausserhalb wird ja die Prozedur "LoadDll", bzw ein Pointer auf diese aufgerufen, wie hätte ich das sonst lösen sollen? LoadDll ist ja der Zeiger auf die Prozedur, oder? :oops:

[Robert Marquardt]

void __stdcall (*LoadDll)(LOADINFO*);
ist die Deklaration einer Zeigervariablen genau wie
var LoadDll: TLoadDll;
Globale Variablen werden aber mit NULL/nil initialisiert.

Irgendwo im Code muss also der Funktionsvariablen ein Wert zugewiesen werden, damit man die Funktion aufrufen kann.
Dasmacht man mit LoadLibrary() und GetProcAddress() um die adresse der Funktion aus der DLL zu bekommen.

[NicoDE]

Zitat:

Zitat von Pseudemys Nelsoni

LoadDll ist ja der Zeiger auf die Prozedur, oder? :oops:

Nope, LoadDLL ist eine implementierte Prozedur in deiner DLL. Die C-Typdefinitiondient nur als Vorlage.

Delphi-Quellcode:

library Foo;

uses
  Windows;

type
  PLoadInfo = ^TLoadInfo;
  TLoadInfo = record
    mVersion: DWORD;
    mHwnd   : HWND;
    mKeep   : BOOL;
  end;

procedure LoadDll(var LoadInfo: TLoadInfo); stdcall;
begin
  LoadInfo.mKeep = True;
end;

exports
  LoadDll;

begin
end.

[Pseudemys Nelsoni]

@Robert: LoadLibrary() verwende ich in der DLL selbst? ich kenn das nur das man das von seinem Programm aus macht um die DLL zu laden. Den Part müsste doch eigentlich mIRC übernehmen.

@Nico: Ich versuche es dann mal umzuändern *g*.

Edit: @Nico: Wenn ich "var" bei der Prozedur weglasse, stürzt mirc nicht ab, aber gibt "0" zurück und ein erneuter aufruf führt zum Absturz, wenn ich "var" benutze stürzt mirc direkt beim aufruf ab.
(Danke für dein Codebeispiel btw)