ServerSocket und ClientSocket....HELP

Scrat · Beiträge: 73

Hi,
also ich habe ja ein Chat programmiert wo erstmal nur zwei leute miteinander kommunizieren können. (1x Server u. 1x Client)

Ich habe allerdings immernoch das Problem, dass der Client nicht die geschriebenen Sätze vom Server empfängt.
Der Server empfängt aber wie er soll alle Sätze (die eigenen und die vom Clienten).

CLIENT-SOCKET
OnConnect:

markieren

Quelltext

1:	Statusbar2.Panels[0].Text := 'Verbunden mit: ' + Socket.RemoteHost +' \| Status: Server';

OnDisconnect:

markieren

Quelltext

1:	Statusbar2.Panels[0].Text := 'Der Server hat die Verbindung getrennt';

OnError:

markieren

Quelltext

1:
2:
3:

 
Memo2.Lines.Add('Verbindung mit  '+Server+'  konnte nicht hergestellt werden.');
ErrorCode := 0;

OnRead:

markieren

Quelltext

1:	Memo2.Lines.Add(Socket.ReceiveText);

SERVER-SOCKET
OnAccept:

markieren

Quelltext

1:
2:

 
Statusbar2.Panels[0].Text := 'Verbunden mit: ' + Socket.RemoteHost +'  | Status: Server';

OnClientConnect:

markieren

Quelltext

1:	Statusbar2.Panels[0].Text := 'Verbunden mit: ' + Socket.RemoteHost +' \| Status: Client';

OnClientDisconnect:

markieren

Quelltext

1:
2:

 
Statusbar2.Panels[0].Text := 'Der client hat die Verbindung getrennt';

OnClientRead:

markieren

Quelltext

1:	Memo2.Lines.Add(Socket.ReceiveText);

Wo liegt der fehler...?
MFG
Scrat

_________________
Wenn ein Programm nutzlos ist, muß es dokumentiert werden.

Scrat · Beiträge: 73

Ich habe hier eine Seite gefunden:
www.bildung.hessen.d.../delphi/interne3.htm

Ok ich habe keine 2 Versionen von meinem Chat-Programm (1x Server u. 1x Client)

Sodern nur 1 Chat-Programm.
Aber hier kann man auswählen ob man Client oder Server ist.

mhh..komisches Problem

_________________
Wenn ein Programm nutzlos ist, muß es dokumentiert werden.

Tweafis · Beiträge: 647 WinXP + fbsd Delphi 5 Prof

Schau dir mal die Demo von Delphi an :twisted:

_________________
.: Es wird der Tag kommen, an dem wir es nicht mehr ändern können :.

Scrat · Beiträge: 73

Dummerweise ist es genau diese Demoversion..welche ich weiterentwickelt habe....lol

_________________
Wenn ein Programm nutzlos ist, muß es dokumentiert werden.

Tweafis · Beiträge: 647 WinXP + fbsd Delphi 5 Prof

Funktioniert die Demo bei dir? Wenn ja, dann schau mal an was du geändert hast und prüfe das auf richtigkeit.

(Ich weiß, dass das die Demo ist, deswegen mein smilie ( :twisted:

))

_________________
.: Es wird der Tag kommen, an dem wir es nicht mehr ändern können :.

Scrat · Beiträge: 73

HIHOO.....ich bins nochmal...

also so ganz genau weis ich nu nicht was du von wir willst

Also diese Demoversion vom Chatprogramm welche in Delphi von anfang an drinne ist....habe ich überschrieben..(weiterentwickelt).

Ích habe also nicht mehr den orginalen Quellcode von der ursprünglichen Demoversion..

Nu bin ich mal gespannt auf deine Antwort....wenn wir nicht gerade aneinandervorbei reden..lol :lol:

Scrat

_________________
Wenn ein Programm nutzlos ist, muß es dokumentiert werden.

Tweafis · Beiträge: 647 WinXP + fbsd Delphi 5 Prof

Dein Programm ist ja soweit ich verstanden habe ähnlich wie das DemoTeil. Jetzt schau mal was bei dir nicht funzt, und wie das in der Demo gelöst ist.

_________________
.: Es wird der Tag kommen, an dem wir es nicht mehr ändern können :.

Scrat · Beiträge: 73

wo finde ich den den Quellcode?
Ich hab dn ja nicht mehr...

_________________
Wenn ein Programm nutzlos ist, muß es dokumentiert werden.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme