Avatar billede RJFreelance Praktikant
05. april 2004 - 14:10 Der er 11 kommentarer og
1 løsning

Simpelt spg om server - client

Hej.
Nogen der kan hjælpe med en smule kode med Tserversocket og Tclientsocket Hvor den sender f.eks. tallet 22 fra clienten til serveren..

Er det svært ??
Avatar billede dkn Nybegynder
05. april 2004 - 14:17 #1
hvis du har lavet connection så er det bare:
clientsocket.socket.sendtext('22');

Og på server socket (og client) er der event "OnRead" eller onreceive og så kan du sige:
showmessage(socket.receivetext);
Avatar billede RJFreelance Praktikant
05. april 2004 - 14:21 #2
Kan client og server programmet være på samme computer ?
Avatar billede dkn Nybegynder
05. april 2004 - 14:22 #3
ja
Avatar billede RJFreelance Praktikant
05. april 2004 - 14:23 #4
Det er vel ikke nok bare at ligge en tclient socket i det ene program og serversocket i det andet.. Der skal vel noget kode til ?
Avatar billede stefmeister Nybegynder
10. april 2004 - 19:12 #5
hvordan kan det være at jeg ikke har TClient og TServer??

Jeg har engang lavet et program med client og server, men den påstår at den ikke kan finde de komponenter... jeg har næsten lige installeret delphi, som forresten er Delphi 7 Enterprise.
Avatar billede RJFreelance Praktikant
10. april 2004 - 19:27 #6
Jeg har både delphi 6 og 7 og de virker begge ved mig :)
Avatar billede stefmeister Nybegynder
10. april 2004 - 20:40 #7
det er mystisk at mine er forsvundet...!

Men nok om det... har du fået det til at virke?
Avatar billede dkn Nybegynder
10. april 2004 - 23:35 #8
de er ikke installed som default i d7.

se efter dclsockets70.bpl mener jeg.
Avatar billede RJFreelance Praktikant
11. april 2004 - 01:18 #9
Nej jeg ved ikke hvordan man connecter til en server :)

Søger stadigvæk hjælp
Avatar billede stefmeister Nybegynder
11. april 2004 - 12:58 #10
sådan her ser min ud - Altså det her er client delen.

procedure TForm1.Button5Click(Sender: TObject);
begin
if ClientSocket1.Active = False then
begin
ClientSocket1.Host := Edit1.Text;
ClientSocket1.Port := 1533;
ClientSocket1.Active := True;
Button5.Caption := 'Disconnect';
end
else
begin
ClientSocket1.Active := True;
ClientSocket1.Close;
Button5.Caption := 'Connect';
end
end;


og så med server programmet der sætter du en TServerSocket ind, og sætter følgende:
Active til true;
Port til 1533;
ServerType til stNonBlocking.

Det laver du i to forskellige programmer. Så er de connectede til hinanden.
Avatar billede stefmeister Nybegynder
11. april 2004 - 13:00 #11
Edit1.Text den sætter du på formen og deri kan du så sætte IP'en, altså f.eks. 192.168.1.100

Jeg mener at TServer og TClient kun dur til lokalt netværk, ellers skal man ud i noget med TCP/IP.
Avatar billede stefmeister Nybegynder
11. april 2004 - 13:01 #12
og det skulle så have været et svar
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester