como pasar o traducir codigo de VB a VFP

[Marcelo Barberis]

Hola buenas tardes

Gentilmente una persona me paso una utilidad que deseo implementar y en la documentacion que me paso el ejemplo que ponen esta en VB y yo cero a la izquierda con VB

Alguien que entienda y pueda traducir algo de VB a VFP 

Dim ObjTAR, ObjGZip

Set ObjTAR = Server.CreateObject("XStandard.TAR")

Set ObjGZip = Server.CreateObject("XStandard.GZIP")

ObjTAR.Pack "C:\Temp\golf.jpg", "C:\Temp\images.tar"

ObjGZip.Compress "C:\Temp\images.tar", "C:\Temp\images.tar.gz"

set ObjTAR = Nothing

set ObjGZip = Nothing

Mi objetivo es usar una librreria xTar.dll para realizar procesos sobre facturacion electronica

Adjunto un pdf 

--

Marcelo Barberis Gutierrez
Sistemas Informaticos
Villa Montes - Bolivia
Telef.: +591-76830544

[HernanCano]

===========REPETIDO ===========

Tema original:

Alguna funcion para contenedor TAR - Facturacion electronica bolivia

El lun, 27 dic 2021 a la(s) 17:22, Hernan Cano escribió:

Te contesto in-line...... (de color amarillo).

El lun, 27 dic 2021 a la(s) 16:55, Marcelo Barberis escribió:

Hola buenas tardes

Bueno muchas gracias por lo que me pasaste me ayudara mucho en mis procesos de facturacion electronica, pero tengo una duda, te comento:

1.- Yo utilizo un bat para registrar adicional de ocx y creo que seria valido para dll o nose

%SYSTEMROOT%\SYSTEM32\Regsvr32.exe   XTar.dll /S

Esto seria valido o no es posible

Inicialmente te indiqué que se podía usar RegSver.exe.......

Por lo tanto: sí.

 

2.- Yo en mi prg principal en alguna parte tengo por ejemplo

DECLARE FastQRCode IN "iRiSArtSysQR.dll" String,String

Con xTar.dll para la utilizacion seria de declararla de esta manera tanto para el uso de TAR y GZIP, por que es lo que necesito

No. No se declara con DECLARE. Se activa con CreateObject(). Mira la doc. 

3.- Ahora como seria la traduccion a vfp9 de la codificacion de ejemplo del PDF que parece que es VB pero yo nunca me intereso VB por lo que no entiendo como funciona

Set ObjTAR = Server.CreateObject("XStandard.TAR")

Set ObjGZip = Server.CreateObject("XStandard.GZIP")

ObjTAR.Pac "C:\Temp\golf.jpg", "C:\Temp\images.tar"

ObjGZip.Compress "C:\Temp\images.tar", "C:\Temp\images.tar.gz"

Yo tampoco. Yo no soy hincha de vb, ni de .net, ni de asp.

ObjTAR = CreateObject("XStandard.TAR")

ObjTAR.Pack ( "C:\Temp\golf.jpg", "C:\Temp\images.tar" )

ObjTAR.Pack ( "C:\Temp\golf2.jpg", "C:\Temp\images.tar" )

ObjTAR.Pack ( "C:\Temp\golf3.jpg", "C:\Temp\images.tar" )

ObjTAR.Pack ( "C:\Temp\golf4.jpg", "C:\Temp\images.tar" )

4.- Te comento cual es mi trabajo

* debo crear 500 xml y todos estos estan en una carpeta -->> Paquete_1

* debo usar un contenedor TAR y colocar estas 500 xml -->> PAQ_1_20211219_1.tar

* debo comprimir en GZIP el TAR -->> PAQ_1_20211219_1.gz

* debo generar una cadena GZIP para enviarla a la renta de bolivia

* debo generar un sha256 de esa cadena GZIP para enviarla como huella digital

Ya tendria cubierto los puntos 2 y 3 TAR y GZIP

Ajá.... 

este ejemplo seria para una factura de la cadena gzip, creo que me dijeron que esta en base64

H4sIAAAAAAAACoVV63KqSBB+lSn+Ry4KXgo5hQg5bilE0OQk/ybDmEwCM+4Aub3FeZOt2jfY82LbaECTeHarLMXunu5v+vu6sb+95Bl6orJggo8VvaMpiHIiUsbvxsp6FZwNFFSUmKc4E5yOlVdaKN8cZG8wKSuJPZFvqxJL9obT3R+JLykvMYK0vBi9FGys3JfldqSqz8/PneduR8g71dA0Xf2xmCfknub4jPG6AqEKgvgRFyHOabHFhO79c0FwuYP3P0U7L0WqADaCbymhEsMjZ6Wfs0JIx9TMgWbqmm7Y6sGKbInfBE8EYTh7j1xgSWgm0ATLWypZYatfY5CdV5wRtmXCuWRZhtFC8JJC7MGO7JJmdCO4cPrWoKuZvZ6ttibAVuVUimDfSEcHWB8McI9q4+imq5vB1JhMhq7R8w3Ds/pDb9jTpq7muX0zcN1+MLA0yzXNwB/2etZwMA2mXh9q1ed3WVJnsry89OiDeR4/+uPw8fHajNbr5/Dtj/Pl4/V4aazz6yyOV4/61eU6WL6ED3GwXMeT5dtMX+wSpXUmkMWdSCpSyQJnjgaOjxZkp0xSQoAsx3Pncx/NXXTh3qAwjjqJGqKbKATDbO5FC/c6stVDeJP9ouKl2EnokP/IBsKj5B7XTNVFDM3Qz3QDPivdGhnaSNM7/SFc/UMUtFrkt5LGB6qdeOZ9d+PVd7Tww2l0A6ii0POBgy+RDbIV24qpIMARIJyl8M1SnDpm04Xf+Bue26NOT+/2h5al6YBzT/nBVxfLtxndFdmPA8vGSikrqqgtBV7GwE+dQW8ZWF3DGjQYGkeDeUFLkYoLfCdqfe3ZOrI12FZYPtB6aOvx+1AvB1WLlSiB7q6maR0NSD+ywRi0AUkFOcTsCZ+KPDhbaLBOUnwEa/8fhgb67OH8FiYL1hHUOzIc14OBqxOcgPXueQ8+Z5vSwzI9cbuUFqSqO+2mMMuC4+xE0L5r/guh2zrmVATekBPmjL5S2JvOnL6i8J+/UM/sjtAKmKMFSinMyb1AGFUclRID2fTPipWw6J4EKhhHKSuIZDnjmLBff3PYygi2jNhQCUSlFBVUPtWgi46tNpWQXRUVLGPhLCZuPPHjWWKrjalpfCu2hJISFmMrjM8OBIppNqmdgj6yjIIEYV+xp1r6PoHVljOCHcvQ9JqpE652rqVIK6iXMO4MunqvrXpx5Pgc7FxF3blpWtaXaMBRkyfZjhNnOkv8Xz8jdI2mfuLGcTSfR/CIkihYXbmxj2ZhEMULdzXz6q1zdBJK4vdJros0z9BJXt9xQVP4cUyYsA8GZG+BQCbW8CrZNbyV4Sf7uwinjdJO6KSobj9NWGtpBjSB9xA9cXS/PmY5ZSeccM89Z7AO//tt7fwL73+IQgcIAAA=

Para base64, puedes usar StrConv()

este es un ejemplo de una cadena sha256 de la cadena anterior

9e72928e7a01615b4cf090daa617b4ca9d68531748f887f323f695eb4ca3ef63

de antemano gracias por cualquier ayuda