Форум: "KOL";
Текущий архив: 2004.05.23;
Скачать: [xml.tar.bz2];
Вниз
Что не так в коде??? Найти похожие ветки
← →
.::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 вся ветка
Форум: "KOL";
Текущий архив: 2004.05.23;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.037 c
