SocketServer Delphi



  • There's an app-server, there's an annex-client, the first time the file is delivered to the client. It's working, but I'd like the mailing to not one client, but everyone on the phone.

    I've been through the cycle, but since the file is broken down in the second round, there's a mistake in accessing the file. I wanted to go to sleep, but I thought it was a long time and I realized it wouldn't work. Which way? I don't want to leave the cell phones, at least the main function is working with them.

    I attach a reference to GIT https://github.com/WOLF33/EasyLan-v5.git



  • You need to run your file for every client. So that every flow can read the file regardless of the others, and without interrupting others, it's necessary to create a stream in every stream. TFileStream without blocking the reading of this file for other flows. Like this:

    FS := TFileStream.Create(
      CreateFile(PChar('filename'), GENERIC_READ, FILE_SHARE_READ, nil, OPEN_EXISTING, 0, 0)
    );
    

    And then every flow reads the file independently of the others and passes it to its client.




Suggested Topics

  • 2
  • 2
  • 2
  • 2
  • 2
  • 2
  • 2
  • 2
  • 2
  • 2
  • 2
  • 2
  • 2
  • 2
  • 2