UpLoad de arquivos Delphi 2005

Delphi

07/07/2005

Boa Tarde pessoal,

Preciso de ajuda para desenvolver um modulo onde tenho q fazer um upload de arquivos...!!!

Estou usando Delphi 2005, asp.NET

Agradecido..
Att,
Edinei


Edineidaniel

Edineidaniel

Curtidas 0

Respostas

Cristiam

Cristiam

07/07/2005

Pesquisa sobre System.Io que vc vai encontrar o q deseja.... ;) é Fácil....


GOSTEI 0
Edineidaniel

Edineidaniel

07/07/2005

Mas como vc implementa o código...

Tentei de uma forma... mas ele corrompe os arquivos...!!!!

E ai o q vc me diz..?

t+
Edinei


GOSTEI 0
Sanses

Sanses

07/07/2005

Olá

Faça assim:

Coloque um HtmlFileUpLoad, de um clique de direita nele e selecione run as a server. Depois adicione um botão e um label. No evento clique do botão digite o codigo:

var
  Arquivo : string;
begin
  if (file1.PostedFile.FileName = ´´) then
    label1.text := ´Selecione um arquivo !´
  else
  begin
   try
    Arquivo := ´.\´+ Path.getFileName(file1.PostedFile.FileName);
    file1.PostedFile.SaveAs(MapPath(´.´)+ Arquivo);
    label1.Text := ´Arquivo transferido com sucesso !´;
   except
    Label1.text := ´Arquivo não enviado corretamente !´;
   end; 
  end;
end;


[]´s
Sanses


GOSTEI 0
POSTAR