23 Nov 2017 03:38
10 Jan 2018 10:17
h1:= fopen(arquivo.jpg) // abre o arquivo de imagem para leitura
tamanho:= fseek(h1,0,2) // move o ponteiro pelo arquivo até o fim para pegar o tamanho
fseek(h1,0,0) // volta para o início
h4:= space(tamanho) // declara variável para receber o conteúdo do arquivo
fread( h1, @h4, tamanho ) // faz a leitura do conteúdo do arquivo jogando-a na variável de memória
fclose( h1 ) // fecha o arquivo
h4 = HB_Base64Encode( h4, tamanho ) // converte o conteúdo do arquivo em base64
cSql:= 'update produtos set imagem = ' + sr_cdbvalue(h4) + ' where codigo = ' + sr_cdbvalue(xCod) // salva no BD
cSql:= 'select imagem from produtos where codigo='+sr_cdbvalue(xCod) // pega o conteúdo do campo blob
sJPG:= { HB_Base64Decode( iJPG[1,1] ) // decodifica o conteúdo do campo blob (iJPG[1,1] é o resultado da sentença SQL)
hJPG:= fcreate(GETENV("temp")+"\"+alltrim(str(xCod))+'.jpg',0) // cria um arquivo
fwrite(hJPG, sJPG[1] ) // carrega o conteúdo do campo no arquivo
fclose(hJPG) // fecha o arquivo, o deixando ponto para uso
20 Mai 2018 06:12
05 Jun 2019 18:51
06 Jun 2019 14:56
O que faz essa função e onde a posso encontrar?