B4J Question Server Servlet Api sending binary stream

imbault · May 18, 2015

Hi, if someone can help, surely @Erel I guess

I'm implementing a Server that upload a file depending of parameters
server call is that way
http://127.0.0.1:51040/getinvoice?login=pat&password=123456&factkey=smu160761.pdf

it should return binary stream of the pdf

Main is straightforward

B4X:

Sub AppStart (Args() As String)
    config = File.ReadMap(File.DirApp, "config.txt")
    srvr.Initialize("srvr")
    srvr.Port = config.Get("PushServerPort")
    srvr.AddHandler("/getinvoice", "GetInvoice", False)
    srvr.Start
    Log("server is listening on port: " & srvr.Port)
    StartMessageLoop
End Sub

In GetInvoice module handle

B4X:

Sub Handle(req As ServletRequest, resp As ServletResponse)
    If req.GetParameter("login") <> Main.config.Get("PushWynbeLogin") Then
        resp.SendError(500, "1")     ' 1 Non authetifié
        Return
    End If
    If req.GetParameter("password") <> Main.config.Get("PushWynbePassword") Then
        resp.SendError(500, "1") ' 1 Non authetifié
        Return
    End If
    factkey = req.GetParameter("factkey")
        SMB1.Initialize("SMB1")
        SMB1.SetCredentials(Main.config.Get("SMBName"),Main.config.Get("SMBPassword"),Main.config.Get("SMBDomain"))

        cFile = cFact & ".pdf"
        SMBPath = Main.config.Get("PushInvPath") &  cTri & "/" & cYear & "/"
        Dim out As OutputStream
        out = File.OpenOutput(File.DirApp, "toto.pdf", False)
           cout.Initialize(out)
        SMB1.DownloadFile2(SMBPath,cFile,cout,True)

At the end, I don't know how to send the binary Output Stream
resp.ContentType="application/pdf" ???
resp.OutputStream.... ???

Help Please

Erel · May 18, 2015

What is the purpose of SMB1 here?

You can see an example of a server that sends files here: https://www.b4x.com/android/forum/threads/37201/#content

imbault · May 18, 2015

SMB1 is used in a Windows Shared Folder, b4a Server will be in DMZ.

The link you send me is weird, in german, wrong link?

Patrick

imbault · May 18, 2015

Erel said:
What is the purpose of SMB1 here?

You can see an example of a server that sends files here: https://www.b4x.com/android/forum/t...app-to-your-b4j-server-over-the-internet.3720

Sorry the GetInvoice module was incorrect:

B4X:

Sub Handle(req As ServletRequest, resp As ServletResponse)

         FactFile = req.GetParameter("factfile")

        SMB1.Initialize("SMB1")
        SMB1.SetCredentials(Main.config.Get("SMBName"),Main.config.Get("SMBPassword"),Main.config.Get("SMBDomain"))

        SMBPath = Main.config.Get("PushInvPath")

        Dim out As OutputStream
      out.InitializeToBytesArray(0)
  
        SMB1.DownloadFile2(SMBPath,Factfile,out,True)
' return out???

Erel · May 19, 2015

I've fixed the link.

SMB.Download is an asynchronous method. You need to call StartMessageLoop after this call and later call StopMessageLoop in the DownloadCompleted event. This will allow you to wait for the result before sending the server output.

imbault · May 19, 2015

Sorry @Erel , I know you are super busy, but can you tell me is that Servlet code is correct to send binary stream of file:

B4X:

Sub Handle(req As ServletRequest, resp As ServletResponse)
    Dim FactFile a string   
   
    Private bufferSize As Int = 1000
   
    FactFile = req.GetParameter("factfile")
   
    SMB1.Initialize("SMB1")
    SMB1.SetCredentials(Main.config.Get("SMBName"),Main.config.Get("SMBPassword"),Main.config.Get("SMBDomain"))
      
    Dim out As OutputStream    
    out.InitializeToBytesArray(0)

    StopMessageLoop
    SMB1.DownloadFile2(SMBPath,FactFile,out,False)
    out.Flush

    resp.OutputStream.InitializeToBytesArray(bufferSize)
    resp.OutputStream.WriteBytes(out.ToBytesArray,0,out.ToBytesArray.Length)
End Sub


Sub SMB1_DownloadCompleted (Url As String, RemoteFile As String, Success As Boolean)
    StartMessageLoop
End Sub

Erel · May 19, 2015

The problem is not related to binary streaming. The problem here is how to make the server wait for SMB to complete before committing the response.

For this to work you need to:
1. Call SMB1.DownloadFile2.
2. Call StartMessageLoop
3. In DownloadCompleted call StopMessageLoop.
The code execution will continue from the StartMessageLoop place.

Now you should use File.Copy2 to copy the downloaded file to resp.OutputStream (do not initialize it as it will create a new irrelevant output stream).

imbault · May 19, 2015

Thanks @Erel , you are right concerning SMB.

This is what I've done, maybe it will help someone else, I didn't think to use File.Copy2, thanks master.

Is that code correct? I use only one stream

B4X:

'Handler class
Sub Class_Globals
    Dim SMB1 As SMB
    Dim out As OutputStream
End Sub

Public Sub Initialize
  
End Sub

Sub Handle(req As ServletRequest, resp As ServletResponse)
    Dim FactFile As String
  
    FactFile = req.GetParameter("factfile")
  
    SMB1.Initialize("SMB1")
    SMB1.SetCredentials(Main.config.Get("SMBName"),Main.config.Get("SMBPassword"),Main.config.Get("SMBDomain"))

    SMBPath = Main.config.Get("PushInvPath")

    out.InitializeToBytesArray(0)

    SMB1.DownloadFile2(SMBPath,FactFile,out,False)
    StartMessageLoop

    resp.ContentType="application/octet-stream"
    resp.OutputStream.WriteBytes(out.ToBytesArray,0,out.ToBytesArray.Length)      
  
End Sub



Sub SMB1_DownloadCompleted (Url As String, RemoteFile As String, Success As Boolean)
      out.Flush
    StopMessageLoop
End Sub

Erel · May 20, 2015

Yes. This code is correct (I previously misunderstood what you are trying to do with 'out').

B4J Question Server Servlet Api sending binary stream

imbault

Well-Known Member

Erel

B4X founder

imbault

Well-Known Member

imbault

Well-Known Member

Erel

B4X founder

imbault

Well-Known Member

Erel

B4X founder

imbault

Well-Known Member

Erel

B4X founder

Similar Threads

B4J Question Server Servlet Api sending binary stream

Well-Known Member

B4X founder

Well-Known Member

Well-Known Member

B4X founder

Well-Known Member

B4X founder

Well-Known Member

B4X founder

Similar Threads

Privacy & Transparency

Privacy & Transparency