ValidaCFD

Hola, yo he estado probando el codigo en VB 6, y me marca un error que obliga a cerrar VB.

pero la DLL si me genera el xml, pero al momento de querer ver el sello.. es cuando genera el error

saben como lo puedo arreglar?

saludos
JM

jmanuel escribió:Hola, yo he estado probando el codigo en VB 6, y me marca un error que obliga a cerrar VB.

pero la DLL si me genera el xml, pero al momento de querer ver el sello.. es cuando genera el error

saben como lo puedo arreglar?

saludos
JM

Cual codigo en VB???

Cual DLL???

Podrias ser un poco mas especifico para poderte ayudar con tu problema....

Saludos!

El codigo de Ejemplo :

Private Sub Command1_Click()
GeneraCFD "d:\FE VB\Ejemplo1.ini", "a0123456789"
MsgBox "Resultado : OK. " + GetError + " " + GetErrorExt 'Aqui marca error, muestra el mensaje de OK, Genera el XML, pero aborta dentro del ambiente de desarrollo, y lo mismo pasa si se corre el exe compilado. si

End Sub

Private Sub Command3_Click()
MsgBox "Cadena : " + CadenaOriginal ' la cadena origianl si la despliega bien en el message box
MsgBox "Sello: " + SelloDigital 'Aqui es donde marca error..
End Sub

ojala me puedan ayudar.. saludos

jmanuel escribió:El codigo de Ejemplo :

Private Sub Command1_Click()
GeneraCFD "d:\FE VB\Ejemplo1.ini", "a0123456789"
MsgBox "Resultado : OK. " + GetError + " " + GetErrorExt 'Aqui marca error, muestra el mensaje de OK, Genera el XML, pero aborta dentro del ambiente de desarrollo, y lo mismo pasa si se corre el exe compilado. si

End Sub

Private Sub Command3_Click()
MsgBox "Cadena : " + CadenaOriginal ' la cadena origianl si la despliega bien en el message box
MsgBox "Sello: " + SelloDigital 'Aqui es donde marca error..
End Sub

ojala me puedan ayudar.. saludos

Probe nuevamente el ejemplo en VB6 y no me marco error, no sabria decirte porque a ti en el mismo ambiente te provoca esa falla.

mi sistema operativo es W7 y el VB 6, tiene instalado el SP 6...

alguna idea de que pueda ser el problema?..

saludos
JM

jmanuel escribió:Hola, yo he estado probando el codigo en VB 6, y me marca un error que obliga a cerrar VB.

pero la DLL si me genera el xml, pero al momento de querer ver el sello.. es cuando genera el error

saben como lo puedo arreglar?

saludos
JM

Hola, que tipo de error te manda?? (numero + descripcion), tal vez te pueda ayudar...

Saludos.

El problema que tengo al ejecutar el programa de vb6 con la rutina dll para generar sello digital y timbre es que marca lo siguiente:

Resultado : OK. Problemas al leer el certificado bad base64 private key encoding.

Ya revise el .ini y el certificado declara en este archivo es correcto, y coloque mas certificados de varios clientes mios y en todos me marca lo mismo, y dependiendo del certificado coloco dentro del codigo la contraseña. y en todos me marca el error mencionado antes,

y si efectuo esta funcion siguiente, si me efectua el timbre ya una vez hecho el xml sin ningun problema,

Private Declare Function TimbrarCFD Lib "c:\timbre\CFDLib.dll" (ByVal IniFilename As String) As TError

Private Sub Command1_Click()
TimbrarCFD "C:\timbre\ejemplo1.ini"
MsgBox "Resultado : OK. " + GetError + " " + GetErrorExt
End Sub

Pero independiente a este modulo me sigue marcando que la aplicacion se cierra de la nada, ya sea al cerrar la aplicacion o dentro del ambiente tambien me cierra el vb6, o al colocarme en otra ventana del windows me marca ese mismo error, y no creo que sea el vb6, ya que estuve programando algunas cosillas y nunca me marca ese error, mas que al trabajar con la dll.

uso el windows xp, vb6 con service pack 6. help me...

te envio las 2 imagenes,

espero me ayudan a decirme cual es el problema,

Buenas tardes,

Dado, tu sabras porque marca el error que les comente arriba, es el demo que bajas de conectorCFD.zip,


gracias por tu ayuda,


felicidades por tu foro, resuelve toda una gama de dudas de los developers.

Saludos.