Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht Das deutsche QBasic- und FreeBASIC-Forum
Für euch erreichbar unter qb-forum.de, fb-forum.de und freebasic-forum.de!
 
FAQFAQ   SuchenSuchen   MitgliederlisteMitgliederliste   BenutzergruppenBenutzergruppen  RegistrierenRegistrieren
ProfilProfil   Einloggen, um private Nachrichten zu lesenEinloggen, um private Nachrichten zu lesen   LoginLogin
Zur Begleitseite des Forums / Chat / Impressum
Aktueller Forenpartner:

breite und hoehe von bild bestimmen

 
Neues Thema eröffnen   Neue Antwort erstellen    Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht -> Allgemeine Fragen zu FreeBASIC.
Vorheriges Thema anzeigen :: Nächstes Thema anzeigen  
Autor Nachricht
OdinX



Anmeldungsdatum: 29.07.2005
Beiträge: 253
Wohnort: SG Schweiz
BeitragVerfasst am: 28.09.2005, 20:14    Titel: breite und hoehe von bild bestimmen Antworten mit Zitat
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
Benutzer-Profile anzeigen Private Nachricht senden MSN Messenger
Sebastian
Administrator


Anmeldungsdatum: 10.09.2004
Beiträge: 5969
Wohnort: Deutschland
BeitragVerfasst am: 28.09.2005, 20:28    Titel: Antworten mit Zitat
Welches Format? Das ist bei BMP und JPG z.B. schon ein ordentlicher Unterschied...
_________________

Die gefährlichsten Familienclans | Opas Leistung muss sich wieder lohnen - für 6 bis 10 Generationen!
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden E-Mail senden Website dieses Benutzers besuchen
OdinX



Anmeldungsdatum: 29.07.2005
Beiträge: 253
Wohnort: SG Schweiz
BeitragVerfasst am: 28.09.2005, 20:33    Titel: Antworten mit Zitat
sorry...ganz vergessen zu erwähnen.
natürlich bmp's
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden MSN Messenger
Michael712
aka anfänger, programmierer


Anmeldungsdatum: 26.03.2005
Beiträge: 1593
BeitragVerfasst am: 28.09.2005, 20:38    Titel: Antworten mit Zitat
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
Benutzer-Profile anzeigen Private Nachricht senden E-Mail senden
OdinX



Anmeldungsdatum: 29.07.2005
Beiträge: 253
Wohnort: SG Schweiz
BeitragVerfasst am: 28.09.2005, 20:40    Titel: Antworten mit Zitat
thx grinsen 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
Benutzer-Profile anzeigen Private Nachricht senden MSN Messenger
Sebastian
Administrator


Anmeldungsdatum: 10.09.2004
Beiträge: 5969
Wohnort: Deutschland
BeitragVerfasst am: 28.09.2005, 20:42    Titel: Antworten mit Zitat
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! durchgeknallt
_________________

Die gefährlichsten Familienclans | Opas Leistung muss sich wieder lohnen - für 6 bis 10 Generationen!
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden E-Mail senden Website dieses Benutzers besuchen
Michael712
aka anfänger, programmierer


Anmeldungsdatum: 26.03.2005
Beiträge: 1593
BeitragVerfasst am: 28.09.2005, 20:42    Titel: Antworten mit Zitat
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
Benutzer-Profile anzeigen Private Nachricht senden E-Mail senden
OdinX



Anmeldungsdatum: 29.07.2005
Beiträge: 253
Wohnort: SG Schweiz
BeitragVerfasst am: 28.09.2005, 20:59    Titel: Antworten mit Zitat
thx
funzt jetzt
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden MSN Messenger
Beiträge der letzten Zeit anzeigen:   
Neues Thema eröffnen   Neue Antwort erstellen    Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht -> Allgemeine Fragen zu FreeBASIC. Alle Zeiten sind GMT + 1 Stunde
Seite 1 von 1

 
Gehe zu:  
Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.

 Impressum :: Datenschutz