[Valentinich]

Есть вопрос. мне нужно сделать небольшой поисковик картинок. имя вводится через ComboBox, после нажатия Enter должна появиться картинка с таким же именем. пытаюсь сделать через :

PHP код:

if FileExists(ExtractFilePath(Application.ExeName) + ComboBox1.Text + '.jpeg') then
      Image1.Picture.LoadFromFile(ExtractFilePath(Application.ExeName) + ComboBox1.Text + '.jpeg'); 


но нмчего не происходит. ПОмогите ПЛЗ =)

[Страдалецъ]

1. Поиск успешен?
2. JPEG подключили?

[Valentinich]

Вбил это в onchange , реакции 0 (
подскажи что нужно чтою заработало . ?)

[PhoeniX]

Поставь бряк, и пройдись по коду, посмотри где сваливается обработка...
И ты уверен, что у тебя .jpeg, а не .jpg?

[Valentinich]

под jpg, при нажатии вообще ошибку выбрасывает.

[PhoeniX]

Побуду экстрасенсом, телепатически получу скрин ошибки...

[KOOL]

Вообще непонятно, почему через TImage не загружается (он же даже png умеет). Но вот костыли:

Код:

uses ..., JPEG;
...
var SrcImage:TBitmap;
...
procedure TForm1.LoadImage(FileName:string);
var J:TJPEGImage;
begin
  if (ExtractFileExt(FileName)='.jpg') or (ExtractFileExt(FileName)='.jpeg') then
    begin
      J:=TJPEGImage.Create;
      J.LoadFromFile(FileName);
      SrcImage.Assign(J);
      J.Free;
    end
  else
    SrcImage.LoadFromFile(FileName);
  Image1.Picture.Bitmap:=SrcImage;
end;

только не забываем SrcImage создать.

[PhoeniX]

KOOL, а чё так сложно?
Вроде, Image начинают кушать Жопеги после добавлении соответствующего модуля в uses. В крайнем случае:

Код:

uses ..., JPEG;
........
  Image1.Picture.RegisterFileFormat('JPG','JPEG Image',TJPEGImage);
  Image1.Picture.LoadFromFile(....);

[Valentinich]

Всё равно не хочет запускаться. ( если есть исходники ,наподобие, скиньте исходник. может смогу что переделать. Заранее, Спасибо )