Resource in Stream schreiben?!

[SirThornberry]

Hoffe ich hab mich jetzt nicht in der Kategorie vertan..

Ich hab eine Komponente die nur die Methoden, LoadFromStream und LoadFromFile implementiert hat. Jetzt möchte ich allerdings aus einer Resource laden. Wie kann ich jetzt die Resource in einen Stream laden um dann aus dem stream laden zu können? Der Typ der Resource ist TMMBitmaplist (also werd ichs wie ne exe in die resourcen aufnehmen müssen?!

[chris]

hi,

versuch es doch einfach mit TResourceStream und RT_RCDATA

[SirThornberry]

habs jetzt so gelöst (abgeänderter source von irgend nem beitrag)

Delphi-Quellcode:

function PutResToStream(binresname: string; DestStream: TStream): boolean;
var
  ResSize, HG, HI: Cardinal;
begin
  result := false;
  HI := FindResource(hInstance, @binresname[1], 'BINRES');
  if HI <> 0 then
  begin
    //load resource and check the handle
    HG := LoadResource(hInstance, HI);
    if HG <> 0 then
    begin
      //check resource size (needed to copy a block of data)
      ResSize := SizeOfResource(hInstance, HI);
      //create the file
      try
        deststream.Write(LockResource(HG)^, ResSize);
        result := True;
      except end;
    end;
    FreeResource(HG);
  end;
end;