Vorheriges Thema anzeigen :: Nächstes Thema anzeigen |
Autor |
Nachricht |
surfer87
Anmeldungsdatum: 16.09.2004 Beiträge: 103
|
Verfasst am: 02.04.2007, 21:36 Titel: Jpg anzeigen (gibts schon neuere Routinen?) |
|
|
Hey, damit mir nicht vorgehalten wird, ich solle doch bitte die SuFu nutzen.....ich habe bereits gesucht aber recht wenig im FB Forum gefunden
BMP's lassen sich ja ziemlich einfach anzeigen, bei JPG's sieht es anders aus. Gibt es in den neuen Versionen bereits Vereinfachungen?
Eventuell zu benutzende Bibliotheken werden direkt mitkompiliert, sodass der Nutzer diese später nicht mehr braucht oder??
BMP's werden auf die Dauer nämlich in der Masse etwas groß für Programme die klein gehalten werden sollen.
Danke |
|
Nach oben |
|
 |
Eternal_pain

Anmeldungsdatum: 08.08.2006 Beiträge: 1783 Wohnort: BW/KA
|
Verfasst am: 02.04.2007, 21:41 Titel: |
|
|
Für JPG empfehle ich Dir FreeImage _________________
 |
|
Nach oben |
|
 |
surfer87
Anmeldungsdatum: 16.09.2004 Beiträge: 103
|
Verfasst am: 02.04.2007, 21:52 Titel: |
|
|
hastn Beispiel? Arbeite nicht so oft mit Libs.
Aber danke schonmal |
|
Nach oben |
|
 |
Eternal_pain

Anmeldungsdatum: 08.08.2006 Beiträge: 1783 Wohnort: BW/KA
|
Verfasst am: 02.04.2007, 21:54 Titel: |
|
|
Code: |
#include "freeimage.bi"
#include "crt.bi"
Declare Function GetJpeg(Byval File As String) As Any Ptr
Dim Image As Any Ptr
ScreenRes 640, 480, 32
Image = GetJpeg("test.jpg")
If Image Then
Put (0, 0), Image
Else
Print "File not found"
End If
Sleep
Function GetJpeg(Byval File As String) As Any Ptr
Dim Dib As FIBITMAP Ptr
Dim Dib32 As FIBITMAP Ptr
Dim SprWidth As Integer
Dim SprHeight As Integer
Dim Sprite As Any Ptr
Dim Bits As Any Ptr
Dib = FreeImage_Load(FIF_JPEG, File, JPEG_DEFAULT)
If Dib = 0 Then Return 0
FreeImage_FlipVertical Dib
Dib32 = FreeImage_ConvertTo32Bits(Dib)
SprWidth = FreeImage_GetWidth(Dib32)
SprHeight = FreeImage_GetHeight(Dib32)
Sprite = ImageCreate(SprWidth, SprHeight)
Bits = FreeImage_GetBits(Dib32)
MemCpy CPtr(Zstring Ptr, Sprite) + 4, Bits, SprWidth * SprHeight * 4
FreeImage_Unload(Dib32)
FreeImage_Unload(Dib)
Return Sprite
End Function |
siehe auch hier _________________
 |
|
Nach oben |
|
 |
surfer87
Anmeldungsdatum: 16.09.2004 Beiträge: 103
|
Verfasst am: 02.04.2007, 22:23 Titel: |
|
|
Danke das klappt schonmal, aber wie verhält sich das mit der Transparenz wenn ich ein Jpg über ein anderes legen will?
Beim Bmp hat ja ein simples "trans" gereicht |
|
Nach oben |
|
 |
Jojo alter Rang

Anmeldungsdatum: 12.02.2005 Beiträge: 9736 Wohnort: Neben der Festplatte
|
Verfasst am: 02.04.2007, 22:23 Titel: |
|
|
Für FreeImage hättest du aber wirklich die sufu verwenden können  _________________ » Die Mathematik wurde geschaffen, um Probleme zu lösen, die es nicht gäbe, wenn die Mathematik nicht erschaffen worden wäre.
 |
|
Nach oben |
|
 |
Eternal_pain

Anmeldungsdatum: 08.08.2006 Beiträge: 1783 Wohnort: BW/KA
|
Verfasst am: 02.04.2007, 22:36 Titel: |
|
|
Es Gibt da verschiedene Transparent funktionen, aber da ich mich nicht weiter damit befasst hab weiss ich leider auch nichts genaueres darüber...
Am besten wird sein das Du die einfach mal ausprobierst.... _________________
 |
|
Nach oben |
|
 |
Mao
Anmeldungsdatum: 25.09.2005 Beiträge: 4409 Wohnort: /dev/hda1
|
Verfasst am: 03.04.2007, 14:21 Titel: |
|
|
@surfer:
Es gibt auch keine erfolgsrezepte für Libs.
Da schaut man sich in der Regel erstmal die Dokumentation an, die das Interface erklärt. _________________ Eine handvoll Glück reicht nie für zwei.
--
 |
|
Nach oben |
|
 |
volta
Anmeldungsdatum: 04.05.2005 Beiträge: 1876 Wohnort: D59192
|
Verfasst am: 03.04.2007, 18:43 Titel: |
|
|
Es gibt auch direkt die jpeglib.bi damit ist es möglich
xxx.jpg -> img -> put (0,0), img, trans
Example unter:
....freebasic.. \examples\gfx\jpeg_read.bas _________________ Warnung an Choleriker:
Dieser Beitrag kann Spuren von Ironie & Sarkasmus enthalten.
Zu Risiken & Nebenwirkungen fragen Sie Ihren Therapeuten oder Psychiater. |
|
Nach oben |
|
 |
Eternal_pain

Anmeldungsdatum: 08.08.2006 Beiträge: 1783 Wohnort: BW/KA
|
|
Nach oben |
|
 |
|