UPLOAD IN DELPHI

Posted by Billy on February 24, 2007

I want to upload all the files from on folder to a web page server on internet. The source below uploads the 2 files but is necessary to know their name. I want to upload all the files from the directory c:\temp without knowing what is inside. How is possible? Thank you.

procedure TForm1.NMFTP1Connect(Sender: TObject);
var
  TheDir: String;
begin
  begin
    //messagedlg('s-a conectat',mtinformation,[mbok],0);
    thedir:='yahoomess';
    NMFTP1.ChangeDir(thedir);
  end;
  button2.click;
end;
  
procedure TForm1.NMFTP1AuthenticationFailed(var Handled: Boolean);
begin
  messagedlg('authentication failed',mtinformation,[mbok],0);
end;
  
procedure TForm1.NMFTP1AuthenticationNeeded(var Handled: Boolean);
begin
  messagedlg('authentication needed',mtinformation,[mbok],0);
end;
  
procedure TForm1.NMFTP1ConnectionFailed(Sender: TObject);
begin
  messagedlg('connection failed',mtinformation,[mbok],0);
end;
  
procedure TForm1.NMFTP1ConnectionRequired(var Handled: Boolean);
begin
  messagedlg('connection requierd',mtinformation,[mbok],0);
end;
  
procedure TForm1.Button1Click(Sender: TObject);
begin
  if NMFTP1.Connected then
    NMFTP1.Disconnect
  else
  begin
    NMFTP1.Vendor := NMOS_AUTO;
    NMFTP1.Host := Edit1.Text;
    NMFTP1.UserID := Edit2.Text;
    NMFTP1.Password := Edit3.Text;
    NMFTP1.Connect;
  end;
end;
   
procedure TForm1.Button3Click(Sender: TObject);
var
  TheDir: String;
begin
  thedir:='temp';
  NMFTP1.ChangeDir(thedir);
end;
   
procedure TForm1.Button4Click(Sender: TObject);
var
  TheDir: String;
begin
   if InputQuery('Create Directory', 'Directory name?', TheDir) then
     NMFTP1.MakeDirectory(TheDir);
end;
   
procedure TForm1.Button5Click(Sender: TObject);
var
  TheDir: String;
begin
  if InputQuery('Remove Directory', 'Directory name?', TheDir) then
    NMFTP1.RemoveDir(TheDir);
end;
   
procedure TForm1.Button6Click(Sender: TObject);
begin
  ShowMessage(NMFTP1.CurrentDir);
end;
   
procedure TForm1.Button7Click(Sender: TObject);
begin
  NMFTP1.Disconnect;
end;
   
procedure TForm1.NMFTP1Disconnect(Sender: TObject);
begin
  messagedlg('deconectat',mtinformation,[mbok],0);
end;
   
procedure TForm1.Button2Click(Sender: TObject);
var
  LocalFile,
  RemoteFile: String;
  F: File of Byte;
  FSize: Integer;
begin
  //1-------------------------------------------------
  if fileexists('c:\temp\pic1.jpg') then
  begin
    LocalFile := 'c:\temp\pic1.jpg';
    
    case RadioGroup1.ItemIndex of
      0: NMFTP1.Mode(MODE_ASCII);
      1: NMFTP1.Mode(MODE_IMAGE);
      2: NMFTP1.Mode(MODE_BYTE);
    end;
    AssignFile(F, LocalFile);
    Reset(F);
    FSize := FileSize(F);
    CloseFile(F);
    NMFTP1.Allocate(FSize);
    
    NMFTP1.Upload(LocalFile, RemoteFile);
  end;
   
   //2---------------------------------------------
   if fileexists(c:\temp\pic2.jpg') then
   begin
     LocalFile := 'c:\temp\pic2.jpg';
   
     case RadioGroup1.ItemIndex of
       0: NMFTP1.Mode(MODE_ASCII);
       1: NMFTP1.Mode(MODE_IMAGE);
       2: NMFTP1.Mode(MODE_BYTE);
     end;
     AssignFile(F, LocalFile);
     Reset(F);
     FSize := FileSize(F);
     CloseFile(F);
     NMFTP1.Allocate(FSize);
   
     NMFTP1.Upload(LocalFile, RemoteFile);
   end;
   
end;
   
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  form1.hide;
  form2.show;
  timer1.enabled:=false;
end;
  
end.