PC SOFT

GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEVWEBDEV e WINDEV Mobile

Inicio → WINDEV 24 → WX - Trabalhando com imagem selecionando, atribuindo ao controle imagem e gravando no banco de dados e exibindo pela tablegrid
WX - Trabalhando com imagem selecionando, atribuindo ao controle imagem e gravando no banco de dados e exibindo pela tablegrid
Iniciado por BOLLER, dez., 07 2019 2:17 PM - Sem resposta
Membro registado
3.160 mensagems
Popularité : +89 (91 votes)
Publicado em dezembro, 07 2019 - 2:17 PM
//BOTAO SELECIONAR FOTO E ATRIBUIÇÃO AO CONTROLE DE IMAGEM NA TELA
PROCEDURE SelectImagem()

sFile is string = fSelect("", "", "Selecione o arquivo", "Todos (*.*)" + TAB + "*.*" + CR + "JPG" + TAB + "*.JPG" + CR + "BMP" + TAB + "*.BMP" + CR + "PNG" + TAB + "*.PNG" + CR + "SVG" + TAB + "*.SVG", "*.*")

vImagem is Variant = dLoadImage(sFile,imgDefault)

RESULT vImagem


//NO CLICK DA IMAGEM
IMG_T002_FOTO = SelectImagem()


Tablegrid Exibindo Imagem do Banco
EVENTO - SELECT ROW TABLE

PROCEDURE SelecionaRegistro()

//Captura a linha
nx is 8-bytes int = TableInfoXY(TABLE_T001_CLUBES,tiLineNumber,MouseXPos(),MouseYPos())

IF nx > 0 THEN

//captura o id unico da tabela
GNID = TABLE_T001_CLUBES[nx].COL_T001_CLUBE_ID

IMG_T001_LOGO_CLUBE_GRANDE = TABLE_T001_CLUBES[nx].COL_T001_LOGO

END

//retorna o id
RESULT GNID



Botão Gravar Imagem no Banco de Dados
PROCEDURE Gravar()

ScreenToFile()

T001_CLUBES.T001_LOGO = dLoadImage(IMG_T001_LOGO,imgDefault)

IF GNID = 0 THEN
IF HAdd(T001_CLUBES) = True THEN
Toast("Gravou com sucesso!")
ELSE
Info(ErrorInfo())
END
ELSE
IF HModify(T001_CLUBES) = True THEN
Toast("Gravou com sucesso!")
ELSE
Info(ErrorInfo())
END
END

// Position on the current record
TableDisplay(TABLE_T001_CLUBES, taCurrentFirst)

MyInternalWindow..Plane = 1


--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 99949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/