* Observe -m

git-svn-id: trunk@42872 -

packages/fcl-web/examples/simpleserver/simpleserver.pas

@@ -71,10 +71,12 @@ begin
     MimeTypesFile:=GetOptionValue('m','mimetypes');
     if (MimeTypesFile<>'') and not FileExists(MimeTypesFile) then
       begin
-      MimeTypesFile:='';
       Log(etWarning,'mimetypes file not found: '+MimeTypesFile);
+      MimeTypesFile:='';
       end;
     end;
+  If MimeTypesFile<>'' then
+    MimeTypes.LoadFromFile(MimeTypesFile);  
 end;
 
 procedure THTTPApplication.DoRun;