Socketz...

FrEaKY · Beiträge: 235 D7

Hallo,

Ich hab lange Zeit nix mehr geproggt und nun will ich eine Socketanwendung machen. Tja und da hab ich direkt schon den Anfang vergessen. Da es ScktComp ja nur als Unit gibt in Delphi 7, muss ich den Client und den Server ja selbst ertellen. Kann mich aber nurnoch an Bruchstücke erinnern:

markieren

Delphi-Quelltext

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

 TServer= tObject(TServersocket);
     private
     public
       procedure OnCOn(Socket: TCustomWinSocket);
       procedure OnDis(Socket: TCustomWinSocket);
       procedure OnRec(Socket: TCustomWinSocket);
     end;

OnCon soll die Connect Procedure sein wenn jemand verbindet, Dis für Disconnect, und OnRec für OnReceive. Allerdings ist da irgendwas falsch. Hab schon die Suche benutzt aber das nicht mehr gefunden.

Danke schonmal

Fighter#1 · Verfasst: So 01.01.06 10:04

Also,
anstatt eines ( gibts doch garnicht :gruebel:

) würde ich ein
OnClientRead Ereignis wählen. (geht doch um den Server ????)
Das sähe etwa so für dich aus:

procedure ServerSocket1ClientRead(Sender: TObject; Socket: TCustomWinSocket);

Da es um den Server geht gibt es nur ein OnClientConnect ereignis

procedure ServerSocket1ClientConnect(Sender: TObject; Socket: TCustomWinSocket);

Und nun das OnCLientDisconnect ding:

procedure ServerSocket1ClientDisconnect(Sender: TObject; Socket: TCustomWinSocket);

Den Rest kannst du dir anhand des LInkes erarbeiten:
www.dsdt.info/tutorials/winsocket/
( da hättest du auch alleine draufkommen können . . . )

mfg Fighter

FrEaKY · Beiträge: 235 D7

Ja das mit den Proceduren war mir noch einigermaßen klar, aber mit der Initialisierung das hab ich irgendwie vergessen^^ wie gesagt es ist lange her. Naja das steht ja alles dabei auf dieser Seite die du gelinkt hast

Narses · Verfasst: Mo 02.01.06 02:28

Moin!

Du kannst dir die Socket-Kompos doch in die Palette nachinstallieren, such mal hier danach, war schon 1000mal Thema, grob geschätzt... :wink:

cu
Narses

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme