Извлечь файл из ресурса

[HTTqp]

Подскажите что не так, как извлечь картинку на диск из ресурса. Пишу так:

function ResourceToFile(lpType, lpName, FileName: PChar): BOOL;
var
  HResInfo: HWND;
  HGlobal: HWND;
  FMemory: Pointer;
  FSize, FHandle: Integer;
  nl: Cardinal;
begin
  HResInfo := FindResource(HInstance, lpName, lpType);
  HGlobal := LoadResource(HInstance, HResInfo);
  FMemory := LockResource(HGlobal);
  FSize := SizeOfResource(HInstance, HResInfo);
  FHandle := Integer(CreateFile(FileName, GENERIC_READ or GENERIC_WRITE,
                     0, nil, CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0));
  Result := WriteFile(HWND(FHandle), FMemory^, FSize, nl, nil);
  CloseHandle(HWND(FHandle));
end;
...
begin
ResourceToFile('fon','BITMAP', 'C:\fon.jpg');
end;

но после извлечения файл появляется но весит 0 байт.

файл ресурса (*.res) имеет следующий вид

fon JPEG fon.jpg

[Somebody]

Для начала сделай везде правильные типы. HWND - это handle to a window, не ресурса, не блока памяти, не файла. А дальше проверяй возвращаемые значения, смотри результат GetLastError.

[Iron Monk]

Создаем ресурс - тип RCDATA имя JPG
(**)

var
_res: TResourceStream;
........
_res:= TResourceStream.Create(HInstance,'JPG',RT_RCDATA);
_res.SaveToFile('C:\temp.jpg');

[beegl]

возьми пример с этого компонента

[Iron Monk]

Выложите свой файл ресурса - кода, действительно, три строки...

[HTTqp]

Сообщение от Iron Monk

Создаем ресурс - тип RCDATA имя JPG
(**)

var
_res: TResourceStream;
........
_res:= TResourceStream.Create(HInstance,'JPG',RT_RCDATA);
_res.SaveToFile('C:\temp.jpg');

спасибо за код но надо на winapi.
Не понял выложить что, код файла *.rc?

[Iron Monk]

Сообщение от HTTqp

спасибо за код но надо на winapi.

Про WinApi все молчали...

[kropotkina-alice]

Сообщение от HTTqp

файл ресурса (*.res) имеет следующий вид

fon JPEG fon.jpg

И всё??? Одна строчка??? А само изображение туда забито?
Второе: вы значение FHandle проверяете? Похоже, что оно у вас всегда нулевое...

[HTTqp]

Сообщение от kropotkina-alice

И всё??? Одна строчка??? А само изображение туда забито?
Второе: вы значение FHandle проверяете? Похоже, что оно у вас всегда нулевое...

суть не в том сколько залито, я элементарно один файл не могу извлечь, я сомневаюсь что от количества что то изменится) Да забито.

Сообщение от kropotkina-alice

Второе: вы значение FHandle проверяете? Похоже, что оно у вас всегда нулевое...

поясните...

[Аватар]

function ResourceToFile(lpType, lpName, FileName: PChar): BOOL;
...
ResourceToFile('fon','BITMAP', 'C:\fon.jpg');

Что тип ресурса 'fon', а имя его 'BITMAP'? Верится с трудом