gUiTaR_mAn

Olá pessoal...
andei sumido... hehe...
bom, hoje vou falar de uma coisa que poucos devem saber, porém pode ser muito útil caso você deseja criar um mural de recados que aceite imagens, uma comunidade, blog, sei lá... pode ser util pra muita coisa...

bom é o seguinte...
você certamente sabe que o aspjpeg é um componente bem legal que permite que vc edite uma foto que está no seu servidor como quiser e salve, ou imprima na tela....

a parte mais legal que vc nao sabe, é que você, com uma ajudinha do XMLHTTP, consegue editar uma imagem que pode estar em qualquer servidor, e você poderá salvá-la ou simplesmente exibir na tela com as alterações que vc fizer com o aspjpeg...

você vai ver que é muito simples!!

vamos aos códigos...

criaImg.asp

<%
'Tratamento de imagens externas
'por Alexandro Cunhago
'em 29-04-2008
'email: alex@megaclassi.com.br
'msn: guitarman@pop.com.br

On Error Resume Next

'aqui vamos receber o endereço da imagem imagem original
imagem = request.QueryString("img")

'esta função serve para converter o códigos-binário em string, porém nao vamos utuliza-lo nessa aplicação...
Function BinaryToString(strBinary)
Dim intCount
BinaryToString =""
For intCount = 1 to LenB(strBinary)
BinaryToString = BinaryToString & chr(AscB(MidB(strBinary,intCount,1))) 
Next
End Function

'aqui comessa a grande sacada... é onde acessamos a url resgatada acima e pegamos seu código binário, com XMLHTTP
Set xml = Server.CreateObject("MSXML2.ServerXMLHTTP")
xml.Open "GET", ""& imagem &"", False
xml.setRequestHeader "User-Agent","Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)"
xml.setRequestHeader "referer", "http://www.seusite.com.br"
xml.Send
var = xml.responsebody
'response.BinaryWrite var
set xml = nothing

'código binário na mão... agora é so utilizar o método OpenBinary, do aspjpeg para carregar a imagem com este componente... agora vc pinta e borda a imagem como quiser
'neste exemplo eu vou apenas redimensionar imagens com largura maiores do que 400 pixels
Set Jpeg = Server.CreateObject("Persits.Jpeg")
Jpeg.OpenBinary var
L = 400
If Jpeg.OriginalWidth > Jpeg.OriginalHeight Then
If Jpeg.OriginalWidth > L Then
Jpeg.Width = L
Jpeg.Height = Jpeg.OriginalHeight * L / Jpeg.OriginalWidth
End if
Else
If Jpeg.OriginalHeight > L Then
Jpeg.Height = L
Jpeg.Width = Jpeg.OriginalWidth * L / Jpeg.OriginalHeight
End if
End If

'e agora com o SendBinary eu estou imprimindo a imagem na tela, sem precisar se quer salva-la no meu servidor, nao ocupando espaço em disco.
Jpeg.SendBinary
%>

agora que vc ja tem o arquivo criaImg.asp, pra exibir uma imagem no seu site basta inserir a linha abaixo:
index.asp

<img src="criaImg.asp?img=url_da_imagem">

aí está galéra... agora, conforme a necessidade e a criatividade de vcs mandar, vcs poderao fazer qualquer coisa com uma imagem, tanto interna como externa!

façam bom proveito deste código, e por gentileza mantenham os créditos
abraço!!

olá...
gostaria que avaliassem a nova versão do sistema de comunidade Tribe

implementei vários novos recursos (usuários VIP's, mural de recados, albuns de músicas, fotos e vídeos, links favoritos, agenda, blog, grupo de amigos, discografia (para artistas ou bandas), sistema de busca e perfil)

http://tribe.thasos.uni5.net/demo

login: alex@megaclassi.com.br
senha: demo

vlw

opa galéra...
olha soh... to utilizando o aspupload pra subir uma imagem e algumas informações que o usuário digita no form.

o problema é que quando ele digita uma palavra acentuada, o caractere acentuado não é gravado na base...

ex: o cara digita "Paquetá", vai entrar na base "Paquet"

alguém sabe como eu posso resolver esse problema?

vlw

olá..

estou fazendo um sistema em delphi e preciso fazer o upload de um arquivo no servidor web.
o servidor é a kinghost mas toda vez que tento me retorna uma mensagem dizendo " socket is not ready for writing", sendo que no servidor esta tudo configurado certinho para escrita..

estou usando o componente TChilkatFtp2 na minha procedure

meu code segue abaixo:

procedure TForm1.Button4Click(Sender: TObject);
var
ftp: TChilkatFtp2;
success: Integer;
localFilename: String;
remoteFilename: String;

begin
ftp := TChilkatFtp2.Create(Self);

//  Any string unlocks the component for the 1st 30-days.
success := ftp.UnlockComponent('Anything for 30-day trial');
if (success <> 1) then
  begin
	ShowMessage(ftp.LastErrorText);

  end;

ftp.Hostname := 'ftp.cinefotomary.com.br';
ftp.Username := '******';
ftp.Password := '*****';

//  The default data transfer mode is "Active" as opposed to "Passive".

//  Connect and login to the FTP server.
success := ftp.Connect();
if (success <> 1) then
  begin
	ShowMessage(ftp.LastErrorText);
	abort;
  end;

//  Change to the remote directory where the file will be uploaded.
success := ftp.ChangeRemoteDir('www');
if (success <> 1) then
  begin
	ShowMessage(ftp.LastErrorText);
	abort;
  end;

//  Upload a file.
localFilename := 'c:\teste.jpeg';
remoteFilename := 'teste.jpeg';

success := ftp.PutFile(localFilename,remoteFilename);
if (success <> 1) then
  begin
	ShowMessage(ftp.LastErrorText);
	abort;
  end;

ftp.Disconnect();

ShowMessage('File Uploaded!');
end;

alguém pode me dar um help?
obrigado..

ola pessoal...
seguinte... vejam meu codigo abaixo:

<%
musica1 = "musica1.mp3"
musica2 = "musica2.mp3"
musica3 = "musica3.mp3"
'...
%>
<% For i = 1 to 16 %>
<% If musica&i <> "" Then %>
<tr>
<td class="main"><% =musica&i %><% If url&i <> "" Then %>- som <% =i %><% End if %></td>
</tr>
<% End if %>
<% Next %>

na condição eu preciso juntar "musica" e a variavel "i" para formar uma única variavel chamada "musica1" ou "musica2", enfim...

desse jeito q to fazendo ta errado,
alguem pode me ajudar nessa?

valew