INSERIR DATA EM IMAGEM AO SER GRAVADA
Boa noite,
Ao gravar uma imagem, preciso inserir na própria imagem a data em que ocorreu a gravação e não estou conseguindo.
Fico na espera pela ajuda de vocês. Obrigado.
sds, Gilson
Ao gravar uma imagem, preciso inserir na própria imagem a data em que ocorreu a gravação e não estou conseguindo.
Fico na espera pela ajuda de vocês. Obrigado.
sds, Gilson
Tenho duas ideia uma é pegar pela data do arquivo. outra é escrever na propria imagem.
Faça o seguinte teste
Dim t as long
Dim s as string
Open Caminho da imagem for binary as #1
t = lof(1)
s = space(t)
get #1,,s
close #1
s = s & date$
open Caminho da imagem for binary as #1
put #1,,s
close #1
e veja se você consegue visualizar a imagem
Faça o seguinte teste
Dim t as long
Dim s as string
Open Caminho da imagem for binary as #1
t = lof(1)
s = space(t)
get #1,,s
close #1
s = s & date$
open Caminho da imagem for binary as #1
put #1,,s
close #1
e veja se você consegue visualizar a imagem
Agora entendi a tua duvida, você quer salvar a data como nas maquinas digitais
Faça assim
Picture1.currentx = 100
Picture1.currenty = 100
Picture1.print Date & " " & Time
savepicture picture1.image,"C:\Imagem.bmp"
Faça assim
Picture1.currentx = 100
Picture1.currenty = 100
Picture1.print Date & " " & Time
savepicture picture1.image,"C:\Imagem.bmp"
Tópico encerrado , respostas não são mais permitidas