Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.05.23;
Скачать: CL | DM;

Вниз

Что не так в коде???   Найти похожие ветки 

 
.::D.e.M.o.N.i.X::. ©   (2003-12-10 17:22) [0]

У меня в ресурсах есть файл, который при запуске программы я извлекаю на диск, но извлеченный файл нулевой длины. Что не так в коде???

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 код был побольше, но все работало. Где грабли?


 
mdw ©   (2003-12-10 18:24) [1]

А что есть inst?
Пиши Resource2Stream(Stream, HInstance, "NEW",RT_RCDATA);


 
.::D.e.M.o.N.i.X::. ©   (2003-12-10 18:38) [2]

2 mdw : inst есть Hinst, в переменных описал, в общем HInstance помог, спасибо...
P.S. Кстати как я сделал разве неправильно???


 
mdw ©   (2003-12-10 18:57) [3]

Почитай хелп по FindResource, LoadResource и т.д. и все поймешь.


 
.::D.e.M.o.N.i.X::. ©   (2003-12-10 20:15) [4]

2 mdw : как я понял, образно выражаясь, это нуно, чтобы функа знала из какого exe энто брать???


 
mdw ©   (2003-12-10 20:45) [5]

чтобы функа знала из какого exe энто брать???
Ага.


 
.::D.e.M.o.N.i.X::. ©   (2003-12-10 21:41) [6]

2 mdw : Большое спасибо!



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

Текущий архив: 2004.05.23;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.028 c
3-1082975048
Litr
2004-04-26 14:24
2004.05.23
Заполнить поле значением по умолчанию


8-1078388044
GH@ST
2004-03-04 11:14
2004.05.23
Как можно уменьшить JPG?


9-1071948524
G A M E R
2003-12-20 22:28
2004.05.23
Оцените новую версию МЯСОПОВАЛА


4-1081269875
TankMan
2004-04-06 20:44
2004.05.23
Нужен "хук на API функции"...


3-1082963120
_Alanjuk
2004-04-26 11:05
2004.05.23
TQuery