Informationer fra billede?

Hej Johnny,
Det er lidt tricky, men det kan lade sig gøre

function GetBmpDPI(Bitmap: TBitmap): LongInt;
var
   Stream: TMemoryStream;
   Data: Word;
   A: Double;
begin
    try
       Result := 0;
       Stream := TMemoryStream.Create;
       Bitmap.SaveToStream(Stream);
       Stream.Position := 38;
       if Stream.Read(Data,2) = 2 then
          begin
          A := Data;
          Result := Round(A / 39.370079);
          end;
    finally
           Stream.Free;
    end;
end;

Hej Ken,

Fedt at få svar fra en man "kender" (eller i hvert fald ser en gang i mellem), er du egentlig 2. års elev eller lige blevet færdig på HTX?

Nå on topic... Jeg tjekker det lige senere i dag og ser om det giver mening

M.v.h. Johnny Rasmussen.

Hey Johnny,
hehe sådan er det jo

Blev desværre tvunget ud i at tage 2. år om, så er kommende 3. års elev (for anden gang... )

Jeg takker for et svar og du får da lige point.

Men kan man bruge den funktion til at skaffe andre informationer?

Var da så lidt
Ja, det funktionen gør er at den åbner billedet og henter de informationer der er gemt i filen fra det 8. bit hvor BMP gemmer antal DPI.

Du kan finde en beskrivelse af BMP formattet (Som TBitmap benytter sig af), sammen med hvor de forskellige info gemmes her: http://www.fortunecity.com/skyscraper/windows/364/bmpffrmt.html
Håber det kan hjælpe