Fehler bei OpenFileRequester()

[Slut-Hunter]

Im Prinzip schon bei 'While Tomate' , wobei die Liste natuerlich hier
keinen Sinn mehr macht , es sei denn du moechtest sie spaeter weiter
verwenden.

Code: Alles auswählen

While Tomate$
  AddGadgetItem(80, -1, Tomate$)
  Addelement(Number())
  Number() = Tomate$
  
  If LoadImage(0, Tomate$) 
    
    w.f = ImageWidth(0)
    h.f = ImageHeight(0)
    New_H.f = h.f / w.f * New_W
    
    ResizeImage(0, New_W, New_H.f )    
    SaveImage(0, "C:\BLUB\"+ GetFilePart(Tomate$), #PB_ImagePlugin_JPEG, 10)
    
  Else
    Debug "Bild konnte nicht geladen werden"
  Endif
  
  Tomate$ = NextSelectedFileName() 
Wend

AHHHHHHHHHHHHH geil es klappt, Danke ³

Ich Knallkopf hatte das schon mal so hinbekommen

Nur hatte ich einen kleinen unterschied, und dann ist es immer nach dem letzten Bild abgeschmiert.

http://www.purebasic.fr/german/viewtopic.php?t=8764

Habs im Moment so, und es klappt super.

Code: Alles auswählen

If EventGadgetID()=90
    
    
New_W = Val(GetGadgetText(25))
  
Tomate$ = OpenFileRequester("Select Pictures", "C:\*.jpg", "Pictures | *.jpg", 0,#PB_Requester_MultiSelection) 

NewList test.s()

While Tomate$

DateiName$ = GetFilePart(Tomate$)

  AddGadgetItem(80, -1, Tomate$)
  AddElement(test.s())
  test.s() = Tomate$
 
  If LoadImage(150, Tomate$)
   UseImage(150)

   CopyImage(150, 170)

  w.f = ImageWidth()
    h.f = ImageHeight()
    New_H.f = h.f / w.f * New_W
    
    
    ResizeImage(170, New_W, New_H.f )   
    SaveImage(170, "C:\BLUB\"+DateiName$, #PB_ImagePlugin_JPEG, 10)
   
  Else
    Debug "Bild konnte nicht geladen werden"
  EndIf
 
  Tomate$ = NextSelectedFileName()
Wend

EndIf

Und vor paar Tagen hatte ich es so

Code: Alles auswählen

If EventGadgetID()=3
       
        New_W = Val(GetGadgetText(1))
       
        Tomate$ = OpenFileRequester("Select Pictures", "C:\*.jpg", "Pictures | *.jpg", 0,#PB_Requester_MultiSelection)
       
        Path$ = GetPathPart(Tomate$)
        CreateDirectory(Path$+"Thumbs")
       
        While Tomate$
          Debug Tomate$
         
          Tomate$ = NextSelectedFileName()
         
          Pfad$ = GetPathPart(Tomate$)
          Datei$ = GetFilePart(Tomate$)
         
          LoadImage(200, Pfad$+Datei$)
          UseImage(200)
         
          w.f = ImageWidth()
          H.f = ImageHeight()
         
          New_H.f = H.f / w.f * New_W
         
          CopyImage(200, 201)
          ResizeImage(201, New_W, New_H.f )
          SaveImage(201, Pfad$+"\Thumbs\"+Datei$, #PB_ImagePlugin_JPEG, 7)
        Wend
      EndIf
      EndIf 

Ich depp hab kein If bei OpenfileResquester eingebaut gehabt, und dachte es funzt kein Else so lange die While Schleife läuft, dachte es geht nur Break.

Und das Tomate$ = NextSelectedFileName() war auch an der falschen Stelle.

Wie auch immer, jetzt klappt es ja, danke nochmal an alle, für die Hilfe