Napisałem biblioteke dll (kod poniżej) i wszystko działa mogę połączyć się z serwerem gg i wysłać wiadomość, tylko teraz chciał był dowiedzieć się jak odebrać wiadomość którą ktoś przyśle do mnie i przestać jej tekst do aplikacji korzystającej z tej biblioteki? Tzn jak przechwycić nadesłaną wiadomość i przesłać ja do aplikacji korzystającej z tego dll-a. Prosiłbym o jakiś fragment kodu bo ja nie mam pojęcia jak coś takiego zrobić.
Kod:
library gg;
uses
Windows,
SysUtils,
Variants,
Classes,
Dialogs,
GGlite;
var
ggl:tGGlite;
MsgFormat : array of variant;
procedure connect(numb:integer;
pass:pchar); stdcall;
begin
ggl.login := numb;
ggl.password := pass;
ggl.GGInitHost;
ggl.GGLogon;
ggl.UserStatus := usAvailable;
ggl.GGChangeUserStatus;
end;
procedure sendmsg(nr:integer;mess:pchar); stdcall;
begin
MsgFormat := VarArrayCreate([0,1], varVariant);
MsgFormat[0] := 0;
MsgFormat[1] := '';
ggl.GGSendMessage(true,nr, mess,MsgFormat);
end;
exports
connect name 'connect',
sendmsg name 'sendmsg';
var
P : Pointer;
procedure DLL_Proc(Reason : Integer);
begin
if Reason=DLL_PROCESS_DETACH then FreeMem(P);
end;
begin
ggl:=tgglite.Create(nil);
DLLProc := @DLL_Proc;
P := AllocMem(1024);
end.
