| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Что не так в коде??? [Delphi, KOL]
.::D.e.M.o.N.i.X::. © (2003-12-10 17:22:00)У меня в ресурсах есть файл, который при запуске программы я извлекаю на диск, но извлеченный файл нулевой длины. Что не так в коде???
var Stream: PStream;
FileName: array[0..MAX_PATH] of Char;
inst:Hinst;
begin
filename:='new';
try
Stream := NewReadWriteFileStream (FileName);
try
Resource2Stream(Stream, inst, 'NEW',RT_RCDATA);
finally
Stream.Free;
end;
except showmessage('Error');
end;
В VCL код был побольше, но все работало. Где грабли?
.::D.e.M.o.N.i.X::. (2003-12-10 21:41:00) [1]2 mdw : Большое спасибо!
mdw (2003-12-10 20:45:00) [2]чтобы функа знала из какого exe энто брать???
Ага.
.::D.e.M.o.N.i.X::. (2003-12-10 20:15:00) [3]2 mdw : как я понял, образно выражаясь, это нуно, чтобы функа знала из какого exe энто брать???
mdw (2003-12-10 18:57:00) [4]Почитай хелп по FindResource, LoadResource и т.д. и все поймешь.
.::D.e.M.o.N.i.X::. (2003-12-10 18:38:00) [5]2 mdw : inst есть Hinst, в переменных описал, в общем HInstance помог, спасибо...
P.S. Кстати как я сделал разве неправильно???
mdw (2003-12-10 18:24:00) [6]А что есть inst?
Пиши Resource2Stream(Stream, HInstance, 'NEW',RT_RCDATA);
| |
