Форум: "Основная";
Текущий архив: 2003.12.12;
Скачать: [xml.tar.bz2];

Вниз

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;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.008 c