Net Send Mailslot selbst verarbeiten!

[hitzi]

Zitat von J Kadison:

Wie oben schon erwähnt habe ich diesen Dienst zuvor schon gestoppt. Und dann erst den slot erstellt =(

Wo?

Ich hatte das mal in der Art genutzt (gekürzt):

Delphi-Quellcode:

fMailSlot := CreateMailSlot('\\.\mailslot\messngr', 0, 0, nil);

[...]

iMsgSize : DWord;
iRead : DWord;
sMsg : string; //wird mit Unicode Delphi Probleme machen

[...]

if GetMailslotInfo(fMailslot, nil, iMsgSize, nil,nil) then begin
  if iMsgSize <> MAILSLOT_NO_MESSAGE then begin
    SetLength(sMsg, iMsgSize);
    if ReadFile(fMailslot, sMsg[1], iMsgSize, iRead, nil) then begin
      //in sMsg stehen alle Infos getrennt durch #0
    end;
  end;
end;