Image Laden... Geht net :(

Übersicht

BlitzBasic

BlitzPlus

	ToeB Betreff: Image Laden... Geht net :(	Mo, Nov 05, 2007 18:56 Antworten mit Zitat
Code: [AUSKLAPPEN] [EINKLAPPEN] Include "blitzsys.bb" Global ScrollX,ScrollY hw = CreateWindow("KEYImage",200,200,250,500,0,1) load = CreateButton("Bild Laden",20,50,200,50,hw) Expo = CreateButton("Exportieren",20,110,200,50,hw) Repeat Select WaitEvent() Case $803 End Case $401 If EventSource() = load Then sFile$ = DLLGetOpenFileName("Bild laden","",".bmp"+Chr(0)+".bmp"+Chr(0)+".jpg"+Chr(0)+".jpg"+Chr(0)+".png"+Chr(0)+".png",OFN_FILEMUSTEXIST) If sFile <> "" img = LoadImage(sFile$) If img <> 0 If Pan <> 0 Then FreeGadget(Pan) Pan = CreateCanvas(20,200,200,200,hw) SetBuffer CanvasBuffer(Pan) Else EndIf EndIf EndIf End Select If img <> 0 Then DrawImage img,0,0 If Pan <> 0 Then FlipCanvas(Pan) Forever End (Ich benutze Blitzsys.dll) der läd mache Images nicht Warum ist das so ? (Ich fang praktisch grad mit b+ an...) thx und mfg Crack93
Religiöse Kriege sind Streitigkeiten erwachsener Männer darum, wer den besten imaginären Freund hat. Race-Project - Das Rennspiel der etwas anderen Art SimpleUDP3.0 - Neuste Version der Netzwerk-Bibliothek Vielen Dank an dieser Stelle nochmal an Pummelie, welcher mir einen Teil seines VServers für das Betreiben meines Masterservers zur verfügung stellt!

ToeB

Betreff: Image Laden... Geht net :(

Mo, Nov 05, 2007 18:56
Antworten mit Zitat

Code: [AUSKLAPPEN]

Include "blitzsys.bb"

Global ScrollX,ScrollY

hw = CreateWindow("KEYImage",200,200,250,500,0,1)
load = CreateButton("Bild Laden",20,50,200,50,hw)
Expo = CreateButton("Exportieren",20,110,200,50,hw)
Repeat
Select WaitEvent()
Case $803
End
Case $401
If EventSource() = load Then
sFile$ = DLLGetOpenFileName("Bild laden","","*.bmp"+Chr(0)+"*.bmp"+Chr(0)+"*.jpg"+Chr(0)+"*.jpg"+Chr(0)+"*.png"+Chr(0)+"*.png",OFN_FILEMUSTEXIST)
If sFile <> ""
img = LoadImage(sFile$)
If img <> 0
If Pan <> 0 Then FreeGadget(Pan)
Pan = CreateCanvas(20,200,200,200,hw)
SetBuffer CanvasBuffer(Pan)
Else
EndIf
EndIf
EndIf
End Select
If img <> 0 Then DrawImage img,0,0
If Pan <> 0 Then FlipCanvas(Pan)
Forever
End

(Ich benutze Blitzsys.dll)

der läd mache Images nicht Warum ist das so ? (Ich fang praktisch grad mit b+ an...)

thx und mfg Crack93

Religiöse Kriege sind Streitigkeiten erwachsener Männer darum, wer den besten imaginären Freund hat.
Race-Project - Das Rennspiel der etwas anderen Art
SimpleUDP3.0 - Neuste Version der Netzwerk-Bibliothek
Vielen Dank an dieser Stelle nochmal an Pummelie, welcher mir einen Teil seines VServers für das Betreiben meines Masterservers zur verfügung stellt!

	Lobby	Mo, Nov 05, 2007 19:23 Antworten mit Zitat
Ich kenn mich zwar nochnicht mit der Blitzsys.dll aus, aber warum benutzest du sie in B+?(ist eigentlich eher für B2D/B3D gedacht) Du könntest dass ganze in B+ folgendermaßen machen : Code: [AUSKLAPPEN] [EINKLAPPEN] sFile$ = RequestFile("Bild laden","bmp;.jpp;.png") So, wiso gibst du bei dir eigentlich jedes Format zweimal an
TheoTown - Eine Stadtaufbausimulation für Android, iOS, Windows, Mac OS und Linux

Lobby

Mo, Nov 05, 2007 19:23
Antworten mit Zitat

Ich kenn mich zwar nochnicht mit der Blitzsys.dll aus, aber warum benutzest du sie
in B+?(ist eigentlich eher für B2D/B3D gedacht)

Du könntest dass ganze in B+ folgendermaßen machen Wink

:
Code: [AUSKLAPPEN]

sFile$ = RequestFile("Bild laden","bmp;*.jpp;*.png")

So, wiso gibst du bei dir eigentlich jedes Format zweimal an Question

TheoTown - Eine Stadtaufbausimulation für Android, iOS, Windows, Mac OS und Linux

	ToeB	Mo, Nov 05, 2007 20:53 Antworten mit Zitat
Das ist bei blitzsys so, damusst du erst hinschreiben was da stehen soll und dann das format... Aber thx schonmal für den Hinweis ! [BIG EDIT] Code: [AUSKLAPPEN] [EINKLAPPEN] dek = Desktop() hw = CreateWindow("KEYImage",ClientWidth(dek)/2-125,ClientHeight(dek)/2-192.5,250,385,0,1) FreeGadget dek Global ScrollX,ScrollY load = CreateButton("Bild Laden",20,20,200,25,hw) Expo = CreateButton("Exportieren",20,50,200,25,hw) Ende = CreateButton("Ende",20,80,200,25,hw) Can = CreateCanvas(20,130,200,200,hw):SetBuffer CanvasBuffer(Can) Repeat Select WaitEvent() Case $803 End Case $401 If EventSource() = Ende Then End ElseIf EventSource() = load file$ = RequestFile("Bild laden...","bmp,png,jpg",0,"Dat") If file$ <> "" Then img = LoadImage(file$) img2= LoadImage(file$) Notify("File : "+file$+Chr(13)+"Image : "+img) If img <> 0 Then If ImageWidth(img) > 200 Then ResizeImage img,200,ImageHeight(img) If ImageHeight(img)> 200 Then ResizeImage img,ImageWidth(img),200 Else Notify("Bild Exestiert nicht !",1) EndIf Else Notify("Keine Datei ausgewählt !") EndIf ElseIf EventSource() = Expo file$ = 1 EndIf End Select If img <> 0 Then DrawImage img,0,0 FlipCanvas(Can) Cls Forever Ich hab hier nochmal "neu" angefangen, ohne "Blitzsys". Aber der läd bestimmte images immer noch net ! Warum ? Weil der Pfad ist inordnung, nur bei bestimmten bildern läd der net... hängt das vil mit der Demo zusammen ? thx und mfg Crack93
Religiöse Kriege sind Streitigkeiten erwachsener Männer darum, wer den besten imaginären Freund hat. Race-Project - Das Rennspiel der etwas anderen Art SimpleUDP3.0 - Neuste Version der Netzwerk-Bibliothek Vielen Dank an dieser Stelle nochmal an Pummelie, welcher mir einen Teil seines VServers für das Betreiben meines Masterservers zur verfügung stellt!

ToeB

Mo, Nov 05, 2007 20:53
Antworten mit Zitat

Das ist bei blitzsys so, damusst du erst hinschreiben was da stehen soll und dann das format...

Aber thx schonmal für den Hinweis !

[BIG EDIT]

Code: [AUSKLAPPEN]

dek = Desktop()
hw = CreateWindow("KEYImage",ClientWidth(dek)/2-125,ClientHeight(dek)/2-192.5,250,385,0,1)
FreeGadget dek

Global ScrollX,ScrollY

load = CreateButton("Bild Laden",20,20,200,25,hw)
Expo = CreateButton("Exportieren",20,50,200,25,hw)
Ende = CreateButton("Ende",20,80,200,25,hw)
Can = CreateCanvas(20,130,200,200,hw):SetBuffer CanvasBuffer(Can)

Repeat
Select WaitEvent()
Case $803
End
Case $401
If EventSource() = Ende Then
End
ElseIf EventSource() = load
file$ = RequestFile("Bild laden...","bmp,png,jpg",0,"Dat")
If file$ <> "" Then
img = LoadImage(file$)
img2= LoadImage(file$)
Notify("File : "+file$+Chr(13)+"Image : "+img)
If img <> 0 Then
If ImageWidth(img) > 200 Then ResizeImage img,200,ImageHeight(img)
If ImageHeight(img)> 200 Then ResizeImage img,ImageWidth(img),200
Else
Notify("Bild Exestiert nicht !",1)
EndIf
Else
Notify("Keine Datei ausgewählt !")
EndIf
ElseIf EventSource() = Expo
file$ = 1
EndIf
End Select
If img <> 0 Then DrawImage img,0,0
FlipCanvas(Can)
Cls
Forever

Ich hab hier nochmal "neu" angefangen, ohne "Blitzsys". Aber der läd bestimmte images immer noch net ! Warum ? Weil der Pfad ist inordnung, nur bei bestimmten bildern läd der net... hängt das vil mit der Demo zusammen ?

thx und mfg Crack93