| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Загрузка строки из памяти в TMemo [D6, D7, Win2k, WinXP]

Druid ©   (2004-05-14 22:09:00) 

Доброе время суток. Столкнулся с такой вещью.
Загрузил из рессурсов в память текст, но не могу понять как теперь его поместить в TMemo


var
RES:        HRSRC;
HandlRes:   HGLOBAL;
begin
 RES := NULL;
 RES := FindResource(hInstance,'CHANGE',RT_RCDATA);
 if RES = 0 then
 else
   begin
     HandlRes  := LoadResource(hInstance,RES);
     ChangrLog.Clear;
     ...
   end;


А как теперь в ChangrLog поместить загруженный текст

Заранее спасибо...

---

Druid   (2004-05-14 23:06:00) [1]

to Styleand Игорь ШевченкоСенкс... ЗАРАБОТАЛА... :)

---

Игорь Шевченко   (2004-05-14 22:59:00) [2]

var X: PChar;
........
   HandlRes  := LoadResource(hInstance,RES);
   X := PChar(LockResource(HandlRes));
   Memo.Lines.Add(X);
..........

?

---

Style   (2004-05-14 22:56:00) [3]

Ну почти :)
Попробуй так:

var
 RES:        HRSRC;
 HandlRes:   HGLOBAL;
 buffer:     pchar;

begin

 memo1.Lines.Clear;
 RES := FindResource(hInstance,'TForm1',RT_RCDATA);

 if RES = 0 then
   ShowMessage('Error Loading Resource')
 else
 begin
   HandlRes  := LoadResource(hInstance,RES);
   try
     Buffer := GlobalLock(HandlRes);
     try
       memo1.Lines.Add(Buffer);
     finally
      GlobalUnLock(HandlRes);
     end;
   finally
     FreeResource(HandlRes);
   end;

end;

---

Druid   (2004-05-14 22:44:00) [4]

не выходит

var
RES:        HRSRC;
HandlRes:   HGLOBAL;
buffer:     ^String;
begin
RES := NULL;
RES := FindResource(hInstance,'CHANGE',RT_RCDATA);
if RES = 0 then
else
  begin
    HandlRes  := LoadResource(hInstance,RES);
    ChangrLog.Clear;
    Buffer    := GlobalLock(HandlRes);
    ChangrLog.Lines.Add(Buffer^);
  end;


---

Style   (2004-05-14 22:13:00) [5]

GlobalLock??

---

Наверх