IRC-Nachrichten

[Net7]

Zitat von Coldice111:

Kapier ich nicht also muss ich immer PRIVMSG vorsetzen ;(?

Naja, nur mal als primitives Beispiel

Delphi-Quellcode:

// Text verschicken
procedure TForm1.Button2Click(Sender: TObject);
begin


        //wenn an der ersten stelle des Strings '/' auftaucht 
       // zb. bei Befehlseingabe joinen usw. nun musst du aber ein '/' vorsetzen 
       // also /join ... bei Befehlen. 
        if edit1.Text[1]='/' then
        begin
           Nachrichtanserver:=edit1.Text+char(13);
           Delete(Nachrichtanserver, 1, 1); // löscht das '/'
           edit1.Clear;
        end
          else    // wenn nicht, dann  PRIVMSG vorsetzen
            begin
                 Nachrichtanserver:='PRIVMSG #freakzroom :'+edit1.Text+char(13);
                  edit1.Clear;
             end;


       // eigene Nachricht anzeigen
       Memo1.Lines.Add(Nachrichtanserver);



      // Text verschicken
      if clientsocket1.Active=true then
      begin
         clientsocket1.Socket.SendText(Nachrichtanserver) ;
      end;
end;

Natürlich kannst du das auch in einer procedure packen und alles mögliche noch abfragen. Es wäre auch nicht schlecht wenn der Raum den du gewählt hast, auch automatisch gesetzt wird.