소스 검색

* Fix issue #39350 : strip extension dot in windows loadknowntypes

Michaël Van Canneyt 4 년 전
부모
커밋
25450a99ed
1개의 변경된 파일1개의 추가작업 그리고 1개의 파일을 삭제
  1. 1 1
      packages/fcl-web/src/base/fpmimetypes.pp

+ 1 - 1
packages/fcl-web/src/base/fpmimetypes.pp

@@ -266,7 +266,7 @@ begin
           aType:= Reg.ReadString('Content Type');
           aType:= Reg.ReadString('Content Type');
           Reg.CloseKey;
           Reg.CloseKey;
           if aType<>'' then
           if aType<>'' then
-            AddType(aType,Ext);
+            AddType(aType,Copy(Ext,2,Length(Ext)-1));
           end;
           end;
         end;
         end;
       Reg.CloseKey;
       Reg.CloseKey;