C++ Plugin-Code in Delphi (DLL)

[napsterxx]

Hi alle zusammen,
vielleicht kann man aus meinen älterne Beiträgen schon rauslesen, was mein Anliegen ist.
Es gibt ein Programm namens Garena, und dieses stellt eine Schnittstelle via Plugin zu verfügung.

Der Download: http://econ-projects.com/GarenaPDK.zip

Ich habe wirklich schon alles durchsucht, und bin auch auf zwei hilfreiche links gestoßen in welchem von einer *.obj Datei und ein anderes Mal von einer DLL die rede ist. Ich habe mir also einen C+++ Kompiler (DevCPP) gedownloaded und wollte den Quelltext zu einer DLL kompilieren, sodass ich anschließend damit in Delphi arbeiten kann.
Natürlich besteht auch die Möglkichkeit alles in Delphi zu übersetzen, jedoch sind hierfür meine C-Kentnisse nicht ausreichend.

Meine Bitte an jemand. Entweder diesen Code zu übersetzen, ihn als DLL oder obj Datei zu kompilieren oder mir sonst irgendwie helfen.

[mkinzler]

Wenn die Dll eine echte Dll ist (ohne proprietäre VC-Erweiterungen) dann kannst du diese problemlos in Delphi verwenden

[napsterxx]

Aber ich brauche doch zunächst eine DLL :D Ich habe ja keine, mit DevC++ konnte ich das irgendwie nicht kompilieren.

[mkinzler]

Der Source ist auch nur ein Wrapper für die Dll für VC
Handelt es sich um
http://www.garena.com/ ?

[napsterxx]

Dann brauche ich also VisualC++?

[mkinzler]

Kommt wie gesagt auf die Dll an

[napsterxx]

Ehrlich gesagt stehe ich gerade etwas auf dem Schlauch. Ich habe keine DLL. Ich möchte eine welche in Delphi verwenden kann und aus welcher ich dann die Funktionen aufrufen kann.

[mkinzler]

Handelt es sich um die Plattform, welche ich oben gepostet habe?
Wie gesagt, den Download, den du oben gepostet hast, ist nur eine Wrapper um eine Dll. Ohne diese geht es nicht

[Uwe Raabe]

Mir ist zwar noch nichr ganz klar, was du am Ende erreichen willst, aber ich interpretiere das mal so, daß du die Dateien aus dem GarenaPDK.zip zu einer DLL kompilieren willst. Das wird aber nicht gehen, da es sich hierbei lediglich um die Header-Dateien handelt, also um die Schnittstelle, die ein Plug-In implementieren muss, um von Garena erkannt zu werden. Dies ist ungefähr mit dem Interface-Teil einer Delphi-Unit vergleichbar.

Wenn du uns jetzt noch sagst, was du überhaupt vor hast, dann können wir dir vielleicht auch weiterhelfen.

[napsterxx]

Achso, tut mir leid, ich habe nicht geschnallt, dass du gemeint hast, dass eine DLL benötigt wird. Es gibt extrem viele DLLs bei dem Programm aber frage mich nicht welche es ist. Es gibt eine DLL namens: PluginKernel.dll
Die anderen heißen alle nur "Cafelogin.dll", oder "SkinManager.dll"

Habe mir diese DLL mit DLLExport v.2.0 von Luckie angeschaut, sie exportiert 8 funktionen allerdings werden mir die Namen der Funktionen nicht angezeigt.

@Uwe Raabe
Ich will am Ende einfach nur ein Plugin schreiben welches eine Message zeigt 'Hello World' oder was auch immer.

Glaube nun ist mir klar das man es gar nicht als DLL kompilieren kann. Jetzt stellt sich mir die Frage: Muss ich wirklich alles übersetzen?

[Uwe Raabe]

Zitat:

Zitat von napsterxx

Ich will am Ende einfach nur ein Plugin schreiben welches eine Message zeigt 'Hello World' oder was auch immer.

Aus der Doku: "The Garena PDK is written for Visual C++ 6.0 or higher"

Wenn ich das recht sehe, wirst du zum Schreiben eines Plugins Visual C++ brauchen. Da man hier auf C-Klassen setzt anstatt auf simple exportierte Prozeduren und Funktionen und ich nicht weiß, wie du diese C++-Klasse mit Delphi-Klassen implementieren kannst, kann ich dir hier auch nicht weiter helfen. Wenn jemand weiß, wie das geht, wäre ich für entsprechende Informationen auch sehr dankbar.

[napsterxx]

Dann sind wir ja schon zwei :D
Ich bin gerade am Installierien von Visual C++ - aber es dauert solang^^

[mkinzler]

Diese Angabe bezieht sich auf den Wrapper.
Handelt es sich nun um diese Platform?

[napsterxx]

Plattform? Garena oder was?
Also das PDK ist für Garena und bezieht sich sicherlich darauf, der Wrapper muss sich demnach auch daruf beziehen.
Der Schlauch ist ziehmlich lang, stehe also immernoch drauf.

Heir Garena zum Download als zip, d.h. ohne Installation:
http://stats.garena.com/clientdownlo...ng=en&mirror=0

[mkinzler]

Zitat:

Plattform? Garena oder was?

Ja.
Diesen Wrapper benötigst du nur, wenn du aus VC auf die Dll zugreifen willst. Für Delphi benötigst du einen Delphi-Wrapper

[napsterxx]

OK, jetzt ist die Frage: Wo zur HÖlle bekomme ich solch einen Delphi Wrapper her?

[mkinzler]

Wenn du die Einsprungpunkte kennst ( z.B. anhand des VC-Wrappers) kannst du diesen selber basteln
Vielleicht, hat das auch schon jemand erledigt ( http://www.econ-projects.com/?tag=delphi ?)

[napsterxx]

:D Also mir ist noch nicht so ganz klar was dieser Wrapper ist/macht. Also Ich kann ja aus denn DLLs die export funktionen auslesen und deren Einsprungspunkt, oder was genau meinst du?

[mkinzler]

Unter einen Wrapper versteht man z.B. den Zugriffscode für den Zugriff auf Funktionen einer Dll.

[napsterxx]

Dsa kann man doch auch einfacher haben mit GetProcAdress, oder nicht?
Naja, hast du eienen Vorschlag wie ich nun weiter zu meinem Zeil komme?

[Uwe Raabe]

Vielleicht stehe ich ja auf dem gleichen Schlauch wie du, aber ich sehe in den meisten Antworten lediglich Hinweise, wie man die exportierten Methoden einer DLL aufruft. Wenn ich dich richtig verstanden habe, willst du ein Plugin für Garena schreiben, also selbst eine DLL erstellen, die als Plugin von Garena erkannt wird. Dann geht es nicht darum, einen Wrapper für eine DLL zu bekommen, sondern eine Implementation für die Klassen zu schreiben, die in den C++-Headern deklariert sind. In C++ ist das relativ straight forward, aber in Delphi kenne ich bislang keine Möglichkeit, C++-Klassen zu implementieren. Ich lasse mich da gerne aufklären. Also:

Delphi-Quellcode:

if Me_not_standing_on_hose then 
  Give_information_on(how_to_implement_C_classes_in_Delphi);

[napsterxx]

Genau, ein eigenes Plugin welches richtig erkannt werden soll.

Der C++ Wrapper Quelltext:

Delphi-Quellcode:

#ifndef _GARENA_H_
#define _GARENA_H_

#pragma comment(lib, "Garena.lib")

struct ExportUserInfo_t
{
    int Id;              /* user id */
    WCHAR Name[16];      /* user name */
    WCHAR Password[50];  /* user hashed password */
};

struct ExportRoomInfo_t
{
    int GameId;  /* game type id */
    int RoomId;  /* room id */
    int AreaId;  /* area id */
};

struct RoomMsg_t
{
    int FromId;     /* id of user who sent the message */
    WCHAR * pMsg;   /* message string */
};

struct PrivateChat_t
{
    CHARFORMAT cf;  /* defined in richedit.h. Display format in RichEdit,
                       check MSDN for details */
    int FromId;     /* id of user who sent the message */
    WCHAR * pMsg;   /* message string */
};

/* for CanAccess() */
#define ROOM_ANNOUNCEMENT_BROADCAST 0x2
#define ADMIN_UNBAN_ID 0x4
#define KICK_USER_FROM_ROOM 0x8
#define BAN_ROOM_CHAT 0x1000
#define ADD_CHANNEL_ADMIN 0x2000
#define BAN_ID_PERMANENT 0x4000
#define SYSTEM_BROADCAST 0x8000

/* for GetRoomType() */
#define ROOMTYPE_PUBLIC 1
#define ROOMTYPE_LADDER 2
#define ROOMTYPE_LEAGUE 4

#ifdef __cplusplus
extern "C"
{
#endif
void WINAPI RegisterUIEvent(const wchar_t *szEvent, LPTHREAD_START_ROUTINE pProc);
void WINAPI CurrentRoomDisplaySystemInfo(const wchar_t * pMsg);
bool WINAPI GetGamePathByGameId(int gameId, wchar_t * szPath, wchar_t * szParam);
HWND WINAPI GetWnd(const char * szName);
bool WINAPI CanAccess(int nRight);
bool WINAPI GetMyInfo(ExportUserInfo_t *pInfo);
bool WINAPI GetCurrentRoomInfo(ExportRoomInfo_t * pInfo);
bool WINAPI SendToUser(int nToUserId, const char * pData, int nLen);
bool WINAPI NotifyTrayMsg(const wchar_t * szName);
#ifdef __cplusplus
};
#endif

#endif // _GARENA_H_

Hier der "automatisch" übersetzte Code in Delphi (viele Fehler):

Delphi-Quellcode:

unit Garena_h;

interface

uses   Windows, Messages, SysUtils, Classes;


#ifndef _GARENA_H_
const _GARENA_H_ =;

//pragma comment(lib, 'Garena.lib')

struct ExportUserInfo_t
begin 
    integer Id;              (* user id *)
     Name: array[0..16-1] of WCHAR;      (* user name *)
     Password: array[0..50-1] of WCHAR;  (* user hashed password *)
);

struct ExportRoomInfo_t
begin 
    integer GameId;  (* game type id *)
    integer RoomId;  (* room id *)
    integer AreaId;  (* area id *)
);

struct RoomMsg_t
begin 
    integer FromId;     (* id of user who sent the message *)
    WCHAR * pMsg;   (* message string *)
);

struct PrivateChat_t
begin 
    CHARFORMAT cf;  (* defined in richedit.h. Display format in RichEdit,
                       check MSDN for details *)
    integer FromId;     (* id of user who sent the message *)
    WCHAR * pMsg;   (* message string *)
);

(* for CanAccess() *)
const ROOM_ANNOUNCEMENT_BROADCAST = $2;
const ADMIN_UNBAN_ID = $4;
const KICK_USER_FROM_ROOM = $8;
const BAN_ROOM_CHAT = $1000;
const ADD_CHANNEL_ADMIN = $2000;
const BAN_ID_PERMANENT = $4000;
const SYSTEM_BROADCAST = $8000;

(* for GetRoomType() *)
const ROOMTYPE_PUBLIC = 1;
const ROOMTYPE_LADDER = 2;
const ROOMTYPE_LEAGUE = 4;

#ifdef __cplusplus
 'C'
begin 
//endif
procedure WINAPI RegisterUIEvent(szEvent: PChar; pProc: LPTHREAD_START_ROUTINE);
procedure WINAPI CurrentRoomDisplaySystemInfo(pMsg: PChar);
function WINAPI GetGamePathByGameId(gameId: integer; szPath: PChar; szParam: PChar): bool;
function WINAPI GetWnd(szName: PChar): HWND;
function WINAPI CanAccess(nRight: integer): bool;
function WINAPI GetMyInfo(var pInfo: ExportUserInfo_t): bool;
function WINAPI GetCurrentRoomInfo(var pInfo: ExportRoomInfo_t): bool;
function WINAPI SendToUser(nToUserId: integer; pData: PChar; nLen: integer): bool;
function WINAPI NotifyTrayMsg(szName: PChar): bool;
#ifdef __cplusplus
);
//endif

//endif // _GARENA_H_ 

implementation


end.

Soweit ich jetzt alles verstanden habe ist dieser Wrapper eigentlich überflüssig, denn man braucht nur dein Einsprungspunkt für die Funktionen. Diese Adresse kann man doch über GetProcAddress herrausfinden und dann da wir die Parameter und alles kennen können wir die Funktion aufrufen? Wobei ich nicht erkennen kann wo diese Funktionen stehen sollen (ich nehme an in der Garena.exe). Außerdem was für Klassen??

[napsterxx]

Für alle Interessenten:
http://eCon-Projects.com/TestPlugin.rar

Ich verstehe da nichts, das komische ist aber das keine der darin beschriebenen Dateien erstellt wird.

[napsterxx]

Delphi-Quellcode:

extern "C" __declspec(dllexport) ITestPlugin * CreatePlugin(void) 
{ 
   static ITestPlugin _plugin;
   return &_plugin;
}

Das ist C++ Code. Er wird auch ausgeführt, aber wie sieht das in Delphi aus?

SO?

Delphi-Quellcode:

library Project1

uses
  SysUtils,
  Classes,
  Dialogs;

{$R *.res}

procedure CreatePlugin(); stdcall;
begin
  ShowMessage('Create');
end;

exports
CreatePlugin;

begin
  ShowMessage('Start');
end.

[DGL-luke]

Hmm, da bin ich ja schon ganz schön eingerostet.

Delphi-Quellcode:

//extern "C" __declspec(dllexport) ITestPlugin * CreatePlugin(void) 
function CreatePlugin: ITestPlugin; stdcall; export;
begin
 ...
end;

So in der Art denke ich. Du musst es oben im Interface-Teil auch noch deklarieren, damit es wirklich exportiert wird.

[napsterxx]

Also meine Methode wie ich Sie gepostet habe wird von Garena erkannt und ausgeführt, d.h. ich bekomme die Msg: Create
Aber jetzt weis ich nicht wie es weiter geht :D
Kann nicht ein C-ler helfen :D