← Back to branch summary

~ubuntu-branches/ubuntu/utopic/mricron/utopic

« back to all changes in this revision

Viewing changes to dcm2nii/dcm2nii.dpr

  • Committer: Bazaar Package Importer
  • Author(s): Michael Hanke
  • Date: 2010-07-29 22:07:43 UTC
  • Revision ID: james.westby@ubuntu.com-20100729220743-q621ts2zj806gu0n
Tags: upstream-0.20100725.1~dfsg.1
Import upstream version 0.20100725.1~dfsg.1

Show diffs side-by-side

added added

removed removed

Lines of Context:
dcm2nii/dcm2nii.dpr
 
1
program dcm2nii;
 
2
{$IFDEF FPC}
 
3
{$mode objfpc}
 
4
{$ELSE}
 
5
 {$APPTYPE CONSOLE}
 
6
{$ENDIF}
 
7
{$H+}
 
8
uses
 
9
  {$IFDEF UNIX}
 
10
          {$IFDEF UseCThreads} cthreads, {$ENDIF}
 
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
  ;
 
30
{$IFNDEF UNIX}
 
31
{$R *.res}
 
32
{$ENDIF}
 
33
 
 
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);
 
63
     kUseDateTimeForID := true;
 
64
     {$IFNDEF TEST}
 
65
      ProcessParamStrs;
 
66
     {$ELSE}
 
67
         Testdcm2nii;
 
68
         readln;
 
69
     {$ENDIF}
 
70
     //readln;
 
71
end.
 
72
 
 
73
 
 
74
 
 
75
 
 
76
 
 
77
 
 
78