Any way to guess the mime type on Delphi XE2?

Question

I need to guess the mime type with the purpose of fill the \"Content-Type\" header for some file uploads.

I fail to found a solution for it.

I wish to call somet

Answer 1

Internet Direct (Indy) contains a class for this:

class TIdThreadSafeMimeTable

in unit IdCustomHTTPServer

Code example in a HTTP server application:

Response.ContentType :=
  Response.HTTPServer.MIMETable.GetFileMIMEType(FileName);