kurzer delphi code => PB

[Kooky]

Hi,
ich interessiere mich dafür, wie man per net.exe anonyme nachrichten verschicken kann. Bin neugierig . Hab im Internet jemanden gefunden,
der erklärt hat wie das vom prinzip her funktioniert und hat mir sogar nen kurzen code dafür gegeben. Doch leider nur in Delphi .
Wenn das jemand von euch übersetzen könnt, wäre das SUPER

Code: Alles auswählen

Function SendToMailSlot(Const Server, Slot, Mail : String) : Boolean;
Var
  hToSlot : THandle;
  BytesWritten : DWord;
  FullSlot : String;
Begin
  FullSlot := '\\'+Server+'\mailslot\'+Slot;  // MailSlot
  hToSlot := CreateFile(
    PChar(FullSlot),
    GENERIC_WRITE,
    FILE_SHARE_READ,
    NIL,
    OPEN_EXISTING,
    FILE_ATTRIBUTE_NORMAL, 0);
  If hToSlot = INVALID_HANDLE_VALUE Then
    Exit;
  Try
    BytesWritten := 0;
    If (NOT WriteFile(hToSlot,
                      Pointer(Mail)^,
                      Length(Mail),
                      BytesWritten,
                      NIL))         Or
        (BytesWritten <> Length(Mail)) Then
      Exit; // Fehler

    Result := True;  // Alles okay
  Finally
    CloseHandle(hToSlot);
  End;
End;

Vielen dank im vorraus.
mfg. Kooky

[Leo]

Für mich sieht das so aus, als würde das nur ne Datei erstellen, und was reinschreiben...?

[remi_meier]

als Tipp: Die meisten Funktionen hier sind Api Funktionen und können mit Funktion_() übernommen werden, Bsp: CreateFile() -> CreateFile_()
Die GROSS geschriebenen Sachen sind normalerweise Konstanten, also GENERIC_WRITE in #GENERIC_WRITE umschreiben. Wenn du Glück hast, dann sind die sogar schon vordefiniert.

[Rings]

sorry, auch wenn es die nich viel hilft, aber ich hatte sowas mal gemacht:
http://www.purearea.net/pb/german/sr_vi ... Network.pb

[125]

Hi,
Rings Bsp. macht so weit ich sehe das selbe wie oben bis auf das er halt den Absender mitgiebt aber das kann man ja umstellen

mfg
125

[Kooky]

DANKE!
Genau das habe ich gesucht!
Vielen DAnk
mfg. Kooky