[QBASIC] Uitlezen imagesize van .gif file

[Verwijderd]

Ontbrakt...

Xtentic wil graag weten hoe hij de height/width van een .GIF file kan uitlezen.

Tnx.

[Koen_R]

op deze site staan allemaal qbasic proggrammatjes. Zit vast wel iets tussen om .GIF files in te lezen:

http://qbasic.qb45.com/files/files.shtml?page=gfxutils&show=1

[Verwijderd]

Thanx m8t voor het ontbrakken van het topic!..

ik check de site ff...

jammer genoeg niets gevonden dat me kon helpen.

[Explore]

'k Weet natuurlijk de balle van qbasic, maar ik veronderstel dat het mogelijk is een file in te lezen naar een soort van buffer ofzo? Als het antwoord hierop 'ja' is, dan is 't een piece of cake.

Een GIF-file bestaat uit een aantal blokken data. het eerste blok is de header, waarin onder andere de imagesize van de GIF-file staat. Als je alleen de hoogte en breedte van 't plaatje wilt hebben, kan je volstaan met de eerste 10 bytes. De eerste 6 zijn gereserveerd voor de GIF-signature (iets in de trent van GIF89a of GIF87a) en de twee words die daarop volgen zijn respectievelijk de breedte en de hoogte... in lsb-first order.

Have fun.

[Koen_R]

http://qbasic.qb45.com/files/download.cgi?download=64&page=gfxutils

In dit programmatja (Staat op pagina 5 van de link die ik je daarstraks gaf) wordt volgens mij gecontroleerd op de grootte van de .gif. Ik kon het zo snel niet in de code vinden, maar misschien heb je hier al iets meer aan.

[Verwijderd]

zo en ik ben er uit het was niet veel moeite mja..

code:

a$ = string$(6,32)
GET #jfile, , a$

IF LEFT$(a$, 3) <> "GIF" THEN 
      PRINT "Not a GIF file."
      END
END IF

GET #jfile, , TotalX
GET #jfile, , TotalY

Voor mensen die er belangstelling bij hebben.