Delphi WebSocket 服务器
TsgcWebSocketHTTPServer — 具有 IOCP/EPOLL 支持、SSL/TLS、身份验证和静态文件服务的多线程 WebSocket 和 HTTP 服务器组件。
TsgcWebSocketHTTPServer — 具有 IOCP/EPOLL 支持、SSL/TLS、身份验证和静态文件服务的多线程 WebSocket 和 HTTP 服务器组件。
HTTP + WebSocket 服务器——处理 wss:// 握手、广播消息，内置 TLS、身份验证、负载均衡器注册和 HTTP/2。
TsgcWebSocketHTTPServer
WebSocket — RFC 6455
Windows, macOS, Linux, iOS, Android
Professional / Enterprise
Drop a TsgcWebSocketHTTPServer, set Port and SSL, wire OnMessage and the server is live.
uses
sgcWebSocket, sgcWebSocket_Server, sgcWebSocket_Classes;
var
WSServer: TsgcWebSocketHTTPServer;
begin
WSServer := TsgcWebSocketHTTPServer.Create(nil);
WSServer.Port := 80;
WSServer.OnConnect := WSServerConnect;
WSServer.OnMessage := WSServerMessage;
WSServer.OnDisconnect := WSServerDisconnect;
WSServer.OnError := WSServerError;
WSServer.OnAuthentication := WSServerAuthentication;
WSServer.Active := True;
end;
procedure TForm1.WSServerMessage(Connection: TsgcWSConnection;
const Text: string);
begin
// Broadcast to every connected client
WSServer.WriteData(Text);
end;
procedure TForm1.WSServerAuthentication(Connection: TsgcWSConnection;
aUser, aPassword: string; var Authenticated: Boolean);
begin
Authenticated := (aUser = 'admin') and (aPassword = 's3cret');
end;// uses: sgcWebSocket, sgcWebSocket_Server
TsgcWebSocketHTTPServer *WSServer = new TsgcWebSocketHTTPServer(this);
WSServer->Port = 80;
WSServer->OnConnect = WSServerConnect;
WSServer->OnMessage = WSServerMessage;
WSServer->OnDisconnect = WSServerDisconnect;
WSServer->OnError = WSServerError;
WSServer->OnAuthentication = WSServerAuthentication;
WSServer->Active = true;
void __fastcall TForm1::WSServerMessage(TsgcWSConnection *Connection,
const UnicodeString Text)
{
WSServer->WriteData(Text);
}using esegece.sgcWebSockets;
var server = new TsgcWebSocketHTTPServer();
server.Port = 80;
server.OnConnect += (conn) => Console.WriteLine("#connected: " + conn.IP);
server.OnMessage += (conn, text) => server.WriteData(text); // broadcast
server.OnDisconnect += (conn, code) => Console.WriteLine("#disconnected: " + code);
server.OnAuthentication += (conn, user, pass, ref ok) => { ok = (user == "admin" && pass == "s3cret"); };
server.Active = true;27 published properties, 7 methods, 22 events — pulled from the component reference.
Published properties: Active, Port, Bindings.
Methods: Broadcast, WriteData, Ping.
Published properties: HeartBeat, WatchDog, LoadBalancer.
Published properties: Authentication, SSL, SSLOptions.
Events: OnStartup, OnShutdown, OnTCPConnect.
Events: OnMessage, OnBinary, OnFragmented.