PB Chat

[MJP]

Ahoi aus dem schönen Hessen!!
Ich habe mal einen Chat geproggt. Es gibt zwar schon genug aber ich denke ich habe mal was neues eingbaut
Habe mich besonder darauf konzentriert des jeder User eine eigene Schriftart & Farbe haben kann. Räume sind zwar schon möglich aber noch recht fehlerhaft! Deswegen hab ich erstmal nur einen Raum eingestellt.
Achso es gibt noch ein paar befehle:
Server

Code: Alles auswählen

/kick Username
/exit

Client

Code: Alles auswählen

/kiss Username (ich geb ja zu hab ich von knuddels geklaut :-D )
/status Nachricht 
/exit

Screenshot:


DOWNLOAD
Freue mich auf Fragen und Feedback

[TSE]

Hallo

Ich habs ausprobiert. Sieht schon recht
proffesionel aus.

Ist dieser Chat nur für Lan gedacht?
Oder könnte man denn auch übers Internet benutzen?

Ich hab schon seit langem einen Wunsch
ein Projekt-Chat für Purebasic zu entwickeln.
Ich meine ein Chat in dem die Räume als Projekte angelegt werden
und die Clients sich mit Resourcen(Bilder,Musicdateien,Includes usw)
an Projekten beteiliegen können.

Kennst du vieleicht den jaPBE.
Man könnte diesen Projekt-Chat als needed Toll einbinden.

Vieleicht hast eine Idee oder Tipps wie man sowas entwickeln kann.

Danke

[Kaeru Gaman]

btw:

der /me befehl (general emote) ist inzwischen sehr gebräuchlich...

[MJP]

@TSE
Der Chat geht übers Internet habs schon probiert
Zu dem Projekt-Chat für Purebasic schreib mir mal ne PM wie du dir das vorstellst ich mache gerne mit!

@Kaeru Gaman
vom befehl /me (general emote) hab ich noch nichts gehört kannst du mich mal aufklären?

Thx 4 Feedback MJP

[125]

im Irc siehts so aus:
Ich tipp /me trinkt ne Tasse Kaffee
und dann kommt:
* 125 trinkt eine Tasse Kaffee

[MJP]

** MJP hat fertig **
Cool sofort eingebaut! noch wünsche?
Selber Link:DOWNLOAD

[Helmut]

@MJP
Haste auch den Code zum " Schlaumachen " der Anfänger ?
MfG[/quote]

[MJP]

Was willste denn wissen Helmut?

[Helmut]

alles
naturlemang den Code vom Server und Client. Ich denke, nicht nur ich bin neugierig wie man es so programmiert.
Ich werde bestimmt nichts kritisieren, daß finde ich ziemlich Oberlehrerhaft. Kannst es ansonsten auch über PM machen. Ansonsten finde ich Falko's Devise gut , so ungefähr:" Ich lerne gern, erzähle es aber auch gern weiter...".
Vielen Dank im Voraus
Helmut

[MJP]

Kein Problem können wir auch hier machen:
Also den Server & Client habe ich mit der PB Hilfe gemacht
Jetzt zur Färbung und zu den Fonts Da habe ich folgende Proceduren benutzt:

Code: Alles auswählen

Procedure Editor_FontSize(Gadget, FontSize.l) 
  format.CHARFORMAT 
  format\cbSize = SizeOf(CHARFORMAT) 
  format\dwMask = #CFM_SIZE 
  format\yHeight = FontSize * 20 
  SendMessage_(GadgetID(Gadget), #EM_SETCHARFORMAT, #SCF_SELECTION, @format) 
EndProcedure 

Procedure Editor_Font(Gadget, FontName.s) 
  format.CHARFORMAT 
  format\cbSize = SizeOf(CHARFORMAT) 
  format\dwMask = #CFM_FACE 
  PokeS(@format\szFaceName, FontName) 
  SendMessage_(GadgetID(Gadget), #EM_SETCHARFORMAT, #SCF_SELECTION, @format) 
EndProcedure 

Procedure Editor_FontColor(Gadget, Color.l) 
  format.CHARFORMAT 
  format\cbSize = SizeOf(CHARFORMAT) 
  format\dwMask = #CFM_COLOR 
  format\crTextColor = Color 
  SendMessage_(GadgetID(Gadget), #EM_SETCHARFORMAT, #SCF_SELECTION, @format) 
EndProcedure 

So haben ich die Verschiedenen Fonts und Schriftarten in einer Zeile hinbekommen:

Code: Alles auswählen

   
            Editor_Font(#chat, sysfont)
            Editor_FontColor(#chat,RGB(sysred,sysgreen,sysblue))
            Editor_FontSize(#chat, sysfontsize)
            AddGadgetItem(#chat,-1,client+" : ")
            SendMessage_(GadgetID(#chat), #EM_LINESCROLL, #Null, #True)
            Editor_FontSize(#chat, Val(size))
            Editor_FontColor(#chat,RGB(Val(red),Val(green),Val(blue)))
            Editor_Font(#chat, font)
            SendMessage_(GadgetID(#chat), #EM_REPLACESEL  ,#False  ,Message) 

Zudem habe ich auch noch folgendes Protokl entwickelt is fast Wie XML:

Code: Alles auswählen

{ROOM}Raumname{ROOM}{CLIENT}Username{/CLIENT{MESSAGE}Hallo Helmut{/MESSAGE}{FONT}Arial Black{/FONT}{RED}122{/RED}{GREEN}122{/GREEN}{BLUE}255{/BLUE}{SIZE}35{/SIZE}

Ich schicke dir gleich noch den Code des clients als PN

**Greeetzzz MJP**