releases/0.21a/Unit4_Exporters.pas

UNIT Unit4_Exporters;
INTERFACE
USES Classes, Dialogs, StrUtils, SysUtils, Math, Unit3_data, Unit6_imgfuncs;

PROCEDURE ExportDatFile(fileid:LongWord; filename:String);

FUNCTION ExportSNDD(fileid:LongWord; filename:String; convert:Boolean):Integer;
FUNCTION ExportTRAC(fileid:LongWord; filename:String; convert:Boolean):Integer;
FUNCTION ExportTXAN(fileid:LongWord; filename:String; convert:Boolean):Integer;
FUNCTION ExportTXMB(fileid:LongWord; filename:String; convert:Boolean):Integer;
FUNCTION ExportTXMP(fileid:LongWord; filename:String; convert:Boolean):Integer;
VAR
  ExportHandlers:Array[1..1] OF TExportHandlers=(
//    (Ext:'ABNA'; needed:False),
    //(Ext:'AGDB'; needed:False),
    (Ext:'SNDD'; needed:True; Handler:ExportSNDD)
{    (Ext:'TRAC'; needed:True; Handler:ExportTRAC),
    (Ext:'TXAN'; needed:True; Handler:ExportTXAN),
    (Ext:'TXMB'; needed:True; Handler:ExportTXMB),
    (Ext:'TXMP'; needed:True; Handler:ExportTXMP)
}  );


IMPLEMENTATION
USES Unit2_functions;

PROCEDURE ExportDatFile(fileid:LongWord; filename:String);
  VAR
    filestream:TFileStream;
    data:Tdata;
  BEGIN
    data:=LoadDatFile(fileid);
    IF FileExists(filename) THEN BEGIN
      filestream:=TFileStream.Create(filename,fmOpenReadWrite);
      filestream.Seek(0,soFromEnd); 
    END ELSE BEGIN
      filestream:=TFileStream.Create(filename,fmCreate);
    END;
    filestream.Write(data[0],Length(data));
    filestream.Free;
  END;

FUNCTION ExportSNDD;
{  CONST
    WAVheader:Array[0..0] OF Byte=(
        Ord('R'),Ord('I'),Ord('F'),Ord('F'),0,0,0,0,Ord('W'),Ord('A'),Ord('V'),Ord('E'),
        Ord('f'),Ord('m'),Ord('t'),Ord(' '),24,0,0,0,
      );
}  TYPE
    TDatData=RECORD
      _fileid:LongWord;
      level:LongWord;
      Flag:LongWord;
      FormatTag:Word;
      ChanNo:Word;
      SampleRate:LongWord;
      BytesPSec:LongWord;
      BPSample:LongWord;
      BitsPS:LongWord;
      Unknown:Array[1..7] OF LongWord;
      Unknown2:Word;
      RawSize:LongWord;
      RawPos:LongWord;
    END;
  VAR
        filestream:TFileStream;

    DatData:TDatData;
        //Wave Header Stuff
          ASCII_Group:LongWord; //"RIFF"
        WAV_Len:LongWord;
          ASCII_WAV:LongWord; //"WAVE"
        ASCII_FMT:LongWord; //"fmt "
          WAV_FMT_Len:LongWord;
        ASCII_DATA:LongWord; //"data"
          WAV_FolLen:LongWord;

        data:Tdata;
  BEGIN
          Result:=export_noerror;
    LoadDatFilePart(fileid,0,SizeOf(DatData),@DatData);
    WITH DatData DO BEGIN
        //Initializing Header vars
            ASCII_Group:=1179011410; // 'RIFF'
          WAV_Len:=RAWSize+70;
          ASCII_WAV:=1163280727;  // 'WAVE'
        ASCII_FMT:=544501094;   // 'fmt '
            WAV_FMT_Len:=50;        // 50 bytes
        ASCII_DATA:=1635017060; // 'data'
            WAV_FolLen:=RAWSize;
          SetLength(data,RAWSize);
          LoadRawFile(fileid,68,Length(data),data);

      filestream:=TFileStream.Create(filename+'.raw',fmCreate);
      filestream.Write(data[0],Length(data));
      filestream.Free;

      IF convert THEN BEGIN
        //Now start packing this into a neat wave...
        filestream:=TFileStream.Create(filename+'.wav',fmCreate);
          filestream.Write(ASCII_Group,SizeOf(ASCII_Group));
            filestream.Write(WAV_Len,SizeOf(WAV_Len));
          filestream.Write(ASCII_WAV,SizeOf(ASCII_WAV));
            filestream.Write(ASCII_FMT,SizeOf(ASCII_FMT));
          filestream.Write(WAV_FMT_Len,SizeOf(WAV_FMT_Len));
            filestream.Write(ChanNo,SizeOf(ChanNo));
        filestream.Write(Samplerate,SizeOf(Samplerate));
              filestream.Write(BytesPSec,SizeOf(BytesPSec));
            filestream.Write(BPSample,SizeOf(BPSample));
          filestream.Write(BitsPS,SizeOf(BitsPS));
        filestream.Write(Unknown[1],SizeOf(Unknown));
        filestream.Write(Unknown2,SizeOf(Unknown2));
        filestream.Write(ASCII_DATA,SizeOf(ASCII_DATA));
              filestream.Write(WAV_FolLen,SizeOf(WAV_FolLen));
          filestream.Write(data[0],Length(data));
            filestream.Free;
      END;
    END;
  END;

FUNCTION ExportTRAC;
  VAR
    link:LongWord;
    linkcount:Word;
    i:LongWord;
  BEGIN
    Result:=export_noerror;

    LoadDatFilePart(fileid,$18,SizeOf(link),@link);
    link:=link DIV 256;

    LoadDatFilePart(fileid,$1E,SizeOf(linkcount),@linkcount);
    FOR i:=1 TO linkcount DO BEGIN
      LoadDatFilePart(fileid,$20+(i-1)*12+8,SizeOf(link),@link);
      link:=link DIV 256;
    END;
  END;

FUNCTION ExportTXAN;
  VAR
    loop_speed,unknown:Word;
    linkcount:LongWord;
    link:LongWord;
    i:Byte;
  BEGIN
    Result:=export_noerror;

    LoadDatFilePart(fileid,$14,SizeOf(loop_speed),@loop_speed);
    LoadDatFilePart(fileid,$16,SizeOf(unknown),@unknown);

    LoadDatFilePart(fileid,$1C,SizeOf(linkcount),@linkcount);
    FOR i:=0 TO linkcount-1 DO BEGIN
      LoadDatFilePart(fileid,$20+i*4,SizeOf(link),@link);
      link:=link DIV 256;
      IF link=0 THEN link:=fileid-1;
    END;
  END;

FUNCTION ExportTXMB;
  VAR
    filestream:TFileStream;
    img:TImgPackage;
    data:Tdata;
  BEGIN
    Result:=export_noerror;
    IF convert THEN BEGIN
      img:=LoadTXMBconnected(fileid);
      data:=ImgdataToBmp(img.imgx,img.imgy,img.imgdepth,img.storetype,img.imgdata);
      filestream:=TFileStream.Create(filename+'.bmp',fmCreate);
      filestream.Write(data[0],Length(data));
      filestream.Free;
    END;
  END;

FUNCTION ExportTXMP;
  VAR
    filestream:TFileStream;
    img:TImgPackage;
  BEGIN
    Result:=export_noerror;
    img:=LoadImgData(fileid);

    filestream:=TFileStream.Create(filename+'.raw',fmCreate);
    filestream.Write(img.imgdata[0],Length(img.imgdata));
    filestream.Free;

    IF convert THEN BEGIN
      img.imgdata:=ImgdataToBMP(img.imgx,img.imgy,img.imgdepth,img.storetype,img.imgdata);
      filestream:=TFileStream.Create(filename+'.bmp',fmCreate);
      filestream.Write(img.imgdata[0],Length(img.imgdata));
      filestream.Free;
    END;
  END;

END.
Revision:	21
Committed:	Sat Aug 26 19:11:49 2006 UTC (19 years, 2 months ago) by alloc
Content type:	text/x-pascal
File size:	6013 byte(s)
Log Message:
#	Content
1	UNIT Unit4_Exporters;
2	INTERFACE
3	USES Classes, Dialogs, StrUtils, SysUtils, Math, Unit3_data, Unit6_imgfuncs;
4
5	PROCEDURE ExportDatFile(fileid:LongWord; filename:String);
6
7	FUNCTION ExportSNDD(fileid:LongWord; filename:String; convert:Boolean):Integer;
8	FUNCTION ExportTRAC(fileid:LongWord; filename:String; convert:Boolean):Integer;
9	FUNCTION ExportTXAN(fileid:LongWord; filename:String; convert:Boolean):Integer;
10	FUNCTION ExportTXMB(fileid:LongWord; filename:String; convert:Boolean):Integer;
11	FUNCTION ExportTXMP(fileid:LongWord; filename:String; convert:Boolean):Integer;
12	VAR
13	ExportHandlers:Array[1..1] OF TExportHandlers=(
14	// (Ext:'ABNA'; needed:False),
15	//(Ext:'AGDB'; needed:False),
16	(Ext:'SNDD'; needed:True; Handler:ExportSNDD)
17	{ (Ext:'TRAC'; needed:True; Handler:ExportTRAC),
18	(Ext:'TXAN'; needed:True; Handler:ExportTXAN),
19	(Ext:'TXMB'; needed:True; Handler:ExportTXMB),
20	(Ext:'TXMP'; needed:True; Handler:ExportTXMP)
21	} );
22
23
24
25	IMPLEMENTATION
26	USES Unit2_functions;
27
28	PROCEDURE ExportDatFile(fileid:LongWord; filename:String);
29	VAR
30	filestream:TFileStream;
31	data:Tdata;
32	BEGIN
33	data:=LoadDatFile(fileid);
34	IF FileExists(filename) THEN BEGIN
35	filestream:=TFileStream.Create(filename,fmOpenReadWrite);
36	filestream.Seek(0,soFromEnd);
37	END ELSE BEGIN
38	filestream:=TFileStream.Create(filename,fmCreate);
39	END;
40	filestream.Write(data[0],Length(data));
41	filestream.Free;
42	END;
43
44	FUNCTION ExportSNDD;
45	{ CONST
46	WAVheader:Array[0..0] OF Byte=(
47	Ord('R'),Ord('I'),Ord('F'),Ord('F'),0,0,0,0,Ord('W'),Ord('A'),Ord('V'),Ord('E'),
48	Ord('f'),Ord('m'),Ord('t'),Ord(' '),24,0,0,0,
49	);
50	} TYPE
51	TDatData=RECORD
52	_fileid:LongWord;
53	level:LongWord;
54	Flag:LongWord;
55	FormatTag:Word;
56	ChanNo:Word;
57	SampleRate:LongWord;
58	BytesPSec:LongWord;
59	BPSample:LongWord;
60	BitsPS:LongWord;
61	Unknown:Array[1..7] OF LongWord;
62	Unknown2:Word;
63	RawSize:LongWord;
64	RawPos:LongWord;
65	END;
66	VAR
67	filestream:TFileStream;
68
69	DatData:TDatData;
70	//Wave Header Stuff
71	ASCII_Group:LongWord; //"RIFF"
72	WAV_Len:LongWord;
73	ASCII_WAV:LongWord; //"WAVE"
74	ASCII_FMT:LongWord; //"fmt "
75	WAV_FMT_Len:LongWord;
76	ASCII_DATA:LongWord; //"data"
77	WAV_FolLen:LongWord;
78
79	data:Tdata;
80	BEGIN
81	Result:=export_noerror;
82	LoadDatFilePart(fileid,0,SizeOf(DatData),@DatData);
83	WITH DatData DO BEGIN
84	//Initializing Header vars
85	ASCII_Group:=1179011410; // 'RIFF'
86	WAV_Len:=RAWSize+70;
87	ASCII_WAV:=1163280727; // 'WAVE'
88	ASCII_FMT:=544501094; // 'fmt '
89	WAV_FMT_Len:=50; // 50 bytes
90	ASCII_DATA:=1635017060; // 'data'
91	WAV_FolLen:=RAWSize;
92	SetLength(data,RAWSize);
93	LoadRawFile(fileid,68,Length(data),data);
94
95	filestream:=TFileStream.Create(filename+'.raw',fmCreate);
96	filestream.Write(data[0],Length(data));
97	filestream.Free;
98
99	IF convert THEN BEGIN
100	//Now start packing this into a neat wave...
101	filestream:=TFileStream.Create(filename+'.wav',fmCreate);
102	filestream.Write(ASCII_Group,SizeOf(ASCII_Group));
103	filestream.Write(WAV_Len,SizeOf(WAV_Len));
104	filestream.Write(ASCII_WAV,SizeOf(ASCII_WAV));
105	filestream.Write(ASCII_FMT,SizeOf(ASCII_FMT));
106	filestream.Write(WAV_FMT_Len,SizeOf(WAV_FMT_Len));
107	filestream.Write(ChanNo,SizeOf(ChanNo));
108	filestream.Write(Samplerate,SizeOf(Samplerate));
109	filestream.Write(BytesPSec,SizeOf(BytesPSec));
110	filestream.Write(BPSample,SizeOf(BPSample));
111	filestream.Write(BitsPS,SizeOf(BitsPS));
112	filestream.Write(Unknown[1],SizeOf(Unknown));
113	filestream.Write(Unknown2,SizeOf(Unknown2));
114	filestream.Write(ASCII_DATA,SizeOf(ASCII_DATA));
115	filestream.Write(WAV_FolLen,SizeOf(WAV_FolLen));
116	filestream.Write(data[0],Length(data));
117	filestream.Free;
118	END;
119	END;
120	END;
121
122	FUNCTION ExportTRAC;
123	VAR
124	link:LongWord;
125	linkcount:Word;
126	i:LongWord;
127	BEGIN
128	Result:=export_noerror;
129
130	LoadDatFilePart(fileid,$18,SizeOf(link),@link);
131	link:=link DIV 256;
132
133	LoadDatFilePart(fileid,$1E,SizeOf(linkcount),@linkcount);
134	FOR i:=1 TO linkcount DO BEGIN
135	LoadDatFilePart(fileid,$20+(i-1)*12+8,SizeOf(link),@link);
136	link:=link DIV 256;
137	END;
138	END;
139
140	FUNCTION ExportTXAN;
141	VAR
142	loop_speed,unknown:Word;
143	linkcount:LongWord;
144	link:LongWord;
145	i:Byte;
146	BEGIN
147	Result:=export_noerror;
148
149	LoadDatFilePart(fileid,$14,SizeOf(loop_speed),@loop_speed);
150	LoadDatFilePart(fileid,$16,SizeOf(unknown),@unknown);
151
152	LoadDatFilePart(fileid,$1C,SizeOf(linkcount),@linkcount);
153	FOR i:=0 TO linkcount-1 DO BEGIN
154	LoadDatFilePart(fileid,$20+i*4,SizeOf(link),@link);
155	link:=link DIV 256;
156	IF link=0 THEN link:=fileid-1;
157	END;
158	END;
159
160	FUNCTION ExportTXMB;
161	VAR
162	filestream:TFileStream;
163	img:TImgPackage;
164	data:Tdata;
165	BEGIN
166	Result:=export_noerror;
167	IF convert THEN BEGIN
168	img:=LoadTXMBconnected(fileid);
169	data:=ImgdataToBmp(img.imgx,img.imgy,img.imgdepth,img.storetype,img.imgdata);
170	filestream:=TFileStream.Create(filename+'.bmp',fmCreate);
171	filestream.Write(data[0],Length(data));
172	filestream.Free;
173	END;
174	END;
175
176	FUNCTION ExportTXMP;
177	VAR
178	filestream:TFileStream;
179	img:TImgPackage;
180	BEGIN
181	Result:=export_noerror;
182	img:=LoadImgData(fileid);
183
184	filestream:=TFileStream.Create(filename+'.raw',fmCreate);
185	filestream.Write(img.imgdata[0],Length(img.imgdata));
186	filestream.Free;
187
188	IF convert THEN BEGIN
189	img.imgdata:=ImgdataToBMP(img.imgx,img.imgy,img.imgdepth,img.storetype,img.imgdata);
190	filestream:=TFileStream.Create(filename+'.bmp',fmCreate);
191	filestream.Write(img.imgdata[0],Length(img.imgdata));
192	filestream.Free;
193	END;
194	END;
195
196	END.