PureBoard

Code: Alles auswählen

Procedure.l UploadFileFTP(hConnect, File$, dest$, ProgressID.l, BreakID.l)

#FTP_TRANSFER_TYPE_UNKNOWN = 0
Bytes.l = 0
BlockSize.l=256
x.q=FileSize(File$)
blocks.l=x/BlockSize : rest.l=x-(blocks*BlockSize)
dest$=ReplaceString(dest$,"\","/")
mem.l=AllocateMemory(512)

If mem=#False
  ProcedureReturn 0
EndIf

; Schrittweise Uploaden

hFile.l = FtpOpenFile_(hConnect, @dest$, #GENERIC_WRITE, #FTP_TRANSFER_TYPE_UNKNOWN, 0)

If hFile <> #Null
  If ReadFile(0,File$)
    SetGadgetAttribute(ProgressID,#PB_ProgressBar_Maximum,blocks)
    If blocks>0
      For i=1 To blocks
        SetGadgetState(ProgressID,i)
        Event=WindowEvent()
        If Event=#PB_Event_Gadget
          If EventGadget()=BreakID
            rest=0
            Break
          EndIf
        EndIf
        ReadData(0, mem, BlockSize)
        y.l=InternetWriteFile_(hFile, mem, BlockSize, @Bytes)
        If y=#False : rest=0 : Break : EndIf
      Next
    EndIf
    If rest>0
      SetGadgetState(ProgressID,blocks)
      ReadData(0, mem, rest)
      y.l=InternetWriteFile_(hFile, mem, rest, @Bytes)
    EndIf
    CloseFile(0)
  EndIf
  InternetCloseHandle_(hFile)
EndIf

FreeMemory(mem)
ProcedureReturn y

EndProcedure

Code: Alles auswählen

        Event=WindowEvent()
        If Event=#PB_Event_Gadget
          If EventGadget()=BreakID
            rest=0
            Break
          EndIf
        EndIf