Downloading file with different name?

[jphoarau]

Hello,

I would like to download a file and save it to the user with a different name than the one on the server. I'm doing this:

Code: Select all

Procedure OnLeftClick_OK()
  If( GetGadgetState( #Checkbox_0 ) = #PB_Checkbox_Checked )
    ;procedure to download moustique
    Debug "Downloading book."
    If( ReadFile(0, "moustique.pdf", @Callback) )
      Length.q = Lof(0)
      *Buffer = AllocateMemory(Length);Error here: RangeError: invalid or out-of-range index (http://127.0.0.1:9080/spiderbasic.js?t=1767612810, line: 149)
      *Buffer = ExportFileMemory(0)
      ;ReadData(0, *Buffer, 0, Length)
      CreateFile(1, "mosticos.pdf", @Callback)
      WriteData(1, *Buffer, 0, Length);There is an error in the documentation for this function. Only 3 parameters are given when 4 are required. Perhaps this should be reported?
      ExportFile(1, "application/pdf")
      CloseFile(0)
      CloseFile(1)
    ;ExportFile("moustique.pdf", "application/pdf")
    EndIf
  EndIf
EndProcedure

I'm getting this error: RangeError: invalid or out-of-range index (http://127.0.0.1:9080/spiderbasic.js?t=1767612810, line: 149)

What is my mistake? Thanks in advance.

[jphoarau]

I have found how to download a file, but I don't know how to rename it. I do that (based on example):

Code: Select all

Procedure CreateFileCallback(Status, Filename$, File, SizeRead)
  Select Status
    Case #PB_Status_Saved
    
    Case #PB_Status_Error
    
  EndSelect
EndProcedure

Procedure ReadFileCallback(Status, Filename$, File, SizeRead)
  Select Status
    Case #PB_Status_Loaded
      ExportFile(File, "application/pdf")
      CloseFile(File)
      
    Case #PB_Status_Error
      
  EndSelect
EndProcedure

ReadFile(0, "moustique.pdf", @ReadFileCallback())

How could I do to change the name of the file saved on user side? Thanks in advance.

[Fred]

I don't think you can do that easily, I could add an optional output name for ExportFile(). For now, you can try to create another file with the good filename and use WriteData() to transfert it. Not very simple I agree.

[jphoarau]

Thank you. I'm going to do that.

[Fred]

I changed it for the next version.

[jphoarau]

I have solved the problem to rename a file. Here is the code below:

Code: Select all

Enumeration
  #File1
  #File2
EndEnumeration

Global *Buffer
Global Length.q

Procedure ReadCallback( Status, Filename$, File, SizeRead )
  Select Status
    Case #PB_Status_Loaded
        *Buffer = ExportFileMemory(#File1)
        Length = Lof(#File1)
        Debug Length
        WriteData(#File2, *Buffer, 0, Length)
        ExportFile(#File2, "application/pdf")
        CloseFile(#File2)
        CloseFile(#File1)
      
    Case #PB_Status_Error
      Debug "File not found in localstorage: " + Filename$
      ;       Debug "Creating a new file..."
  EndSelect
  
EndProcedure

Procedure WriteCallback(Status, Filename$, File, SizeRead)
  Select Status
    Case #PB_Status_Saved
      ; File correctly saved
;       WriteData(#File2, *Buffer, 0, Length);Why it doesn't work here?
;       ExportFile(#File2, "application/pdf")
;       CloseFile(#File2)
;       CloseFile(#File1)
      
    Case #PB_Status_Error
      ; File saving has failed
  EndSelect  
EndProcedure

Procedure Rename()
  ;procedure to download moustique
  Debug "Downloading book."
  
  If( ReadFile(#File1, "moustique.pdf", @ReadCallback()) )
    Debug #File1
  EndIf
  
  If( CreateFile(#File2, "mosticos.pdf", @WriteCallback()))
    Debug #File2    
  EndIf
  
EndProcedure

Rename()

It works fine, but I don't know how.

The Debug output show:
Downloading book.
0
1
34525

So, I have a question: why the program runs line 50 (Debug #File2) before line 14 (Debug Length)? And why can't I write lines 31 to 34?
And also, why lines 15 to 18 works well at theses places and not in the WriteCallback Procedure?
This is just 2 questions for my knowledge only, because it works for now.

Thanks in advance for your answer.