DLL schreiben

[Marc-21]

Hi möchte gerne eine DLL schreiben als plugin für ein anders programm, das programm sucht die dll nach diesen dll befehl On_Start(HINSTANCE MDInstance, HWND MDWnd, BOOL Log_Set, int DLL_ID, char *My_Hot_Key, char *Api_Version, int *Keep_me_running).

In c++ wird das so gemacht

Code: Alles auswählen

extern "C" __declspec (dllexport) void On_Start(HINSTANCE MDInstance, HWND MDWnd, BOOL Log_Set, int DLL_ID, char *My_Hot_Key, 
char *Api_Version, int *Keep_me_running)

wie kann ich das auf Purebasic um münzen möchte nicht in C++ schreiben.

Danke .

benutze PB 4.20

[Kaeru Gaman]

update erstmal dein PureBasic, da hat sich doch was getan in den letzten zwei Jahren.
es wird kaum jemand noch eine 4.2 installiert haben.

[ts-soft]

Das Grundgerüst Deiner Funktion sieht so aus:

Code: Alles auswählen

ProcedureCDLL On_Start(MDInstance.i, MDWnd.i, Log_Set.i, DLL_ID.i, My_HotKey.s, Api_Version.s, *Keep_me_running)

EndProcedure

Unter PB 4.20 mußte die Integer (.i) durch Long (.l) ersetzen.

Aber ich glaube kaum das Dich das weiterbringt

Gruß
Thomas

[Marc-21]

Wieso?

[Thorium]

Wieso?

Weils in 4.20 noch kein .i gibt.

[mk-soft]

Muss nicht ".i" sein. DLL´s gingen mit der PB4.20 auch

Code: Alles auswählen

ProcedureCDLL On_Start(MDInstance.l, MDWnd.l, Log_Set.l, DLL_ID.l, My_HotKey.s, Api_Version.s, *Keep_me_running)

EndProcedure

Must mal aus probieren...

[ts-soft]

Unter PB 4.20 mußte die Integer (.i) durch Long (.l) ersetzen.

Dieser Hinweis war doch eindeutig, oder etwa nicht?

[Marc-21]

Hi

so geht es

Code: Alles auswählen

ProcedureCDLL On_Start(MDInstance, MDWnd, Log_Set, DLL_ID, My_HotKey, Api_Version, *Keep_me_running)

EndProcedure

aber hier kommt gleich das nächtest problem

Code: Alles auswählen

ProcedureCDLL On_Send_Dll_ID_Name(*Name)
*Name = AllocateMemory(5000)
PokeS(*Name,"EMU")
a$ = PeekS(*Name)
EndProcedure

Wenn ich das den auf rufe : On_Send_Dll_ID_Name(*Name)

und die dll im anderen Programm auf rufe wird der name nicht angezeigt.
mache ich was falscH?

[ts-soft]

In welchem Format erwartet denn das andere Programm den String?

Kannst ja mal:

Code: Alles auswählen

ProcedureCDLL On_Send_Dll_ID_Name(*Name)
  *Name = SysAllocString_("EMU")
EndProcedure 

probieren

[Marc-21]

danke geht leider auch nicht.
unter C++ wird es so gemacht

#define Emu "Emu"

DLL void On_Send_Dll_ID_Name(char *Name)
{
strcpy(Name,Emu);
}