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

Вниз

два способа чтение из памяти   Найти похожие ветки 

 
koha ©   (2007-02-22 19:19) [0]

Методом 1 копируется ресурс без проблем, а вторым методом нехочет?  
Посути почти одно и тоже.

Var
 RSRC : THandle;
 HRSRC: THandle;


1)
RSRC := FindResource(HInstance,"lst",RT_RCDATA);
SizeRes := SizeOfResource(HInstance, RSRC);
HRSRC:=LoadResource(HInstance,RSRC);
LockResource(HRSRC);
Move(Pointer(HRSRC)^,Buff,SizeRes);
mm.Lines.Add(StrPas(Buff));


2)
RSRC := FindResource(HInstance,"lst",RT_RCDATA);
SizeRes := SizeOfResource(HInstance, RSRC);
Move(Pointer(HRSRC)^,Buff,SizeRes);
mm.Lines.Add(StrPas(Buff));


 
koha ©   (2007-02-22 19:23) [1]

Сорри, второй метод был с опечаткой -> исправил.

2)
RSRC := FindResource(HInstance,"lst",RT_RCDATA);
SizeRes := SizeOfResource(HInstance, RSRC);
Move(Pointer(RSRC)^,Buff,SizeRes);
mm.Lines.Add(StrPas(Buff));


 
Джо ©   (2007-02-22 19:30) [2]

(1) и (2) — совсем НЕ одно и то же.


 
Джо ©   (2007-02-22 19:31) [3]

FindResource НЕ возвращает указатель на область памяти.


 
koha ©   (2007-02-22 19:35) [4]


> FindResource НЕ возвращает указатель на область памяти.


- а что он вернул? и еще чтобы вторым методом считать нужно ли выделять память?


 
koha ©   (2007-02-22 19:40) [5]

я бы конечно разобрал как работает LoadResource, но она внешняя из kernel32 а не из unita.


 
Джо ©   (2007-02-22 19:42) [6]

> [5] koha ©   (22.02.07 19:40)
> я бы конечно разобрал как работает LoadResource, но она
> внешняя из kernel32 а не из unita.

Читай справку или MSDN, что ж вслепую тыкаться-то?


 
Джо ©   (2007-02-22 19:43) [7]

FindResource Function
If the function succeeds, the return value is a handle to the specified resource"s information block. To obtain a handle to the resource, pass this handle to the LoadResource function.

LoadResource Function
If the function succeeds, the return value is a handle to the data associated with the resource.


 
koha ©   (2007-02-22 19:49) [8]

> Читай справку или MSDN

- это то понятно, но реальный код по винтикам разобрать гораздо приятней :-)


 
Джо ©   (2007-02-22 19:50) [9]

> [8] koha ©   (22.02.07 19:49)
> - это то понятно

Тогда непонятно, откуда мог взяться код (2)
:-)


 
koha ©   (2007-02-22 20:05) [10]

> Тогда непонятно, откуда мог взяться код (2)

так эксперемент.

Разбирал код класса TResourceStream, нашел процедуру инициализации посмотрел другие TStream пришел к мнению, что они сперва при инициализации копируют нужный кусок памяти и устанавливают на  него глобальный указатель а за тем уже с ним работают. Вот идея радилась, а что если сразу без копирования в глобальную память скопировать сразу в свой буффер - пока не выходит.


 
Джо ©   (2007-02-22 20:16) [11]

> [10] koha ©   (22.02.07 20:05)
пока не выходит.

И что, текст из [7] ни на какие раздумия не навел? :)


 
koha ©   (2007-02-22 20:22) [12]


> И что, текст из [7] ни на какие раздумия не навел? :)


- да навел, признаюсь тупил...



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

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

Наверх





Память: 0.47 MB
Время: 0.082 c
4-1162569603
Dmitry_177
2006-11-03 19:00
2007.03.18
Работа с INI-файлами на API


3-1166797458
tytus
2006-12-22 17:24
2007.03.18
DOA 4.0.7 - Delphi7 - Oracle 10g Express Edition


2-1172348879
Kolan
2007-02-24 23:27
2007.03.18
А можно ли как-то узнать кол-во файлов в папке?


15-1171859456
Каспер
2007-02-19 07:30
2007.03.18
copy для сотового


2-1172082442
Novichok_New
2007-02-21 21:27
2007.03.18
Свой "Планировщик задач"





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский