Erro com form-data no lazarus

[mbertolani]

quando a requisicao é feita via form-data a condição do "if MatchText" da falso e dispara o raise.

if (Req.MethodType in [mtPost, mtPut, mtPatch]) then begin if (MatchText(Req.RawWebRequest.ContentType, THorseOctetStreamConfig.GetInstance.AcceptContentType.ToArray)) then begin LContentType := Req.RawWebRequest.ContentType; LContent := TMemoryStream.Create; LContentTMemoryStream := TMemoryStream(LContent); GetAllDataAsStream(Req, LContentTMemoryStream); Req.Body(LContent); end else raise EHorseException.New.Error('Unknown Content-Type: ' + Req.RawWebRequest.ContentType).Status(THTTPStatus.BadRequest); end;

[mbertolani]

fazendo mais testes, verifiquei q o problema ocorre de forma geral, nao funciona com nenhuma requisicao no lazarus

[viniciussanchez]

Poderia montar algum exemplo? Porque eu peguei a pasta samples, e testei... aparentemente está normal no Delphi / Lazarus

[adilsonmiro]

Quando você faz um request utilizando o form-data e na sua função, você não está usando octet-stream, como no código abaixo, ele dá o raise mencionado pelo @mbertolani.

Ao usar o octet-stream, ele funciona. Acredito que seja necessário incluir uma configuração se queremos usar o octet-stream na função ou não. Acredito que isso resolveria o problema.

function TFile.Upload(aFileName: string; aFile: TStream): string; var vMStream: TMemoryStream; vFileName: string; begin try if aFileName.Trim.IsEmpty then raise Exception.Create('File Name not found!');

if (not(Assigned(aFile))) and (not(aFile.Size > 0)) then
  raise Exception.Create('File invalid!');

vMStream := TMemoryStream.Create;
try
  vFileName := TLib.New.AddPrefixFileName(aFileName);

  aFile.Position := 0;
  vMStream.LoadFromStream(aFile);
  vMStream.SaveToFile(Format('%s%s',[GetDir,vFileName]));
finally
  vMStream.DisposeOf;
end;

result := vFileName;

except on e: exception do begin raise Exception.Create(e.Message); end; end; end;

[adilsonmiro]

Criei um Middleware para resolver esse erro da seguinte forma: THorseOctetStreamConfig.GetInstance.AcceptContentType.Add(Req.RawWebRequest.ContentType);

E adicionei o Middleware antes do Octet-stream: THorse .Use(CORS) .Use(MrLibera('vitacon')) // Middleware criado .Use(OctetStream)

[viniciussanchez]

O que você pode fazer também, é aplicar o middleware de OctetStream apenas nas rotas específicas no qual o mesmo seria necessário. Assim acredito que não precisaria criar seu próprio middleware.