Simple TCP Sockets Chat Example with filetransfer

[kuba]

Hallo,

wieder ein neues Chat Programm !! Dieses Programm ist aus 3 Open Source Anwendungen entstanden. Es ermöglicht 2 oder mehreren Benutzern zu chatten und Files auszutauschen. Ich bin vor ein paar Minuten erst fertig geworden, somit ist das Programm noch verbesserungsbedürftig, zur Vorführung und Weiterverwendung ist das sicher erstmal genug. Der Chat erfolgt auf einem Port nach Wahl, die Datenübertragung findet auf Port 500 statt.

Ich habe das Programm so umgeschrieben weil ich es für eigene Anwendungen benötige. Diese Anwendungen sollen über das Internet miteinander kommunizieren und Dateien austauschen, das ist mit diesem Open Source Programm möglich - wenn auch auf 2 Ports ...

Die Datenübertragung (Filetransfer) ist nur vom Client möglich, der Client kann Dateien an den Server senden oder vom Server abholen. Das soll wohl ausreichen um eine einfache Kommunikation mit Datenübertragung über das Internet zu ermöglichen.

Würde mich freuen wenn auch Ihr es gebrauchen könnt !!

Das Programm lässt sich mit Delphi 2005 PE oder Delphi 2010 Professional kompilieren (und sicher auch mit anderen Delphi Versionen).

Übrigens findet die Datenübertragung im nonBlocking Modus statt.

kuba

PS: hoppla, war noch ein kleiner Fehler drin...