Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

два способа чтение из памяти

koha © (2007-02-22 19:19:00)
Методом 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 20:22:00) [1]

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

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

Джо (2007-02-22 20:16:00) [2]
> [10] koha © (22.02.07 20:05)
пока не выходит.

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

koha (2007-02-22 20:05:00) [3]
> Тогда непонятно, откуда мог взяться код (2)

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

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

Джо (2007-02-22 19:50:00) [4]
> [8] koha © (22.02.07 19:49)
> - это то понятно

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

koha (2007-02-22 19:49:00) [5]
> Читай справку или MSDN

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

Джо (2007-02-22 19:43:00) [6]
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 LoadResourcefunction.

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

Джо (2007-02-22 19:42:00) [7]
> [5] koha © (22.02.07 19:40)
> я бы конечно разобрал как работает LoadResource, но она
> внешняя из kernel32 а не из unita.

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

koha (2007-02-22 19:40:00) [8]
я бы конечно разобрал как работает LoadResource, но она внешняя из kernel32 а не из unita.

koha (2007-02-22 19:35:00) [9]

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

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

Джо (2007-02-22 19:31:00) [10]
FindResource НЕ возвращает указатель на область памяти.

Джо (2007-02-22 19:30:00) [11]
(1) и (2) — совсем НЕ одно и то же.

koha (2007-02-22 19:23:00) [12]
Сорри, второй метод был с опечаткой -> исправил.

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »