Páginas filhas
  • Exemplo da função HEXSTRDUMP

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>   -------------------------------------------------------------------------------*/



Advanced Protheus 7.10 , Microsiga Protheus 8.11 , LIB WEBEX
Nível 1 (Acesso Clientes)
Espanhol , Inglês

  • Sem rótulos