Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2003.11.13;
Скачать: [xml.tar.bz2];

Вниз

Как сохранить регион   Найти похожие ветки 

 
ARTEMKA   (2003-10-25 16:52) [0]

Мастера подскажите , у меня есть регион

var
h:HRGN;
begin
h:=BitmapToRegion(t,clred);

Вопрос- Как сохранить регион в файле чтоб заного не создавать его. и если это можно то как сохранить его в ресурсах
Спасибо


 
ARTEMKA   (2003-10-25 17:14) [1]

Мастера подскажите плзз


 
Asteroid   (2003-10-25 17:17) [2]

Боюсь, что никак. Значение h - это лишь системный хендл, а где как регион выглядит в памяти известно лишь самой системе.


 
wicked   (2003-10-25 17:34) [3]

GetRegionData...


 
ARTEMKA   (2003-10-25 17:49) [4]

>>wicked
а можно подробнее плз, что за параметры dwCount lpRgnData и что возвращеет, как далее это использовать

Спасибо


 
wicked   (2003-10-25 18:03) [5]

dwCount - размер буффера, в который сохранять данные...
lpRgnData - указатель на буффер...

то есть, можно сделать что то типа:

var bufsize: integer;
data: PRgnData;
begin
bufsize := GetRegionData(HRgn, 0, nil); // !!
GetMem(data, bufsize);
try
Result := GetRegionData(HRgn, bufsize, data);
....
{ здесь сохраняем данные из буффера data }
....
finally
FreeMem(data);
end;
end;

чтоб восстановить регион - ExtCreateRgn...

ЗЫ хотя, если ты используешь функцию, которая гуляет по интернету, то смею заверить, что она достаточно быстра... И поэтому можно хранить битмапку и при нужде делать из неё регион...
если хочешь её еще более ускорить, поубирай из неё GlobalRealloc и всё, что с ним связано...

ЗЗЫ код писал по памяти - уже больше, чем полгода на паскале не писал...


 
ARTEMKA   (2003-10-25 21:11) [6]

Спасибо wicked



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2003.11.13;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.033 c
3-40821
Border
2003-10-22 11:00
2003.11.13
быстрого поиска


14-42034
Сатир
2003-10-16 12:41
2003.11.13
Delphi 8


1-41247
Pomashok
2003-10-31 22:33
2003.11.13
Хинт


3-41017
Duncann
2003-10-15 18:48
2003.11.13
Работа с базой из dll


1-41167
lirjin
2003-11-01 09:40
2003.11.13
Общие вопросы





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский