Entwickler-Ecke

Internet / Netzwerk - Socketz...


FrEaKY - Sa 31.12.05 21:04
Titel: Socketz...
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:


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 - 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:
http://www.dsdt.info/tutorials/winsocket/
( da hättest du auch alleine draufkommen können . . . )

mfg Fighter


FrEaKY - So 01.01.06 22:27

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