[fcl-web] fpmimetypes: incorrect loading from Windows registry
When loading known mime types from registry (on Windows) the leading dot should be removed from file extension.
packages/fcl-web/src/base/fpmimetypes.pp:
@@ -266,7 +266,7 @@ procedure TFPMimeTypes.LoadFromRegistry;
aType:= Reg.ReadString('Content Type');
Reg.CloseKey;
if aType<>'' then
- AddType(aType,Ext);
+ AddType(aType,Copy(Ext,2,MaxInt));
end;
end;
Reg.CloseKey;
Edited by Anton