Suportado por
Quando um cliente HTTP envia um stream multipart/form-data, o stream é salvo pelo servidor na memória. Quando os arquivos são grandes, o servidor pode gerar uma exceção de falta de memória. Para evitar essas exceções, o servidor possui uma propriedade chamada HTTPUploadFiles na qual você pode configurar como os streams POST são tratados: na memória ou como file streams. Se os streams forem tratados como file streams, os streams recebidos são armazenados diretamente no disco rígido, evitando assim os problemas de memória.
Para configurar o seu servidor para salvar streams multipart/form-data como file streams, siga os próximos passos:
1. Defina a propriedade HTTPUploadFiles.StreamType = pstFileStream. Usando essa configuração, o servidor armazenará esses streams no disco rígido.
2. Você pode configurar qual é o tamanho mínimo em bytes a partir do qual os arquivos serão armazenados como file stream. Por padrão, o valor é zero, o que significa que todos os streams serão armazenados como file stream.
3. A pasta onde os streams são armazenados usando SaveDirectory; se não for definida, eles serão armazenados na mesma pasta onde a aplicação está.
4. Quando um cliente envia um multipart/form-data, o conteúdo é codificado dentro de boundaries; se a propriedade RemoveBoundaries estiver habilitada, o conteúdo dos boundaries será extraído automaticamente após o stream completo ser recebido.
Código de Exemplo
Primeiro, crie uma nova instância de servidor e configure os Streams para serem salvos como File Streams.
oServer := TsgcWebSocketHTTPServer.Create(nil);
oServer.Port := 5555;
oServer.HTTPUploadFiles.StreamType := pstFileStream;
oServer.Active := True;Em seguida, crie um novo arquivo html com a seguinte configuração
<html>
<head><title>sgcWebSockets - Upload Big File</title></head>
<body>
<form action="http://127.0.0.1:5555/file" method="post" enctype="multipart/form-data" accept-charset="UTF-8">
<input type="file" name="file_1" />
<input type="submit" />
</form>
</body>
</html>
Por fim, abra o arquivo html com um navegador e envie um arquivo para o servidor. O servidor criará um novo file stream com a extensão ".sgc_ps" e, quando o stream for totalmente recebido, ele extrairá o arquivo dos boundaries.
Existem 2 eventos que podem ser usados para personalizar o fluxo de upload de arquivos (requer que a propriedade HTTPUploadFiles.RemoveBoundaries esteja habilitada)
OnHTTPUploadBeforeSaveFile
Este evento é disparado ANTES de o arquivo ser salvo e permite personalizar o nome do arquivo recebido.
procedure OnHTTPUploadBeforeSaveFileEvent(Sender: TObject; var aFileName: string; var aFilePath: string);
begin
if aFileName = "test.jpg" then
aFileName := "custom_test.jpg";
end;OnHTTPUploadAfterSaveFile
Este evento é disparado APÓS o arquivo ser salvo e permite que você saiba o nome do arquivo salvo.
procedure OnHTTPUploadBeforeSaveFileEvent(Sender: TObject; const aFileName: string; const aFilePath: string); begin DoLog("File Received: " + aFileName);end;
OnHTTPUploadReadInput
Este evento é disparado quando o decodificador lê um valor de entrada recebido diferente do file input (exemplo: se o formulário tiver algumas variáveis como nome, data...).
procedure OnHTTPUploadReadInputEvent(Sender: TObject; const aName: string; const aValue: string); begin DoLog("Input value received: " + aName + ":" + aValue);end;