TcpServer ----> TcpClient senden und empfangen

[jokerfacehro]

wenn du lust hast, kannst du mir ja ein funktionierendes beispiel schicken

PS: ich liebe Mr. Green ^^

achja und James Thurbers Fabeln sind echt geil, besonders die eine moral:
Early to rise and early to bed makes a male healthy, wealthy and dead xD

[jokerfacehro]

das ist ziemlich komisch:

wenn ich deine methode zum empfangen vom daten vom client nehme ohne was anderes in OnAccept etwa so

Delphi-Quellcode:

procedure TForm1.MyReceive(Sender: TObject; Buf: PChar; var DataLen: Integer);
begin
Memo1.Lines.Add(Buf);
end;

procedure TForm1.TcpServer1Accept(Sender: TObject;
  ClientSocket: TCustomIpClient);
var s:string;
    i:integer;
    aa:boolean;
begin
Memo2.Lines.Add(ClientSocket.LocalHostAddr);
ClientSocket.OnReceive:=MyReceive;
end;

ausführe wird MyReceive garnicht ausgeführt :/

so klappt es:

Delphi-Quellcode:

procedure TForm1.MyReceive(Sender: TObject; Buf: PChar; var DataLen: Integer);
begin
Memo1.Lines.Add(Buf);
end;

procedure TForm1.TcpServer1Accept(Sender: TObject;
  ClientSocket: TCustomIpClient);
var s:string;
    i:integer;
    aa:boolean;
begin
Memo2.Lines.Add(ClientSocket.LocalHostAddr);
ClientSocket.OnReceive:=MyReceive;
ClientSocket.ReceiveLn; ///////die wichtige zeile
end;

ich versteh' das nicht ganz ^^

am besten wäre wirklich ein beispiel

[jokerfacehro]

hmmm, ich habe weitergeforscht und sehe, dass es nur noch ein kleiner sprung ist

Es ist möglich ohne Timervom Client zu empfangen, ich muss bloß das OnReceive event im Client ausgelöst kriegen, wie hab ich das vorhin bloß hingekriegt argh ^^

ich hätte so gern ein beispiel, ich habe im 666diablo-forum genau den
richtigen beitrag gefunden, allerdings wurde kein code gepostet.

[jokerfacehro]

falls mir jemand weiterhelfen kann bitte posten

ich wünsche frohe Weihnachten und einen guten Rutsch

[Trödel]

Mal über den Tellerrand schauen, dann kann fündig werden: Chat.

[jokerfacehro]

hey, die seite habe ich mir vor 4 tagen schon angeschaut und
es funktioniert nicht, bei mir zumindest.
ich kriege nur synchronisationsfehler bei der demo.

falls jemand eigenerfahrung, die er mir mitteilen kann, hat, bitte posten

ich habe mir auch schon die delphi 9 demo angechaut, doch die funktioniert bei mir auch nicht. der client friert beim connecten ein, wenn er leere
zeilen erhält, das liegt am timer keine ahnung warum.

das einzige chatprogramm, was bei mir funktioniert, ist die NetChat demo
direkt von delphi. allerdings ist die auf threads aufgebaut und
benutzt auf beiden seiten server und client, was für mich keine schöne Lösungdarstellt...

ich wünsche allen hier im forum eine frohe Weihnacht und täglich grüßt das Murmeltier XD

[dominikkv]

Zitat von jokerfacehro:

wenn du lust hast, kannst du mir ja ein funktionierendes beispiel schicken

hmm...hab vor einer woche auch mal meinen ersten chat erstellt...
kannst ja mal schauen wie ich das gelöst hab
quelltext ist im anhang xD

ein paar befehle:

/cls: löscht den inhalt das chat-fensters
/auth pw: als admin identifizieren lassen (zB /auth Fisch)
/nick neuerNick: nick wechseln

nur als admin:
/rcon set +o Nick: Nick zum Admin machen
/rcon set +m Nick: Nick muten
/rcon set +k Nick: Nick kicken
-o, -m : rechte wieder nehmen

[jokerfacehro]

hey, danke für die antwort, ich schau die nächsten tage mal rein

hier ist richtig Familienfest, deshalb habe ich gerade keine zeit

so nebenbei, mit der Antifreeze komponente von indy habe ich es geschafft,
den indy chat demo 9 client zum laufen zu bringen, allderings gibt'S da immer noch eienige lustige fehler naja

Frohes Fest

[jokerfacehro]

das is en schönes Weihnachtsgeschenk xD

ich habe mir dein Quelltext doch mal kurz angeschaut.
da ich eine andere Delphi version habe ist bei mir TServerSocket nicht
direkt vorhanden.

deshalb muss ich ServerSocket1 wo anders deklariren nämlich hier:

Delphi-Quellcode:

public
ServerSocket1:TServerSocket;

denn kann ich dein proggi auch compilieren und es funktioniert.
schönes chat-programm

[jokerfacehro]

sooooooo ^^

ich habe mich jetzt auch mit TServerSocket probiert und
das ergebnis kann sich jetzt schon sehen lassen ^^

mein erster chat: ich habe ihn übers internet getestet,
funktioniert auch mit router wunderbar wenn man den port weiterleitet