FiveTech Software tech support forums

Code: Select all  Expand view

    cText := memoread( "c:\xpmake\factura.pdf" )
    memoedit(cText)
 

Code: Select all  Expand view

%PDF-1.3
2 0 obj
<<
/Type /Page /Parent 1 0 R
/Resources 3 0 R
/MediaBox [ 0 0 595.00 842.00 ]
/Contents 4 0 R
>>
endobj
3 0 obj
<<
/ColorSpace << /DeviceRGB /DeviceGray >>
/ProcSet [ /PDF /Text /ImageB /ImageC ]
/XObject
<<
/Image1 6 0 R
>>
>>
endobj
4 0 obj << /Length 5 0 R

>>
stream

q
595.0 0 0 842.0 0 0 cm
/Image1 Do
Q
endstream
endobj
5 0 obj
43
endobj
6 0 obj
<<
/Type /XObject
/Subtype /Image
/Name /Image1
/Filter [ /DCTDecode ]
/Width 2450
/Height 3200
/BitsPerComponent 8
/ColorSpace/DeviceRGB
/Length 141487
>>
stream
ÿØÿà
 

Code: Select all  Expand view

    fMimeEnc( "c:\xpmake\factura.pdf", "c:\xpmake\factura")
    cText := MemoRead( "c:\xpmake\factura" )
    memoedit(cText)
 

Code: Select all  Expand view

JVBERi0xLjMNCjIgMCBvYmoNCjw8DQovVHlwZSAvUGFnZSAvUGFyZW50IDEgMCBSDQovUmVzb3Vy
Y2VzIDMgMCBSDQovTWVkaWFCb3ggWyAwIDAgNTk1LjAwIDg0Mi4wMCBdDQovQ29udGVudHMgNCAw
IFINCj4+DQplbmRvYmoNCjMgMCBvYmoNCjw8DQovQ29sb3JTcGFjZSA8PCAvRGV2aWNlUkdCIC9E
ZXZpY2VHcmF5ID4+DQovUHJvY1NldCBbIC9QREYgL1RleHQgL0ltYWdlQiAvSW1hZ2VDIF0NCi9Y
T2JqZWN0DQo8PA0KL0ltYWdlMSA2IDAgUg0KPj4NCj4+DQplbmRvYmoNCjQgMCBvYmogPDwgL0xl
bmd0aCA1IDAgUiANCg0KPj4NCnN0cmVhbQ0KDQpxDQo1OTUuMCAwIDAgODQyLjAgMCAwIGNtDQov
SW1hZ2UxIERvDQpRIA0KZW5kc3RyZWFtDQplbmRvYmoNCjUgMCBvYmoNCjQzDQplbmRvYmoNCjYg
MCBvYmoNCjw8DQovVHlwZSAvWE9iamVjdA0KL1N1YnR5cGUgL0ltYWdlDQovTmFtZSAvSW1hZ2Ux
DQovRmlsdGVyIFsgL0RDVERlY29kZSBdDQovV2lkdGggMjQ1MA0KL0hlaWdodCAzMjAwDQovQml0
c1BlckNvbXBvbmVudCA4DQovQ29sb3JTcGFjZS9EZXZpY2VSR0INCi9MZW5ndGggMTQxNDg3DQo+
Pg0Kc3RyZWFtDQr/2P/gABBKRklGAAEBAQBgAGAAAP/bAEMAyIqWr5Z9yK+jr+HVyO7/////////
///////////////////////////////////////////////////////////bAEMB1eHh////////
///////////////////////////////////////////////////////////////////////////A
ABEIDIAJkgMBIgACEQEDEQH/xAAfAAABBQEBAQEBAQAAAAAAAAAAAQIDBAUGBwgJCgv/xAC1EAAC
AQMDAgQDBQUEBAAAAX0BAgMABBEFEiExQQYTUWEHInEUMoGRoQgjQrHBFVLR8CQzYnKCCQoWFxgZ
GiUmJygpKjQ1Njc4OTpDREVGR0hJSlNUVVZXWFlaY2RlZmdoaWpzdHV2d3h5eoOEhYaHiImKkpOU
lZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4eLj5OXm5+jp6vHy8/T1
9vf4+fr/xAAfAQADAQEBAQEBAQEBAAAAAAAAAQIDBAUGBwgJCgv/xAC1EQACAQIEBAMEBwUEBAAB
.....

continua
 

Code: Select all  Expand view

FUNTION LeerPdf()

   cPath := 'c:\temp\Pedido.pdf'
   cTemp := 'c:\temp\temp001.tmp'
 
   FMimeEnc(cPath,cTemp)

   cMemo:=memoread(cTemp)
   cMemo:=STRTRAN(cMemo,CRLF,'')

   REPLACE temp->mImag with cMemo

   ferase(cTemp)
   ferase(cPath)

   cMemo := temp->mImag

   cTemp := 'c:\temp\temp002.tmp'
   cPath := 'c:\temp\Pedido.pdf'

   MEMOWRIT(cTemp,cMemo)
         
   FMimeDec(cTemp,cPath)
         
   ferase(cTemp)

RETURN NIL

Ó,

Function Pdf2Str(cFilePdf)

   Local cMemo := ""

   cMemo := MemoRead(cFilePdf)

   cMemo := StrToHex(cMemo)

Return cMemo

// gera um arquivo PDF atraves de uma string

Function Str2Pdf(cMemo,cFilePdf)

   Local cTexto := cMemo

   cTexto := HexToStr(cTexto)

   fErase(cFilePdf)

   MemoWrit(cFilePdf,cTexto)

Return .t.
 

Code: Select all  Expand view

    fMimeEnc( "c:\xpmake\factura.pdf", "c:\xpmake\factura")
    cText := MemoRead( "c:\xpmake\factura" )
    cText := STRTRAN(cText,CRLF,'') //con esta línea se soluciono el problema
 

Para resumir y si alguien pudiera darme una mano. Lo que necesito hacer es leer un archivo pdf y codificarlo en base64 para ser enviado a un WS.

Code: Select all  Expand view

Content-Type: image/jpeg;
  name="logo_castillo.jpg"
Content-Transfer-Encoding: base64
Content-ID: <16470FFD-38D0-4BDC-84B1-EE2642C79249>

/9j/4AAQSkZJRgABAQEBLAEsAAD/2wBDAAEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEB
AQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQH/2wBDAQEBAQEBAQEBAQEBAQEBAQEBAQEB
AQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQH/wAARCAG/A+gDASIA
AhEBAxEB/8QAHwABAAIDAAMBAQEAAAAAAAAAAAkKBwgLBAUGAwIB/8QAUxAAAAYDAAEDAwEEBQYK
BA0FAQIDBAUGAAcICRESEwoUIRUWIjFBFyM5UbcYMkJhd3gkJTg6UmJ2tba4GjNXdSYnNjdDU3Fy
gYKWmNXXGTVUpP/EAB0BAQABBAMBAAAAAAAAAAAAAAACAQMHCAQFBgn/xABTEQACAQMCBAMEBgcD
BwkGBwABAgMABBEFIQYSMUEHE1EiYXGBCBQykaGxFSNCUnLB8DNi0RYkNHOy4fFDU4KDkpOiwsMX
JjZjlKMlVFZ1laWz/9oADAMBAAIRAxEAPwC/xjGMUpjGMUpjGMUpjGMUpjGMUpjGMUpjGMUpjGMU
pjGMUpjGMUpjGMUpjGMUpjGMUpjGMUpjGMUpjGMUpjGMUpjGMUpjGMUpjGMUpjGMUpjGMUpjGMUp
jGMUpjGMUpjGMUpjGMUpjMObr6E0jzlVFbtvPaFO1jWyAsDd5aZhuydSqyBSnVZQEOQVZqxyRSGA
4RcBHyUico+4jUwAI5Xf6g+pL17Xxka9yTqKR2BIp/Mg32PtoXNYp5VS+4E3kXR4lwFsnmKoCUxf
...
AAAAAAAAAAAAAAAAAAAAAAAAAAAAACgAAgEBAAAAAwAAAP////8AAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAClAAAAABAAAAAAAAAFAEQAbwBjAHUAbQBlAG4AdABTAHUAbQBtAGEA
cgB5AEkAbgBmAG8AcgBtAGEAdABpAG8AbgAAAAAAAAAAAAAAOAACAf///////////////wAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAK0AAAAAEAAAAAAAAA==


--------------Boundary-00=_8KII8WA1VA4000000000--

 

Code: Select all  Expand view

Function library_add
//Primero pido al usuario elija el archivo a subir a SQL
    cFileins :=  cGetFile("*.Pdf;*.Xls;*.Xlsx;*.Docx;*.Doc;*.Wmv;*.Mp4;*.Ppt;*.Pptx;*.Jpg;*.Bmp","Selecciona archivo", , "..")
    if !empty(cFileins)
        cExtension:=upper(right(cFileins,3))
        aExtep := {"PDF","XLS","XLSX","DOCX","WMV","DOC","MP4"}
        nPermi:=ascan(aExtep,cExtension)
//Valido que la extensión del archivo sea una de las permitidas
        if npermi<>0
            cNomFile := cFilename(cFileins)
           
            cCadsql0:="select filename from file_repository where filename='&cNomfile'"
           
            oRs0 := TOleAuto():New( "ADODB.Recordset" )
            oRs0:CursorType := 1 // opendkeyset
            oRs0:CursorLocation := 3 // local cache
            oRs0:LockType := 3 // lockoportunistic
   
            TRY
                cursorwait()
                oRS0:Open( cCadSql0,'Provider='+xPROVIDER+';Data Source='+xSOURCE+';Initial Catalog='+xCATALOGA+';User Id='+xUSERID+';Password='+xPASSWORD )
               
                CATCH oErr
                MsgInfo( "Error al verificar si el documento ya existe")
                msgget("Get","get",@cCadsql0)
                RETURN(.F.)
            END TRY
            oRs0nr:=oRs0:RecordCount()
            if oRs0nr=0
//Defino si es un archivo de acceso personal o público
                if msgyesno("Agregar documento de tipo público?","Tipo público")
                    lPub:="A"
                else
                    lPub:="B"
                endif
//Esta línea convierte el archivo a base64 (Este ejemplo lo encontré en el foro)
                cVarFile := hb_base64encode(hb_memoread(cFileins))
                cFech:=dtoc(date())
//Si no existe lo inserto a la tabla           
                cCadsql1:="Insert into file_repository (filename,content,fecha,tipo,owner) values ('&cNomfile','&cVarfile','&cFech','&lPub','&firma')"
           
                oRs1 := TOleAuto():New( "ADODB.Recordset" )
                oRs1:CursorType := 1 // opendkeyset
                oRs1:CursorLocation := 3 // local cache
                oRs1:LockType := 3 // lockoportunistic
   
                TRY
                    cursorwait()
                    oRS1:Open( cCadSql1,'Provider='+xPROVIDER+';Data Source='+xSOURCE+';Initial Catalog='+xCATALOGA+';User Id='+xUSERID+';Password='+xPASSWORD )
               
                    CATCH oErr
                    MsgInfo( "Error al insertar documento ")
                    msgget("Get","get",@cCadsql1)
                    RETURN(.F.)
                END TRY
                ?'El documento "'+alltrim(cNomfile)+'" ha sido insertado exitosamente'
            else
                ?'El documento "'+alltrim(cNomfile)+'" ya existe, no es posible almacenarlo en la biblioteca'
            endif
        else
//Si el usuario escribe un nombre de archivo con una extensión difrente a las permitidas no permite agregarlo a la tabla
            ?"El tipo de archivo seleccionado es invalido. Verifique y vuelva a intentar"
        endif
    endif
return