Текущий архив: 2003.12.12;
Скачать: CL | DM;

Вниз

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)

---

← →
dataMaster ©   (2003-12-01 16:10) [3]

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

---

Страницы: 1 вся ветка

Текущий архив: 2003.12.12;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.013 c