Exemplo da função HEXSTRDUMP
Através do exemplo abaixo, geramos a string com o DUMP de um arquivo HTML, salvo na pasta WEB a partir do RootPath do Environment. O Dump do arquivo será mostrado no Console do servidor e no Web Browser que solicitou a função U_DumpTest.apw .
#include "protheus.ch"#include "apwebex.ch"User Function DumpTest()Local cHtml := ''Local cTXTFile := ''Local cDump := ''WEB EXTENDED INIT cHtml // Le o arquivo cTTXFile := memoread('\Web\Default.htm')// Gera a string com o Dump do arquivocDump := HExStrDump(cTTXFile)// Mostra o Dump no consoleconout(cDump)// Gera HTML para a visualização do DUMPcHtml := VarInfo('DUMP',Htmlnotags(cDump),,.t.,.f.)WEB EXTENDED ENDReturn cHtml/*Exemplo do Texto mostrado no ConsoleHexSTRDump ( String 237 / Start 1 / Length 237 )-------------------------------------------------------------------------------3C 48 54 4D 4C 3E 3C 48 45 41 44 3E 0D 0A 3C 4D | <HTML><HEAD>__<M45 54 41 20 48 54 54 50 2D 45 51 55 49 56 3D 22 | ETA HTTP-EQUIV="43 6F 6E 74 65 6E 74 2D 54 79 70 65 22 20 63 6F | Content-Type" co6E 74 65 6E 74 3D 22 74 65 78 74 2F 68 74 6D 6C | ntent="text/html22 0D 0A 3C 4D 45 54 41 20 48 54 54 50 2D 45 51 | "__<META HTTP-EQ55 49 56 3D 22 70 72 61 67 6D 61 22 20 63 6F 6E | UIV="pragma" con74 65 6E 74 3D 22 6E 6F 2D 63 61 63 68 65 22 3E | tent="no-cache">0D 0A 3C 4D 45 54 41 20 48 54 54 50 2D 45 51 55 | __<META HTTP-EQU49 56 3D 22 45 78 70 69 72 65 73 22 20 63 6F 6E | IV="Expires" con74 65 6E 74 3D 22 2D 31 22 3E 0D 0A 3C 4D 45 54 | tent="-1">__<MET41 20 48 54 54 50 2D 45 51 55 49 56 3D 22 52 65 | A HTTP-EQUIV="Re66 72 65 73 68 22 20 63 6F 6E 74 65 6E 74 3D 22 | fresh" content="30 3B 20 75 72 6C 3D 2F 77 5F 77 45 78 30 30 30 | 0; url=/w_wEx0002E 61 70 77 22 3E 3C 2F 48 45 41 44 3E 0D 0A 3C | .apw"></HEAD>__<2F 48 45 41 44 3E 3C 2F 48 54 4D 4C 3E | /HEAD></HTML> -------------------------------------------------------------------------------*/
Através do exemplo abaixo, geramos a string com o DUMP de um arquivo HTML, salvo na pasta WEB a partir do RootPath do Environment. O Dump do arquivo será mostrado no Console do servidor e no Web Browser que solicitou a função U_DumpTest.apw .
#include "protheus.ch"#include "apwebex.ch"User Function DumpTest()Local cHtml := ''Local cTXTFile := ''Local cDump := ''WEB EXTENDED INIT cHtml // Le o arquivo cTTXFile := memoread('\Web\Default.htm')// Gera a string com o Dump do arquivocDump := HExStrDump(cTTXFile)// Mostra o Dump no consoleconout(cDump)// Gera HTML para a visualização do DUMPcHtml := VarInfo('DUMP',Htmlnotags(cDump),,.t.,.f.)WEB EXTENDED ENDReturn cHtml/*Exemplo do Texto mostrado no ConsoleHexSTRDump ( String 237 / Start 1 / Length 237 )-------------------------------------------------------------------------------3C 48 54 4D 4C 3E 3C 48 45 41 44 3E 0D 0A 3C 4D | <HTML><HEAD>__<M45 54 41 20 48 54 54 50 2D 45 51 55 49 56 3D 22 | ETA HTTP-EQUIV="43 6F 6E 74 65 6E 74 2D 54 79 70 65 22 20 63 6F | Content-Type" co6E 74 65 6E 74 3D 22 74 65 78 74 2F 68 74 6D 6C | ntent="text/html22 0D 0A 3C 4D 45 54 41 20 48 54 54 50 2D 45 51 | "__<META HTTP-EQ55 49 56 3D 22 70 72 61 67 6D 61 22 20 63 6F 6E | UIV="pragma" con74 65 6E 74 3D 22 6E 6F 2D 63 61 63 68 65 22 3E | tent="no-cache">0D 0A 3C 4D 45 54 41 20 48 54 54 50 2D 45 51 55 | __<META HTTP-EQU49 56 3D 22 45 78 70 69 72 65 73 22 20 63 6F 6E | IV="Expires" con74 65 6E 74 3D 22 2D 31 22 3E 0D 0A 3C 4D 45 54 | tent="-1">__<MET41 20 48 54 54 50 2D 45 51 55 49 56 3D 22 52 65 | A HTTP-EQUIV="Re66 72 65 73 68 22 20 63 6F 6E 74 65 6E 74 3D 22 | fresh" content="30 3B 20 75 72 6C 3D 2F 77 5F 77 45 78 30 30 30 | 0; url=/w_wEx0002E 61 70 77 22 3E 3C 2F 48 45 41 44 3E 0D 0A 3C | .apw"></HEAD>__<2F 48 45 41 44 3E 3C 2F 48 54 4D 4C 3E | /HEAD></HTML> -------------------------------------------------------------------------------*/
Advanced Protheus 7.10
,
Microsiga Protheus 8.11
,
LIB WEBEX
Nível 1 (Acesso Clientes)
Espanhol
,
Inglês
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas