1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
|
/* Copyright (c) MediaArea.net SARL. All Rights Reserved.
*
* Use of this source code is governed by a BSD-style license that can
* be found in the License.html file in the root of the source tree.
*/
//+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
//
// Preferences interface of MediaInfo (Output definition part)
//
//+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
//
//
//
//+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
//+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
//---------------------------------------------------------------------------
// Compilation condition
#ifndef MEDIAINFOGUI_PREFS_NO
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "GUI_Preferences_Output.h"
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#pragma resource "*.dfm"
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#ifdef MEDIAINFO_DLL_RUNTIME
#include "MediaInfoDLL/MediaInfoDLL.h"
#define MediaInfoNameSpace MediaInfoDLL
#elif defined MEDIAINFO_DLL_STATIC
#include "MediaInfoDLL/MediaInfoDLL_Static.h"
#define MediaInfoNameSpace MediaInfoDLL
#else
#include "MediaInfo/MediaInfoList.h"
#define MediaInfoNameSpace MediaInfoLib
#endif
using namespace MediaInfoNameSpace;
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
ZtringListList Infos_Parameters;
TPreferences_OutputF *Preferences_OutputF;
//---------------------------------------------------------------------------
//***************************************************************************
// Constructor/Destructor
//***************************************************************************
//---------------------------------------------------------------------------
__fastcall TPreferences_OutputF::TPreferences_OutputF(TComponent* Owner)
: TForm(Owner)
{
AncienItemIndex=0;
}
//---------------------------------------------------------------------------
void __fastcall TPreferences_OutputF::ListeChange(TObject *Sender)
{
Ztring C1=Memo->Text.c_str();
C1.FindAndReplace(__T("\r\n"), __T("\\r\\n"));
Output(AncienItemIndex, 1)=C1;
C1=Output.Read(Liste->ItemIndex, 1);
C1.FindAndReplace(__T("\\r\\n"), __T("\r\n"));
Memo->Text=C1.c_str();
AncienItemIndex=Liste->ItemIndex;
//Gestion texte
Infos->Items->Clear();
if (Liste->ItemIndex==0)
Infos_Parameters.Write(Ztring(MediaInfoNameSpace::MediaInfo::Option_Static(__T("Info_Parameters_CSV"))).SubString(__T("General\r\n"), __T("\r\n\r\n")));
if (Liste->ItemIndex==1)
Infos_Parameters.Write(Ztring(MediaInfoNameSpace::MediaInfo::Option_Static(__T("Info_Parameters_CSV"))).SubString(__T("Video\r\n"), __T("\r\n\r\n")));
if (Liste->ItemIndex==2)
Infos_Parameters.Write(Ztring(MediaInfoNameSpace::MediaInfo::Option_Static(__T("Info_Parameters_CSV"))).SubString(__T("Audio\r\n"), __T("\r\n\r\n")));
if (Liste->ItemIndex==3)
Infos_Parameters.Write(Ztring(MediaInfoNameSpace::MediaInfo::Option_Static(__T("Info_Parameters_CSV"))).SubString(__T("Text\r\n"), __T("\r\n\r\n")));
if (Liste->ItemIndex==4)
Infos_Parameters.Write(Ztring(MediaInfoNameSpace::MediaInfo::Option_Static(__T("Info_Parameters_CSV"))).SubString(__T("Chapters\r\n"), __T("\r\n\r\n")));
for (size_t Pos=0; Pos<Infos_Parameters.size(); Pos++)
Infos->Items->Add(Infos_Parameters.Read(Pos, 0).c_str());
}
//---------------------------------------------------------------------------
void __fastcall TPreferences_OutputF::OKClick(TObject *Sender)
{
ListeChange(NULL);
Output.Save(Repertoire+__T("\\MediaInfo.View.")+Nom+__T(".csv"));
}
//---------------------------------------------------------------------------
int TPreferences_OutputF::Afficher(const Ztring &Folder, const Ztring &Name)
{
Repertoire=Folder;
Nom=Name;
Output.Load(Folder+__T("\\MediaInfo.View.")+Nom+__T(".csv"));
Liste->ItemIndex=0;
Ztring C1=Output.Read(0, 1);
C1.FindAndReplace(__T("\\r\\n"), __T("\r\n"));
Memo->Text=C1.c_str();
AncienItemIndex=Liste->ItemIndex;
ListeChange(NULL);
return ShowModal();
}
void __fastcall TPreferences_OutputF::InfosChange(TObject *Sender)
{
AnsiString S1=Memo->Text;
AnsiString S2=AnsiString(__T("%"))+Infos->Text+("%");
S1.Insert(S2, Memo->SelStart+1);
Memo->Text=S1;
}
//***************************************************************************
// C++
//***************************************************************************
#endif //MEDIAINFOGUI_PREFS_NO
|
