sábado, 19 de janeiro de 2013

Criando um servidor FTP e manipulando pelo Delphi


Eae galera, este tutorial é pra quem quer criar um servidor FTP para hospedar sites e arquivos em link direto. Venho apresentar-lhes o webhots.com... este é um site que cria contas FTP de hospedagem gratuita com 1,5 Gb de memória para compartilhar paginas e arquivos.

Entre no site http://www.000webhost.com/
Para se cadastrar: http://www.000webhost.com/order.php

1- Ao se cadastrar e confirmar o endereço de email na sua inbox (caixa de entrada do email). Navegue para:

2- Faça o login com seus dados e vá em "Go to CPanel", para manusear as configurações do seu servidor.

3- Desça lá em baixo na aba "»  Files" e clique em:
View FTP Details

4- Ao entrar nas configurações do FTP clique em "Change account password", para mudar a senha do seu servidor FTP. Coloque uma senha que quiser, a sua escolha.







5- Ao mudar a senha veja os detalhes do seu dominio de servidor na lista:
FTP details for seuftp.net84.net
FTP host name seuftp.net84.net
FTP user name a67604151
FTP password ******
Folder to upload files public_html
Forgot FTP password? Change account password
Recommended FTP clients SmartFTP or FileZilla
 * Para entrar nos seus arquivos clique em File Manager, nas letras escritas acima (em ingles) acima deste quadro de detalhes mostrado aqui.

Para usarmos o seu FTP em Delphi, faremos o seguinte:
FTP host name, fica: ftp.seuftp.net84.net (adicionando somente FTP. na frente do link FTP)
FTP user name, fica o mesmo
FTP password, fica sua senha escolhida.

__________________________________________________________

Agora é no Delphi que vamos fuçar.

  1. Abra o Delphi e crie um novo projeto (File>New>Application)
  2. Navega até a aba Indy Clients e adicione o componente IdFTP1
  3. Adicione 5 Edits e 2 buttons.
  4. Adicione um  OpenDialog1 na aba DIALOGS
Os 3 primeiros Edits são para a conexão com o servidor FTP. Alinhe os 3 separados.

Edit1 - Vai ser onde vamos por o endereço do servidor FTP por exemplo ftp.meuftp.net84.net
Edit2 - Vai ser onde vamos colocar o nome do login do nosso servidor por exemplo: a67604151
Edit3 - Vai ser onde vamos colocar a senha do nosso login.

Dê dois cliques no button1 (o botão de conectar ao servidor) e adicione o código:

IdFTP1.Disconnect();

IdFTP1.Host := Edit1.Text;   // Host é o servidor. Ex: ftp.meuftp.net84.net
IdFTP1.Port := 21;     // A porta deve ser sempre a 21
IdFTP1.Username := Edit2.Text;
IdFTP1.Password := Edit3.Text;
IdFTP1.Passive := false; { usa modo ativo }
IdFTP1.RecvBufferSize := 8192;
try
{ Espera até 10 segundos pela conexão }
IdFTP1.Connect(true, 10000);
showmessage('Conectado!');
except
showmessage('Erro ao se conectar!');
end;

Agora alinhe os Edit4 e Edit5 e no button2 coloque a caption para "Enviar arquivos".
Dê dois cliques sobre o button2 (o botão de enviar arquivos) e adicione os seguintes codigos:

if OpenDialog1.Execute then
Edit5.Text := OpenDialog1.FileName;
Edit4.Text := ExtractFileName(OpenDialog1.FileName);

IdFTP1.Put (Edit4.Text, 'public_html/'+Edit5.Text, false);

{ no caso o edit4 é o nome do arquivo que vamos enviar para o servidor e o texto public_html é o caminho da pasta onde o arquivo ficará o edit5 é o caminho onde está no nosso computador, para que o servidor o  envie }

Olhem no exemplo, como que ficou o que eu criei. Eu codifiquei um modo pra enviar arquivos e pra baixar arquivos, apesar que pra baixar é besteira, acho mais rapido baixar em HTML-TCP/IP do que via protocolo FTP. (File Transfer Protocol - Protocolo de transferencia de arquivos)



Para baixar o código fonte do meu exmplo navegue aqui:

___________________________________________________________________
Obs: Este exmplo mostrado aqui foi basicamente o mesmo usado no antigo software Kpload Area, do Kaao. O Kpload Area é apenas um pouco elaborado, com listview, e progressbar de transferencia.
Veja o Kpload Area, e tire um exmplo para criar o seu:
http://thow4ever.blogspot.com.br/2010/12/kploadarea-faca-upload-de-arquivos-em.html

tags: crie seu servidor fpt gratis, como hospedar em link direto, como criar seu servidor em delphi, hospedar arquivos em link direto, crie um servidor ftp gratis, facil ftp, como criar um servidor, servidor em delphi, compartilhar arquivos em link direto ftp.

2 comentários:

  1. Thow4EveR blz espero que sim,queria pedir uma video aula,que vc mesmo falou pedi sua video aulas kkk,sobre Trojan criar servidor mais avançado persistencia,restores,vc vai falar assisti minhas video aula kkk,sou do forum guia do hacker,se vc me ajudar vc estara ajudando a milhares de pessoas,agora se vc falar que nao tem tempo kkkk,blz abraço fique com DEUS "agalera do trojan agradeçe kkkkk"

    ResponderExcluir
    Respostas
    1. Sim amigo, voce ja assistiu todas essas videos aulas deste post? Se a resposta for sim.. veja esse link onde falo sobre persistencia:

      http://thow4ever.blogspot.com.br/2012/11/projeto-persistencia-para-trojans-com.html

      Qualquer outra duvida em particular sobre delphi me envie um email para thow4ever@gmail.com.
      Abrass

      Excluir

Você pode utilizar:
<b>NEGRITO</b> | <em>ITÁLICO</em> | <a href="LINK">TEXTO DO LINK</a>