pilotare LibreOffice

[bonmario]

Ciao,
sto guardando il mio vecchio progetto. Non ne ricordo il motivo (è passato qualche anno), ma per la compressione usavo un antro componente: http://tpabbrevia.sourceforge.net/


Questa è la procedura che avevo fatto per zippare:

Codice: [Seleziona]

{Serve per zippare
PathFilesDaZippare contiene la directory relativa, in modo che, se passata, il file
finale non conterrà tutta l'alberatura per arrivare alla directory salvata,
ma solo la directory stessa
}
  procedure Zippa(var NomeFileZip:String; FilesDaZippare:String; PathFilesDaZippare:String = ''; VFEstensioneAutomatica:Boolean = True);
  begin
    //Se è il caso, aggiungo l'estensione al nome del file
    if VFEstensioneAutomatica then begin
      if (UpperCase(ExtractFileExt(NomeFileZip)) <> UpperCase(ExtZip)) then begin
        NomeFileZip:=NomeFileZip + ExtZip;
      end;
    end;

    //Cancello il file se già esiste
    if (FileExistsUTF8(NomeFileZip)) then begin
      DeleteFileUTF8(NomeFileZip);
    end;

      AbZipper1:=TAbZipKit.Create(nil);
      try
        try
          with AbZipper1 do begin
            ArchiveType:=atZip;
            ForceType:=True;
            StoreOptions:=[soRecurse];
            CompressionMethodToUse:=smBestMethod;
            FileName:=NomeFileZip;
            if (PathFilesDaZippare <> '') then begin
              BaseDirectory:=PathFilesDaZippare;
            end;
            Addfiles(FilesDaZippare,0);
            CloseArchive;
          end;
        except
          on E: Exception do ShowMessage('Zip non riuscito: ' +
                                         LineEnding +
                                         E.Message +
                                         LineEnding +
                                         NomeFileZip +
                                         LineEnding +
                                         FilesDaZippare);
        end;
      finally
        FreeAndNil(AbZipper1);
      end;
  end;

Questa era la sua chiamata:

Codice: [Seleziona]

Zippa(NomeFileDest, GetAllFilesMask, DirDest, False);

Ciao, Mario

[Maverich]

Ho scaricato il pacchetto "Abbrivia" e installato regolarmente su Delphi;
ma per Lazarus non c'e' il package (.lpk)

[Maverich]

Ho scaricato il pacchetto "Abbrivia" e installato regolarmente su Delphi;
ma per Lazarus non c'e' il package (.lpk)

ho risolto inserendo nelle uses
  AbZipper, AbZipTyp, AbUtils;

ma devo disabilitare nella unit AbCharSet

{ Unicode backwards compatibility types }
(*{$IF NOT DECLARED(RawByteString)}
type
  RawByteString = AnsiString;
{$IFEND}

{$IF NOT DECLARED(UnicodeString)}
type
  UnicodeString = WideString;
{$IFEND}
*)

[Legolas]

Qui, in particolare:
http://wiki.freepascal.org/FreePascalArchivePackage

oppure qui, più in generale:
http://wiki.freepascal.org/Components_and_Code_examples#Archiving

[Maverich]

Qui, in particolare:
http://wiki.freepascal.org/FreePascalArchivePackage

oppure qui, più in generale:
http://wiki.freepascal.org/Components_and_Code_examples#Archiving

ho scaricato la rel. 3.05 , e le operazioni di Compresisone/Decompressione vanno;
non posso pero' usare la unit AbZView , genera errori a catena.

la AbZView volevo usarla per visualizzare i file letti da un .zip , come negli esempi per Delphi7 (che pero' ha un package).

ma al momento non ho trovato uno straccio di documentazione su come farlo in Lazarus.

es: disabilito questa
(*
{$IFDEF UsingCLX}
    procedure FontChanged; override;
    procedure SizeChanged(OldColCount, OldRowCount: Longint); override;
{$ELSE}
    procedure WMSize(var Msg: TWMSize);
      message WM_SIZE;
    procedure WMEraseBkgnd(var Msg: TWMEraseBkgnd);
      message WM_ERASEBKGND;
    procedure CMFontChanged(var Message: TMessage);
      message CM_FONTCHANGED;
{$ENDIF UsingCLX}
*)

linea 300 , mi dice che non esiste un metodo nella classe padre

    procedure ColumnMoved(FromIndex, ToIndex: Longint);
      override;

[Stilgar]

Sono andato a controllare.
Esiste un componente per Lazarus ...
fpSpreadsheet  (http://wiki.freepascal.org/FPSpreadsheet)
Ha un file che si chiama : fpszipper.pp
Magari può essere di qualche aiuto ... solo per Lazarus...

[bonmario]

Ciao,
scusa il ritardo ma sono un po' incasinato al lavoro. Io il pacchetto non l'ho onstallato, ma aggiungo queste alla uses:

Codice: [Seleziona]

AbArcTyp,
    AbUnzPrc,
    AbUtils ,
    AbZipTyp,
    AbZipKit,

Per visualizzare l'elenco dei files contenuti in uno zip, tempo fa' ho fatto questo:

Codice: [Seleziona]

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, PrintersDlgs, Forms, Controls, Graphics, Dialogs,
  StdCtrls, AbZBrows, BonMarUtils;

type

  { TForm1 }

  TForm1 = class(TForm)
    Memo1: TMemo;
    procedure FormCreate(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
const NomeFileZip='C:\_______SalvataggiEsportazione\P1PW_20110930091530_AF_____Ultimo fatto con AMFGS32 vecchio.zip';
var AbZipBrowser:TAbZipBrowser;
    Idx:Integer;
begin
  //Emetto l'elenco dei files contenuti in un file zip con qualche informazione accessoria

  Memo1.Lines.Clear;

  AbZipBrowser:=TAbZipBrowser.Create(nil);
  try
    AbZipBrowser.OpenArchive(NomeFileZip);
    for Idx:=0 to AbZipBrowser.Count - 1 do begin
      if (not AbZipBrowser.Items[Idx].IsDirectory) then begin
        Memo1.Lines.Add(RiempiStringa(MettiPunti(Idx), 3, '0', rsPrima) +
                        ' - ' +
                        MyDateTimeToStr(AbZipBrowser.Items[Idx].LastModTimeAsDateTime) +
                        ' - ' +
                        RiempiStringa(MettiPunti(AbZipBrowser.Items[Idx].UncompressedSize), 10, ' ' , rsPrima) +
                        ' - ' +
                        AbZipBrowser.Items[Idx].DiskFileName);
      end;
    end;
  finally
    FreeAndNil(AbZipBrowser);
  end;
end;

end.

Ciao, Mario

[Stilgar]

mmm.
Devo guardare i sorgenti ... ma ad occhio stai facendo una spece di TAR ...

Codice: [Seleziona]

zfe.CompressionLevel:=clnone;

[Maverich]

ho risolto con la unit da te indicata AbZBrows, una curiosita'
come facevi a fare questa verifica:

if (not AbZipBrowser.Items[Idx].IsDirectory) ...

ora il metodo IsDirectory si trova nella classe TFileIterator della FileUtil.

[bonmario]

Non saprei, a me lo trova sotto AbArcTyp.pas.

Codice: [Seleziona]

    property IsDirectory: Boolean
      read GetIsDirectory;

Magari dipende dall'ordine con cui hai messo le uses. Prova magari a mettere AbZBrows per prima.

Ciao, Mario

[Maverich]

Non saprei, a me lo trova sotto AbArcTyp.pas.

Codice: [Seleziona]

    property IsDirectory: Boolean
      read GetIsDirectory;

Magari dipende dall'ordine con cui hai messo le uses. Prova magari a mettere AbZBrows per prima.

Ciao, Mario

ho controllato, la AbArcTyp.pas rel. 3.05 del 12/01/2007 (parte dei files fpArchive) non ha la property IsDirectory.
la tua che data/rel. riporta ?

[Maverich]

[...]
ho controllato, la AbArcTyp.pas rel. 3.05 del 12/01/2007 (parte dei files fpArchive) non ha la property IsDirectory.
la tua che data/rel. riporta ?

ho trasportato il mio test usando i sorgenti Abbrevia 5.0, e nella unit AbArcTyp (del 26/11/2011) trovo IsDirectory.

[bonmario]

Stavo per risponderti !!!
Io infatti uso la versione 5.0.

Ciao, Mario