Delphi
( socket (.) , ) , .
. , .
: , .
Delphi TClientSocket, TServerSocket.
TServerSocket TClientSocket Delphi, .
Internet, TServerSocket TClientSocket, , . "Component/Install Packages", "Add". "dclsocketsXX.bpl" ( bin, Delphi), XX - Delphi. , "", "Install Packages" "OK". , "Internet" - TServerSocket TClientSocket.
(TClientSocket)
1) Port Host. Port Host TClientSocket . Port (1 65535, 1001 65535, 1000 ).
Host - IP- , . , rus.delphi.com 192.128.0.0.
2) . , . , Open ( TClientSocket) True Active. .
/ .
4) . , Close TClientSocket False Active.
TClientSocket | |
Active | , . True, False. . |
Host | -, |
Address | IP- , . Host, IP. , Host , IP DNS |
Port | , (1-65535) |
ClientType | : ctBlocking (OnRead OnWrite ). ; ctNonBlocking (/ OnRead OnWrite) |
TClientSocket | |
Open | ( Active True) |
Close | ( Active False) |
TClientSocket | |
OnConnect | . / |
OnConnecting | . OnConnect , . , , |
OnDisconnect | , - |
OnError | . . Windows , try..except |
OnLookup | IP- DNS |
OnRead | - . OnRead |
OnWrite | , |
TClientSocket.Socket:
|
|
- SendBuf(var Buf; Count: Integer) - . , (record), Integer. Buf, (Count);
- SendText(const S: string) - .
- SendStream(AStream: TStream) - . . - , , ..
- ReceiveBuf (var Buf; Count: Integer) - Buf, Count. , . ( ), , ReceiveLength.
ReceiveText.
(TServerSocket)
, , . , ( , ). , .
TServerSocket
1) Port ServerType - , , , , ( ). ServerType ( .);
2) - . (Listen);
|
|
3) - .
4) - .
5) - , .
, 3-4 , .. .
TServerSocket | |
Socket | TServerWinSocket, . , .. , . |
ServerType | . : stNonBlocking - . OnClientRead OnClientWrite. stThreadBlocking - . (Thread). |
ThreadCacheSize | (Thread), . . , , . |
Active | , , . .., , True , , False - . , True. |
Port | . . 1025 65535, .. 1 1024 - . |
TServerSocket | |
Open | . , True Active |
Close | . , False Active |
TServerSocket | |
OnClientConnect | , (OnAccept) |
OnClientDisconnect | , |
OnClientRead | , - . Socket: TCustomWinSocket |
OnClientWrite | , |
OnGetSocket | ClientSocket |
OnGetThread | (Thread) , SocketThread TServerClientThread |
OnThreadStart | , (, Thread) |
OnThreadEnd | , (, Thread) |
OnAccept | , |
OnListen | , |
. /lab1/tcp-ip-client/ /lab1/tcp-ip-server/