Jump to content

sp0987

Members
  • Content Count

    56
  • Joined

  • Last visited

Everything posted by sp0987

  1. We need to modify all sysutils date time functions
  2. As per the suggestion , it looks like this ,and the chain goes till all the folders are included. Was i right?
  3. If this is to us, i have tested the same with sample application with only one unit in it.
  4. It means the path which contains all System.XXX.Pas files (C:\Delphi11\source)?
  5. Please find the .dproj . SampleApp.dproj
  6. I've heard on a few blogs that it's best to leave the sysutils.pas file interface alone. However, the issue is creating a new variable that needs to be utilized in several sysutils.pas routines.
  7. It didn't work. I have placed the folder path as first option in project search path. Is there any other areas i have to change i.e., library path in Delphi IDE-> Tools-> Options.
  8. Scenario 1: I moved the sysutils.pas file to a different location (I'm assuming it's a project folder), and I included the project's folder in the project search path. Then, during compilation, I received "[dcc32 Fatal Error] System.SysUtils.pas(35475): F2051 Unit System.Classes was compiled with a different version of System.SysUtils.FreeAndNil". Scenario 2: I placed the sysutils.pas in the base folder i.e., (C:\Delphi11\source\rtl\sys). Then, during compilation, I received a "Undeclared Identifier"
  9. The Path was right. The discussion was not about our project. It's about the working of sysutils.pas from Delphi 7 to Delphi 11.
  10. sp0987

    Indy HTTP server

    HTTPServer : Tidhttpserver with httpserver do begin HTTPServer.DefaultPort := 8080; HTTPServer.Bindings.Clear; HTTPServer.Bindings.Add.port := 8080; if active then stop else active. end procedure HTTPServerCommandGet(AContext: TIdContext; req: TIdHTTPRequestInfo; res: TIdHTTPResponseInfo); begin try res.SERVER := servername; res.ContentType := 'text/html;charset="UTF-8"'; res.ResponseNo := 200; log(req.httpcommand); --// If i remove this then am getting EInvalidPointer : Invalid pointer operation 17:01:23.675 - /images/RuleCOMPILEDSCRIPT.png : /images/RuleCOMPILEDSCRIPT.png for all types of files // if the req.documet is other than .png/.jpg Data := LoadDataFromFile(doc); res.ContentType := fMIMEMap.GetFileMIMEType(doc); res.ContentStream := TStringStream.Create(Data); // if the req.documet is .png/.jpg res.ContentType := fMIMEMap.GetFileMIMEType(doc); res.ContentStream := TFileStream.Create(doc, fmOpenRead or fmShareCompat); except on E: Exception do begin Log(req.URI + ' : ' + req.Document + sLineBreak + E.ClassName + ' : ' + E.Message); end; end; end Am getting EInvalidPointer : Invalid pointer operation while processing one get request to another get request. If the log(req.httpcommand) is used then am not getting any invalid pointer operation exception. Attached sample log file log - Copy.txt
  11. Hi, For Delphi11, we have been utilizing the ICS component suite. With the "TSslHttpServer" component, we recently discovered new behavior. The "KeepAliveTimeSec & KeepAliveTimeXferSec" parameters are intended to shut the connections after an idle time, but when we set the property value to larger than "0," the entire webserver halted.
  12. The problem was fixed. Objects that are created without initializing to Nil are the source of the issue. It provided AV in the most recent Delphi version, but it functioned in earlier versions. Thank you for your kind support.
  13. The destructor didn't hit before the client disconnect. When the server was opened , 4 clients were connected to the server . And when the server was idle for the keepalivetime sec's, then the clients will be disconnected using the highlighted LOC(FWSocketServer.Disconnect(Cli);). But for the last client the line will be skipped as the if condition fails and then it calls the "procedure TCustomWSocketServer.WMClientClosed(var msg: TMessage);" method using "procedure TCustomWSocketServer.WndProc(var MsgRec: TMessage);" Here when calling client.free, the AV appears. In this total execution, the client destructor wasn't called before the client disconnect.
  14. Am attaching the call stack. Hope so it serves to narrow down the issue Call Stack.docx
  15. Prior to that line, the client was not free, and I changed the strings to make them compatible. It didn't stop the AV, though. Any other suggestions?
  16. Long-term client connectivity was not my intention. The clients become disconnected in accordance with the design, and that is definitely not my problem. My issue is that "we are receiving AV when the last client disconnects, which causes a server disconnect."
  17. Ours is a webserver project developed using Delphi7. It's a service based project and we need internet components in order to meet our demand to connect to the web. We have utilized "Tsslhttpserver and TICSLogger" components in our project. According to the previous discussion, the server did not disconnect after the idle period; the clients that were connected when the server was opened did. Using our Delphi 7 project, we behave in the same way. We encountered AV when we moved our project from Delphi 7 to Delphi 11. As a result of AV, we observed that the server and client would also become disconnected. Thus, to address the problem, we considered employing The values of WebServerSSL.KeepAliveTimeSec and WebServerSSL.KeepAliveTimeXferSec are equal to zero. However, it didn't resolve our problem. One by one, the clients disconnect in the "TCustomWSocketServer.WMClientClosed" process. Eventually, the client ID sets to "0," freeing the client. AV in Delphi11 appears when the last client disconnects, the client ID is set to Zero'0', and we attempt to call client.free.
  18. Am not repeating , am just making things clear so that you can understand the issue. May I know the questions which I haven't answered you.
  19. We have project which was migrated from Delphi 7 to Delphi 11. In delphi7, we used "ICS - Internet Component Suite - V8 - Delphi 7 to RAD Studio 10.4 Sydney Revised: Dec 17, 2020 Release: V8.65". We didn't face any problem like server stop automatically after certain amount of time. In Delphi 11, we used "ICS - Internet Component Suite - V8 - Delphi 7 to RAD Studio 10.4 Sydney Revised: August 22, 2023 Release: V9.0". In this we are facing the server stop problem.
  20. Am attaching sample test case that describes my issue. Could you please go through it?SSLTest.7z
  21. In my working project ,I have seen this behaviour while debugging.
  22. Even when I set both properties to Zero, it stills close the remote client connection after 5 minutes though the client is not idle.
  23. Can you look into this? webapp-20231004.log
  24. Attached the log OverbyteIcsSslWebServ.log
  25. As your suggestion i have set both to zero. Still the client connection closes after 5 minutes
×