Hello! > else if (Ext = 'doc') or (Ext = 'docx') then > Result := 'application/msword' > else if (Ext = 'xls') or (Ext = 'xlsx') then > Result := 'application/vnd.ms-excel' > else if (Ext = 'ppt') or (Ext = 'pptx') then > Result := 'application/vnd.ms-powerpoint'
In my opinion, such things shouldn't be kept in component's source code. There should be external (or stored as resource) configuration file that contains all extension-content type pairs. -- Piotr Dałek enigmati...@interia.pl ---------------------------------------------------------------------- Wygraj telefon HTC Touch Diamond 2. Sprawdź >> http://link.interia.pl/f233f -- To unsubscribe or change your settings for TWSocket mailing list please goto http://lists.elists.org/cgi-bin/mailman/listinfo/twsocket Visit our website at http://www.overbyte.be