Загрузить картинку в Timage

[Алексей_2012]

Здравствуйте, думал задача легче легкого, а оказалось нет, нужно по OnClick Tlistbox'a загрузить картинку (в Tlistbox'e полные пути к картинке), вот код: даже таймер поставил, прямой обработчик не работал, думал может таймер поможет.

procedure TForm3.ListBox1Click(Sender: TObject);
begin
timer2.Enabled:=True;
end;

procedure TForm3.Timer2Timer(Sender: TObject);
var s1:string;
begin
s1:=listbox1.Items[ListBox1.itemindex];
if FileExists(s1) then
Image1.Picture.LoadFromFile(s1);
timer2.Enabled:=false;
end;

[doktor255]

Таймеры тут не при чём. Ошибка распространённая, так как народ не понимает принципы работы с Image. Чтоб загрузить изображение в Picture.Graphic, его, как и любой поток нужно инициализировать. Методы инициализации зависят от среды, и типа изображения. За неимением этой информации советовать нечего.

[Алексей_2012]

тут либо bmp либо jpg, возможно принципов не понимаю, но все же, что значит "от среды"? Среда программирования Delphi 7 lite, разве это что-то решит, да и тема создана в разделе: "общие вопросы delphi"))) стоило перенести timage на scrollbox и почему-то заработал код, а когда переносишь на панель-не работает, попробовал предварительно отчищать timage,

 Image1.Picture:=nil;

и загружать картинку, то все равно не работает, в общем помогите проблему решить, пожалуйста

[doktor255]

Среда программирования Delphi 7 lite, разве это что-то решит, да и тема создана в разделе

Напиши в D7 следующее

Uses: PngImage;
..
Image1.picture.Graphic := TPngImage.Create;

И то же самое напиши в XE. А потом попробуй объяснить, почему в одной среде код работает, а в другой не работает. Это тебе информация на будущее, чтоб впредь не говорил, что среда не имеет значения. Теперь по топику.

Image1.Picture.Graphic := TBitmap.Create;// инициализация делается один раз, а не по сто раз в обработчике какой нибудь кнопки.
Image1.Picture.Graphic.LoadFromFile...

попробовал предварительно отчищать timage,

Image1.Picture:=nil;

Я не вижу тут очистки. Я вижу уничтожение ссылки (если таковая вообще существует) на участок памяти, в котором хранится изображение. При этом если участок заполнен изображением, он не удалится, и произойдёт утечка памяти. Соответственно код абсолютно бесполезен при любом раскладе событий.

[Алексей_2012]

вопросы есть) не работает твой код, ошибка вылетает.

Вот код:

procedure TForm3.ListBox1Click(Sender: TObject);
var s1:string;
begin
Image1.Picture.Graphic := TBitmap.Create;
s1:=listbox1.Items[ListBox1.itemindex];
if FileExists(s1) then  Image1.Picture.Graphic.LoadFromFile(s1);
end;

и ошибка во вложении

не пойму почему срабатывает на tscrollbox

var s1:string;
begin   
s1:=listbox1.Items[ListBox1.itemindex];
if FileExists(s1) then  Image1.Picture.LoadFromFile(s1);
end;

а на других компонентах-нет.

[ZuBy]

Модули прописаны в uses?

[doktor255]

В ошибке написано, плохой битмап. И научись читать. Я что писал про Bitmap.Create? И куда ты его запилил?

[Алексей_2012]

Да, модули прописаны, "jpeg", а на счет битмапа никогда не сталкивался и картинки грузились норм, запилил в обработчик, в коде, показанным в посте №5

[northener]

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

Image1.Picture:=nil;

Я не вижу тут очистки. Я вижу уничтожение ссылки (если таковая вообще существует) на участок памяти, в котором хранится изображение. При этом если участок заполнен изображением, он не удалится, и произойдёт утечка памяти. Соответственно код абсолютно бесполезен при любом раскладе событий.

Не прав. Это нормальная очистка. С освобождением занятой прежде памяти под изображение.