VPF::Как очистить TImage - Форум программистов

BeePer

Дата 19.2.2006, 01:33 (ссылка)

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

Загрузка ...

Новичок

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

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

Прива, всем..
Вобщем у меня трабла возникла с компонентом TImage:
Загружаю в него изображение из потока

Код


  http:=TIdHTTP.Create(Self);
  ms := TMemoryStream.Create;
  try
 url :='http://site.net/script?img_1234';
    http.Get(img, ms);
    ms.Position := 0;
    try
      NewGraphic := TJpegImage.Create;
      NewGraphic.LoadFromStream(ms);
      Image1.Picture.Graphic.Free;
      Image1.Picture.Graphic := NewGraphic;
    except
      NewGraphic.Free;
    end;
  finally
    ms.Free;
    http.Free;

Картинка загружается нормально, но если нажать ещё раз кнопку, т.е. загрузить повторно, то выдаётся ошибка и картнка не обновляется, если же вставляю перед этим кодом Image1.free;
то всё выполняется несколько раз, но картинка не загружается..
Не могу понять, как сделать, чтоб timage очищался перед каждой загрузкой картинки, и чтоб работало? Может кто знает?

Это сообщение отредактировал(а) BeePer - 19.2.2006, 01:34

Albinos_x

Дата 19.2.2006, 09:00 (ссылка)

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

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 1
Всего: 108

Думаю что трабла утебя не с TImage....
попробуй так:

Код


http:=TIdHTTP.Create(Self);    
  ms := TMemoryStream.Create;    
  try    
 url :='http://site.net/script?img_1234';    
    http.Get(img, ms);    
    ms.Position := 0;    
    try    
      NewGraphic := TJpegImage.Create;    
      NewGraphic.LoadFromStream(ms);    
      Image1.Picture.Graphic := NewGraphic;    
    finally    
      NewGraphic.Free;    
    end;    
  finally    
    ms.Free;    
    http.Free;

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

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

Snowy

Дата 19.2.2006, 09:34 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 18
Всего: 484

А я думаю, что трабла в том, что какая-то из переменных (например NewGraphic) глобальная. А должны быть все локальные.

Albinos_x, нет, именно except, а не finally. Я сам этот код писал.
Убивать низя - мы этот ньюграфик в Image пихаем.

Albinos_x

Дата 19.2.2006, 09:54 (ссылка)

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

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 1
Всего: 108

Цитата(Snowy @ 19.2.2006, 09:34

)

Albinos_x, нет, именно except, а не finally. Я сам этот код писал.
Убивать низя - мы этот ньюграфик в Image пихаем.

это понятно, просто я недавно делал наподобии прогу, делал где-то так:

Код

...
var 
    T:TDateTime;
    b:TBitMap;
    l:integer;
    r,r1:TRect;
    dd:Double;
begin
try
b:=TBitmap.Create;
b.Width:=300;
b.Height:=255;
b.Canvas.Brush.Style := bsSolid;
b.Canvas.Brush.Color := clBlack;
b.Canvas.Rectangle(b.Canvas.ClipRect);
...
...
b.Canvas.CopyRect(r1,Form3.Image1.Canvas,r);
b.Canvas.Pen.Width:=2;
...
Image1.Picture.Bitmap:=b;
finally     
 b.Free;
 end;
...

у меня всё работает нормально.... поэтому так и написал.....
------------

если не в этом, то скорее как ты сказал - NewGraphic глобальная, поэтому и ошибка...

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

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

BeePer

Дата 28.2.2006, 00:18 (ссылка)

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

Загрузка ...

Новичок

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

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

Слушайте, пробовал по всякому, даже местами переставлял %)
Решил протестить на локальных файлах:

Код


{Клик Button1}
var
NewGraphic: TGraphic;
begin
 try
     NewGraphic := TJpegImage.Create;
     NewGraphic.LoadFromFile('1.jpg');
     Image1.Picture.Graphic.Free;
     Image1.Picture.Graphic := NewGraphic;
 except
 NewGraphic.Free;
end;
//Работает, но 1 раз, т.е. если ещё раз на буттон нажать, то будет ошибка...

другой:

Код


{Клик Buttton2}
var
NewGraphic: TGraphic;
begin
 try
     NewGraphic := TJpegImage.Create;
     NewGraphic.LoadFromFile('2.jpg');
     Image1.Picture.Graphic.Free;
     Image1.Picture.Graphic := NewGraphic;
  except
  NewGraphic.Free;
end;
//Тоже работает один раз...

Оба кода работают нормально по одному разу... если кликнуть по первой кнопке, а потом по второй, то тоже ошибка...
Никак не могу понять из-за чего?

з.ы. на форме TImage и 2 кнопки..

Это сообщение отредактировал(а) BeePer - 28.2.2006, 00:19

Snowy

Дата 28.2.2006, 00:53 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 18
Всего: 484

Угу. Есть такое.
Убери

Код

Image1.Picture.Graphic.Free;

При присваивании его и так убивают.
А ошибка из-за двойного убийства - мы убили, а потом еще назначение пытается.
А т.к. указатель не зачищен, то ошибка убийства.
Ну и except на finally все же нужно заменить - на присвоение создается новый Graphic.
Вобщем так:

Код


var
  http: TIdHTTP;
  NewGraphic: TJpegImage;
begin
  http:=TIdHTTP.Create(Self);    
  ms := TMemoryStream.Create;    
  try    
    http.Get('http://site.net/script?img_1234', ms);    
    ms.Position := 0;    
    NewGraphic := TJpegImage.Create;    
    try    
      NewGraphic.LoadFromStream(ms);    
      Image1.Picture.Graphic := NewGraphic;    
    finally    
      NewGraphic.Free;    
    end;    
  finally    
    ms.Free; http.Free;
  end;
end;

BeePer

Дата 1.3.2006, 17:40 (ссылка)

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

Загрузка ...

Новичок

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

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

Респект Snowy - всё заработало, грузит по нескольку раз))

Тема закрыта.

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