Cheat programm.

mimi · Beiträge: 3458 Ubuntu, Win XP Lazarus

Hallo,
ich möchte ein programm schreiben was:
einfach daten zu einem andrens enden kann,also:
ich habe ein server und ein client auf denn Lokalen lan.
wie kann ich das mit denn TClientSoket und TServerCoket oder wie die heißen machen ?
was muss ich bei Server hinschreiben da bekomme ich immer ne fehler meldung.

MFG
mimi

BungeeBug · Beiträge: 901

also ich denke mal das was du meinst ist nen "Chat"-Prog ... und um das zuschreiben bedarf es nicht viel ... du schickst deine nachricht (z.B: den inhalt von Edit1.text) an den Server (Serverscket muss aktiv sein )

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:

//Verbinden
ClientSocket1.Port:=2003; // <- da der Prot der benutzt wird (muss bein  // Server und beim client der gleiche sein ....
ClientSocket1.Host:='Host' // <- da den hostname hin
ClientSocket1.Active:=True; // <- und client anmachen ...
ClientSocket1.Socket.Connect(1);// <- verbinden
//Text senden
ClientSocket1.Socket.SendText(Edit1.Text);
//Verbindung trennen ....
ClientSocket1.Active:=False;

so das sollte alles sein ... ich hoffe das geht :P MfG BungeeBug

mimi · Beiträge: 3458 Ubuntu, Win XP Lazarus

das mit denn server bekomme ich nicht hin da bekomme ich immer fehler

O'rallY · Beiträge: 563

Guck dir mal im FAQ das Netzwerkchatbeispiel an. Das Thema wurde schon so oft durchgekaut, du solltest wirklich immer zuerst im FAQ nachgucken und die Suchfunktion bemühen.
Falls du spezielle Probleme hast (und sie auch nicht mit Hilfe des FAQs lösen konntest) steht es dir frei nochmal zu posten :wink:

_________________
.oO'rallY
Linux is like a tipi: No gates, no windows and a gnu-eating apache inside...

Ex0rzist · Beiträge: 550 Win XP Prof. Mandrake 10.0 D6

Weiterhin wäre es ganz gut, wenn du uns die Fehler etwas genauer beschreiben könntest.

_________________
If accidentally read, induce vomitting.

matze · Verfasst: Mi 06.11.02 17:35

also bei meiner delphi version (D5 prof.) ist ein chat demo dabei. ich kann mal gucken ob ich das noch finde und dann euch per Mail schicken !!

_________________
In the beginning was the word.
And the word was content-type: text/plain.

Moritz M. · Beiträge: 1672

Also, um eine Verbindung aufzubauen machst du am besten folgendest:

Du legst einen gemeinsamen Port fest. Nehmen wir einfach mal 3253

Du brauchst 2 Programme.
Nun legen wir Programm 1 an.
Wir erstellen eine Server-Komponente(Sparte Internet)
Wir schreiben bei den Eigenschaften dieser Komponente den Port auf den gemeinsmane Port.
Wir erstellen per Doppelklich auf das programm die onCreate-Prozedur.
In diese schreiben wir ServerSocket1.open; rein.
Nun setzen wir beim ServerSocket die Eigenschaft 'OnClientRead' o.ä. auf ein Prozedur, in die wir
markieren

Quelltext
1:

showmessage(Socket.ReciveText);
Nun ist das erste Prog fertig und wird gespeichert und erstellt.
prog 2 erstellen
Ein ClientSocket Einfügen
bei dem ClientSocket folgende eigenschaften setzen:
Port: gemeinsamer Port
Host: 127.0.0.1
Die eigenschaft onConnect auf eine Prozedur setzen, in welche
markieren

Quelltext
1:

Socket.SendText('hallo!Connected');
geschrieben wird.
in die oncreatefunktion des progs client.open; schreiben
Prog speicher und erstellen.
Nun erst prog1(Server) und dann prog2(client) starten, dann müste bei prog 1 hallo!Connected angezeigt werden!

patmann2001 · Beiträge: 201 Windows 7 Prof. Delphi XE2

Ähm
Möchte Dich nur ungern korrigieren Onz aber man sollte nicht

Zitat:

6) In diese schreiben wir ServerSocket1.open; rein.

sondern besser 6) In diese schreiben wir ServerSocket1.active:=true; rein.
Warum?
Ein Server sollte nimals eine Socketverbindung öffen sondern auf einem Socket nur auf listen gehen. Der Client öffnet die Verbindung mit ClientSocket1.open.
Und wieso

Zitat:

Host: 127.0.0.1

müsste es nicht heissen

markieren

Quelltext

1:	ClientSocket1.Address := <Addrese des Servers> ?

cu Patmann

Moritz M. · Beiträge: 1672

Bei dem ersten hast du Rechte, bei dem 2. Bin Ich mir sehr sicher, das es .host heißt.
Trotzdem danke für die Verbesserungen

mimi · Beiträge: 3458 Ubuntu, Win XP Lazarus

und was schreibe ich bei server bze adreese hin ?

MFG
mimi

Moritz M. · Beiträge: 1672

kannste leer lassen

mimi · Beiträge: 3458 Ubuntu, Win XP Lazarus

habe gerade das test programm aus dem FAQ getestet:
das geht nicht so wie ich will:)
kannst ud mir mal bitte ein kleines beispiel schreiben ????

MFG
MIMI

Moritz M. · Beiträge: 1672

Ein Server-Client Beispiel?

DeCodeGuru · Beiträge: 1333 Erhaltene Danke: 1 Arch Linux Eclipse

Guck mal im Demo-Ordner unter Demos\Internet\Chat. Da findeste ein Beispielprogramm.

_________________
Viele Grüße
Jakob

mimi · Beiträge: 3458 Ubuntu, Win XP Lazarus

lol: bei mir flät der internet ordner bei denn demos;)

DeCodeGuru · Beiträge: 1333 Erhaltene Danke: 1 Arch Linux Eclipse

echt?

Soll ich dir das Demo-Programm per Mail schicken?

_________________
Viele Grüße
Jakob

Moritz M. · Beiträge: 1672

hab dir ein demo geschrieben und geshcickt.

DeCodeGuru · Beiträge: 1333 Erhaltene Danke: 1 Arch Linux Eclipse

@onz: Kann es sein, dass du ziemlich fleißig bist? :wink:

_________________
Viele Grüße
Jakob

Moritz M. · Beiträge: 1672

vielleicht...hatte aber gard auch lust drauf...und muss meine kentnisse erneuern
nur kommt die mail warscheinlich erst morgen an wil mein amilserver aml wieder spinnt

mimi · Beiträge: 3458 Ubuntu, Win XP Lazarus

ich habe das beispiel aus dem FAQ angesen und habe
ein paar fragen:
1. Wie kann ich die anzal aller verbindungen ermitteln ?
2. Wie kann ich eine nachricht beim verbinden des clients nur an den server senden ?

Danek das du mir das beipsiel geschrieben hast, vieleicht kann ich damit auch was anfagen

MFG
mimi

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme