PureBoard

Code: Alles auswählen

Procedure Upload()
  
  Global x = CountGadgetItems(#gad_LV_Uploads)
 
  Debug x
  For i = 0 To x - 1
    stat = i + 1
    
    StatusBarText(#gad_Status, 0, "File " + stat +" von " + x )
    text1$ = GetGadgetItemText(#gad_LV_Uploads, i, 0)
    text2$ = GetGadgetItemText(#gad_LV_Uploads, i, 1)
    text3$ = GetGadgetItemText(#gad_LV_Uploads, i, 2)
    SetGadgetItemColor(#gad_LV_Uploads, i, #PB_Gadget_BackColor, Color($FF,$FF,$00))
    c = Split(text1$, "|" , Woerter())
    Debug "Eintrag:" + i + ", Service:" + text1$ + ", Show:" + text2$ + ", Datei:" + text3$ 
    
  If text1$ = "DE"
    Dir$ = "germanservice"
  ElseIf text1$ = "EN"
    Dir$ = "englishservice"
  ElseIf text1$ = "DT"
    Dir$ = "dutchservice"
  EndIf

  Debug Dir$
  
  If OpenFTP(#FTP, FTPServer$, FTPUser$, FTPPass$)
    If SetFTPDirectory(#FTP, Dir$)
      If SendFTPFile(#FTP, text3$, text2$, #True)
        SizeOfFile.l =  FileSize(text3$)
        SetGadgetAttribute(#gad_PGB_Upload, #PB_ProgressBar_Maximum, SizeOfFile)
        Repeat
          Repeat
          Until (WaitWindowEvent(50) = 0)
          Debug "FTP Progress"+ Str(FTPProgress(#FTP))
          SetGadgetState(#gad_PGB_Upload, FTPProgress(#FTP))
        Until FTPProgress(#FTP) = #PB_FTP_Finished Or FTPProgress(#FTP) = #PB_FTP_Error
          StatusBarText(#gad_Status, 0, "Upload finisched, Next File" )
          SetGadgetItemColor(#gad_LV_Uploads, i, #PB_Gadget_BackColor, Color($00,$FF,$00))
        Else
          SetGadgetItemColor(#gad_LV_Uploads, i, #PB_Gadget_BackColor, Color($FF,$00,$00))
        MessageRequester("ERROR", "Upload failed", #PB_MessageRequester_Ok)
      EndIf
      Else
      MessageRequester("ERROR", "Service not selected", #PB_MessageRequester_Ok)
    EndIf
  Else
    MessageRequester("ERROR", "FTP Connect failed", #PB_MessageRequester_Ok)
  EndIf
    CloseFTP(#FTP)
  Next
  StatusBarText(#gad_Status, 0, "All Uploads finisched" )
EndProcedure