Загрузка картинок в TImage

[Haladdin]

Такая проблема... Есть на форме компонент TImage. Есть файл, сохраненный другой программой, например Picture.dat.
Как сделать чтобы по событию onCreate формы оный Picture.dat загружался в TImage? Фокус в том что файл может быть .bmp, .jpg, .gif или .jpeg.
При этом заранее неизвестно какого он будет расширения, а самостоятельно определять что за картинку ему скармливают TImage, видимо, не может.
Помогите, пожалуйста. =(

[Человек_Борща]

Ну значит тебе самому нужно научить твою пограмму читать и определять данные в DAT файле.

Но для правельного чтения DAT нужно знать что в него записано и в какой структуре. По сути это простой файловый поток. Но в такой формат можно записать что угодно.

[ArtGrek]

gif в Image на сколко я знаю не грузица, а на шет осталных, можеш зделат так:
uses ..., Jpeg; // и все форматы что возможно загрузит опиши

потом получи расширение фаила

var
  fullFileName : string;

begin
  // Установка полного имени файла с диском и путем
  fullFileName := 'C:\Program Files\Borland\Delphi7\Projects\Unit1.dcu';

  // Показ составляющих частей этого полного имени
  ShowMessage('Диск       = '+ExtractFileDrive (fullFileName));
  ShowMessage('Каталог    = '+ExtractFileDir   (fullFileName));
  ShowMessage('Путь       = '+ExtractFilePath  (fullFileName));
  ShowMessage('Имя        = '+ExtractFileName  (fullFileName));
  ShowMessage('Расширение = '+ExtractFileExt   (fullFileName));
end;

Диск = C:
Каталог = C:\Program Files\Borland\Delphi7\Projects
Путь = C:\Program Files\Borland\Delphi7\Projects\
Имя = Unit1.dcu
Расширение = .dcu

и загружаи
Image1.LoadFromFile(...);

[Haladdin]

Сообщение от Человек_Борща

Ну значит тебе самому нужно научить твою пограмму читать и определять данные в DAT файле.

Но для правельного чтения DAT нужно знать что в него записано и в какой структуре. По сути это простой файловый поток. Но в такой формат можно записать что угодно.

Катастрофически не хватает теоретической подготовки =( С потоками не работал в принципе...

[asmodey1]

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

gif в Image на сколко я знаю не грузица

Бог с вами, это один из стандартных форматов для TImage...

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

Катастрофически не хватает теоретической подготовки =( С потоками не работал в принципе...

А расширение из имени файла выделить сможете ?

[ArtGrek]

[QUOTE=asmodey1;698827]Бог с вами, это один из стандартных форматов для TImage...

не знаю, может и грузица, но когда открываю редактор там филтры,
GIF нет

[asmodey1]

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

не знаю, может и грузица, но когда открываю редактор там филтры,
GIF нет

Пожалуйста - скриншот. Delphi7, WinXP :
GifLoad.png

[ArtGrek]

Пожалуйста - скриншот. Delphi7, WinXP :

я не оспариваю...
у меня все тоже самое толко без gif, и на windows 7 и на XP,
видимо надо каие нибуд Update устанавливат или еше что нибуд, чего у меня нет
кстати интересно, чего у меня нет? тоже хочу добовлят gif

[asmodey1]

Есть такая штука - Delphi7 Enterprise SP1.
Где-то на форуме про этот пакет было.

[Haladdin]

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

А расширение из имени файла выделить сможете ?

Да, разобрался уже. Просто хотел создавать обезличенный .DAT файл а не явную жипежку. Просто смысл в чем... Есть программа источник, она создает массу файлов, в том числе эту злосчастную картинку. И есть программа-приемник которая все это использует. Причем работая с диска и создавать временные файлы не должна.