Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 16.05.2013, 13:05
cyborgg4655 cyborgg4655 вне форума
Начинающий
 
Регистрация: 16.03.2013
Сообщения: 151
Версия Delphi: Delphi 2010
Репутация: 10
Вопрос Взять картинку из памяти

В памяти есть картинка размером 121х80px, название у нее каждый раз разное, нужно определить размер этой картинки находящейся в памяти в килобайтах. Подскажите пожалуйста как это реализовать?
Ответить с цитированием
  #2  
Старый 16.05.2013, 13:12
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
Смех

Цитата:
Сообщение от cyborgg4655
нужно определить размер этой картинки находящейся в памяти в килобайтах. Подскажите пожалуйста как это реализовать?
для начала нужно узнать размер картинки в байтах, а потом разделить это значение на 1024.
__________________
Пишу программы за еду.
__________________
Ответить с цитированием
  #3  
Старый 16.05.2013, 13:31
Аватар для Alegun
Alegun Alegun вне форума
LMD-DML
 
Регистрация: 12.07.2009
Адрес: Богородское
Сообщения: 3,025
Версия Delphi: D7E
Репутация: 1834
По умолчанию

Ерунда какая то получается
Цитата:
...размером 121х80px...
и
Цитата:
...нужно определить размер этой картинки...
А так запихнуть её из памяти в MemoryStream и потом MemoryStream.Size это размер картинки.
Ответить с цитированием
  #4  
Старый 16.05.2013, 14:03
Аватар для PhoeniX
PhoeniX PhoeniX вне форума
Always hardcore!
 
Регистрация: 04.03.2009
Адрес: СПб
Сообщения: 3,239
Версия Delphi: GCC/FPC/FASM
Репутация: 62149
По умолчанию

29040 байт, или ~28 кб
__________________
Оставайтесь хорошими людьми...
VK id2634397, ds [at] phoenix [dot] dj
Ответить с цитированием
  #5  
Старый 16.05.2013, 14:54
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
Радость

121(w)*80(h)*4(argb)=38720=~37,8Кб
не учитывая названия)))
__________________
Пишу программы за еду.
__________________
Ответить с цитированием
  #6  
Старый 16.05.2013, 15:31
cyborgg4655 cyborgg4655 вне форума
Начинающий
 
Регистрация: 16.03.2013
Сообщения: 151
Версия Delphi: Delphi 2010
Репутация: 10
По умолчанию

Так мне только известны ее ширина и высота, расширение файла PNG. А определить мне нужно его размер в байтах.
Может быть есть какая то последовательность записи картинок в память?? Например я открываю в webbrowsere сайт, потом нажимаю на кнопочку и эта картинка появляется. И вот с таким последним изменением/добавлением уже можно работать?

А размеры ее колеблятся в пределах 1-2кб, если в свойствах Opera смотреть.

Последний раз редактировалось M.A.D.M.A.N., 16.05.2013 в 15:37.
Ответить с цитированием
  #7  
Старый 16.05.2013, 15:37
Аватар для M.A.D.M.A.N.
M.A.D.M.A.N. M.A.D.M.A.N. вне форума
Sir Richard Abramson
 
Регистрация: 05.04.2008
Сообщения: 5,505
Версия Delphi: XE10
Репутация: выкл
По умолчанию

Ну если ты как-то получаешь картинку, явно там и размер как-то можно получить.
__________________
— Как тебя понимать?
— Понимать меня не обязательно. Обязательно меня любить и кормить вовремя.


На Delphi, увы, больше не программирую.
Рекомендуемая литература по программированию
Ответить с цитированием
  #8  
Старый 16.05.2013, 22:19
cyborgg4655 cyborgg4655 вне форума
Начинающий
 
Регистрация: 16.03.2013
Сообщения: 151
Версия Delphi: Delphi 2010
Репутация: 10
По умолчанию

Цитата:
Сообщение от M.A.D.M.A.N.
Ну если ты как-то получаешь картинку, явно там и размер как-то можно получить.
Размер не берется у нее, пробывал средствами Webbrowser'a и Chronium. У других картинок могу размер посмотреть програмно, а у этой нет( И в кэш она не сохраняется, поэтому ее только где-то в памяти искать надо получается...
Ответить с цитированием
  #9  
Старый 16.05.2013, 23:12
Аватар для Alegun
Alegun Alegun вне форума
LMD-DML
 
Регистрация: 12.07.2009
Адрес: Богородское
Сообщения: 3,025
Версия Delphi: D7E
Репутация: 1834
По умолчанию

Кстати, если картинка в формате PNG, то в памяти она скорее всего распакована до примитива и лежит в виде битмапа плюс кусок оперативки со сжатым оригиналом, т.е. там она присутствует в двух вариантах. Задача - найти нужный.

З.Ы. А что если пойти другим путём, напрямую, через TIdHttp грузить эту картинку в image (для примера)
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
 Stream: TStream;
 PNG: TPNGObject;
begin
 PNG:= TPNGObject.Create;
 Stream:= TStringStream.Create(IdHTTP1.Get(URL картинки));
 PNG.LoadFromStream(Stream);
 Image1.Picture.Assign(PNG);
 Stream.Free;
 PNG.Free;
end;
Чтоб из памяти грузить надо адреса нужные знать, а это наверное трудно сделать.

Последний раз редактировалось Alegun, 16.05.2013 в 23:39.
Ответить с цитированием
  #10  
Старый 16.05.2013, 23:36
cyborgg4655 cyborgg4655 вне форума
Начинающий
 
Регистрация: 16.03.2013
Сообщения: 151
Версия Delphi: Delphi 2010
Репутация: 10
По умолчанию

Цитата:
Сообщение от Alegun
Кстати, если картинка в формате PNG, то в памяти она скорее всего распакована до примитива и лежит в виде битмапа плюс кусок оперативки со сжатым оригиналом, т.е. там она присутствует в двух вариантах. Задача - найти нужный.
А вот как его найти? У меня даже не единой мыслинки нету(
Ответить с цитированием
  #11  
Старый 17.05.2013, 08:23
cyborgg4655 cyborgg4655 вне форума
Начинающий
 
Регистрация: 16.03.2013
Сообщения: 151
Версия Delphi: Delphi 2010
Репутация: 10
По умолчанию

Напрямую ее не получается грузить, т.к ссылка scr у нее не прямая, А вот такая - http://www.avito.ru/items/phone/sama...1cf4d823080261, при этим значение pkey каждый раз меняется, т.к это все генерируется ява скриптом.
Ответить с цитированием
  #12  
Старый 17.05.2013, 09:02
Аватар для M.A.D.M.A.N.
M.A.D.M.A.N. M.A.D.M.A.N. вне форума
Sir Richard Abramson
 
Регистрация: 05.04.2008
Сообщения: 5,505
Версия Delphi: XE10
Репутация: выкл
По умолчанию

Цуборгг, пользуйся кнопкой "Правка"!
__________________
— Как тебя понимать?
— Понимать меня не обязательно. Обязательно меня любить и кормить вовремя.


На Delphi, увы, больше не программирую.
Рекомендуемая литература по программированию
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 17:02.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter