X-Git-Url: https://git.creatis.insa-lyon.fr/pubgit/?a=blobdiff_plain;f=Testing%2FTestMakeDicomDir.cxx;h=3d6b1bc325decba7eccaf9b5f8ba5bdec73b9ce5;hb=c094854320484d68477c1855e3fa619e33db7cec;hp=861b755348c1ed16ece531dc2009f6afc66c9bde;hpb=bf974e736465fcd9de7ddee123e9d7e3edc03ce6;p=gdcm.git

diff --git a/Testing/TestMakeDicomDir.cxx b/Testing/TestMakeDicomDir.cxx
index 861b7553..3d6b1bc3 100644
--- a/Testing/TestMakeDicomDir.cxx
+++ b/Testing/TestMakeDicomDir.cxx
@@ -3,8 +3,8 @@
   Program:   gdcm
   Module:    $RCSfile: TestMakeDicomDir.cxx,v $
   Language:  C++
-  Date:      $Date: 2005/06/02 09:37:50 $
-  Version:   $Revision: 1.3 $
+  Date:      $Date: 2005/07/21 04:51:26 $
+  Version:   $Revision: 1.5 $
                                                                                 
   Copyright (c) CREATIS (Centre de Recherche et d'Applications en Traitement de
   l'Image). All rights reserved. See Doc/License.txt or
@@ -60,19 +60,15 @@ int TestMakeDicomDir(int argc, char *argv[])
    }
  
    gdcm::DicomDir *dcmdir;
- 
-    // Old style (still available)
-    //
-    // true : we ask for Directory parsing
-    // dcmdir = new gdcm::DicomDir(dirName, true);
 
    // new style (user is allowed no to load Sequences an/or Shadow Groups)
    dcmdir = new gdcm::DicomDir( );
-   dcmdir->SetParseDir(true);
+ 
    // dcmdir->SetLoadMode(NO_SEQ | NO_SHADOW);
    // some images have a wrong length for element 0x0000 of private groups
    dcmdir->SetLoadMode(NO_SEQ);
-   dcmdir->Load(dirName);
+   dcmdir->SetDirectoryName(dirName);
+   dcmdir->Load( );
 
    dcmdir->SetStartMethod(StartMethod, (void *) NULL);
    dcmdir->SetEndMethod(EndMethod);
@@ -91,7 +87,10 @@ int TestMakeDicomDir(int argc, char *argv[])
    delete dcmdir;
 
    // Read from disc the just written DicomDir
-   gdcm::DicomDir *newDicomDir = new gdcm::DicomDir("NewDICOMDIR");
+   gdcm::DicomDir *newDicomDir = new gdcm::DicomDir();
+   newDicomDir->SetFileName("NewDICOMDIR");
+   newDicomDir->Load();
+
    if( !newDicomDir->IsReadable() )
    {
       std::cout<<"          Written DicomDir 'NewDICOMDIR'"