Con il seguente codice trasmetto una immagine o un file PDF ad un programma da me sviluppato in VB6.
Il programma su PC riceve la stringa #FINE MODULO CONSENSO# e visualizza un messaggio; a questo punto sono certo di aver ricevuto l'immagine e posso visualizzarla sul PC.
Se adesso voglio trasmettere un file PDF commento le prime 7 righe del codice e tolgo il commento alle 3 righe relative alla trasmissione del file PDF.
Ma - ahime - il programma non riceve più il messaggio di fine ricezione. Preciso che il file PDF viene effettivamente trasmesso e sono in grado di visualizzarlo sul PC.
Quale potrebbe essere la soluzione ?
Grazie per l'attenzione
B4X:
'--- Trasmetto l'immagine
Dim FileBuffer() As Byte
Dim out As OutputStream
out.InitializeToBytesArray(1000)
c.Bitmap.WriteToStream(out, 100, "JPEG")
FileBuffer = out.ToBytesArray
out.Close
SendFile(FileBuffer)
'--- Trasmetto il File pdf
'Dim FileBuffer() As Byte
'FileBuffer=FileToBytes(File.DirRootExternal, NomeFilePDF)
'SendFile(FileBuffer)
'--- Per terminare
msg="#FINE MODULO CONSENSO#"
SendData(msg)
B4X:
Public Sub SendFile (data() As Byte)
LogColor("Sub SendFile lung =" & data.Length,Colors.red)
AStreams.Write(data)
End Sub
B4X:
Sub SendData(msg As String)
LogColor("Sub SendData msg=" & msg,Colors.red)
Dim Buffer() As Byte
Buffer = msg.GetBytes("UTF8")
AStreams.Write(Buffer)
AStreams.Write(Array As Byte(254))
End Sub
Il programma su PC riceve la stringa #FINE MODULO CONSENSO# e visualizza un messaggio; a questo punto sono certo di aver ricevuto l'immagine e posso visualizzarla sul PC.
Se adesso voglio trasmettere un file PDF commento le prime 7 righe del codice e tolgo il commento alle 3 righe relative alla trasmissione del file PDF.
Ma - ahime - il programma non riceve più il messaggio di fine ricezione. Preciso che il file PDF viene effettivamente trasmesso e sono in grado di visualizzarlo sul PC.
Quale potrebbe essere la soluzione ?
Grazie per l'attenzione