Adicionar função de marca d'água às fotos e criar miniaturas para fotos 1. Adicionar função de marca d'água às fotos
Escurecer JPEG
Set Jpeg = Server.CreateObject(Persits.Jpeg) 'Criar objeto
Jpeg.Open BlogPath & /upload/ & FileName ' A localização da imagem
Jpeg.Canvas.Font.Color = &H000000 'Cor, aqui está definido como: preto
Jpeg.Canvas.Font.Family = Fundador torna-se simplificado' Definir fonte
Jpeg.Canvas.Font.Bold = False 'Se deve ser definido como negrito
Jpeg.Canvas.Font.Size = 26 'Tamanho da fonte
Jpeg.Canvas.Font.Quality = 4 ' Clareza do texto
Jpeg.Canvas.Print Jpeg.OriginalWidth/2-170,Jpeg.OriginalHeight-30, WWW.WILLIAMLONG.INFO 'Texto de marca d'água
Jpeg.Save BlogPath & /upload/ & FileName ' Salvar arquivo
Definir JPEG = Nada
2. Crie miniaturas para imagens
Escurecer JPEG
Set Jpeg = Server.CreateObject(Persits.Jpeg) 'Criar objeto
Jpeg.Open BlogPath & /upload/ & FileName ' A localização da imagem
Jpeg.Largura = Jpeg.OriginalLargura / 2
Jpeg.Altura = Jpeg.OriginalAltura / 2
'Defina o tamanho da miniatura (aqui a proporção é definida como 50%), você também pode fornecer um valor preciso, como Jpeg.Width=120
Jpeg.Save BlogPath & /upload/ & FileName ' Salvar arquivo
Definir JPEG = Nada