Chat über von den Sockets abgeleiteten Komponenten

[Zacherl]

Hallo,
ich habe in lezter Zeit immer mal wieder an diesem Chat weitergearbeitet und viele (vielleicht auch unütze Funktionen) eingebaut.

Der Chat basiert auf den Komponenten TChatServer und TChatClient (Source liegt bei), die ich selbst von TServerSocket und TClientSocket abgeleitet habe. Leider sind die Komponenten noch ein wenig "instabil" und ich würde mich freuen, wenn jemand diese Komponenten auf INDY Basis umprogrammieren könnte oder zumindest "stabilisieren" könnte.
Die wichtigeste Funktion dieser Komponenten ist, dass sie erst dann ein OnFullText oder ein OnCommand Ereigniss auslösen, wenn über SendFullText oder SendCommands Text gesendet und vollständig angekommen ist. Dazu wird vor dem eigentlichen Text nocht die Textlänge gesendet und die ankommenden Teilstrings zusammengesetzt.

Fertige Funktionen: (Client)

- Verbinden zum Server
- Einstellen von Port, Ip des Servers und Name des Benutzers
- Dateien senden
- Private Nachrichten
- Public Nachrichten
- Speichern von Serverdaten in einer Liste
- Abfragen der OnlineUsers
- Trennen vom Server

Fertige Funktionen: (Server)

- Server starten
- Server schließen
- Port zum Chatten und zum Dateisenden/empfangen ändern
- Servername einstellen
- Einzelne Clients kicken, sperren, freischalten
- Speicherung aller Dateitransfers in einer Liste + Achivierung der Dateien

Unfertige oder geplante Funktionen: (Server)

- Eintragen in einer OnlineListe über PHP
- Löschen des Listeneintrages, wenn Server schließt ODER wenn Internetverbindung trennt

Unfertige oder geplante Funktionen: (Client)

- [angfangen] Abfragen der OnlineListe und speichern im INI Format (aus Source ersehbar)

Der Grund, warum ich diesen Chat als Open Source ins Internet gestellt habe, ist vor Allem, weil ich hoffe, dass jemand an diesem weiterarbeitet und/oder Tipps zur Verbesserung geben kann.
ICH FREUE MICH ÜBER JEDEN VORSCHLAG ZU DEN UNFERTIGEN FUNKTIONEN UND ÜBER VERBESSERUNGSVORSCHLÄGE ZU DEN VORHANDENEN!

In dem Komponenten Package sind außer den Chatkomponenten noch weitere, unfertige oder nicht funktionsfähige Komponenten enthalten. (Hatte keine Zeit/Lust die zu entfernen ) Ich bitte darum diese nicht, oder nur auf eigene Verantwortung zu verwenden!

Alle Quelltexte sind unter Delphi 7 Personal entstanden.

Ich wünsche viel Spaß !?!

[edit]
Die neuen Versionen gibt es nur noch als Freeware: hier.
[/edit]

Florian

[Superfly]

Hi Florian
baue doch einen timer nur ein,das man erst alle 10 sec ein text senden kann^^
damit sollte das problem sich lösen .
Mal eine andere frage wie hast du dir das mit der Online liste mit der ip zum uplaod gedacht,bzw was sollte alles in der datei stehen auf meinem webspace damit die function auch erfolgreich ist,so läd er zwar ne seite von meinem webspace,aber ich bin leider php coder,bzw html^^

edit: ist bei deiner verdächtigen update function auch der source code download mit enthalten?

[Zacherl]

Also,
bei der Update Funktion werden (wie man aus dem Source von Update.exe erschließen kann) lediglich die Dateien "Update.exe", "Server.exe" und "Client.exe" gedownloaded.
Ich kann nur nicht nachvollziehen, was daran

Zitat:

verdächtig

sein soll.

Das mit der OnlineList ist so:

Es sollte ein php-script auf einem Webserver geben, dass mit dem Chatprogramm aufgerufen wird. (Parameter: ?Name, ?IP, ?Port, ?FilePort, ?Add oder ?Delete)
Dieses soll dann die Daten je nach dem aus der Liste entfernen oder auch zu dieser hinzufügen.
Das ganze soll im INI Format geschehen. Der Aufbau der INI geht aus dem Source vom Client hervor,
da die Funktion zum auswerten der Liste schon vorhanden ist.

Die Probleme sind nur:

1. Ich kann kein php und weis auch nicht, ob das mit dem INI Format geht
2. Was ist, wenn die Internetverbindung getrennt wird, bevor der Server geschlossen wird?
Der Eintrag würde in der OnlineListe verbeliben und nur manuell zu entfernen sein!

Florian

[Zacherl]

Hallo,
ich wollte nur kurz Version 3.3 hochladen ...

- Einige Bugs behoben
- Protokoll jetzt annähernd stabil
- Fernwartungsfunktionen hinzugefügt (noch nicht fertig)

Florian

[Superfly]

Zitat von Florian Bernd:

Hallo,
ich wollte nur kurz Version 3.3 hochladen ...

- Einige Bugs behoben
- Protokoll jetzt annähernd stabil
- Fernwartungsfunktionen hinzugefügt (noch nicht fertig)

Florian

Hi bernd
schön dan werde ich mal die neuste version testen

[Zacherl]

Hallo,
ich bin grade mit ein paar Verbesserungen fertig:

- Neues Transferprotokoll (Komponenten angepasst)
- "Ferwartungsfunktionen" erweitert
- Beim Server kann man jetzt unter Verbindungen ein Kontextmenü öffnen, um einem bestimmten Client eine Nachricht, eine Meldung/Warnung/Frage (über Messagebox) zu senden.

Das neue Protokoll (hab ich DSS genannt) funktioniert eigentlich besser als das alte (SAS) aber es werden immer noch nicht alle Eventualitäten berücksichtigt, wie ein Text ankommt. Daran arbeite ich noch.

Florian

[Neuni]

Zitat von Florian Bernd:

Die Probleme sind nur:

1. Ich kann kein php und weis auch nicht, ob das mit dem INI Format geht
2. Was ist, wenn die Internetverbindung getrennt wird, bevor der Server geschlossen wird?
Der Eintrag würde in der OnlineListe verbeliben und nur manuell zu entfernen sein!

Florian

Also bei PHP könnt ich aushelfen. Ist ja nicht sonderlich schwer ne Serverliste zu erstellen.
Wegen dem 2. Problem: Man könnte das so machen, dass der Server alle 10 sek. oder so einen string an den server sendet, und wenn der nicht kommt, dann entfernt das PHP-Script den aus der Liste. Müsste gehen, oder?

[Zacherl]

Danke, das wäre echt nett, wenn du mir ein entsprechendes Script schreiben könntest.
PHP kann ich überhaupt nicht.
Das mit den 10 Sekunden ist auch ne gute Idee.

Die Datei, in der die Server stehen, sollte in etwa folgendes Format haben (wenn das nicht geht bin ich sonst aber auch flexibel. Aber bitte keine Datenbanken verwenden, da mein Anbieter das nicht unterstüzt ):

[Header]
Anzahl=2 // Nur damit jede Section nur einmal vorkommt

[Eintrag_0] // Anzahl Wert um eins erhöht
Name=Name
Port=5050
FilePort=5051
IP=127.0.0.1

[Eintrag_1] // Anzahl Wert um eins erhöht
Name=Name2
Port=5050
FilePort=5051
IP=127.0.0.2

[Eintrag_2] // Anzahl Wert um eins erhöht
Name=Name3
Port=5050
FilePort=5051
IP=127.0.0.3

Wenn dann was gelöscht wird, kann einfach die jeweilige Section gelöscht werden, weil ich dann alle Sections auflisten und auswerten lassen würde.


Nur weist jemand zufällig, wie man mit Delphi ein PHP Script auf einem Server aufrufen kann, ohne das der Internet Explorer oder ähnliche Programme gestartet werden, und die Seite anzeigen?


Florian

[alcaeus]

Zitat von Florian Bernd:

Nur weist jemand zufällig, wie man mit Delphi ein PHP Script auf einem Server aufrufen kann, ohne das der Internet Explorer oder ähnliche Programme gestartet werden, und die Seite anzeigen?

Du koenntest eine Indy-Http-Komponente (TidHTTP) aufs Form ziehen oder auch dynamisch erstellen, und dann mit dem Get-Befehl die Datei aufrufen. Das ist dann so als ob du die Adresse in einem Browser eintippen wuerdest.

Greetz
alcaeus

[Zacherl]

Danke, ich werd's mal versuchen.

Florian

[Zacherl]

So, hat geklappt!
Eigentlich wollte ich die Indys ja nicht benutzen, wäre deswegen froh über eine alternative Lösung.
Wenn es eine Solche nicht gibt, muss ich wohl oder übel trozdem idHTTP benutzen.

Florian