Pro Chat v1.1 - Gefixt und mit neuem Design

[Zacherl]

Pro Chat Homepage: www.pro-chat.de.ms

[size=18]Download: hier.

11.12.05: Version 1.1 hochgeladen.

Heute möchte ich euch Pro Chat v1.0 vorstellen. Es handelt sich hierbei um einen Client/Server Chat. Ich sage lieber schon vorweg:
Versuche auf einem Computer 2 Clients zu starten ist nicht ratsam, da dies den mit IPs arbeitenden Server durcheinander bringt. Also lokal testen nur mit einem Client!

Alle Clienten können von anderen Clienten zu verschiedenen Gruppen zugeordnet werden.
Ob mein Server online ist, seht ihr in der Channel-Liste. [Name = Florian Bernd] Fals kein Server online sein sollte, müsst ihr halt selbst einen aufmachen.

Der Server kann:
Den Port festlegen
Ein Kennwort festlegen
Das Senden von Userinformationen steuern
Einen Begrüßungstext festlegen
mit einer Schnellsperrliste Clienten temporär sperren
ein Protokoll anzeigen
alle verbundenen Clients anzeigen
Die Farben für den Log ändern
Einstellen, ob neue Clienten standardmäßig gesperrt oder freigegeben werden sollen
Ob Clienten den Server reinitialisieren können
Ein Reinitialisierungskennwort festlegen
Fehlerhighlighting aktivieren
Den Standard der 1. 4 Einstellungen festlegen
Festlegen, welche Ereignisse protokolliert werden sollen
Nach dem Öffnen/Schließen in ein anderes Register wechseln
Benutzerdefiniertes Fehlerhandling
Sich in eine Online Channel-Liste eintragen
Ein Zeitlimit festlegen, dass zwischen 2 Nachrichten eines Clients vergehen muss

Der Client kann:
den Port festlegen
den Host festlegen
den Namen und den Nicknamen festlegen
ein Protokoll anzeigen
eine Chat Ansicht anzeigen
PublicMessages senden
über das Kontextmenü der Clientliste einzelne User ignorieren
über das Kontextmenü der Clientliste einen festen Namen für einen Client festlegen
über das Kontextmenü der Clientliste einem Client eine Gruppe zuordnen
den Server reinitialisieren
die Farben des Log ändern
fast die gleichen Standard Einstellungen wie der Server
Gruppen festlegen, denen man dann Clienten zuweisen kann
Festlegen von IPs, die Standardmäßig gesperrt werden sollen
PrivateMessages senden und empfangen
Smilies und anklickbare Links in einen Text einbetten.
Dateien schicken
Popupfenster als anklickbare Links in Nachrichten eingebettet werden.
Die Online Channel-List abrufen

Florian

[Zacherl]

Zitat von PierreB:

- das Kicken/Bannen geht nicht (vom Server aus)

Am Entwickeln

Zitat von PierreB:

- in den meisten Chats hat es sich eingegliedert das Nachrichten (vom Client) mit Druck auf Enter abgeschickt werden, die meisten User sind eher "mausfaul"

Bei mir ist es Ctrl+Return

Zitat von PierreB:

- Was soll beim Server die Registerkarte "Chat", da passiert nichts, oder ?

Die soll dem Server später erlauben im Chat mitzumischen

[quote="PierreB"]
Im Einstellungsdialog passiert bei einem Klick auf Ok oder Abbrechen gar nichts
- der Info Dialog ist auch noch nicht existent
[/qoute]
Stimmt noch keine Zeit gehabt

[quote="PierreB"]
- Außerdem frage ich mich gerade, was es soll das der Server vom Clienten die Product-ID der Windowsversion ausliest und auf Administratorrechte prüft. Was sollen diese sinnlosen Spielereien ? Ich kann mir nicht vorstellen das sie für den normalen Chat notwendig sind !
[/qoute]
Ok, dass die Admin Rechte übertragen werden muss nicht sein. Die ProductID ist aber notwendig um einen Clienten eindeutig zu identifizieren (z.B. wenn man einem Client einen festen Namen oder eine Gruppe zuweist und nicht will, dass diese Werte nach einem Neustart des Clients verschwunden sind

Momentan arbeite ich übrigens an anklickbaren Links und Smilies.

Florian

[PierreB]

Ok, ich wollt noch anmerken das es meiner Meinung nach besser sein würde, wenn du die Nachrichten anstatt

Zitat:

Pierre:
bla bla

lieber

Zitat:

Pierre: blabla

darstellen würdest. Aber wenn du noch ein paar Sachen einbaust (wie du schriebst Smilies, etc) muss ich sagen echt ein toller Chat !

[Zacherl]

Zitat:

Aber wenn du noch ein paar Sachen einbaust (wie du schriebst Smilies, etc) muss ich sagen echt ein toller Chat !

Danke! Smilies und anklickbare Links sind fertig. Das Update ist oben. Zudem sind PrivateMessages und eine Weckfunktion dazugekommen.

DIE DATEISENDEFUNKTION BITTE NOCH NICHT BENUTZEN, da der Zielclient nicht berücksichtigt wird und alle Dateien an 127.0.0.1 gesendet werden.

Florian

[Zacherl]

So, das Senden von Dateien funktioniert jetzt ordnungsgemäß und außerdem sind eingebettete Popup MessageBoxen möglich. Mehr dazu ganz oben.

Florian

[PierreB]

Moinsen,

machst du nen Server auf das wir mal testen können ?

mfg

[Yheeky]

Sehr schönes Programm. Bei mir klappt auch alles ohne Probleme. Das Design gefällt mir sehr gut. Relativ schlicht aber es wirkt *g*.
2 Fragen hätte ich an dich:
1.) Wie schon mehrfach gefragt: Wie realisierst du das Blinken der Schrift im RichEdit?
2.) Wie bekommst du die Smileys da rein? Wie hast du eingestellt, dass du sie nicht in der Größe verändern kannst?

Würde mich beides noch sehr interessieren. Bin gespannt auf die Weiterentwicklungen.

Gruß Yheeky

[Zacherl]

Danke!

Zitat:

1.) Wie schon mehrfach gefragt: Wie realisierst du das Blinken der Schrift im RichEdit?
2.) Wie bekommst du die Smileys da rein? Wie hast du eingestellt, dass du sie nicht in der Größe verändern kannst?

Zu 1.: Das blinken der Schrift realisieren ich, indem ich beim Auftreten eines Fehlers zuerst ganz normal die Fehlermeldung zum Log mit der StdFarbe clMaroon hinzufüge. Gleichzeitig wird die Position des 1.Zeichens der Fehlermeldung in einer StringList und die Länge der Fehlermeldung in einer anderen StringList gespeichert. In einem OnTimer Event (Interval = 5000) gehe ich in einer Schleife alle einträge der 1. StringList durch. In etwa so:

Delphi-Quellcode:

if State = 0 then
begin
  for i := 0 to StringList1.Items.Count -1 do
  begin
    RichEdit1.SelStart := StrToInt(StringList1.Items[i]);
    RichEdit1.SelLength := StrToInt(StringList1.Items[i]);
    RichEdit1.SelAttributes.Color := clRed;
  end;
  State := 1;
end
  else
begin
  for i := 0 to StringList1.Items.Count -1 do
  begin
    RichEdit1.SelStart := StrToInt(StringList1.Items[i]);
    RichEdit1.SelLength := StrToInt(StringList1.Items[i]);
    RichEdit1.SelAttributes.Color := clMaroon;
  end;
  State := 0;
end;

Zu 2.: Ich benutze TJvRichEdit, welches eine Mathode "InsertBitmap" enthält um Smilies einzufügen. Das Verändern der Größe wird mit ReadOnly = true verhindert. Beim Empfangen einer Message prüft der Chat, ob eine bestimmte Zeichenfolge vorkommt (z.B.

Code:

:-)

für ), markiert diese und setzt JvRichEdit1.SelText auf ''. Danach wird InsertBitmap(Bmp, false) aufgerufen.

Momentan arbeite ich an der Channel Liste. Es wird so sein, dass man über diese Liste alle geöffneten Server einsehen kann. Dabei ist eine Server ein "Channel".

Floriam

[LH_Freak]

Noch so eine Frage:
Wie kriegst du die Links da rein? Ist echt super

[Zacherl]

Danke!
Sobald man ein Wort mit www / http / ftp, usw anfängt erkennt JvRichEdit dies automatisch als Link. Im OnURLClick Ereigniss des RichEdits kann dann mit den Links gearbeitet werden. Dem Parameter URLText wird der Text des Links übergeben. Ich rufe dann einfach mit ShellExecute den URLText auf. Um Wörter, die nicht mit den oben genannten Suffix anfangen, werden als Link markiert, indem man SelStart und SelLength auf die entsprechenden Werte setzt und dann SelAttributes.IsLink auf true setzt!

Florian

[LH_Freak]

komisch, bei mir gibt's die InsertBitmap Funktion nicht