Spanish Error Al Trabajar Con Envío Remoto

dhernandez

Active Member
Licensed User
Longtime User
Buen día a todos los colegas de este foro:
Lo siguiente es porque tengo un problema, trabajo con el RDC y al enviar de mi mobil hacia el servidor remoto me sale este error, antes no lo hacia.

dbrequestmanager_handlejob (B4A line: 185)
In = cs.WrapInputStream(In, "gzip")
java.io.IOException: unknown format (magic number 683c)
at java.util.zip.GZIPInputStream.<init>(GZIPInputStream.java:101)
at java.util.zip.GZIPInputStream.<init>(GZIPInputStream.java:81)
at anywheresoftware.b4a.randomaccessfile.CompressedStreams.getInputStream(CompressedStreams.java:142)
at anywheresoftware.b4a.randomaccessfile.CompressedStreams.WrapInputStream(CompressedStreams.java:97)
at b4a.example.dbrequestmanager._handlejob(dbrequestmanager.java:344)
at b4a.example.enviar._jobdone(enviar.java:836)
at java.lang.reflect.Method.invokeNative(Native Method)
at java.lang.reflect.Method.invoke(Method.java:525)
at anywheresoftware.b4a.BA.raiseEvent2(BA.java:169)
at anywheresoftware.b4a.keywords.Common$4.run(Common.java:930)
at android.os.Handler.handleCallback(Handler.java:730)
at android.os.Handler.dispatchMessage(Handler.java:92)
at android.os.Looper.loop(Looper.java:137)
at android.app.ActivityThread.main(ActivityThread.java:5103)
at java.lang.reflect.Method.invokeNative(Native Method)
at java.lang.reflect.Method.invoke(Method.java:525)
at com.android.internal.os.ZygoteInit$MethodAndArgsCaller.run(ZygoteInit.java:737)
at com.android.internal.os.ZygoteInit.main(ZygoteInit.java:553)
at dalvik.system.NativeStart.main(Native Method)
dbrequestmanager_handlejob (B4A line: 185)


In = cs.WrapInputStream(In, "gzip")
java.io.IOException: unknown format (magic number 683c)


at java.util.zip.GZIPInputStream.<init>(GZIPInputStream.java:101)
at java.util.zip.GZIPInputStream.<init>(GZIPInputStream.java:81)
at anywheresoftware.b4a.randomaccessfile.CompressedStreams.getInputStream(CompressedStreams.java:142)
at anywheresoftware.b4a.randomaccessfile.CompressedStreams.WrapInputStream(CompressedStreams.java:97)

No entiendo porque?
Alguien puede auxiliarme?
 

dhernandez

Active Member
Licensed User
Longtime User
Gracias Heppy

#c3p0.minPoolSize= 80
#c3p0.maxPoolSize= 1000
c3p0.maxStatements=150
c3p0.maxIdleTime=1800
c3p0.idleConnectionTestPeriod=600
c3p0.checkoutTimeout=40000

asi lo tngo configurado..
 

Heppy

Active Member
Licensed User
Longtime User
No, me refiero al Config.Properties. Es algo así:

B4X:
DriverClass=interbase.interclient.Driver
JdbcUrl=jdbc:interbase://192.168.1.105/d:/semaforos/Gestion.ib
#SQL Server
#DriverClass=net.sourceforge.jtds.jdbc.Driver
#JdbcUrl=jdbc:jtds:sqlserver://<database server ip>/<database>
User=sysdba
Password=masterkey
ServerPort=17178
#If Debug is true then this file will be reloaded on every query.
#This is useful if you need to modify the queries.
Debug=true
 

dhernandez

Active Member
Licensed User
Longtime User
ya quedo solucionado eso Heppy, gracia spor tu valiosa ayuda... ahora tengo otro rpoblema... el servidor RDC confirma que ha recibido datos en el puerto 17178, y B4A en el log, confirma que se enviaron los datos. pero no se registran en MySQL...

Aqui tngo la linea de codigo:

Del archivo config.properties:
B4X:
sql.insert_DATA=INSERT INTO infoext(Id_Ext,Observaciones, EtiquetaHomotecnias, Hologramas, CollarinPQSs, CapacidadAreas, AgenteAreas, Alturas, Obstruccions, Delimitacions, Senalamientos, EtiquetaInspeccions, Manometros, Cornetas, Mangueras, Manerals,FechaRevs, HoraRevs, OCRs, CondicionesCilindros, SeguroMetalicos, ColaRatas, Ganchos, Ubicacions, NumeroExtintor, AgenteExtintor) Values ('', ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ? ,?, ?, ?, ?, ?, ?, ?, ?, ?);

este es el envio desde B4A:
B4X:
Sub InsertarDatos("", Observaciones, EtiquetaHomotecnias, Hologramas, CollarinPQSs, CapacidadAreas, AgenteAreas, Alturas, Obstruccions, Delimitacions, Senalamientos, EtiquetaInspeccions, Manometros, Cornetas, Mangueras, Manerals, FechaRevs, HoraRevs, OCRS, CondicionesCilindros, SeguroMetalicos, ColaRatas, Ganchos, Ubicacions, NumeroExtintor, AgenteExtintor)
    CURSOR1=SQL1.ExecQuery("SELECT * FROM BdXtntrs")
    For I = 0 To CURSOR1.RowCount -1
        CURSOR1.Position = I
        OBS=CURSOR1.GetString("Observaciones")
        HOMO=CURSOR1.GetString("EtiquetaHomotecnia")
        HOLO=CURSOR1.GetString("Holograma")
        COLLA=CURSOR1.GetString("CollarinPQS")
        CAPAR=CURSOR1.GetString("CapacidadArea")
        AGAR=CURSOR1.GetString("AgenteArea")
        ALTU=CURSOR1.GetString("Altura")
        OBST=CURSOR1.GetString("Obstruccion")
        DELI=CURSOR1.GetString("Delimitacion")
        SENAL=CURSOR1.GetString("Senalamiento")
        ETIINS=CURSOR1.GetString("EtiquetaInspeccion")
        MANOM=CURSOR1.GetString("Manometro")
        CORN=CURSOR1.GetString("Corneta")
        MANGU=CURSOR1.GetString("Manguera")
        MANERA=CURSOR1.GetString("Maneral")
        FREVS=CURSOR1.GetString("FechaRev")
        HREVS=CURSOR1.GetString("HoraRev")
        OCRR=CURSOR1.GetString("OCR")
        CONDCIL=CURSOR1.GetString("CondicionesCilindro")
        SEGMET=CURSOR1.GetString("SeguroMetalico")
        CORAT=CURSOR1.GetString("ColaRata")
        GANCH=CURSOR1.GetString("Gancho")
        UBS=CURSOR1.GetString("Ubicacion")
        NUM_EXT = CURSOR1.GetString("ExtNumero")
        AGENTE_EXT = CURSOR1.GetString("ExtAgente")
        Dim CMD As DBCommand
        CMD.Initialize
        CMD.Name = "insert_DATA"
        CMD.Parameters = Array As Object("", OBS, HOMO, HOLO, COLLA, CAPAR, AGAR, ALTU, OBST, DELI, SENAL, ETIINS, MANOM, CORN, MANGU, MANERA, FREVS, HREVS, OCRR, CONDCIL, SEGMET, CORAT, GANCH, UBS, NUM_EXT, AGENTE_EXT)
        ReqManager.ExecuteCommand(CMD, 0)
    Next
End Sub
Sub    IniciarConexion
    ReqManager.Initialize(Me, "Http://xxxxxx.dyndns.org:17178")
End Sub
Sub BtnEnviar_Click
    IniciarConexion
   
    InsertarDatos("", OBS, HOMO, HOLO, COLLA, CAPAR, AGAR, ALTU, OBST, DELI, SENAL, ETIINS, MANOM, CORN, MANGU, MANERA, FREVS, HREVS, OCRR, CONDCIL, SEGMET, CORAT, GANCH, UBS, NUM_EXT, AGENTE_EXT)
    ActualizaDatos
End Sub

Parece k todo esta correcto, que inserta datos, pero me voy a mi tabla y no hay datos :(
 

Heppy

Active Member
Licensed User
Longtime User
Hola, he tardado porque tengo graves problemas con el servidor de le empresa y no he tenido tiempo para entrar.

Creo que el problema es por transaciones
B4X:
Sub JobDone(Job As HttpJob)
    If Job.Success = False Then
        'Log("Error: " & Job.ErrorMessage)
        ToastMessageShow("Hable con el Administrador. No es posible la conexión",True)
    Else
        If Job.JobName = "DBRequest" Then
           If sqlCM.IsInitialized=False Then sqlCM.Initialize(File.DirInternal,"CM.db",True)
          sqlCM.ExecNonQuery("DELETE From CM")
          Dim result As DBResult = reqManager.HandleJob(Job)
         'reqManager.PrintTable(result)
          sqlCM.BeginTransaction
         For Each records() As Object In result.Rows
            sqlCM.ExecNonQuery2("INSERT INTO CM VALUES(?,?,?,?,?)",Array As Object(records(0),records(1),records(2),records(3),records(4)))
         Next
         sqlCM.TransactionSuccessful
         sqlCM.EndTransaction

Espero que sea esto.
 

dhernandez

Active Member
Licensed User
Longtime User
Gracias por tu respuesta heppy, modifique con tu sugerencia, pero creo que no son las transacciones... Sigue sin cambios mis tablas... La instrucicon llega al servidor y lo registra el cmd k se recibio instrucciones, pero ahi a la base de datos no hay cambios, no se me ocurre donde pueda estar mal
 

dhernandez

Active Member
Licensed User
Longtime User
Gracias heppy por tu valiosa ayuda, ya encontre el error, era mio en el servidor escucha.. Tenia dos instrucciones sql con el mismo nombre..
sql.insert_DATA=(Sentencia sql)
sql.insert_DATA=(Diferente sentencia sql)

No me había percatado de eso entre tantas instrucciones que tenia...
Gracias por tu ayuda
 
Top