VPF::TJPEGImage нулевые размеры изображения

AndreyIQ

Дата 7.11.2011, 08:07 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 185
Регистрация: 5.2.2007

Репутация: нет
Всего: 8

Доброго времени суток.
Использую TJPEGImage. Создается и удаляется вместе с формой. По очереди, по нажатии клавиши, грузит изображение, но переодически после загрузки очередного изображения высота и ширина равны нулю. Причем если пререоткрыть программу у этого же изображения без проблем определется размер. В чем может быть проблема
ЗЫ Изображения хранятся на сетевом диске. Использую Delphi 2009.

Alexeis

Дата 7.11.2011, 08:31 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 55
Всего: 459

Цитата(AndreyIQ @ 7.11.2011, 09:07

)

Причем если пререоткрыть программу у этого же изображения без проблем определется размер. В чем может быть проблема

Наверное проблема в 17й строке.

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

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

AndreyIQ

Дата 7.11.2011, 08:43 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 185
Регистрация: 5.2.2007

Репутация: нет
Всего: 8

Код


var
  jImg: TJPEGImage;
................
procedure TMainForm.FormCreate(Sender: TObject);
begin
...........
  jImg:= TJPEGImage.Create;
............
end;
..............
procedure TMainForm.FormDestroy(Sender: TObject);
begin
  FreeAndNil(jImg);
end;
.................
procedure TMainForm.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
  if Key = VK_RETURN then
      DrawImage;
end;
......................
procedure TMainForm.DrawImage;
var
  a: Real;
  excHeight, excWidth: integer;
begin
try
    a:= jImg.Height / jImg.Width;
except
  raise Exception.Create('DarwImage(Calc a) ' + 
      IntToStr(excHeight) + ' ' + IntToStr(excWidth)); //Вываливатеся здесь с сообщение "DarwImage(Calc a) 0 0"
end;
...............
procedure TDM.QrFileAfterScroll(DataSet: TDataSet);
begin
    jImg.LoadFromFile(Trim(DM.QrFile.FieldByName('path').AsString));
end;

Alexeis

Дата 7.11.2011, 10:42 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 55
Всего: 459

Предполагаю что не всегда срабатывает обработчик QrFileAfterScroll . Хорошо бы повторить фокус используя простую кнопку.

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Звук, графика и видео \| Следующая тема »