Vorheriges Thema anzeigen :: Nächstes Thema anzeigen |
Autor |
Nachricht |
OdinX
Anmeldungsdatum: 29.07.2005 Beiträge: 253 Wohnort: SG Schweiz
|
Verfasst am: 28.09.2005, 20:14 Titel: breite und hoehe von bild bestimmen |
|
|
wie finde ich heraus, wie breit und hoch ein bild ist ohne das immer manuell eingeben zu müssen?
danke im voraus OdinX |
|
Nach oben |
|
|
Sebastian Administrator
Anmeldungsdatum: 10.09.2004 Beiträge: 5969 Wohnort: Deutschland
|
|
Nach oben |
|
|
OdinX
Anmeldungsdatum: 29.07.2005 Beiträge: 253 Wohnort: SG Schweiz
|
Verfasst am: 28.09.2005, 20:33 Titel: |
|
|
sorry...ganz vergessen zu erwähnen.
natürlich bmp's |
|
Nach oben |
|
|
Michael712 aka anfänger, programmierer
Anmeldungsdatum: 26.03.2005 Beiträge: 1593
|
Verfasst am: 28.09.2005, 20:38 Titel: |
|
|
Hallo.
Code: |
open datei$ for binary as #1
dim f as integer
f=freefile
get #f,19,hoehe
get #f,23,breite
close #f
|
|
|
Nach oben |
|
|
OdinX
Anmeldungsdatum: 29.07.2005 Beiträge: 253 Wohnort: SG Schweiz
|
Verfasst am: 28.09.2005, 20:40 Titel: |
|
|
thx probiers gleich aus
edit:
hmmm...
kann es sein dass du ein fehler gemacht hast?
sollte es nicht so sein?
Code: | DIM f AS INTEGER
OPEN Pfad FOR BINARY AS #f
f=FREEFILE
GET #f,19,hoehe
GET #f,23,breite
CLOSE #f |
Zuletzt bearbeitet von OdinX am 28.09.2005, 20:47, insgesamt einmal bearbeitet |
|
Nach oben |
|
|
Sebastian Administrator
Anmeldungsdatum: 10.09.2004 Beiträge: 5969 Wohnort: Deutschland
|
Verfasst am: 28.09.2005, 20:42 Titel: |
|
|
Hallo.
Code: | OPEN "test.bmp" FOR BINARY ACCESS READ AS #1
Signatur$=SPACE$(2)
GET #1,,Signatur$
IF UCASE$(Signatur$)<>"BM" THEN
PRINT "BMP ungültig!"
CLOSE:SLEEP:END
END IF
SEEK #1, 19
GET #1,,Breite&
GET #1,,Hoehe&
If Hoehe&<0 THEN Hoehe&=Hoehe&*(-1)
PRINT "Breite: "; Breite&
PRINT "Hoehe: "; Hoehe&
CLOSE #1
SLEEP: END |
Viele Grüße!
Sebastian
//Edit: Ach, Murx, zu langsam! _________________
Die gefährlichsten Familienclans | Opas Leistung muss sich wieder lohnen - für 6 bis 10 Generationen! |
|
Nach oben |
|
|
Michael712 aka anfänger, programmierer
Anmeldungsdatum: 26.03.2005 Beiträge: 1593
|
Verfasst am: 28.09.2005, 20:42 Titel: |
|
|
halt stop!!
Hab ne Fehler:
so
Code: |
dim f as integer
f=freefile
open datei$ for binary as #f
get #f,19,hoehe
get #f,23,breite
close #f |
|
|
Nach oben |
|
|
OdinX
Anmeldungsdatum: 29.07.2005 Beiträge: 253 Wohnort: SG Schweiz
|
Verfasst am: 28.09.2005, 20:59 Titel: |
|
|
thx
funzt jetzt |
|
Nach oben |
|
|
|