TCP/IP Server
Θα υλοποιήσω ένα απλό TCP/IP πολυνηματικό διακομιστή (Server) χρησιμοποιώντας τα TServerSocket & TClientSocket components.
(Απαιτείται να εγκατασταθεί το package /bin/dclsockets70.bpl)
Στο http://delphi.about.com/od/networking/l/aa112602a.htm θα βρείτε περισσότερες πληροφορίες για την χρήση των συγκεκριμένων components.
Επίσης στο http://www.overbyte.be/frame_index.h...ducts/ics.html θα βρείτε μια διαφορετική υλοποίηση από Indy και Delphi socket components.
Για πελάτες (clients) θα χρησιμοποιήσουμε
1. Ένα απλό browser που θα «χτυπάει» μία http διεύθυνση
και στην περίπτωσή μας http://127.0.0.1:1024Κώδικας:http_URL = "http:" "//" host [ ":" port ] [ abs_path [ "?" query ]]
H παραπάνω HTTP κλήση εμφανίζεται στον Server σαν το παρακάτω κείμενο
Ο Server απαντάΚώδικας:GET / HTTP/1.1 Host: 127.0.0.1:1024 User-Agent: Mozilla/5.0 (Windows NT 5.1; rv:15.0) Gecko/20100101 Firefox/15.0 Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8 Accept-Language: en,el;q=0.8,el-gr;q=0.5,en-us;q=0.3 Accept-Encoding: gzip, deflate DNT: 1 Connection: keep-alive
Κώδικας:HTTP/1.1 200 OK Content-Length: 11 Hello World Connection: close [empty line]
2. Το telnet στο οποίο θα επιστρέφεται ότι στέλνουμε (echo).
Start/Run Cmd
Στο Dos box πληκτρολογούμε telnet 127.0.0.1 1024
Πληκτρολογούμε «Hello» και το αποστέλλουμε στον Server με Enter
Πρέπει να υλοποιηθεί το RFC 854, και δεν μπορεί να συνυπάρξει με το modbus ή το Web serverΚώδικας:Client ---------- initate connection -----------> Server ... Client <---------------command------------------- Server Client ----------------response-----------------> Server ... Client <---------------command------------------- Server Client ----------------response-----------------> Server
3. To modbus client.
Θα πρέπει να επιλέξουμε για θύρα που ακούει ο Server την 502.
Υλοποίησα, στον TCP/Server, ένα modbus client που υποστηρίζει μόνο τις παρακάτω functions.Κώδικας:|Modbus Application Protocol (MBAP) Header | Protocol Data Unit (PDU)| |------------------------------------------+-------------------------| |Transaction |Protocol | Length | Unit | Function | Data | |Identifier |Identifier| Field | ID | Code | | |--------------------------------------------------------------------| | (2 bytes) |(2 bytes) |(2 bytes)|(1 byte)|(1 byte) | Μεταβλητό | |------------------------------------------+-------------------------|
03 (0x03) Read Holding Registers
Βλέπε MODBUS Application Protocol Specification V1.1b σελίδα 19/51
http://www.modbus.org/docs/Modbus_Ap...ocol_V1_1b.pdf
06 (0x06) Write Single Register
Βλέπε. MODBUS Application Protocol Specification V1.1b σελίδα
Statefull
Ένας WebServer, δημιουργεί για κάθε νέα σύνδεση ένα SessionId που το επιστρέφει στον Client σαν Cookie. Με κλειδί αυτό το SessionId, ο WebServer, συσχετίζει όλη τα δεδομένα του συγκεκριμένου client (user name, db connection κτλ)
Ο ίδιος client, στην επόμενη επικοινωνία του, αποστέλλει το SessionId ώστε να επαναχρησιμοποιήσει τα δεδομένα που όρισε σε προηγούμενη κλήση (statefull).
Περιγραφή του προγράμματος.
Ο server ακούει στην πόρτα 1024 και για κάθε νέα σύνδεση πελάτη δημιουργεί ένα ξεχωριστό thread που θα χειρίζεται την επικοινωνία μεταξύ τους (ServerType= stThreadBlocking). Μόλις αποσταλεί η απάντηση στον πελάτη, το νήμα τελειώνει την εργασία του και επιστρέφει στο pool. Η επόμενη κλήση από τον ίδιο πελάτη δεν θα συσχετισθεί με καμία προηγούμενη (stateless).
Δημιουργούνται νήματα (threads) κλάσης που κληρονομεί από την TServerClientThread και επιστρέφονται στο Server μέσω του event OnGetThread.
Στην procedure TSrvThread.ClientExecute; διαβάζουμε το εισερχόμενο TCP/IP μήνυμα.Κώδικας:procedure TFrmServer.ServerGetThread(Sender: TObject; ClientSocket: TServerClientWinSocket; var SocketThread: TServerClientThread); begin SocketThread:=TSrvThread.Create(ClientSocket, Handle); end; TSrvThread=class(TServerClientThread) private fHandle:THandle; ... protected procedure ClientExecute; override; public constructor Create(aSocket:TServerClientWinSocket; aHandle:THandle); end;
Η ρουτίνα RequestType το κατηγοριοποιεί σαν rtHTTP, rtText, rtModBus ή rtBinary και απαντάει ανάλογα.
Στο http://www.w3.org/Protocols/rfc2616/rfc2616-sec5.html περιγράφεται ότι η πρώτη γραμμή ορίζεται σαν
Στο πρόγραμμα κατηγοριοποιώ την κλήση σαν http αν περιέχει το HTTP/1. και ξεκινάει με τις λέξεις GET ή HEAD.Κώδικας:Request-Line = Method SP Request-URI SP HTTP-Version CRLF Όπου Method = "OPTIONS" ; Section 9.2 | "GET" ; Section 9.3 | "HEAD" ; Section 9.4 | "POST" ; Section 9.5 | "PUT" ; Section 9.6 | "DELETE" ; Section 9.7 | "TRACE" ; Section 9.8 | "CONNECT" ; Section 9.9 | extension-method extension-method = token
Ο χειρισμός του telnet, είναι διαφορετικός. To socket παραμένει «ανοικτό» έως να έρθει κάποιος control χαρακτήρας.
Το πρόγραμμα χρειάζεται επεκτάσεις εάν κάποιος θέλει να κάνει πραγματική δουλειά με αυτό.
Η πρώτη και σημαντικότερη είναι η υλοποίηση μιας κλάσης TModbus που θα υλοποιεί το modbus πρωτόκολλο έτσι ώστε ο κώδικας (C μεταφιεσμένη σε Pascal) να γίνει συντηρήσιμος.
Μπορείτε να κατεβάσετε την εφαρμογή και το source από τοΚώδικας:rtModBus : begin case pbFC^ of $03 : begin // mbfReadHoldingRegs = $03; pa:=pword(FRequest); pd:=pa; inc(pa, 4); // points to Start Address inc(pd, 5); // point to count move(FRequest^,data[0],8); cnt:=swap(pd^); data[ 8]:=cnt*2; pd:=pword(@data[9]); for i:=0 to pred(cnt) do begin w:=SendMessage(fHandle,REG_GET,swap(pa^)+i,0); pd^:=swap(w); inc(pd); end; size:=8+1+cnt*2; data[5]:=2 + 1 + cnt*2; ClientSocket.SendBuf(data,size); end;
http://www.filefactory.com/file/dftv...n/Server01_rar
Και παραφράζοντας τον μαύρο πειρατή (Αστερίξ στη Κορσική σελ. 19)
Bugus humanum est
Καλό φθινόπωρο
Απάντηση σε αυτήν την απάντηση