Falls es hilft, so soll es eingesetzt werden in der
DLL
Programm schickt:
Delphi-Quellcode:
if AskRO(IntToStr(Socket) + '§' + IntToStr(Integer(Place)) + '§' + IntToStr(Lenge) + '§' + IntToStr(Flags)) = True then
FreeMemEx(Place, Proc);
Angenommen und eingesetzt so:
Delphi-Quellcode:
procedure GetMsgFromEXE(name : pchar;
messageBuf : pointer; messageLen : dword;
answerBuf : pointer; answerLen : dword); stdcall;
begin
// this code has to be thread safe!
Stringarray := Explode('§', pchar(messageBuf));
Send(StrToInt(Stringarray[0]), Pointer(Stringarray[1]), StrToInt(StringArray[2]), StrToInt(StringArray[3]));
boolean(answerBuf^) := True;
end;