releases/0.20a/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);
    filestream:=TFileStream.Create(filename,fmCreate);
    filestream.Write(data[0],Length(data));
    filestream.Free;
  END;

FUNCTION ExportSNDD;
  TYPE
    TDatData=RECORD
      _fileid:LongWord;
      level:LongWord;
      Flag:LongWord;
      ChanNo:LongWord;
      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;
          WAV_Len:=RAWSize+70;
          ASCII_WAV:=1163280727;
        ASCII_FMT:=544501094;
            WAV_FMT_Len:=50;
        ASCII_DATA:=1635017060;
            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:	5548 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	filestream:=TFileStream.Create(filename,fmCreate);
35	filestream.Write(data[0],Length(data));
36	filestream.Free;
37	END;
38
39	FUNCTION ExportSNDD;
40	TYPE
41	TDatData=RECORD
42	_fileid:LongWord;
43	level:LongWord;
44	Flag:LongWord;
45	ChanNo:LongWord;
46	SampleRate:LongWord;
47	BytesPSec:LongWord;
48	BPSample:LongWord;
49	BitsPS:LongWord;
50	Unknown:Array[1..7] OF LongWord;
51	Unknown2:Word;
52	RawSize:LongWord;
53	RawPos:LongWord;
54	END;
55	VAR
56	filestream:TFileStream;
57
58	DatData:TDatData;
59	//Wave Header Stuff
60	ASCII_Group:LongWord; //RIFF
61	WAV_Len:LongWord;
62	ASCII_WAV:LongWord; //WAVE
63	ASCII_FMT:LongWord; //"fmt "
64	WAV_FMT_Len:LongWord;
65	ASCII_DATA:LongWord; //DATA
66	WAV_FolLen:LongWord;
67
68	data:Tdata;
69	BEGIN
70	Result:=export_noerror;
71	LoadDatFilePart(fileid,0,SizeOf(DatData),@DatData);
72	WITH DatData DO BEGIN
73	//Initializing Header vars
74	ASCII_Group:=1179011410;
75	WAV_Len:=RAWSize+70;
76	ASCII_WAV:=1163280727;
77	ASCII_FMT:=544501094;
78	WAV_FMT_Len:=50;
79	ASCII_DATA:=1635017060;
80	WAV_FolLen:=RAWSize;
81	SetLength(data,RAWSize);
82	LoadRawFile(fileid,68,Length(data),data);
83
84	filestream:=TFileStream.Create(filename+'.raw',fmCreate);
85	filestream.Write(data[0],Length(data));
86	filestream.Free;
87
88	IF convert THEN BEGIN
89	//Now start packing this into a neat wave...
90	filestream:=TFileStream.Create(filename+'.wav',fmCreate);
91	filestream.Write(ASCII_Group,SizeOf(ASCII_Group));
92	filestream.Write(WAV_Len,SizeOf(WAV_Len));
93	filestream.Write(ASCII_WAV,SizeOf(ASCII_WAV));
94	filestream.Write(ASCII_FMT,SizeOf(ASCII_FMT));
95	filestream.Write(WAV_FMT_Len,SizeOf(WAV_FMT_Len));
96	filestream.Write(ChanNo,SizeOf(ChanNo));
97	filestream.Write(Samplerate,SizeOf(Samplerate));
98	filestream.Write(BytesPSec,SizeOf(BytesPSec));
99	filestream.Write(BPSample,SizeOf(BPSample));
100	filestream.Write(BitsPS,SizeOf(BitsPS));
101	filestream.Write(Unknown[1],SizeOf(Unknown));
102	filestream.Write(Unknown2,SizeOf(Unknown2));
103	filestream.Write(ASCII_DATA,SizeOf(ASCII_DATA));
104	filestream.Write(WAV_FolLen,SizeOf(WAV_FolLen));
105	filestream.Write(data[0],Length(data));
106	filestream.Free;
107	END;
108	END;
109	END;
110
111	FUNCTION ExportTRAC;
112	VAR
113	link:LongWord;
114	linkcount:Word;
115	i:LongWord;
116	BEGIN
117	Result:=export_noerror;
118
119	LoadDatFilePart(fileid,$18,SizeOf(link),@link);
120	link:=link DIV 256;
121
122	LoadDatFilePart(fileid,$1E,SizeOf(linkcount),@linkcount);
123	FOR i:=1 TO linkcount DO BEGIN
124	LoadDatFilePart(fileid,$20+(i-1)*12+8,SizeOf(link),@link);
125	link:=link DIV 256;
126	END;
127	END;
128
129	FUNCTION ExportTXAN;
130	VAR
131	loop_speed,unknown:Word;
132	linkcount:LongWord;
133	link:LongWord;
134	i:Byte;
135	BEGIN
136	Result:=export_noerror;
137
138	LoadDatFilePart(fileid,$14,SizeOf(loop_speed),@loop_speed);
139	LoadDatFilePart(fileid,$16,SizeOf(unknown),@unknown);
140
141	LoadDatFilePart(fileid,$1C,SizeOf(linkcount),@linkcount);
142	FOR i:=0 TO linkcount-1 DO BEGIN
143	LoadDatFilePart(fileid,$20+i*4,SizeOf(link),@link);
144	link:=link DIV 256;
145	IF link=0 THEN link:=fileid-1;
146	END;
147	END;
148
149	FUNCTION ExportTXMB;
150	VAR
151	filestream:TFileStream;
152	img:TImgPackage;
153	data:Tdata;
154	BEGIN
155	Result:=export_noerror;
156	IF convert THEN BEGIN
157	img:=LoadTXMBconnected(fileid);
158	data:=ImgdataToBmp(img.imgx,img.imgy,img.imgdepth,img.storetype,img.imgdata);
159	filestream:=TFileStream.Create(filename+'.bmp',fmCreate);
160	filestream.Write(data[0],Length(data));
161	filestream.Free;
162	END;
163	END;
164
165	FUNCTION ExportTXMP;
166	VAR
167	filestream:TFileStream;
168	img:TImgPackage;
169	BEGIN
170	Result:=export_noerror;
171	img:=LoadImgData(fileid);
172
173	filestream:=TFileStream.Create(filename+'.raw',fmCreate);
174	filestream.Write(img.imgdata[0],Length(img.imgdata));
175	filestream.Free;
176
177	IF convert THEN BEGIN
178	img.imgdata:=ImgdataToBMP(img.imgx,img.imgy,img.imgdepth,img.storetype,img.imgdata);
179	filestream:=TFileStream.Create(filename+'.bmp',fmCreate);
180	filestream.Write(img.imgdata[0],Length(img.imgdata));
181	filestream.Free;
182	END;
183	END;
184
185	END.