B4J Question Get PDF with GetString

[MarcoRome]

Hi All.
I have this need. Save a PDF file using the GetString method instead of GetInputStream
The file is saved, but obviously they are different and above all of different sizes.
For example GetInputStream produces a 98kb file
For example GetString produces a 176kb file

Strings are not saved in the right way in the case of GetString, even using GetString2 ("UTF8")


Of course GetInputStream work.
***** FIRST METHOD GetInputStream

    '***** FIRST METHOD GetInputStream
    Dim j As HttpJob
    j.Initialize("", Me)
    j.Download("https://www.axitech.it/sites/default/files/attachment/esempio_PDF.pdf")
    'j.GetRequest.SetContentType("application/pdf")
    'j.Download($"${addr}"$)
    Wait For (j) JobDone(j As HttpJob)
    If j.Success Then
        Dim risultato As InputStream = j.GetInputStream
        Dim out As OutputStream = File.OpenOutput(File.DirApp, "documentgetinputstring.pdf", False)
        File.Copy2(risultato, out)
        out.Close
        fx.ShowExternalDocument(File.GetUri(File.DirApp, "documentgetinputstring.pdf"))
    End If
    j.Release
'    '****** FINE PARTE PDF

'***** SECOND METHOD GetString

'***** SECOND METHOD GetString
      
    'Da sito Web
    Dim j As HttpJob
    j.Initialize("", Me)
    j.Download("https://www.axitech.it/sites/default/files/attachment/esempio_PDF.pdf")
    'j.GetRequest.SetContentType("application/pdf")
    'j.Download($"${addr}"$)
    Wait For (j) JobDone(j As HttpJob)
    If j.Success Then
        Dim res As String
        res = j.GetString2("UTF8")
        'res = j.GetString
        Log(res)
        Dim risultato As InputStream = StringToInputStream(res)
        Dim out As OutputStream = File.OpenOutput(File.DirApp, "documentgetstring.pdf", False)
        File.Copy2(risultato, out)
        out.Close
        fx.ShowExternalDocument(File.GetUri(File.DirApp, "documentgetstring.pdf"))
    End If
    j.Release
'    '****** FINE PARTE PDF

Any Suggestion ??
Thank you very much
Marco

 

[DonManfred]

1. What is the exact question?
2. Second Method will never work i guess. A PDF is not a String.

 

[MarcoRome]

1. What is the exact question?
2. Second Method will never work i guess. A PDF is not a String.

Hi dear Don.
I had published the post before i completed the question.
If you can reread the post now.
Thank you

 

[DonManfred]

If you can reread the post now.

My answer is the same.
Do NOT use GetString for binary files. It doesn´t work.

Best is to use Method ONE (using outputstream) for ANY File (even text).

 

[MarcoRome]

Already.
In any case I solved by encoding the pdf data in base64, modifying what is necessary, then decoding and rewriting the same in an InputStream. This is how it works.

Sub AdXXX(texto As String) As InputStream
    Dim strResult As InputStream
    Dim cs As CompressedStreams
    Dim su As StringUtils
    Dim bt() As Byte
    Try
        'code need modified....
        '......
        'After
        bt = su.DecodeBase64(texto)
        strResult.InitializeFromBytesArray(bt, 0, bt.Length)
        Return strResult
    Catch
        Log(LastException)
        Return Null
    End Try
End Sub

Thank you anyway dear Don.