Protocolo de transferência de arquivos

uses
  sgcWebSocket, sgcWebSocket_Server, sgcWebSocket_Protocol_Files_Server,
  sgcWebSocket_Protocol_Files_Client, sgcWebSocket_Protocol_Files_Message;

// --- Server ----------------------------------------------------
ServerFiles := TsgcWSPServer_Files.Create(nil);
ServerFiles.Server := WSServer;

// --- Client — chunked + resumable -----------------------
ClientFiles := TsgcWSPClient_Files.Create(nil);
ClientFiles.Client := WSClient;
ClientFiles.Files.BufferSize    := 8192;
ClientFiles.Files.SaveDirectory := 'C:\\inbox\\';
ClientFiles.Files.QoS.Level     := qosLevel1;  // acknowledged delivery

ClientFiles.Subscribe('files');
ClientFiles.SendFile('C:\\data\\report.pdf');