Delphi-Cross-Socket
Delphi-Cross-Socket copied to clipboard
winddriver
Delphi cross platform socket library
这些日子把 websocket加入到实际应用中，客户端是.net的websocket，中间有交互发送，根据一个类型判断，刚开始还好，数据都是json数据，可是运行一段时间后，出现乱码情况，主要是，后来我用sgc的websocket客户端连接 websocket服务端，运行一段时间后，也会出现乱码情况，主要表现为服务端向客户端wssend方法，客户端的日志如下： [13:11:57.074][19156][DEBUG]:recv:{"resultCode":"201","token":"","gatherTime":"2022-06-11T13:12:07.736","uID":"CEF8237DE580448CAE8282A01E4A98F9","reason":"Success","errorCode":0} [13:11:57.896][19156][DEBUG]:recv:�~ {"resultCode":"201","token":"","gatherTime":"2022-06-11T13:12:08.361","uID":"cb2c845cd6474bf0a2f0d4370e5ca919","reason":"Success","errorCode [13:11:57.906][19156][DEBUG]:#disconnected (0) [13:11:57.912][19156][DEBUG]:#exception: Invalid value of RSV while no Extension Negotiated 附件为.net 客户端接收到乱码的截图 
两个底层问题
1，EPOLL与KQUEUE模型，发送数据块时，在锁定中触发状态事件，在该事件中如果继续调用send方法，发生卡死，应该解锁后来触发，这种问题不易于发现，也不好调试，我刚检查过最后更新代码 2，运营时的问题，socket要给出最大连接限制，例如2万，超过以后连接请求要全部reject 3，一个建议，fpc带上jemalloc/tcmalloc跑服务器是优于d的，希望多关注fpc，少关注设计模式 by.qq600585
Fixed CrossHttpConsole demo without ssl that was reported in issue #58
用 TCrossHttpServer 做了个 http 服务，打算在 ubuntu 下跑，现在在 shell 下直接跑没问题，但是加 & ，想在后台运行，跑不起来，这个怎么办？ > try with TAppServer.Create do try Start(); Writeln(APP_NAME, ' start at port: ', HttpServer.Port, ', IO threads: ', HttpServer.IoThreads);...
嗨，谢谢。 一个更深入的演示，包含更多关于 WebSocket 数据交换的细节，将使初学者和非专业人士更容易使用这段明显很棒的代码！ . 即使在将 AConnection.WsSend 挖掘到 NetCrossWebSocketServer 之后，也无法弄清楚如何仅发送到特定客户端，而不进行广播:-( 流、JSON 处理等呢？ 那太好了，让这个库更受欢迎。 Hi and thanks. A more in depth demo with more details on WebSocket data exchange would make...
在长连接的时候，一次请求完成后，服务端的ARequest: ICrossHttpRequest; AResponse: ICrossHttpResponse 这两个对象并没有被释放。要等到下一次 请求上来才能Reset，如果Request里面Post上来的比较大的Stream，那服务端的内存占用也是比较大的。所以在发送给客户端完成后，可以手工Reset掉这部分内存占用。另外ICrossHttpConnection 对象是否有最后一次访问时间？服务端针对长时间没有数据传输，并且还是长连接的，可以手工断开这些连接。
class function TSocketAPI.SetReUsePort(const ASocket: THandle; const AReReUsePort: Boolean): Integer; const SO_REUSEPORT = 15; var LOptVal: Integer; begin if AReReUsePort then LOptVal := 1 else LOptVal := 0; Result := TSocketAPI.SetSockOpt(ASocket,...
Using the cross-socket on the client-side, I noticed that the shutdown (StopLoop) hangs for several seconds when there is at least 1 connection attempt running. This is because the sockets...
unit Net.CrossSocket4Server; interface uses Net.CrossSocket.Base, Net.CrossSocket, Net.CrossServer; type TCrossSocket4Connection = class(TCrossConnection, ICrossConnection) private FCurrentStep: Integer; FOtherConnection: ICrossConnection; public constructor Create(AOwner: ICrossSocket; AClientSocket: THandle; AConnectType: TConnectType); override; end; TCrossSocket4Server = class(TCrossServer)...
