English
Español
GravaImagemBanco
É uma função genérica que permite gravar imagens em qualquer tabela do sistema, sendo que o parâmetro imagem pode ser uma referência passada pelo retorno da função WCheckValImage.
- Ao gravar a imagem na base, independentemente da extensão, ela será automaticamente convertida para o formato JPG. Por conta disso, é possível que a imagem perca um pouco da qualidade.
- Para comandos que envolvam imagens na linguagem LSP, é essencial utilizar a função GravaImagemBanco. Essa função garante que os dados da imagem sejam gravados corretamente no banco de dados e exibidos adequadamente no sistema, sendo a única indicada para esse tipo de operação.
Sintaxe: GravaImagemBanco(Alfa aTabela, Alfa aCamposChave, Alfa aOutrosCampos, Alfa aCampoImagem, Numero aOrigem, Alfa aArquivo, Alfa end aMensagem);
Nome | Tipo | Descrição |
|---|---|---|
aTabela | Alfa | Nome da tabela no banco de dados que armazenará a imagem. |
aCamposChave | Alfa | Nome e valores dos campos chave que serão utilizados no SQL separados por ”;”. (Ex: “NumEmp=1;TipCol=1;NumCad=1”). |
aOutrosCampos | Alfa | Nome e valores dos campos restantes (exceto a chave e o campo imagem) que serão utilizados no SQL de inclusão separados por ”;”. Deve-se informar somente campos que sejam obrigatórios ou se desejar os campos opcionais. |
aCampoImagem | Alfa | Nome do campo no banco de dados que armazenará a imagem. |
aOrigem | Numérico | Origem da imagem (1-arquivo, 2-upload). |
aArquivo | Alfa | Quando aOrigem for 1, deve-se indicar o caminho completo do arquivo. Quando aOrigem for 2, deve-se indicar a variável aRetorno da função WCheckValImage. |
aMensagem | Alfa | Mensagem de erro, sendo que o valor padrão quando não ocorrer erros será em branco. |
<div class="Code"><p><span class="comentario">/***** Exemplo passando o caminho completo do arquivo *******/</span><br></br>Definir Alfa aArquivo;<br></br>Definir Alfa aMsg;<br></br><span class="comentario">/* notar que deve ser passado o caminho com duas barras e se for caminho de rede com 4 barras (aArquivo = \\\\servidor\\documentos\\exemplo.jpg";) */</span><br></br>aArquivo = <span class="azul">"C:\\Temp\\imagem.jpg"</span>; <br></br>ret = GravaImagemBanco(<span class="azul">"R034FOT"</span>, <span class="azul">"NumEmp=1;TipCol=1;NumCad=1"</span>, <span class="azul">"DatFot=01/01/2008;FlaFot=1"</span>,<span class="azul"> "FotEmp"</span>, 1, aArquivo, aMsg);<br></br>Se (ret <> 0)<br></br> WAdicionaListaErros(<span class="azul">""</span>, aMsg); <br></br><br></br><span class="comentario">/***** Exemplo usando upload de arquivos *******/</span><br></br>Definir Alfa aNomeFoto;<br></br>Definir Alfa aMsg;<br></br>WCheckValImage(<span class="azul">"R122CEX_Foto"</span>, <span class="azul">"Foto do Candidato"</span>, aNomeFoto,<span class="azul"> "S"</span>, <span class="azul">"jpg"</span>, 200);<br></br>Se (aNomeFoto <> <span class="azul">""</span>)<br></br> ret = GravaImagemBanco(<span class="azul">"R034FOT"</span>, <span class="azul">"NumEmp=1;TipCol=1;NumCad=1"</span>, <span class="azul">"DatFot=01/01/2008;FlaFot=1"</span>, <span class="azul">"FotEmp"</span>, 2, aNomeFoto, aMsg);<br></br>Se (ret <> 0)<br></br> WAdicionaListaErros(<span class="azul">""</span>, aMsg);</p></div>
Utilização: Regras do sistema.
English
Español
