Spanish Error Al Trabajar Con Envío Remoto

[dhernandez]

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?

 

[Heppy]

A mi me dió un error parecido en RDC y el problema estaba en el archivo config.
Puedes postearlo?

 

[dhernandez]

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]

No, me refiero al Config.Properties. Es algo así:

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]

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:

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:

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]

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

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]

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

 

[Heppy]

Si Id_ext es autonúmerico prueba a quitarlo de las sentencias de inserción.

Me da que es VALUES (' ',.....
InsertarDatos("",......

 

[dhernandez]

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