как узнать формат файла в TMemoryStream

[jskorvin]

Подскажите пожалуйста:
Как узнать что за файл находится в TMemoryStream?
Скачиваем файл в TMemoryStream

http:=TidHTTP.Create(nil);
MS:=TMemoryStream.Create;
http.Get('http://url2file.com/gets', MS);

Далее как-то нужно узнать формат файла, в моем случае это могут быть html (в случае ошибки) jpg, png, gif (в штатном режиме). Где-то должен содержаться хидер указывающий на формат, но вот как его узнать?

[BARNEY]

а разве в ссылке нет расширения файла?

procedure TForm1.Button1Click(Sender: TObject);
var
Stream:TMemoryStream;
url,r:WideString;
i,j:integer;
begin
try
Stream:=TMemoryStream.Create;
url:='http://devdelphi.ru/files/adosql.rar';
for i:=1 to length(url) do
begin
if url[i]='.' then
begin
j:=i;
end;
end;
r:=copy(url,j+1,length(url));
IdHTTP1.Get(url,Stream);
Stream.SaveToFile('myfile.'+r);
Stream.Free;
except
on e:Exception do
Stream.Free;
end;
end;

хотя мне вопрос интересен... ибо при передачи в сокетах правда не знаешь что пришло.

[jskorvin]

Сообщение от BARNEY

а разве в ссылке нет расширения файла?

Неа, пример ссылки http://social.purnomo.info/action/si.../code?c=671520

Поидее в случае с картинкой в файле содержится что-то наподобии

CREATOR: gd-jpeg v1.0 (using IJG JPEG v62), quality = 75

Но почемуто я немогу раздобыть эти хидеры.

Бинго! Дошло до меня как определить формат файла не мучая мемористрим.

http.Response.RawHeaders.Text;

Их ведь ненужно запрашивать дополнительно, они уже есть и их вполне достаточно для определения содержимого попавшего в мемористрим

Date: Fri, 29 Oct 2010 06:54:37 GMT
Server: Apache
X-Powered-By: PHP/5.2.14
Expires: Thu, 19 Nov 1981 08:52:00 GMT
Cache-Control: no-store, no-cache, must-revalidate, post-check=0, pre-check=0
Pragma: no-cache
Set-Cookie: Elgg=7r736kd41mf85sj3m8l2hc0b92; path=/
Transfer-Encoding: chunked
Content-Type: image/jpeg

Барни: спасибо что откликнулся!

[BARNEY]

да не за что ... но мне вопрос интересен... буду пробовать копаться.

[DomiNick]

и их вполне достаточно для определения содержимого попавшего в мемористрим

Хм... А я бы не надеялся на 100%... Content-Type вроде показывает что по мнению сервера он прислал...
Я б ещё по заголовку файла проверял... На всякий случай.....

[DSJ]

http://www.gcmsite.ru/?pg=art&id=delphi-file-type - по моему, самый верный способ.

[eduard93]

DSJ хорошую ссылку кинул. Но я еще подкину готовый вариант с базами: http://mark0.net/code-tridlib-e.html