Entwickler-Ecke

Internet / Netzwerk - Cheat programm.


mimi - Di 05.11.02 19:20
Titel: Cheat programm.
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 - Di 05.11.02 19:35

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 )


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 - Di 05.11.02 19:37

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


O'rallY - Di 05.11.02 19:37

Guck dir mal im FAQ [http://www.auq.de/viewtopic.php?t=120] 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:


Ex0rzist - Di 05.11.02 20:48

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


matze - 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 !!


Moritz M. - Fr 08.11.02 15:58

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

Du legst einen gemeinsamen Port fest. Nehmen wir einfach mal 3253
  1. Du brauchst 2 Programme.
  2. Nun legen wir Programm 1 an.
  3. Wir erstellen eine Server-Komponente(Sparte Internet)
  4. Wir schreiben bei den Eigenschaften dieser Komponente den Port auf den gemeinsmane Port.
  5. Wir erstellen per Doppelklich auf das programm die onCreate-Prozedur.
  6. In diese schreiben wir ServerSocket1.open; rein.
  7. Nun setzen wir beim ServerSocket die Eigenschaft 'OnClientRead' o.ä. auf ein Prozedur, in die wir

    Quelltext
    1:
    showmessage(Socket.ReciveText);                    

  8. Nun ist das erste Prog fertig und wird gespeichert und erstellt.
  9. prog 2 erstellen
  10. Ein ClientSocket Einfügen
  11. bei dem ClientSocket folgende eigenschaften setzen:
    Port: gemeinsamer Port
    Host: 127.0.0.1
  12. Die eigenschaft onConnect auf eine Prozedur setzen, in welche

    Quelltext
    1:
    Socket.SendText('hallo!Connected');                    

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


patmann2001 - So 24.11.02 21:51

Ä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

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

cu Patmann


Moritz M. - Mo 25.11.02 20:10

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 :P


mimi - Di 17.12.02 20:34

und was schreibe ich bei server bze adreese hin ?

MFG
mimi


Moritz M. - Di 17.12.02 20:38

kannste leer lassen


mimi - Di 17.12.02 21:13

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. - Di 17.12.02 21:15

Ein Server-Client Beispiel?


DeCodeGuru - Di 17.12.02 21:18

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


mimi - Di 17.12.02 21:25

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


DeCodeGuru - Di 17.12.02 21:40

echt? :? Soll ich dir das Demo-Programm per Mail schicken?


Moritz M. - Di 17.12.02 21:40

hab dir ein demo geschrieben und geshcickt. 8)


DeCodeGuru - Di 17.12.02 21:42

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


Moritz M. - Di 17.12.02 21:44

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 - Di 17.12.02 22:12

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


Moritz M. - Mi 18.12.02 13:04

in dem beispiel findest du die lösung auf alle fragen!
sag mal deine email


mimi - Do 19.12.02 15:21

Danke !
meine e-mail:mimi_17@web.de

MFG
mimi


Moritz M. - Do 19.12.02 15:23

Hab sie schon von deiner hp. thanks :P


mimi - Do 19.12.02 15:52

Bitte !

mFG
mimi