Главная страница
    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.041 c
1-41387
difkukan
2003-10-30 11:56
2003.11.13
Вопрос по Treeview


1-41458
MixerPro
2003-10-29 11:14
2003.11.13
Как передавать переменные программе при запуске?


1-41727
bon
2003-11-03 12:03
2003.11.13
Quick Launch


14-42020
wHammer
2003-10-24 10:05
2003.11.13
Кто может подсказать что случилось с анкетой?


14-41958
Vlad Oshin
2003-10-17 12:42
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
Английский Французский Немецкий Итальянский Португальский Русский Испанский