Italian community of Lazarus and Free Pascal

//connessione al server
procedure TForm1.ConnettiServerFTP;
var sMesg: string;
    bEsito: Boolean;
begin
   sMesg := 'Il Server FTP non risponde';

   //Test Client su Server
   bEsito := False;

   //questo per ALice.it , 
   //se usate invece un server su Host inserire l'indirizzo del server es: 62.211.68.45

   idTCPClient1.Host := 'ftp.webalice.it'; 
   idTCPClient1.Port := 21; //porta per comuicare con il server FTP
   //un test per verificare se il servizio Host risponde
   try
   idTCPClient1.Connect;

     try
       IdTCPClient1.IOHandler.WriteLn('Client message');
       Self.Caption := IdTCPClient1.IOHandler.ReadLn;
     finally
       IdTCPClient1.Disconnect;
       bEsito := True;
     end;

   except
     ShowMessage(sMesg);
   end;

  //se il server ha risposto possiamo procedere
  if bEsito  then
    begin
      //questo per ALice.it , 
      //oppure inserire l'indirizzo es: 62.211.68.45

      IdFTP1.Host := 'ftp.webalice.it'; 
      IdFTP1.Port := 21;

      try
        //utilizzate il vostro account per accedere al server FTP  
        IdFTP1.Username := 'xxxxxxxxxx';
        IdFTP1.Password := 'xxxxxxxxxx';

        //per utilizzare la modalita ftBinary dovete aggiungere 
        //nelle uses la unit IdFTPCommon 

        IdFTP1.TransferType := ftBinary;
        if IdFTP1.Connected then IdFTP1.Disconnect;
        IdFTP1.Connect;

        //questa e' una TStringList , dichiarabile cosi' FLastDirStack : TStringList;

        FLastDirStack := TStringList.Create;
        FLastDirStack.Clear;

	sRootDirFTP := IdFTP1.RetrieveCurrentDir; //memorizziamo la directory radice

        IdFTP1.List;
        IdFTP1.List(LbDirectory.Items, '', false);
        DisplayFTP;
      except
        ShowMessage(sMesg);
      end;
    end;
end;

//legge e visualizza Directory presenti nel server FTP
procedure TForm1.DisplayFTP;
var i, c : Integer;
    s : String;
begin
  lbDirectory.Items.Clear;
  IdFTP1.List(lbDirectory.Items, '', false);

  TvFolder.Items.Clear;

  for c := 0 to lbDirectory.Items.Count -1 do
    begin
      s := lbDirectory.Items[c];
      i := IdFTP1.Size(s);
      if i = -1 then TvFolder.Items.Add(nil, s); // Directory
    end;
end;

procedure Tfrm_AccessoRemoto.act_DownloadExecute(Sender: TObject);
var i : Integer;
    ext, s : String;
    b : boolean;
begin
  i := lbDirectory.ItemIndex;
  if i <> -1 then
    begin
      s := lbDirectory.Items[i];
      i := IdFTP1.Size(s);
      iDimFile := i;
      if i = -1 then CambioFTPDir(s) // Directory
      else
        begin
          // File
          ext := ExtractFileExt(s);
          SaveFile.Filter := ext + ' files|*' + ext + '|All Files|*.*';
          SaveFile.FileName := s;
          if SaveFile.Execute then
            begin
              b := true;
              if FileExists(SaveFile.FileName) then
                if MessageDlg('File già presente : sovrascrivere ?', mtWarning, [mbYes,mbNo], 0) = mrYes then
                  DeleteFile(SaveFile.FileName);

              {if ASCIIText1.Checked then
                FTP.TransferType := ftASCII
              else}
                IdFTP1.TransferType := ftBinary;

              if b then
                IdFTP1.Get(s, SaveFile.FileName, True, IdFTP1.ResumeSupported);
            end;
        end;
    end
  else
    MessageDlg('Il file da scaricare non è stato selzionato', mtWarning, [mbOK], 0);
end;

//evento doppio click sul TTreeView (TVFolder)
procedure Tfrm_AccessoRemoto.TvFolderDblClick(Sender: TObject);
var i : Integer;
    s : String;
begin
  inherited;

  if Assigned(TvFolder.Selected) then
      lbDirectory.ItemIndex := lbDirectory.Items.IndexOf(TvFolder.Selected.Text);
  else
    lbDirectory.ItemIndex := -1;

  i := lbDirectory.ItemIndex;
  if i <> -1 then
    begin
      s := lbDirectory.Items[i];
      i := IdFTP1.Size(s);
      if i = -1 then CambioFTPDir(s); // Directory
    end;
end;

//cambia Direcory e visualizza contenuti
procedure Tfrm_AccessoRemoto.CambioFTPDir(NewDir: String);
begin
  FLastDirStack.Add(IdFTP1.RetrieveCurrentDir);
  IdFTP1.ChangeDir(NewDir); //cambio directory
  DisplayFTP;               //visualizza 
end;

procedure Tfrm_AccessoRemoto.RootDir;
begin
  IdFTP1.ChangeDir(sRootDirFTP);
  DisplayFTP;
end;

// numero Colonne
  i := 0;
  iNumImg := 0;
  while i <= Self.ClientWidth do
   begin
     iNumImg := iNumImg + 1;
     i := i + Image1.Width;
   end;
  iNumColonne := iNumImg;

// numero righe
  iNumImg := 0;
  while i <= Self.ClientHeight do
   begin
     iNumImg := iNumImg + 1;
     i := i + Image1.Height;
   end;
  iNumRighe := iNumImg;

//in totale serviranno n Immagini
  iNumImg := iNumRighe * iNumColonne; 

  //Crea TImage
  for i := 0 to iNumImg do
    begin
      BmpX[i] := TImage.Create(nil);
      BmpX[i].Width := Image1.Width;
      BmpX[i].Height := Image1.Height;

     //si assegna alla TImage(n) il contenuto della Image1 inserita sul Form
      BmpX[i].Picture.Bitmap := Image1.Picture.BitMap;
    end;

  //Crea TImage per Panel
  for i := 0 to iNumColonne do
  begin
    BmpT[i] := TImage.Create(nil);
    BmpT[i].Width := Image1.Width;
    BmpT[i].Height := Image1.Height;

     //si assegna alla TImage(n) il contenuto della Image1 inserita sul Form
    BmpT[i].Picture.Bitmap := Image1.Picture.BitMap;
  end;

  //Disegna TImage
  for i := 0 to iNumImg do
    begin
      //crea img orizzontali
      BmpX[i].Left := iPosizioneX;
      BmpX[i].Top := iPosizioneY;
      BmpX[i].Parent := Self;
      BmpX[i].Show;

      //nuova posizione orizzontale
      iPosizioneX := BmpX[i].Left + BmpX[i].Width;

      //se Posizione sinistra > Larghezza Client
      //disegna img verticali
      if (BmpX[i].Left + Image1.Width) > Self.ClientWidth then
        begin
          iPosizioneY := BmpX[i].Top + BmpX[i].Height;
          iPosizioneX := Image1.Left;
        end;
    end;

  //Elimina tutte le TImage create
  for i := 0 to iNumImg do BmpX[i].Free;

  //Disegna TImage
  iPosizioneX := 0;
  for i := 0 to iNumColonne do
  begin
    //crea img orizzontali
    if i > 0 then
      iPosizioneX := BmpX[i].Left + BmpX[i].Width;
    BmpT[i].Left := iPosizioneX;  //nuova posizione
    BmpT[i].Top := 0;
    BmpT[i].Parent := Panel1;
    BmpT[i].Show;

    //nuova posizione
    iPosizioneX := BmpT[i].Left + BmpX[i].Width;

  SpeedButton1.BringToFront;
  SpeedButton2.BringToFront;
  SpeedButton3.BringToFront;

procedure TForm1.FormResize(Sender: TObject);
begin
  EliminaArrayBmp;  //Elimina Array BitMap
  DisegnaBmp;       //crea e Disegna BitMap
end;

procedure TForm1.DisegnaBmp;
var
  i, iPosizioneX, iPosizioneY, iNumColonne, iNumRighe: integer;
begin
  iNumColonne := 0;
  iNumRighe := 0;

  iPosizioneX := 0;
  iPosizioneY := Panel1.Top + Panel1.Height;
  iPosizioneY := 0;

  //Verifica Numero Immagini Vertcali su Form
  //volendo risparmiare un po' di Bmp (se la Bmp e' piccola) si puo' cambiare la posizione Verticale di partenza
  i := 0; //iPosizioneY

  iNumImg := 0;
  while i <= Self.ClientHeight do
  begin
    iNumImg := iNumImg + 1;
    i := i + Image1.Height;
  end;
  iNumRighe := iNumImg;

  //Verifica Numero Immagini Orizzontali su Form
  i := 0;
  iNumImg := 0;
  while i <= Self.ClientWidth do
  begin
    iNumImg := iNumImg + 1;
    i := i + Image1.Width;
  end;
  iNumColonne := iNumImg;

  iNumImg := iNumRighe * iNumColonne;

  Self.Caption := '- Bitmap necessarie : ' + IntToStr(iNumImg);
  Self.Refresh;

  //Crea TImage
  for i := 0 to iNumImg do
  begin
    BmpX[i] := TImage.Create(nil);
    BmpX[i].Width := Image1.Width;
    BmpX[i].Height := Image1.Height;
    BmpX[i].Picture.Bitmap := Image1.Picture.BitMap;
  end;

  //Crea TImage per Panel
  for i := 0 to iNumColonne do
  begin
    BmpT[i] := TImage.Create(nil);
    BmpT[i].Width := Image1.Width;
    BmpT[i].Height := Image1.Height;
    BmpT[i].Picture.Bitmap := Image1.Picture.BitMap;
  end;

  iPosizioneX := Image1.Left;

  //Disegna TImage
  for i := 0 to iNumImg do
  begin
    //crea img orizzontali
    BmpX[i].Left := iPosizioneX;
    BmpX[i].Top := iPosizioneY;
    BmpX[i].Parent := Self;
    BmpX[i].Show;

    //nuova posizione
    iPosizioneX := BmpX[i].Left + BmpX[i].Width;

    //se Posizione sinistra > Larghezza Client
    //disegna img verticali
    if (BmpX[i].Left + Image1.Width) > Self.ClientWidth then
    begin
      iPosizioneY := BmpX[i].Top + BmpX[i].Height;
      iPosizioneX := Image1.Left;
    end;
  end;

  //Disegna TImage
  iPosizioneX := 0;
  for i := 0 to iNumColonne do
  begin
    //crea img orizzontali
    if i > 0 then
      iPosizioneX := BmpX[i].Left + BmpX[i].Width;
    BmpT[i].Left := iPosizioneX;  //nuova posizione
    BmpT[i].Top := 0;
    BmpT[i].Parent := Panel1;
    BmpT[i].Show;

    //nuova posizione
    iPosizioneX := BmpT[i].Left + BmpX[i].Width;
  end;

  SpeedButton1.BringToFront;
  SpeedButton2.BringToFront;
  SpeedButton3.BringToFront;
end;

procedure TForm1.EliminaArrayBmp;
var
  i: integer;
begin
  //Elimiuna tutte le TImage create
  for i := 0 to iNumImg do
    BmpX[i].Free;
end;

procedure TForm1.CheckPulsante(Sender: TObject);
var tPulsante: TSpeedButton;
    X, Y : integer;
begin
  //in base al pulsante setta il PopUpmenu relativo
  if Sender = SpeedButton1 then
    begin
     mnuAttivo := PopUpMenu1;
     tPulsante := SpeedButton1;  //assegna TSpeedButton a tPulsante
    end
  else if Sender = SpeedButton2 then
    begin
     mnuAttivo := PopUpMenu2;
     tPulsante := SpeedButton2;
    end
  else if Sender = SpeedButton3 then
    begin
     mnuAttivo := PopUpMenu3;
     tPulsante := SpeedButton3;
    end;

  if mnuPrecedente = mnuAttivo then
    begin
      mnuPrecedente := nil;
      mnuAttivo.Close;  //chiude il menu presente
    end
  else
    begin
      //fissa posizione pulsante
      X := tPulsante.ClientOrigin.X;

      //per posizionare sotto il pulsante si agginge l'altezza dello stesso
      Y := tPulsante.ClientOrigin.Y + SpeedButton3.Height;
      CheckMenuAttivo(mnuAttivo, X, Y);
      mnuPrecedente := mnuAttivo;
    end;
end;

procedure TForm1.CheckMenuAttivo(var MenuAttivo: TPopUpMenu; var X, Y: integer);
begin
  if mnuPrecedente  mnuAttivo then
    MenuAttivo.Popup(X, Y)  // visualizza PopUpMenu
  else
    mnuPrecedente := mnuAttivo; 
end;