Delphi-Cross-Socket
Delphi-Cross-Socket copied to clipboard
winddriver
EAccessViolation: Access violation at address 000000000043F20A in module 'CrossH ttpConsole.exe'
C:\temp>CrossHttpConsole.exe Windows 7 Service Pack 1 (Version 6.1, Build 7601, 64-bit Edition) EAccessViolation: Access violation at address 000000000043F20A in module 'CrossH ttpConsole.exe'. Read of address 0000000000000040 Unexpected Memory Leak An unexpected memory leak has occurred. The unexpected small block leaks are:
9 - 24 bytes: TDictionary<System.UInt64,Net.CrossSocket.Base.ICrossListen>.TValu eCollection x 1, TDictionary<System.UInt64,Net.CrossSocket.Base.ICrossConnection
.TValueCollection x 1, TObject x 2 57 - 72 bytes: Unknown x 2 89 - 104 bytes: TDictionary<System.UInt64,Net.CrossSocket.Base.ICrossConnection> x 1, TDictionary<System.UInt64,Net.CrossSocket.Base.ICrossListen> x 1 569 - 616 bytes: TCrossHttpServer x 1
C:\temp>
我说明一下出错原因！ uDM.pas 的201行 FHttpServer := TCrossHttpServer.Create(0, True); 改成 FHttpServer := TCrossHttpServer.Create(0, False);
demo默认启用https,但没有证书文件，你也可以自己生成证书文件测试
procedure TDM.DataModuleCreate(Sender: TObject); begin {$IFDEF CROSS_SSL} FHttpServer := TCrossHttpServer.Create(0, True); if FHttpServer.SSL then begin FHttpServer.SetCertificate(SSL_SERVER_CERT); FHttpServer.SetPrivateKey(SSL_SERVER_PKEY); end; {$ELSE} FHttpServer := TCrossHttpServer.Create(0, false); {$ENDIF} // FHttpServer.Addr := IPv4_ALL; // IPv4 // FHttpServer.Addr := IPv6_ALL; // IPv6 FHttpServer.Addr := IPv4v6_ALL; // IPv4v6 FHttpServer.Port := AppCfg.ListenPort; FHttpServer.Compressible := True;
FHttpServer.OnConnected := _OnConnected; FHttpServer.OnDisconnected := _OnDisconnected;
_CreateRouter; _CreateWatchThread; end;