Einzelnen Beitrag anzeigen

Benutzerbild von kuba
kuba

Registriert seit: 26. Mai 2006
Ort: Arnsberg
588 Beiträge
 
Delphi 11 Alexandria
 
#1

Simple TCP Sockets Chat Example with filetransfer

  Alt 16. Feb 2010, 18:37
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...
Angehängte Dateien
Dateityp: zip kuba-chat_148.zip (9,8 KB, 190x aufgerufen)
Stefan Kubatzki
E=mc2
  Mit Zitat antworten Zitat