-
Forum: Netzwerke
Delphi
by htxmlx,
14. Sep 2008
Weiß keiner wie man einen Delay einbauen kann der sich pro Client erhöht, also in der procedure Onclientread muss der delay sich pro client erhöhen..
Gruß, htxmlx
-
Forum: Netzwerke
Delphi
by htxmlx,
12. Sep 2008
ich bräuchte theoretisch einen delay der zwischen dem empfangen der '#55' message und dem senden des nicknames steht...dieser müsste sich aber pro client um 100ms erhöhen oder so...? ginge sowas?
Gruß, htxmlx
-
Forum: Netzwerke
Delphi
by htxmlx,
12. Sep 2008
Hat aber einen Nachteil da man seine IP doch relativ einfach ändern kann...gibt es nicht ne lösung wie man das nachrichten senden der einzelnen clienten vielleicht untereinandern verzögern könnte?
Gruß, htxmlx
-
Forum: Netzwerke
Delphi
by htxmlx,
12. Sep 2008
Ich poste einfach mal den Code also wenn ein user drauf geht oder runter geht passiert folgendes
procedure TForm1.ServerSocket1ClientDisconnect(Sender: TObject;
Socket: TCustomWinSocket);
var
i: Integer;
Text: String;
begin
Clients.Items.Clear;
For I := 0 to ServerSocket1.Socket.ActiveConnections - 1 do
-
Forum: Netzwerke
Delphi
by htxmlx,
12. Sep 2008
ok thx, aber wie sollte ich das hier anwenden, also was würde das hier bringen um den nachrichten stau zu verhindern?
Gruß, htxmlx
-
Forum: Netzwerke
Delphi
by htxmlx,
12. Sep 2008
Habs gefunden und mir angesehen und versucht nachzuvollziehen, aber da dort keine Kommentare oder sonstiges stehen hab ichs i-wie net verstanden, könntest du so freundlich sein und mir in ein zwei sätzen nochmal erläutern was genau ein thread ist und was er bewirkt, also anwendungsweise...das wäre nett.
Gruß, htxmlx
-
Forum: Netzwerke
Delphi
by htxmlx,
12. Sep 2008
KK da guck ich mal nach...
Gruß, htxmlx
-
Forum: Netzwerke
Delphi
by htxmlx,
12. Sep 2008
demos? meinst du tutorials? oder ist demos noch was anderes?
Gruß, htxmlx
-
Forum: Netzwerke
Delphi
by htxmlx,
12. Sep 2008
hab ich schon was von gehört aber wie genau starte ich nen neuen thread?
Gruß, htxmlx
-
Forum: Netzwerke
Delphi
by htxmlx,
12. Sep 2008
untereinander will ich haben aber manchmal kommt es nebeneinander, ich glaube dashängt damit zusammen dsa ja alle clienten dann zum gleichen zeitpunkt die nachricht mit dem nickname absenden und der server somit dann bei 4 clients zum gleichen zeitpunkt 4 nachrichten bekommt....
Gruß, htxmlx
-
Forum: Netzwerke
Delphi
by htxmlx,
12. Sep 2008
mien prinzip ist bis jetzt so aufgebaut ist das wenn jemand joindet oder leavt wird beim server und allen clienten die listbox gelöscht, dann sendet jeder client eine message mit #99nickname die der server bei sich inner lsitbox aufnimmt und dann wieder an die clienten weiterleitet, die wiederum erkennen #99nickname als nickname und fügen ihn bei sich ein...das funktioniert auch reibunslos nur...
-
Forum: Netzwerke
Delphi
by htxmlx,
12. Sep 2008
doch mit while und repeat glaube ich oder?
-
Forum: Netzwerke
Delphi
by htxmlx,
12. Sep 2008
wie würde das dann als code aussehen ?
Gruß, htxmlx
-
Forum: Netzwerke
Delphi
by htxmlx,
12. Sep 2008
Naja meine Frage von oben besteht ja noch, denn ich muss ja wenn ein Client connectet den kompletten inhalt der listbox aufm server an ihn senden...auf dem server funktioniert alles nur der client bekommt bis jetzt nur ne person online angezeit wenn sie nach ihm kommt...
ich müsste also alle nicknames die auf server in der listbox stehen in einzenlnen nachrichten versenden
und das natürlich...
-
Forum: Netzwerke
Delphi
by htxmlx,
11. Sep 2008
Also ich bin jetzt soweit das alles funktioniert außer das löschen der schon disconnecteten Nicknames und halt das Verstecken der 3 anfangs zeichen...
Gruß, htxmlx
-
Forum: Netzwerke
Delphi
by htxmlx,
11. Sep 2008
Ok in die Listbox bekommen tu ichs, nur das stehen dann immer noch die 3 vorzeichen vor dem namen kann man die mit irgendeinem befehlt wegmachen?
nach langem rumprobieren bin ich an einem zweiten problem verzweifelt wenn der client dann disconnected dann soll der nickname ja auch aus der online lite gelöscht werden ich habs so versucht...
procedure...
-
Forum: Netzwerke
Delphi
by htxmlx,
11. Sep 2008
ah danke: perfekt genau das hab ich gesucht...ich probiere mich dann mal in der anwendung dessen und melde mich beim nächsten problem wieder...
Gruß, htxmlx
-
Forum: Netzwerke
Delphi
by htxmlx,
11. Sep 2008
ok, thx erxtmal nur da ich damit bis jetzt noch net gearbeitet habe wir würde das dann ausehen in der If Abfrage mit dem ReciveText der dann als Text definiert ist...
Gruß, htxmlx
-
Forum: Netzwerke
Delphi
by htxmlx,
11. Sep 2008
sorry soll buchstaben heißen also diese vorbuchstaben wie z.b. #25 dann muss ich dem computer ja sagen das eine message mit den 3 vorbuchstaben ein nickname ist ...wie mach ich das dann?
Gruß, htxmlx
-
Forum: Netzwerke
Delphi
by htxmlx,
11. Sep 2008
Das wäre ne idee, aber wie kann ich die ersten 3 zeilen definieren, d.h.
if "der recievde text begin mit #255" then add to listbox...
Gruß, htxmlx
-
Forum: Netzwerke
Delphi
by htxmlx,
11. Sep 2008
Ne funkt leider net...
aber ich bräuchte ja zwei befehle unzwar:
1. Wie sendet der Server den inhalt der Listbox
2. wie empfängt der client diesen inhalt...weil als ReciveText kann er den ja nicht empfangen, da der ja im Memo-Fenster (Chatfenster) angezeigt wird...
Gruß, htxmlx
PS: Man müsste praktisch definieren können welcher Text gesendet wird, einmal die Message für den Chat und...
-
Forum: Netzwerke
Delphi
by htxmlx,
11. Sep 2008
Also dann "Send(Listbox1.Items.Text)" oder wie lautet der genaue Befehl ?
Das mit dem Protokoll hab ich mir auch schon mal angeguckt aber...denke damit fang ich vielleicht in ein bis zwei monaten mal an..
Gruß, htxmlx
-
Forum: Netzwerke
Delphi
by htxmlx,
11. Sep 2008
Ok danke erstmal für deine Antwort, also bisher arbeite ich mit ClientSocket und ServerSocket, die beiden die man sich da erst wiederhohlen muss in den Reiter Internet...
So wird etwas zum Server verschickt...
if (ClientSocket1.Active=true) and (Edit1.Text<>'') then ClientSocket1.Socket.SendText(NickName+': '+Edit1.Text);
Edit1.Text:='';
Edit1.SetFocus;
-
Forum: Netzwerke
Delphi
by htxmlx,
11. Sep 2008
Hallo,
ich hab eine kleine Frage die ich mir aus sämtlichen Chat-Turorials und der Sufu net beantworten konnte... unzwar hab ich aus einem Tutorial einen Chat programmiet, da mir dies noch ein wenig zu simpel war hab ich mir überlegt ne Online-Liste zu machen, in der man den Computernamen von dejenigen sieht die online sind, computernamen deshalb weils erstmal einfacher ist als der nickname......