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.
Observação
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.
Sintaxe: GravaImagemBanco(Alfa aTabela, Alfa aCamposChave, Alfa aOutrosCampos, Alfa
aCampoImagem, Numero aOrigem, Alfa aArquivo, Alfa end aMensagem);
Parâmetros:
| 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. |
Exemplo:
/***** Exemplo passando o caminho
completo do arquivo *******/
Definir Alfa aArquivo;
Definir Alfa aMsg;
/* notar que deve ser passado o caminho com duas barras e se for caminho de rede
com 4 barras (aArquivo = \\\\servidor\\documentos\\exemplo.jpg";) */
aArquivo = "C:\\Temp\\imagem.jpg";
ret = GravaImagemBanco("R034FOT", "NumEmp=1;TipCol=1;NumCad=1", "DatFot=01/01/2008;FlaFot=1",
"FotEmp", 1, aArquivo, aMsg);
Se (ret <> 0)
WAdicionaListaErros("", aMsg);
/***** Exemplo usando upload de arquivos *******/
Definir Alfa aNomeFoto;
Definir Alfa aMsg;
WCheckValImage("R122CEX_Foto", "Foto do Candidato", aNomeFoto, "S", "jpg", 200);
Se (aNomeFoto <> "")
ret = GravaImagemBanco("R034FOT", "NumEmp=1;TipCol=1;NumCad=1",
"DatFot=01/01/2008;FlaFot=1", "FotEmp", 2, aNomeFoto, aMsg);
Se (ret <> 0)
WAdicionaListaErros("", aMsg);
Utilização: Regras do sistema.
English
Español
