1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

procedure TdSammelmappeArch.getObjectsFromBinder;
var
  binderObject : OleVariant;
//  counter : Integer;
  BoolVariant_False: OleVariant;
  tmpPath : String;
begin
  //
  tmpPath := 'C:\Data\binder-test\TestSammelmappe.obd';
  BoolVariant_False := WordBool(False);
  (IUnknown(binderObject) as Binder).Open(tmpPath, BoolVariant_False);

  {
  for counter := 0 to (IUnknown(objekt) as Binder).Sections.Count do
  begin
    ShowMessage((IUnknown(objekt) as Binder).Sections.Get_Item(counter).Name);
  end;
  }
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:

  // binder öffnen
  binderObject := CoBinder.Create;
  try
    tmpPath := strTempPath + '\TestSammelmappe.obd';
    BoolVariant_False := WordBool(False);

    (IUnknown(binderObject) as Binder).Open(tmpPath, BoolVariant_False);
    maxCounter:= (IUnknown(binderObject) as Binder).Sections.Count;
    for counter := 1 to maxCounter do
    begin
      ShowMessage(IntToStr(counter));
      tmpSection := (IUnknown(binderObject) as Binder).Sections.Item[counter];
      with (IUnknown(tmpSection) as Section) do
      begin
        if(Type_ = WORD) then
        begin
          SaveAs(strTempPath + '\' + Name + '.doc');
        end else if(Type_ = EXCEL) then
        begin
          SaveAs(strTempPath + '\' + Name + '.xls');
        end else if(Type_ = POWERPOINT) then
        begin
          SaveAs(strTempPath + '\' + Name + '.ppt');
        end else
        begin
          ShowMessage(Name + ' wird nicht Archiviert');
        end;
      end;
    end;
  finally
    (IUnknown(binderObject) as Binder).Close(EmptyParam, EmptyParam);
  end;					

1:
2:
3:

  const WORD : String = 'Word.Document.8';
  const POWERPOINT : String = 'PowerPoint.Show.8';
  const EXCEL : String = 'Excel.Sheet.8';