wmf в res и обратно...

← →
aleks111 (2003-12-01 14:23) [0]

Добрый день, Мастера!
Подскажите как в *.res засунуть *.wmf и
как его оттуда достать?

← →
icWasya © (2003-12-01 14:40) [1]

пусть есть файлы MyFile1.wmf MyFile2.wmf

1)File->New->Text

2)в нём наколотить

MyFile1 METAFILE MyFile1.WMF MyFile2 METAFILE MyFile2.WMF

3)SaveAs MyFile.rc

4)Add File To Project MyFile.rc

в программе

var MF:TMetafile; ST:TStream; MF:=TMetafile.Create; ST:=TResourceStream.Create(HInstance,pChar("MyFile1"),PChar("METAFILE")); try MF.LoadFromStream(ST); finally ST.Free; end; Image1.Picture.Assign(MF);

← →
aleks111 (2003-12-01 15:43) [2]

THNX icWasya
...а как из res сохранить на диск WMF (Экспортировать из RES)

procedure ExtractRes(ResType, ResName, ResNewName : String);
var
Res : TResourceStream;
begin
Res := TResourceStream.Create(Hinstance, Resname, Pchar(ResType));
Res.SavetoFile(ResNewName);
Res.Free;
end;

wmf в res и обратно... Найти похожие ветки