Forum: Netzwerke
by Sir Rufo,
10. Okt 2010
Frage die Online-Hile oder die Delphi-Reference
Pro Thread nur eine Frage, du kannst aber auch die SuFu hier im Forum benutzen
Allerdings, wofür einen Pointer? In der Objekt-Variable ist eh nur die Referenz auf den Speicherbereich hinterlegt - ist also quasi ein Pointer.
Und dann noch die Umwandlung in einen String ... Merk dir doch einfach die Objekt-Referenz
Du solltest unbedingt...
Forum: Netzwerke
by Sir Rufo,
9. Okt 2010
Nein (ok ich hatte mich im letzten teil vertippt, hab es aber jetzt korrigiert), denn ich brauche ja den Zugriff auf den ServerSocket um alle anderen Verbindungen (Sockets) zu erfahren
Forum: Netzwerke
by Sir Rufo,
9. Okt 2010
Wie xZise schreibt, die musst du selber erstellen ... ich bin aber (nach dem was du hier geschrieben hast) davon ausgegangen, dass du schon so eine Liste führst (User,Socket). Die Funktion sucht dann aus der Liste den Socket und liefert den User.
Du hast doch eine TServerSocket-Komponente auf deiner Form liegen. Ich weiß nicht wie die heißt ... ist aber auch egal.
Nehmen wir mal an, die...
Forum: Netzwerke
by Sir Rufo,
8. Okt 2010
Ok, das mit dem COUNT ist eigentlich nur Spielerei ... damit wollte ich dem sendenden Client zurückmelden, an wieviele Clients die Nachricht geschickt wurde. Ist also erstmal überflüssig
{...}
// Senden
// Wir werden jetzt alle Verbindungen prüfen, ob wir denen was senden müssen
// dazu finden wir in TServerWinSocket( Sender ).ActiveConnections die Anzahl der aktiven...
Forum: Netzwerke
by Sir Rufo,
8. Okt 2010
Den Link wo man JSON für Delphi bekommt habe ich hier schon gepostet (s. in den oberen Threads)
o := SO; erzeugt mir ein leeres JSON-Object, mit dem ich ab jetzt arbeiten kann.
Jetzt möchte ich diesem JSON-Object für die Eigenschaft 'CMD' den String-Wert 'MSG' übergeben.
Das schöne bei JSON-Objekte ist, die Eigenschaft wird automatisch angelegt, wenn diese noch nicht existiert.
also
o.S :=...
Forum: Netzwerke
by Sir Rufo,
7. Okt 2010
Wieso macht ihr euch das Leben immer so schwer?
Das ist z.B. die Nachricht
CMD=MSG
SEN=Walter
REC=Peter
MSG=Alles frisch im Schritt
Diese wird wie folgt erstellt:
function BuildMessage( const Sen, Rec, Msg : string ) : string;
begin
with TStringList.Create do
Forum: Netzwerke
by Sir Rufo,
7. Okt 2010
Wenn du mal erklären könntest, warum du die Sockets in einer eigenen Liste speichern möchtest.
Denn mir erschließt sich das nicht.
Der ServerSocket hat alle benutzten Sockets in einer Liste vorrätig. Da ist eine eigene Liste irgendwie doppelt gemoppelt.
Forum: Netzwerke
by Sir Rufo,
6. Okt 2010
Auch wenn es auf den ersten Blick komplizierter wird, solltest du die Nachrichten als JSON verschicken.
Senden vom Client geht dann z.B. so
uses
superobject;
{...}
var
Forum: Netzwerke
by Sir Rufo,
3. Okt 2010
Normale Nachricht an alle
Hallo ihr da!
Nachricht an B
@B Hallo Du da!
Alle Nachrichten werden über den Server gesendet.
Fängt die Nachricht mit @ an, dann folgt darauf der Empfänger und dann die Nachricht.
Dieses wertet der Server aus und verschickt die Nachricht dann nur an B und nicht wie sonst an alle
Welches Zeichen du dafür nimmst, ob dort auch mehrere Empfänger stehen können, etc....
