 |
Das deutsche QBasic- und FreeBASIC-Forum
Für euch erreichbar unter qb-forum.de, fb-forum.de und freebasic-forum.de!
|
| Vorheriges Thema anzeigen :: Nächstes Thema anzeigen |
| Autor |
Nachricht |
Hugo
Anmeldungsdatum: 13.11.2005
Beiträge: 32
|
 Verfasst am: 26.11.2005, 16:27 Titel: wie kann man Bilder einfügen |
 |
|
| he, hallo ich hab das halbe Forum durchsucht um herauszufinden wie man Bilder einfügen kann und weiß es trotzdem noch nicht wie das geht. Bitte sagt mir das doch, denn die meisten Beispiele waren noch zu schwer für mich |
|
| Nach oben |
|
 |
Mao
Anmeldungsdatum: 25.09.2005
Beiträge: 4409
Wohnort: /dev/hda1
|
| Verfasst am: 26.11.2005, 16:47 Titel: |
|
|
Hallo!
Wo genau willst du denn Bilder einfügen?
_________________
Eine handvoll Glück reicht nie für zwei.
--
 |
|
| Nach oben |
|
|
Devilkevin
aka Kerstin
Anmeldungsdatum: 11.11.2004
Beiträge: 2532
Wohnort: nähe Mannheim
|
| Verfasst am: 26.11.2005, 16:48 Titel: |
|
|
Mit: [IMG*]http://beispiel.de/beispielbild.jpg[/IMG*]
Ohne die Sternchen.
_________________
www.piratenpartei.de |
|
| Nach oben |
|
|
Hugo
Anmeldungsdatum: 13.11.2005
Beiträge: 32
|
| Verfasst am: 26.11.2005, 18:34 Titel: |
|
|
könnteste vielleicht desn bisl besser erklähren?
ich will einfach bloß`n bild mit den x und y Koordinaten einfügen können! |
|
| Nach oben |
|
|
Sebastian
Administrator
Anmeldungsdatum: 10.09.2004
Beiträge: 5969
Wohnort: Deutschland
|
| Verfasst am: 26.11.2005, 18:50 Titel: |
|
|
Hallo,
ich nehme mal an, dass du dich im Forum vertan hast und einen QB oder FreeBasic Code haben willst, richtig?
Hier ein FreeBasic-Code:
| Code: | SUB SET.PICTURE (x AS INTEGER, y AS INTEGER, datei AS STRING)
DIM f AS INTEGER
DIM hoehe AS INTEGER
DIM Breite AS INTEGER
f=FREEFILE
OPEN datei FOR BINARY ACCESS READ AS #f
get #f,19,hoehe
get #f,23,breite
CLOSE #f
DIM Bild AS ANY PTR
Bild = IMAGECREATE(Hoehe, Breite)
BLOAD datei, Bild
PUT (X,Y), Bild,PSET
IMAGEDESTROY Bild
END SUB |
Viele Grüße!
Sebastian
_________________
Die gefährlichsten Familienclans | Opas Leistung muss sich wieder lohnen - für 6 bis 10 Generationen! |
|
| Nach oben |
|
|
psygate
Anmeldungsdatum: 05.04.2005
Beiträge: 304
Wohnort: Wien und der Computer
|
| Verfasst am: 26.11.2005, 20:29 Titel: |
|
|
wenn wir schjon dabei sind: 
wie kann cih ein bild in ein array einscannen? (bmp)
also, in ein echtes so wie a(100) usw.    |
|
| Nach oben |
|
|
Michael712
aka anfänger, programmierer
Anmeldungsdatum: 26.03.2005
Beiträge: 1593
|
| Verfasst am: 26.11.2005, 20:36 Titel: |
|
|
Hallo.
Das bild wird in ein array gespeichert. Allerdings ist der rückgabewert ein pointer auf das array. Es gibt auch noch methoden mit varptr, etc. Mit imagecreate ist das aber am einfachsten.
Michael |
|
| Nach oben |
|
|
psygate
Anmeldungsdatum: 05.04.2005
Beiträge: 304
Wohnort: Wien und der Computer
|
| Verfasst am: 26.11.2005, 20:38 Titel: |
|
|
| tja. schön, aber wie krieg ich das nun in ein echtes array, ohne es ab zu tasten mit point (x,y)? |
|
| Nach oben |
|
|
Devilkevin
aka Kerstin
Anmeldungsdatum: 11.11.2004
Beiträge: 2532
Wohnort: nähe Mannheim
|
| Verfasst am: 26.11.2005, 20:50 Titel: |
|
|
| Hugo hat Folgendes geschrieben: | könnteste vielleicht desn bisl besser erklähren?
ich will einfach bloß`n bild mit den x und y Koordinaten einfügen können! |
Achso du meinst in FB, dann poste es doch ins FB forum 
_________________
www.piratenpartei.de |
|
| Nach oben |
|
|
jb
Anmeldungsdatum: 14.01.2005
Beiträge: 2010
|
| Verfasst am: 26.11.2005, 20:54 Titel: |
|
|
Du kannst auch den Umweg ohne IMAGECREATE machen, wenn du das meinst:
| Code: |
dim bild(hoehe * breite * farbtiefe) as ubyte
bload "test.bmp", varptr(bild(0))
put (10, 10), bild, pset
|
jb |
|
| Nach oben |
|
|
Dusky_Joe
Anmeldungsdatum: 07.01.2005
Beiträge: 1007
Wohnort: Regensburg/Oberpfalz
|
| Verfasst am: 02.12.2005, 20:29 Titel: |
|
|
@jb: Ich denke, die Antwort wurde schon gegebeben...
@psygate:
Hmm... sowas ist schon schwieriger. Du könntest...
a) Dich auf wikipedia übers BMP-Format informieren, und deinen Eigenen Reader schreiben - is gar ned so schwer...
b) Wenn du nur deshalb deine BMP in einem Array haben willst, um einzelne Pixel anzeigen zu können, kannst du auch PUT verwenden; Abgewandelte Version von Sebi:
| Code: | SUB SET.PICTURE (x AS INTEGER, y AS INTEGER, datei AS STRING, startX AS INTEGER, startY AS INTEGER, endX AS INTEGER, endY AS INTEGER)
DIM f AS INTEGER
DIM hoehe AS INTEGER
DIM Breite AS INTEGER
f=FREEFILE
OPEN datei FOR BINARY ACCESS READ AS #f
get #f,19,hoehe
get #f,23,breite
CLOSE #f
DIM Bild AS ANY PTR
Bild = IMAGECREATE(Hoehe, Breite)
BLOAD datei, Bild
PUT (X,Y), Bild, (startX, startY)-(endX, endY), PSET
IMAGEDESTROY Bild
END SUB |
c) Wie schon gesagt: Die Variante mit ImageCreate benutzt auch schon ein Array, nur eben, dass ein Pointer darauf benutzt wird, anstelle des Arrays selbst. Du könntest also dein Gfx-Array direkt herauslesen:
| Code: | Option Dynamic
Declare Sub Bmp2Array(file As String, Array() As Integer)
Dim Gfx(0, 0)
SUB Bmp2Array(file As String, Array() As Integer)
DIM AS INTEGER f, wid, hei, x, y
f=Freefile
Open file FOR Binary Access Read As #f
Get #f, 19, hei
Get #f, 23, wid
Close #f
Dim Bild As Any Ptr
Bild = Imagecreate(hei, wid)
Bload file, Bild
' bis hier wie bei Sebi
Redim Array(wid, hei) As Integer
For y = 0 To hei - 1
For x = 0 To wid - 1
Array(x, y) = Peek(UInteger, Bild + y * hei + x
Next
Next
End Sub |
// nicht getestet //
Anyway, diese Version funzt nur bei 24 und 32-bit- BMPs. Wenn du das bei 8bit-Maps benutzten willst, musst du die Zeile mit dem Peek so abändern, dass der erste Parameter nciht mehr UInteger ist, sondern UByte. Bei 16bit-Maps wäre es dementsprechend UShort.
Hoffe, das hilft dir.
Have a nice day
Ciao
_________________
fully biological degradable
Once, the big wave arrives, you've got two ways, you can go:
Either, you ride it, or you don't do.
But, if you don't ride, you'll never know wether you'd have gone wet. |
|
| Nach oben |
|
|
|
|
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.
|
|
FAQ
Suchen
Mitgliederliste
Benutzergruppen
Registrieren
Profil
Einloggen, um private Nachrichten zu lesen
Login
