binding windows meta file to resource file

[serkanb]

Does anyone know how to bind wmf file to a *.res file?
Thanks for your replies...

 

[Nordlund]

I suppose it's the same way as binding an ordinary bitmap or other file.

//Nordlund

 

[Nordlund]

Hi.
This example uses the file Test.wmf...

Test.rc

Test WMF Test.wmf

Run brcc32:

BRCC32 Test.rc

...And a code snippet to extract the file, first to a recource stream, then to a file...

{$R Test.res}

procedure TForm1.ExtractFile;
var
  RS: TResourceStream;
begin
  RS := TResourceStream.Create(0, 'Test', 'WMF');
  RS.SaveToFile('C:\Test.wmf');
  RS.Free;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ExtractFile;
end;

//Nordlund