← Back to branch summary

~ubuntu-branches/ubuntu/saucy/mricron/saucy

« back to all changes in this revision

Viewing changes to dcm2nii/dcm2nii.dpr

  • Committer: Bazaar Package Importer
  • Author(s): Michael Hanke
  • Date: 2011-04-14 15:51:33 UTC
  • mfrom: (1.1.3 upstream)
  • Revision ID: james.westby@ubuntu.com-20110414155133-sd2umdatjqjlkhzt
Tags: 0.20110413.1~dfsg.1-1
* New upstream version. FSL BET related patches are no obsolete
  and have been removed. Mricron now performs autodetection of FSL.
  Additionally it supports a system-wide configuration file at
  /etc/mricron/mricron.ini
* Patch for older lazarus versions no longer applies to the lazarus
  version in unstable. Moved this patch into backport patch series files.

Show diffs side-by-side

added added

removed removed

Lines of Context:
dcm2nii/dcm2nii.dpr
9
9
  {$IFDEF UNIX}
10
10
          {$IFDEF UseCThreads} cthreads, {$ENDIF}
11
11
  {$ENDIF}
12
 
  dialogsx,define_types,paramstrs,
13
 
  // shellAPI,
14
 
  //Windows,
15
 
  Classes,
16
 
  inifiles,
17
 
  SysUtils,
18
 
  convert,
19
 
 
20
 
  sortdicom,
21
 
  dicom,
22
 
  parconvert,
23
 
  filename,
24
 
  dicomtypes,
25
 
  nii_crop,
26
 
  nii_orient,
27
 
  nii_4dto3d,
28
 
  prefs
29
 
  ;
 
12
  dialogsx,paramstrs,dicomtypes;
30
13
{$IFNDEF UNIX}
31
14
{$R *.res}
32
15
{$ENDIF}
33
16
 
34
 
(*var lIn,lOut: string;
35
 
Start: dword;
36
 
lPrefs: TPrefs;
37
 
begin
38
 
Start := GetTickCount;
39
 
        kUseDateTimeForID := true;
40
 
        SetDefaultPrefs (lPrefs);
41
 
        lPrefs.Gzip := true;
42
 
        lPrefs.Anonymize := true;
43
 
        lPrefs.SingleNIIFile := true;
44
 
        lPrefs.everyfile := true;
45
 
        lPrefs.AppendDate := false;
46
 
        lPrefs.AppendAcqSeries := true;
47
 
         lPrefs.AppendProtocolName := true;
48
 
         lPrefs.AppendPatientName := false;
49
 
         lPrefs.fourD := true;
50
 
         lPrefs.AppendFilename := true;
51
 
lOut := '';
52
 
lIn := 'C:\dti64\philips\intera10_4\IM_0900.dcm';
53
 
 
54
 
LoadFileList(lIn,lOut,lPrefs);
55
 
Msg('Finished. Elapsed time: '+inttostr(GetTickCount-Start));
56
 
 readln;
57
 
 
58
 
 end.  *)
59
 
 
60
 
 
61
 
begin
62
 
     Msg(kVers);
 
17
begin
 
18
     ShowMsg(kVers);
63
19
     kUseDateTimeForID := true;
64
20
     {$IFNDEF TEST}
65
21
      ProcessParamStrs;
67
23
         Testdcm2nii;
68
24
         readln;
69
25
     {$ENDIF}
70
 
     //readln;
71
26
end.
72
27
 
73
28