
	Kezdőlap Cikkek Tallózó Cikksorozatok Összes cikk Fórum Fórum kezdőlap Archívum Hírlevél Letöltés Állás, munka Webszolgáltatás Megtekintés Aktuális TV műsor TV csatornák listája Könyvek Software Offline évkönyvek Delphi 1999 Delphi 2000 Delphi 2001 Delphi 2002 Delphi 2003 Visual Studio.NET C# 2001 Visual Studio.NET C# 2002 Visual Studio.NET C# 2003 Windows 2001 Windows 2002 Windows 2003 Havilapok Keresés Oldaltérkép Impresszum

Bejelentkezés

E-mail:
Jelszó:

| Regisztráció | Jelszó? |

DPI meghatározása BMP állományból

Példaprogram letöltése

40850 bájt

Ebben a példában azt vizsgáljuk meg, hogy miként lehet egy BMP állományból a horizontális és vertikális DPI értékeket kiolvasni, illetve módosítani.

Az érték kiolvasásánál és módosításánál hasonló módon járunk el. Mindkét esetben a TFileStream osztály segítségével nyitjuk meg a BMP állományt, csak az első esetben olvasásra, a második esetben pedig írásra.

Stream:=TFileStream.Create(Edit1.Text,fmOpenRead or fmShareDenyWrite);

A BMP állományban a DPI értékek Word típusú adatként vannak eltárolva. A horizontális DPI meghatározásához szükséges érték a 38-as, a vertikális a 42-es byte helyen található. Ezt a TFileStream típusú változóból könnyedén kiolvashatjuk.

Stream.Position:=38;
Stream.Read(DPI,2);

A megfelelő DPI érték kiszámolásához egy kis korrekciót kell alkalmaznunk.

d:=DPI/39.370079;
Edit2.Text:=IntToStr(Round(d));

A DPI érték módosításánál ugyanezt az eljárást kell alkalmaznunk, csak visszafelé.

DPI:=Round(StrToInt(Edit2.Text) * 39.370079);
Stream.Position:=38;
Stream.Write(DPI,2);

Könyv

Ez a cikk megtalálható ebben a könyvben: Delphi Software Offline 2003 évkönyv 285. oldal

Felhasználási feltételek

A Software Online szoftverfejlesztői magazin mindegyik cikke, minden megjelent képe, és egyéb publikált anyaga szerzői jog védelme alatt áll! Bármilyen formában történő másodlagos terjesztésük, közzétételük vagy felhasználásuk kizárólag a kiadó előzetes írásbeli engedélyével történhet!