--- oup/rewrite/Global/Exporters.pas 2007/01/22 23:05:45 97 +++ oup/current/Global/Exporters.pas 2007/05/26 19:28:08 198 @@ -73,7 +73,7 @@ begin if Length(ExportHandlers) > 0 then for i := 0 to High(ExportHandlers) do if ExportHandlers[i].Ext = fileinfo.Extension then - ExportHandlers[i].Handler(ConnectionID, FileID, filename); + Result := ExportHandlers[i].Handler(ConnectionID, FileID, filename); end; @@ -83,26 +83,26 @@ function ExportSNDD(ConnectionID, FileID type TDatData = packed record {0x00} - _fileid: LongWord; - level: LongWord; - FormatSize: LongWord; + _fileid: Integer; + level: Integer; + FormatSize: Integer; AudioFormat: Word; NumChannels: Word; {0x10} - SampleRate: LongWord; - ByteRate: LongWord; + SampleRate: Integer; + ByteRate: Integer; BlockAlign: Word; BitsPerSample: Word; {0x1C} SizeExtHeader: Word; SamplesPerBlock: Word; NumCoefficients: Word; - Coefficients: array[0..6] of LongWord; + Coefficients: array[0..6] of Integer; {0x3E} Duration: Word; {0x40} - RawSize: LongWord; - RawPos: LongWord; + RawSize: Integer; + RawPos: Integer; end; var filestream: TFileStream; @@ -111,12 +111,12 @@ var //Wave Header Stuff ASCII_RIFF: LongWord; //"RIFF" - WAVE_Len: LongWord; + WAVE_Len: Integer; ASCII_WAVE: LongWord; //"WAVE" ASCII_FMT: LongWord; //"fmt " - WAVE_FMT_Len: LongWord; + WAVE_FMT_Len: Integer; ASCII_DATA: LongWord; //"data" - WAVE_DataLen: LongWord; + WAVE_DataLen: Integer; begin Result := 0; ConManager.Connection[ConnectionID].LoadDatFilePart(FileID, 0, SizeOf(DatData), @DatData); @@ -189,8 +189,8 @@ end; function ExportTXAN(ConnectionID, FileID: Integer; filename: String): Integer; var loop_speed, unknown: Word; - linkcount: LongWord; - link: LongWord; + linkcount: Integer; + link: Integer; i: Byte; begin Result := 0; @@ -224,7 +224,8 @@ begin img := TOniImage.Create; img.Load(ConnectionID, FileID); - img.WriteToBMP(filename+'.bmp'); + img.WriteToFile(filename+'.dds'); + img.WriteToFile(filename+'.bmp'); img.Free; end;