dws2mfziplibmodule.pas

script language

end;

procedure Tdws2MFZipLib.dws2UnitZipClassesTZipMethodsAddListEval(
  Info: TProgramInfo; ExtObject: TObject);
var
  ScriptObj: IScriptObj;
  StringsObj: TStringList;
begin
  with (ExtObject as TZipMaster) do
  begin
    case Info['Action'] of
      Zip_Move:
        AddOptions := AddOptions + [AddMove];
      Zip_Update:
        AddOptions := AddOptions + [AddUpdate];
      Zip_Freshen:
        AddOptions := AddOptions + [AddFreshen];
    end;
    ZipFilename := Info['ZipFile'];
    if ExtractFileExt(ZipFilename) = '' then
      ChangeFileExt(ZipFilename, '.zip');
    ScriptObj := IScriptObj(IUnknown(Info['FileNames']));
    if ScriptObj = nil then
      StringsObj := nil
    else
      StringsObj := TStringList(ScriptObj.ExternalObject);
    FSpecArgs.AddStrings(StringsObj);
    try
      Add;
    finally
      Info['Result'] := ErrCode;
      AddOptions := AddOptions - [AddMove, AddUpdate, AddFreshen];
      ZipFilename := '';
      FSpecArgs.Clear;
    end;
  end;
end;

procedure Tdws2MFZipLib.dws2UnitZipClassesTZipMethodsDeleteEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  with (ExtObject as TZipMaster) do
  begin
    ZipFilename := Info['ZipFile'];
    if ExtractFileExt(ZipFilename) = '' then
      ChangeFileExt(ZipFilename, '.zip');
    FSpecArgs.Add(Info['FileName']);
    try
      Delete;
    finally
      Info['Result'] := ErrCode;
      ZipFilename := '';
      FSpecArgs.Clear;
    end;
  end;
end;

procedure Tdws2MFZipLib.dws2UnitZipClassesTZipMethodsDeleteListEval(
  Info: TProgramInfo; ExtObject: TObject);
var
  ScriptObj: IScriptObj;
  StringsObj: TStringList;
begin
  with (ExtObject as TZipMaster) do
  begin
    ZipFilename := Info['ZipFile'];
    if ExtractFileExt(ZipFilename) = '' then
      ChangeFileExt(ZipFilename, '.zip');
    ScriptObj := IScriptObj(IUnknown(Info['FileNames']));
    if ScriptObj = nil then
      StringsObj := nil
    else
      StringsObj := TStringList(ScriptObj.ExternalObject);
    FSpecArgs.AddStrings(StringsObj);
    try
      Delete;
    finally
      Info['Result'] := ErrCode;
      ZipFilename := '';
      FSpecArgs.Clear;
    end;
  end;
end;

procedure Tdws2MFZipLib.dws2UnitZipClassesTZipMethodsExtractEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  with (ExtObject as TZipMaster) do
  begin
    case Info['Action'] of
      Zip_Test:
        ExtrOptions := ExtrOptions + [ExtrTest];
      Zip_Update:
        ExtrOptions := ExtrOptions + [ExtrUpdate];
      Zip_Freshen:
        ExtrOptions := ExtrOptions + [ExtrFreshen];
    end;
    ZipFilename := Info['ZipFile'];
    if ExtractFileExt(ZipFilename) = '' then
      ChangeFileExt(ZipFilename, '.zip');
    FSpecArgs.Add(Info['FileName']);
    ExtrBaseDir := Info['BaseDir'];
    try
      Extract;
    finally
      Info['Result'] := ErrCode;
      ZipFilename := '';
      FSpecArgs.Clear;
      ExtrBaseDir := '';
    end;
  end;
end;

procedure Tdws2MFZipLib.dws2UnitZipClassesTZipMethodsExtractListEval(
  Info: TProgramInfo; ExtObject: TObject);
var
  ScriptObj: IScriptObj;
  StringsObj: TStringList;
begin
  with (ExtObject as TZipMaster) do
  begin
    case Info['Action'] of
      Zip_Test:
        ExtrOptions := ExtrOptions + [ExtrTest];
      Zip_Update:
        ExtrOptions := ExtrOptions + [ExtrUpdate];
      Zip_Freshen:
        ExtrOptions := ExtrOptions + [ExtrFreshen];
    end;
    ZipFilename := Info['ZipFile'];
    if ExtractFileExt(ZipFilename) = '' then
      ChangeFileExt(ZipFilename, '.zip');
    ScriptObj := IScriptObj(IUnknown(Info['FileNames']));
    if ScriptObj = nil then
      StringsObj := nil
    else
      StringsObj := TStringList(ScriptObj.ExternalObject);
    FSpecArgs.AddStrings(StringsObj);
    ExtrBaseDir := Info['BaseDir'];
    try
      Extract;
    finally
      Info['Result'] := ErrCode;
      ZipFilename := '';
      FSpecArgs.Clear;
      ExtrBaseDir := '';
    end;
  end;
end;

procedure Tdws2MFZipLib.dws2UnitZipClassesTZipMethodsListEval(
  Info: TProgramInfo; ExtObject: TObject);
var
  SL: TStringList;
  i: Integer;
begin
  Info['Result'] := 0;
  SL := TStringList.Create;
  with (ExtObject as TZipMaster) do
  begin
    ZipFilename := Info['ZipFile'];
    if ExtractFileExt(ZipFilename) = '' then
      ChangeFileExt(ZipFilename, '.zip');
    try
      for i := 0 to Count - 1 do
      begin
        SL.Add( ZipDirEntry( ZipContents[i]^ ).FileName );
      end;
      SL.Sort;
      Info['Result'] := Info.Vars['TStringList'].GetConstructor('Create', SL).Call.Value;
    finally
      ZipFilename := '';
    end;
  end;
end;

procedure Tdws2MFZipLib.dws2UnitZipClassesTZipMethodsMessageEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  Info['Result'] := LoadStr(Info['ZipFile']);
end;

procedure Tdws2MFZipLib.dws2UnitZipClassesTZipMethodsReadSpanEval(
  Info: TProgramInfo; ExtObject: TObject);
var
  S: string;
begin
  S := Info['ZipFile'];
  Info['Result'] := (ExtObject as TZipMaster).ReadSpan(Info['SpanFile'], S);
  Info['ZipFile'] := S;
end;

procedure Tdws2MFZipLib.dws2UnitZipClassesTZipMethodsSFX2ZIPEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  with (ExtObject as TZipMaster) do
  begin
    ZipFilename := Info['ZipFile'];
    if ExtractFileExt(ZipFilename) = '' then
      ChangeFileExt(ZipFilename, '.exe');
    try
      Info['Result'] := ConvertZIP;
    finally
      ZipFilename := '';
    end;
  end;
end;

procedure Tdws2MFZipLib.dws2UnitZipClassesTZipMethodsWriteSpanEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  Info['Result'] := (ExtObject as TZipMaster).WriteSpan(Info['ZipFile'], Info['SpanFile']);
end;

procedure Tdws2MFZipLib.dws2UnitZipClassesTZipMethodsZIP2SFXEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  with (ExtObject as TZipMaster) do
  begin
    ZipFilename := Info['ZipFile'];
    if ExtractFileExt(ZipFilename) = '' then
      ChangeFileExt(ZipFilename, '.zip');
    try
      Info['Result'] := ConvertSFX;
    finally
      ZipFilename := '';
    end;
  end;
end;

// ****************************************************************************

procedure Tdws2MFZipLib.dws2UnitZipClassesTZipMethodsReadAddHiddenFilesEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  Info['Result'] := AddHiddenFiles in (ExtObject as TZipMaster).AddOptions;
end;

procedure Tdws2MFZipLib.dws2UnitZipClassesTZipMethodsWriteAddHiddenFilesEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  with (ExtObject as TZipMaster) do
  begin
    if Info['Value'] then
      AddOptions := AddOptions + [AddHiddenFiles]
    else
      AddOptions := AddOptions - [AddHiddenFiles];
  end;
end;

procedure Tdws2MFZipLib.dws2UnitZipClassesTZipMethodsReadAddZipTimeEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  Info['Result'] := AddZipTime in (ExtObject as TZipMaster).AddOptions;
end;

procedure Tdws2MFZipLib.dws2UnitZipClassesTZipMethodsWriteAddZipTimeEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  with (ExtObject as TZipMaster) do
  begin
    if Info['Value'] then
      AddOptions := AddOptions + [AddZipTime]
    else
      AddOptions := AddOptions - [AddZipTime];
  end;
end;

procedure Tdws2MFZipLib.dws2UnitZipClassesTZipMethodsReadAddDirNamesEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  Info['Result'] := AddDirNames in (ExtObject as TZipMaster).AddOptions;
end;

procedure Tdws2MFZipLib.dws2UnitZipClassesTZipMethodsWriteAddDirNamesEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  with (ExtObject as TZipMaster) do
  begin
    if Info['Value'] then
      AddOptions := AddOptions + [AddDirNames]
    else
      AddOptions := AddOptions - [AddDirNames];
  end;
end;

procedure Tdws2MFZipLib.dws2UnitZipClassesTZipMethodsReadAddSeparateDirsEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  Info['Result'] := AddSeparateDirs in (ExtObject as TZipMaster).AddOptions;
end;

procedure Tdws2MFZipLib.dws2UnitZipClassesTZipMethodsWriteAddSeparateDirsEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  with (ExtObject as TZipMaster) do
  begin
    if Info['Value'] then
      AddOptions := AddOptions + [AddSeparateDirs]
    else
      AddOptions := AddOptions - [AddSeparateDirs];
  end;
end;

procedure Tdws2MFZipLib.dws2UnitZipClassesTZipMethodsReadAddCompLevelEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  Info['Result'] := (ExtObject as TZipMaster).AddCompLevel;