Definições
de Componentes
Um
componente é uma unidade de empacotamento (packaging), entrega
(delivery), implantação (deployment), e carga
(loading)
A definição "oficial" dada numa
conferência sobre Componentes em 1996:
"Um componente é
uma unidade de composição com interfaces especificadas
contratualmente e com dependências de contexto explícitas
apenas Um componente de software pode ser implantado [deployed]
de forma independente e está sujeito à composição
por terceiros"
Componente :
"Um pacote coerente de artefatos de
software que pode ser desenvolvido independentemente e entregue como
unidade e que pode ser composto, sem mudança, com outros
componentes para construir algo maior."
Componentes usados
por nossos Clientes:
Windows:
Aspemail
(Componente para envio de emails)
- Freeware - todos os
servidores Windows tem ele instalado.
Aspsmart upload
(componente para upload de arquivos)
- Freeware - todos os
servidores Windows tem ele instalado.
Aspsmart Image
(componente para edição de imagens)
Versão
registrada – Apenas os servidores abaixo tem ele instalado:
Programação
básica Aspemail:
Para usar o AspEmail é
necessário carregar o objeto conforme mostrado abaixo:
<%
...
Set Mail =
Server.CreateObject("Persits.MailSender")
...
%>
Para enviar
mensagens o AspEmail precisa de um servidor SMTP:
Mail.Host =
"mail-nt.braslink.com"
Mail.Port = 25 '
Opcional. Porta 25 é a porta padrão
Você também
pode usar uma lista de servidores smtp separada por ponto e vírgula,
caso um servidor esteja fora do ar ele vai tentar enviar no próximo
servidor:
Mail.Host =
"mail-nt.braslink.com;mail-nt.braslink.net"
É necessário
especificar o e-mail do remetente: (Este deve ser configurado como um
email existente do site)
Mail.From =
"REMETENTE@SEUDOMINIO.COM"
Mail.FromName = "Nome do remetente" ' Opcional
Para adicionar os
destinatários, CCs, BCCs, e Reply-To, use:
AddAddress,
AddCC, AddBcc and AddReplyTo metódos respectivamente.
Estes
metódos aceitam dois parâmetros: o endereço de
e-mail e opcionalmente o nome.
Por exemplo:
Mail.AddAddress
"destinatario@seudominio.com", "Nome do destinatário"
Mail.AddCC "destinatariocc@seudominio.com" ' O Nome
é Opcional
Use Subject e
Body para especificar o assunto e o texto da mensagem
respectivamente. O texto da mensagem pode ser enviado em formato
HTML. Por exemplo:
Mail.Subject =
"Assunto do e-mail"
Mail.Body = "Prezado
senhor: " & chr(13) & chr(10) &_
"Isso é
uma mensagem de teste."
Ou em formato HTML:
Mail.Subject =
"Assunto do e-mail"
Mail.Body = "<HTML><BODY
BGCOLOR=#0000FF>Prezado senhor:....</BODY></HTML>"
Mail.IsHTML = True
Para enviar arquivos
em anexo use o metódo AddAttachment conforme exemplo abaixo:
Mail.AddAttachment
server.mappath("./arquivo.doc")
Para enviar a
mensagem use o metódo Send. Use o exemplo abaixo para
verificar erros::
On Error Resume
Next
Mail.Send
If Err <> 0 Then
Response.Write "Foi encontrado um erro: "
&_
Err.Description
End If
Importante:
No
final da programação após o código acima
use sempre:
Set
mail=nothing
Isto
faz com que o objeto seja descarregado de seu site evitando lentidão
do mesmo.
Exemplo
completo:
<%
Set
Mail = Server.CreateObject("Persits.MailSender")
Mail.Host =
"mail-nt.braslink.com"
Mail.From =
"remetente@seudominio.com"
Mail.FromName = "Nome do
remetente" 'Opcional
destinatario="destinatario@seudominio.com"
Mail.AddAddress
destinatario
'Descomente a linha
abaixo para enviar e-mail em formato HTML
'Mail.IsHTML = True
Mail.Subject =
"Assunto da mensagem"
Mail.Body = "Corpo
da mensagem"
erro = ""
sucesso
= False
On Error Resume Next 'Verifica erros
Mail.Send 'Envia
mensagem
If Err <> 0 Then
erro =
Err.Description
else
sucesso = True
End If
Set Mail =
nothing
%>
<% If erro <>
"" Then%>
Ocorreu um erro: <% = erro %>
<%
End If %>
<% If bSuccess
Then%>
Mensagem enviada para <% = destinatario %> com
sucesso.
<% End If %>
Programação
básica Aspsmart upload
Na estrutura básica
de programação do aspsmart Upload (arquivo zip
normalmente enviado para os clientes) temos dois arquivos e uma
pasta:
O arquivo envia.htm
é o formulário o arquivo grava.asp é o endereço
de post e onde esta programada a inserção do arquivo o
diretório aspSmartUpoad contem os dados do componente (dlls,
etc.).
O script esta configurado para funcionar na seguinte
estrutura:
<%
Dim
Upload
Set
Upload = Server.CreateObject("aspSmartUpload.SmartUpload")
Upload.Upload
Upload.Save("upload")
If
Err <> 0 Then
Response.Write
Err.Description & " " & Err.Number & "<br>"
Response.Write
"<font face=Verdana, Arial, Helvetica, sans-serif
size=2><b>Houve erro(s) ao carregar o(s) arquivo(s)
anexado(s)!<br><a
href=javascript:history.back(-1)>Voltar</a> </b></font>"
Else
Response.Write
"<font face=Verdana, Arial, Helvetica, sans-serif
size=2><b>Seus dados foram carregados com
sucesso!</b></font>"
End
If
%>
O
item upload.save informa o diretório de upload, note que não
estamos usando / ou tanto no começo ou final, já que
ele utiliza caminhos virtuais para acessar (desnecessária a
configuração de d:www.....) entao a partir do
arquivo, podemos usar: ../*** (volta um diretório) ***
significa o nome do outro diretório, com esta programação
o arquivo é criado no servidor da mesma forma que é
enviado (sem limite de espaço no script e sem configuração
de nome ou tipo de arquivos).
O
que ocorre muitas vezes em caso de erro de upload é a falta de
criação do diretório upload ou alterações
no nome do arquivo, (o cliente pode alterar os nomes para nome1.***
nome2.*** nome3.*** e assim por diante) e isso pode gerar falhas para
o upload dos arquivos.
Programação
básica Aspsmart Image: (Informações retiradas do
site www.aspsmart.com)
Este
componente serve para editar imagens que estejam hospedadas no
servidor (aplicar filtros, redirecionar, etc) ele também pode
funcionar junto com o Aspsmart upload.
Exemplo
de programação:
|
Informação
de Imagem
|
|
Aqui
estão alguns exemplos usando aspSmartImage.
Response.Write
"Width=" & oImg.OriginalWidth
Response.Write
"Height=" & oImg.OriginalHeight
Response.Write
"Size=" & oImg.OriginalSize
Informações
retornadas com esse exemplo:
Width = 108
Height= 148
Size
= 3 915
|
|
|
Load
e Save
|
|
Carrega BMP, GIF
ou JPEG ou binário e salva em formato jPEG ou binário.
Muda a qualidade de compressão antes de salvar.
Este
exemplo salva o arquivo em qualidade baixa mas em tamanho muito
pequeno. O novo tamanho é 1 404 bytes ao inves de 3 915
bytes.
oImg.Qulaity=10
oImg.SaveFile
|
|
|
|
Resample
|
|
Este exemplo
diminui o tamanho da image mantendo as proporções.
Neste caso a imagem salva estará com a metade do
tamanho.
oImg.Resample oImg.OriginalWidth / 2,0
Novas
propriedades da Imagem:
Width = 54
Height= 74
Size = 1
824
|
|
|
|
Cortar
|
|
Este exemplo
corta a imagem mantendo um pedaço definido da
imagem.
oImg.Crop 10,70,160,210
O numeros correspondem aos eixos x e y (posição
inicial e final
|
|
|
|
Sharpen
|
|
Este exemplo irá
ressaltar 3 vezes.
For i=1 to 3
oImg.Sharpen
Next
|
|
|
|
Blur
|
|
Este exemplo
mancha a imagem original.
oImg.Blur
|
|
|
|
GreyScale
|
|
Este exemplo
remove as cores e mostra a imagem em escala de
cinza.
oImg.GreyScale
|
|
|
|
Negative
|
|
Este exemplo
mostra o negativo da imagem.
oImg.Negative
|
|
|
|
Gamma
correction
|
|
Variando a
quantidade de correção para gamma, a correção
não será feito somente no tipo de cor, mas também
o brilho
Os dois primeiros
exemplos mudam o brilho e o terceiro muda o nivel de cor
verde.
oImg.Gamma 4,4,4
oImg.Gamma
1/4,1/4,1/4
oImg.Gamma 1/4,1,1/4
|
  
|
|
Flip
|
|
Este exemplo
inverte a imagem atual.
oImg.Flip
|
|
|
|
Mirror
|
|
Este exemplo faz
uma imagem espelhada da original..
oImg.Mirror
|
|
|
|
Add
text
|
|
Adiciona texto na
imagem e coloca onde você quiser
oImg.FontFace =
"Arial"
oImg.FontColor="FFFFFF"
oImg.FontBold=True
oImg.AddText
"®aspSmart","CENTER","BOTTOM"
or
oImg.FontFace =
"Courier"
oImg.FontColor="FFFFFF"
oImg.FontBold=True
oImg.AddText
"®aspSmart",15,30
|
|
|
|
Add
Image
|
|
Cola uma nova
imagem e define se você quer colar a imagem com background
(fundo) transparente
Opaque - Prepositioned:
oImg.AddImage "/logo.gif", "CENTER","BOTTOM"
or
Transparent - manul position:
oImg.AddImage "/logo.gif",
10,30,"FFFFFF"
|
|
|
|
Download
|
|
Para fazer o
download de imagem jpeg, o asp does não pode conter nenhuma
tag HTML.
Ele pode ser chamado no SRC da imagem do
html
...
<IMG SRC='display.asp'>
...
display.asp
codigo fonte :
<%
Dim
oImg
Set oImg =
Server.CreateObject("aspSmartImage.SmartImage")
oImg.OpenFile("/images/myImage.jpg")
oImg.Download
Set
oImg = Nothing
%>
|
Linux
No
caso de linux, deixa de ser componentes e sim modulos (bibliotecas)
esses modulos podem ser instalados dependendo do servidor e de nossa
administração
Voltar