Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Форум программистов и сисадминов Киберфорум > Форум программистов > Delphi > Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.56/9: Рейтинг темы: голосов - 9, средняя оценка - 4.56
1 / 1 / 4
Регистрация: 24.10.2014
Сообщений: 200
1

Программа для записи видео. Невозможность записи экрана

27.03.2016, 11:19. Показов 1884. Ответов 2
Метки нет (Все метки)
Author24 — интернет-сервис помощи студентам
Нашёл программу по записи видео с экрана. Смотрю её на Delphi XE3 т.к. не могу установить себе на комп Delphi 7. В общем вот в чём проблема... Программа при переносе проекта ругалась на некоторые части, но я их поправил и теперь программа запускается и работает, проблема в том, что при нажатии на кнопку начала записи захвата мне пишет, что я не выбрал какой компрессор при записи буду использовать и предлагает воспользоваться старым. После нажатия "ОК" мне выдаёт ошибку "Error on create AVI file." и ошибку "Error creating AVI file with "MS Video Codec".". Так же возникает ошибка когда я пытаюсь войти в меню с опциями: "List index out of bounds (-1)". Что может быть не так, помогите...
Благодарю заранее за помощь .

Добавлено через 1 минуту
Вот весь код:
2)Форма с опциями:
Delphi
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
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253

unit OptDlg;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, Unit1, Math;
 
{$WARNINGS OFF}
{$RANGECHECKS OFF}
 
type
  TfrmOption = class(TForm)
    Compressor: TGroupBox;
    VideoCompressor: TComboBox;
    AboutB: TButton;
    VideoQuality: TTrackBar;
    Label1: TLabel;
    LabelQuality: TLabel;
    GroupBox1: TGroupBox;
    ConfigB: TButton;
    Button2: TButton;
    Button3: TButton;
    EditKeyFrames: TEdit;
    Label3: TLabel;
    Label2: TLabel;
    TrackBarRecord: TTrackBar;
    Label4: TLabel;
    Label6: TLabel;
    labelmspFrecord: TLabel;
    AudioFormat: TComboBox;
    Label8: TLabel;
    Label9: TLabel;
    AudioVolume: TTrackBar;
    Label10: TLabel;
    AudioInput: TComboBox;
    Label11: TLabel;
    LabelVolume: TLabel;
    Label12: TLabel;
    TrackBarPlayback: TTrackBar;
    Label7: TLabel;
    labelFPSPlayback: TLabel;
    Label5: TLabel;
    Label13: TLabel;
    AutoMode: TCheckBox;
    AudioRecord: TCheckBox;
    procedure AboutBClick(Sender: TObject);
    procedure ConfigBClick(Sender: TObject);
    procedure TrackBarPlaybackChange(Sender: TObject);
    procedure VideoQualityChange(Sender: TObject);
    procedure AudioVolumeChange(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure AudioInputClick(Sender: TObject);
    procedure TrackBarRecordChange(Sender: TObject);
    procedure AutoModeClick(Sender: TObject);
    procedure AudioRecordClick(Sender: TObject);
    procedure VideoCompressorClick(Sender: TObject);
  private
    { Private declarations }
    procedure RefreshCompressorButtons;
    procedure UpdateAdjustSliderVal;
  public
    { Public declarations }
    Auto: Boolean;
  end;
 
var
  frmOption: TfrmOption;
 
implementation
 
{$R *.dfm}
 
procedure TfrmOption.AboutBClick(Sender: TObject);
var
  Idx: Integer;
begin
  Idx := VideoCompressor.ItemIndex;
  ScrCam.CompressorAbout(Idx, WindowHandle);
end;
 
procedure TfrmOption.ConfigBClick(Sender: TObject);
var
  Idx: Integer;
begin
  Idx := VideoCompressor.ItemIndex;
  ScrCam.CompressorConfigure(Idx, WindowHandle);
end;
 
procedure TfrmOption.RefreshCompressorButtons;
var
  Idx: Integer;
  About,
  Config: Boolean;
begin
  Idx                  := VideoCompressor.ItemIndex;
  ScrCam.CompressorHasFeatures(Idx, About, Config);
  AboutB.Enabled       := About;
  ConfigB.Enabled      := Config;
  VideoQuality.Enabled := VideoCompressor.ItemIndex < 1;
  Label1.Enabled       := VideoCompressor.ItemIndex < 1;
  LabelQuality.Enabled := VideoCompressor.ItemIndex < 1;
end;
 
 
procedure TfrmOption.UpdateAdjustSliderVal;
var
  LmspFRecord,
  LFPSPlayback: Integer;
begin
  LmspFRecord              := TrackBarRecord.Position;
  LFPSPlayback             := TrackBarPlayback.Position;
  LabelmspfRecord.Caption  := Format('%d Millisecond', [LmspFRecord]);
  LabelFPSPlayback.Caption := Format('%d fps', [LFPSPlayback]);
  LabelQuality.Caption     := IntToStr(VideoQuality.Position);
  LabelVolume.Caption      := IntToStr(AudioVolume.Position);
 
  ScrCam.SetAudioInputVolume(AudioInput.ItemIndex, AudioVolume.Position);
end;
 
 
procedure TfrmOption.TrackBarPlaybackChange(Sender: TObject);
begin
  if (Sender = TrackBarPlayback) and (AutoMode.Checked) then
    TrackBarRecord.Position := 1000 div TrackBarPlayback.Position;
  UpdateAdjustSliderVal;
end;
 
procedure TfrmOption.VideoQualityChange(Sender: TObject);
begin
  UpdateAdjustSliderVal;
end;
 
procedure TfrmOption.AudioVolumeChange(Sender: TObject);
begin
  UpdateAdjustSliderVal;
end;
 
procedure TfrmOption.Button2Click(Sender: TObject);
begin
  UpdateAdjustSliderVal;
  ScrCam.SelectedCompressor           := VideoCompressor.ItemIndex;
  ScrCam.CompressionQuality           := VideoQuality.Position * 100;
  ScrCam.KeyFramesEvery               := StrToInt(EditKeyFrames.Text);
  ScrCam.msPFRecord                   := TrackBarRecord.Position;
  ScrCam.FPSPlayback                  := TrackBarPlayback.Position;
  ScrCam.UseAudioRecord               := AudioRecord.Checked;
  ScrCam.AudioFormatsDefaultItemIndex := AudioFormat.ItemIndex;
end;
 
procedure TfrmOption.FormShow(Sender: TObject);
begin
  VideoCompressor.Items.Assign(ScrCam.VideoCodecsList);
  AudioFormat.Items.Assign(ScrCam.AudioFormatsList);
  AudioInput.Items.Assign(ScrCam.GetAudioInputInfo.AudioInputNames);
 
  VideoCompressor.ItemIndex := ScrCam.SelectedCompressor;
  AudioFormat.ItemIndex     := ScrCam.AudioFormatsDefaultItemIndex;
  AudioInput.ItemIndex      := ScrCam.GetAudioInputInfo.AudioInputIndex;
 
  if ScrCam.GetAudioInputInfo.AudioInputEnabled then begin
    if AudioRecord.Checked then begin
      AudioVolume.Enabled   := True;
      LabelVolume.Enabled   := True;
      end;
    AudioVolume.Position    := ScrCam.GetAudioInputInfo.AudioInputVolume;
    end
  else begin
    AudioVolume.Position    := 0;
    AudioVolume.Enabled     := False;
    LabelVolume.Enabled     := False;
    end;
 
  TrackBarRecord.Position   := ScrCam.mspFRecord;
  TrackBarPlayback.Position := ScrCam.FPSPlayback;
 
  EditKeyFrames.Text        := Format('%d', [ScrCam.KeyFramesEvery]);
  VideoQuality.Position     := ScrCam.CompressionQuality div 100;
 
  RefreshCompressorButtons;
end;
 
procedure TfrmOption.Button3Click(Sender: TObject);
begin
  Close;
end;
 
procedure TfrmOption.AudioInputClick(Sender: TObject);
begin
  ScrCam.SetAudioInputIndex(AudioInput.ItemIndex);
  if ScrCam.GetAudioInputInfo.AudioInputEnabled then begin
    AudioVolume.Enabled  := True;
    LabelVolume.Enabled  := True;
    AudioVolume.Position := ScrCam.GetAudioInputInfo.AudioInputVolume;
    end
  else begin
    AudioVolume.Position := 0;
    AudioVolume.Enabled  := False;
    LabelVolume.Enabled  := False;
    end;
end;
 
procedure TfrmOption.TrackBarRecordChange(Sender: TObject);
begin
  if (Sender = TrackBarRecord) and (AutoMode.Checked) then
    TrackBarPlayback.Position := 1000 div TrackBarRecord.Position;
  UpdateAdjustSliderVal;
end;
 
procedure TfrmOption.AutoModeClick(Sender: TObject);
begin
  if AutoMode.Checked then
    TrackBarRecord.Position := 1000 div TrackBarPlayback.Position;
end;
 
procedure TfrmOption.AudioRecordClick(Sender: TObject);
begin
  if AudioRecord.Checked then begin
    Label9.Enabled         := True;
    AudioFormat.Enabled    := True;
    Label11.Enabled        := True;
    AudioInput.Enabled     := True;
    Label10.Enabled        := True;
    if ScrCam.GetAudioInputInfo.AudioInputEnabled then begin
      AudioVolume.Enabled  := True;
      LabelVolume.Enabled  := True;
      AudioVolume.Position := ScrCam.GetAudioInputInfo.AudioInputVolume;
      end
    else begin
      AudioVolume.Enabled  := False;
      LabelVolume.Enabled  := False;
      AudioVolume.Position := 0;
      end;
    end
  else begin
    Label9.Enabled         := False;
    AudioFormat.Enabled    := False;
    Label11.Enabled        := False;
    AudioInput.Enabled     := False;
    Label10.Enabled        := False;
    AudioVolume.Enabled    := False;
    LabelVolume.Enabled    := False;
    end;
end;
 
procedure TfrmOption.VideoCompressorClick(Sender: TObject);
begin
    RefreshCompressorButtons;
end;
 
end.
И если надо, то вот форма о программе...
Delphi
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

unit About;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, IPPeerClient, Data.Cloud.CloudAPI,
  Data.Cloud.AzureAPI;
 
type
  TfrmAbout = class(TForm)
    ButtonOk: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    AzureConnectionInfo1: TAzureConnectionInfo;
  private
    { Private declarations }
  public
    { Public declarations }
  function GetFileVersion(FileName: String): String;
  end;
 
var
  frmAbout: TfrmAbout;
 
implementation
 
{$R *.dfm}
 
function TfrmAbout.GetFileVersion(FileName: String): String;
var
  VerInfoSize,
  Dummy : DWORD;
  VerInfo: Pointer;
  VerValue: PVSFixedFileInfo;
  V1, V2, V3, V4: WORD;
begin
  VerInfoSize := GetFileVersionInfoSize(PChar(FileName), Dummy);
  GetMem(VerInfo, VerInfoSize);
  GetFileVersionInfo(PChar(FileName), 0, VerInfoSize, VerInfo);
  VerQueryValue(VerInfo, '\', Pointer(VerValue), VerInfoSize);
  with VerValue^ do
    begin
      V1 := dwFileVersionMS shr 16;
      V2 := dwFileVersionMS and $FFFF;
      V3 := dwFileVersionLS shr 16;
      V4 := dwFileVersionLS and $FFFF;
    end;
  FreeMem(VerInfo, VerInfoSize);
 
  // When minor version over of 9, I will add one in major version
  Result := IntToStr(V1) + '.' + // Major version
            IntToStr(V2) + '.' + // Number of added features or minor version
            IntToStr(V3) + '.' + // Number of modified features
            IntToStr(V4);        // Number of removed features
end;
 
end.
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
 27.03.2016, 11:19
Ответы с готовыми решениями:

Программа для записи видео с экрана?
Здравствуйте, подскажите пожалуйста программу для записи видео с экрана компьютера, чтобы была...

Программа для записи видео с экрана
Добрый день. Поступил в университет и тут сразу задали курсовую работу на тему &quot;Программа для...

Программа для записи с экрана реал видео
Суть такая, нужна прога для записи с экрана реал видео (не спрашивайте за чем), пробовал...

Бесплатная программа для записи видео экрана монитора компьютера со звуком
Подскажите мне пожалуйста бесплатную программу для записи видео экрана монитора компьютера со...

2
1 / 1 / 4
Регистрация: 24.10.2014
Сообщений: 200
27.03.2016, 18:02  [ТС] 2
1)Главная форма:
Delphi
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
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ScrCam, ExtCtrls, ComCtrls, XPMan, Vcl.ActnMan,
  Vcl.ActnColorMaps, sSkinManager;
 
{$WARNINGS OFF}
{$RANGECHECKS OFF}
 
type
  TfrmMain = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Label1: TLabel;
    CheckBox1: TCheckBox;
    CheckBox3: TCheckBox;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Bevel1: TBevel;
    CheckBox4: TCheckBox;
    CheckBox5: TCheckBox;
    CheckBox6: TCheckBox;
    CheckBox8: TCheckBox;
    GroupBox1: TGroupBox;
    Edit5: TEdit;
    UpDown1: TUpDown;
    UpDown2: TUpDown;
    Edit6: TEdit;
    UpDown3: TUpDown;
    Edit7: TEdit;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    CheckBox9: TCheckBox;
    RadioGroup1: TRadioGroup;
    Button5: TButton;
    Panel1: TPanel;
    Label9: TLabel;
    ComboBox1: TComboBox;
    Label10: TLabel;
    ComboBox2: TComboBox;
    Label11: TLabel;
    XPManifest1: TXPManifest;
    Edit8: TEdit;
    Label12: TLabel;
    Panel2: TPanel;
    Progress: TProgressBar;
    BCancel: TButton;
    LStatus: TLabel;
    UpDownTop: TUpDown;
    UpDownLeft: TUpDown;
    UpDownWidth: TUpDown;
    UpDownHeight: TUpDown;
    ComboBox3: TComboBox;
    Label13: TLabel;
    XPColorMap1: TXPColorMap;
    Image1: TImage;
    sSkinManager1: TsSkinManager;
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
 
    procedure Button4Click(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure CheckBox3Click(Sender: TObject);
    procedure CheckBox4Click(Sender: TObject);
    procedure CheckBox5Click(Sender: TObject);
    procedure CheckBox6Click(Sender: TObject);
    procedure CheckBox8Click(Sender: TObject);
    procedure CheckBox9Click(Sender: TObject);
    procedure Edit5Change(Sender: TObject);
    procedure RadioGroup1Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure ComboBox2Change(Sender: TObject);
    procedure BCancelClick(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure FormActivate(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure ComboBox3Change(Sender: TObject);
    procedure Edit2Change(Sender: TObject);
    procedure Edit3Change(Sender: TObject);
    procedure Edit4Change(Sender: TObject);
  private
    { Private declarations }
    procedure Error(Sender: TObject; ErrorMessage: string);
    procedure Update(Sender : TObject);
    procedure Start(Sender: TObject);
    procedure Stop(Sender: TObject);
    procedure Preview(Sender: TObject;
              PreviewBitmap: TBitmap; Preview: Boolean; Recording: Boolean);
    procedure Saving(Sender: TObject; Percent: Integer;
              StatusCaption: String; var Continue: Boolean);
  public
    { Public declarations }
    TimerON: TTimerRecord;
    FCancel: Boolean;
  end;
 
var
  frmMain: TfrmMain;
  ScrCam : TScreenCamera;
 
implementation
 
uses OptDlg, About;
 
{$R *.dfm}
 
procedure TfrmMain.FormCreate(Sender: TObject);
begin
  FCancel          := False;
  ScrCam           := TScreenCamera.Create(Self);
  ScrCam.OnError   := Error;
  ScrCam.OnUpdate  := Update;
  ScrCam.OnStart   := Start;
  ScrCam.OnStop    := Stop;
  ScrCam.OnPreview := Preview;
  ScrCam.OnSaving  := Saving;
end;
 
procedure TfrmMain.Error(Sender: TObject; ErrorMessage: string);
begin
  MessageBox(Application.MainForm.Handle, PChar(ErrorMessage), 'Error', MB_OK);
end;
 
procedure TfrmMain.Update(Sender: TObject);
begin
  Label1.Caption := 'Information :'                                                   + #13#10 +
                    Format('Video Codec : %s',        [ScrCam.CurrentVideoCodecName]) + #13#10 +
                    Format('Elapsed Time : %s',       [ScrCam.ElapsedTime])           + #13#10 +
                    Format('Avrage Record f/ms : %f', [ScrCam.Avragefps])             + #13#10 +
                    Format('Frames Captured : %d',    [ScrCam.FramesCaptured])        + #13#10 +
                    Format('Droped Frames : %d',      [ScrCam.DropedFrames]);
end;
 
procedure TfrmMain.Start(Sender: TObject);
begin
  ComboBox3.Enabled    := False;
  Edit8.Enabled        := False;
  Button1.Enabled      := False;
  Button2.Enabled      := True;
  Button3.Enabled      := False;
  RadioGroup1.Enabled  := False;
  Edit1.Enabled        := False;
  Edit2.Enabled        := False;
  Edit3.Enabled        := False;
  Edit4.Enabled        := False;
  UpDownTop.Enabled    := Edit1.Enabled;
  UpDownLeft.Enabled   := Edit2.Enabled;
  UpDownWidth.Enabled  := Edit3.Enabled;
  UpDownHeight.Enabled := Edit4.Enabled;
end;
 
procedure TfrmMain.Stop(Sender: TObject);
begin
  ComboBox3.Enabled    := True;
  Edit8.Enabled        := True;
  Button1.Enabled      := True;
  Button2.Enabled      := False;
  Button3.Enabled      := True;
  RadioGroup1.Enabled  := True;
  RadioGroup1Click(Sender);
end;
 
procedure TfrmMain.Preview(Sender: TObject;
          PreviewBitmap: TBitmap; Preview: Boolean; Recording: Boolean);
begin
  if Preview then begin
    CheckBox8.Checked := True;
    if not Recording then begin
      Label9.Caption  := 'Preview... Cancel: Esc';
      end
    else begin
      Label9.Caption  := 'Recording... Cancel: Esc -- Stop: Shift+Esc';
      end;
    end
  else begin
    if not Recording then
      Label9.Caption  := 'Preview Off...'
    else
      Label9.Caption  := 'Recording... Cancel: Esc -- Stop: Shift+Esc';
    CheckBox8.Checked := False;
    end;
 
  Image1.Picture.Assign(PreviewBitmap);
 
  Edit1.Text          := IntToStr(ScrCam.ScreenTop);
  Edit2.Text          := IntToStr(ScrCam.ScreenLeft);
  Edit3.Text          := IntToStr(ScrCam.ScreenWidth);
  Edit4.Text          := IntToStr(ScrCam.ScreenHeight);
end;
 
procedure TfrmMain.Saving(Sender: TObject; Percent: Integer;
                          StatusCaption: String; var Continue: Boolean);
begin
  Application.ProcessMessages;
 
  if not FCancel then begin
 
    if not BCancel.Enabled then begin
      BCancel.Enabled := True;
      LStatus.Enabled := True;
      LStatus.Caption := StatusCaption;
      end;
 
    Progress.Position := Percent;
 
    if Percent = 100 then begin
      FCancel         := False;
      LStatus.Enabled := False;
      BCancel.Enabled := False;
      LStatus.Caption := 'No Status';
      Progress.Position := 0;
      end;
 
    Continue          := True;
    end
  else begin
    FCancel           := False;
    LStatus.Enabled   := False;
    BCancel.Enabled   := False;
    LStatus.Caption   := 'No Status';
    Progress.Position := 0;
    Continue          := False;
    end;
end;
 
procedure TfrmMain.Button2Click(Sender: TObject);
begin
  ScrCam.StopRecording;
end;
 
procedure TfrmMain.Button1Click(Sender: TObject);
begin
  RadioGroup1Click(Sender);
  if Edit8.Text <> '' then
    ScrCam.StartRecording(Edit8.Text);
end;
 
procedure TfrmMain.Button3Click(Sender: TObject);
begin
  frmOption.ShowModal;
end;
 
procedure TfrmMain.Button4Click(Sender: TObject);
begin
  frmAbout.ShowModal;
end;
Добавлено через 1 минуту
Это вторая часть кода от первой (главной формы)...
Delphi
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
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272

procedure TfrmMain.CheckBox1Click(Sender: TObject);
begin
  ScrCam.RecordCursor := CheckBox1.Checked;
end;
 
procedure TfrmMain.CheckBox3Click(Sender: TObject);
begin
  ScrCam.DrawAreaCapture := CheckBox3.Checked;
end;                              
 
procedure TfrmMain.CheckBox4Click(Sender: TObject);
begin
  ScrCam.LineRectClear := CheckBox4.Checked;
end;
 
procedure TfrmMain.CheckBox5Click(Sender: TObject);
begin
  ScrCam.MinimizeAppOnStart := CheckBox5.Checked;
end;
 
procedure TfrmMain.CheckBox6Click(Sender: TObject);
begin
  ScrCam.RestoreAppAfterRecord := CheckBox6.Checked;
end;
 
procedure TfrmMain.CheckBox8Click(Sender: TObject);
begin
  RadioGroup1Click(Sender);
  ScrCam.ShowPreview := CheckBox8.Checked;
end;
 
procedure TfrmMain.CheckBox9Click(Sender: TObject);
begin
  TimerON.TimerON   := CheckBox9.Checked;
  TimerON.Hour      := StrToInt(Edit5.Text);
  TimerON.Min       := StrToInt(Edit6.Text);
  TimerON.Sec       := StrToInt(Edit7.Text);
  ScrCam.SetTimer   := TimerON;
  if CheckBox9.Checked then begin
    Edit5.Enabled   := True;
    UpDown1.Enabled := True;
    Edit6.Enabled   := True;
    UpDown2.Enabled := True;
    Edit7.Enabled   := True;
    UpDown3.Enabled := True;
    end
  else begin
    Edit5.Enabled   := False;
    UpDown1.Enabled := False;
    Edit6.Enabled   := False;
    UpDown2.Enabled := False;
    Edit7.Enabled   := False;
    UpDown3.Enabled := False;
    end;
end;
 
procedure TfrmMain.Edit5Change(Sender: TObject);
begin
  TimerON.TimerON := CheckBox9.Checked;
  TimerON.Hour    := StrToInt(Edit5.Text);
  TimerON.Min     := StrToInt(Edit6.Text);
  TimerON.Sec     := StrToInt(Edit7.Text);
  ScrCam.SetTimer := TimerON;
end;
 
procedure TfrmMain.RadioGroup1Click(Sender: TObject);
begin
  ScrCam.Priority            := ComboBox1.ItemIndex;
  ScrCam.FilterColor         := ComboBox2.ItemIndex;
  ScrCam.Colors              := ComboBox3.ItemIndex;
 
  ScrCam.RecordCursor        := CheckBox1.Checked;
  ScrCam.DrawAreaCapture     := CheckBox3.Checked;
  ScrCam.LineRectClear       := CheckBox4.Checked;
  ScrCam.MinimizeAppOnStart  := CheckBox5.Checked;
  ScrCam.RestoreAppAfterRecord := CheckBox6.Checked;
  ScrCam.ShowPreview         := CheckBox8.Checked;
 
  TimerON.TimerON            := CheckBox9.Checked;
  TimerON.Hour               := StrToInt(Edit5.Text);
  TimerON.Min                := StrToInt(Edit6.Text);
  TimerON.Sec                := StrToInt(Edit7.Text);
  ScrCam.SetTimer            := TimerON;
 
  case RadioGroup1.ItemIndex of
    0: begin
         Edit1.Enabled       := False;
         Edit2.Enabled       := False;
         Edit3.Enabled       := False;
         Edit4.Enabled       := False;
 
         CheckBox3.Enabled   := True;
         CheckBox4.Enabled   := True;
 
         ScrCam.ScreenRegion := SelObject;
       end;
    1: begin
         Edit1.Enabled       := False;
         Edit2.Enabled       := False;
         Edit3.Enabled       := False;
         Edit4.Enabled       := False;
 
         CheckBox3.Enabled   := True;
         CheckBox4.Enabled   := True;
 
         ScrCam.ScreenRegion := FreeHand;
       end;
    2: begin
         Edit1.Enabled       := False;
         Edit2.Enabled       := False;
         Edit3.Enabled       := True;
         Edit4.Enabled       := True;
 
         CheckBox3.Enabled   := True;
         CheckBox4.Enabled   := True;
 
         ScrCam.ScreenTop    := StrToInt(Edit1.Text);
         ScrCam.ScreenLeft   := StrToInt(Edit2.Text);
         ScrCam.ScreenWidth  := StrToInt(Edit3.Text);
         ScrCam.ScreenHeight := StrToInt(Edit4.Text);
 
         ScrCam.ScreenRegion := FixedMoving;
       end;
    3: begin
         Edit1.Enabled       := True;
         Edit2.Enabled       := True;
         Edit3.Enabled       := True;
         Edit4.Enabled       := True;
 
         CheckBox3.Enabled   := True;
         CheckBox4.Enabled   := True;
 
         ScrCam.ScreenTop    := StrToInt(Edit1.Text);
         ScrCam.ScreenLeft   := StrToInt(Edit2.Text);
         ScrCam.ScreenWidth  := StrToInt(Edit3.Text);
         ScrCam.ScreenHeight := StrToInt(Edit4.Text);
 
         ScrCam.ScreenRegion := FixedStable;
       end;
    4: begin
         Edit1.Enabled       := False;
         Edit2.Enabled       := False;
         Edit3.Enabled       := False;
         Edit4.Enabled       := False;
 
         CheckBox3.Enabled   := False;
         CheckBox4.Enabled   := False;
 
         ScrCam.ScreenRegion := FullScreen;
       end;
  end;
  UpDownTop.Enabled          := Edit1.Enabled;
  UpDownLeft.Enabled         := Edit2.Enabled;
  UpDownWidth.Enabled        := Edit3.Enabled;
  UpDownHeight.Enabled       := Edit4.Enabled;
end;
 
procedure TfrmMain.Button5Click(Sender: TObject);
begin
  if ScrCam.IsRecording then
    ScrCam.StopRecording;
  Close;
end;
 
procedure TfrmMain.ComboBox1Change(Sender: TObject);
begin
  ScrCam.Priority := ComboBox1.ItemIndex;
end;
 
procedure TfrmMain.ComboBox2Change(Sender: TObject);
begin
  ScrCam.FilterColor := ComboBox2.ItemIndex;
end;
 
procedure TfrmMain.BCancelClick(Sender: TObject);
begin
  FCancel := True;
end;
 
procedure TfrmMain.Edit1Change(Sender: TObject);
var
  MaxH : Integer;
begin
  if TEdit(Sender).Text = '' then
    TEdit(Sender).Text := '0';
 
  MaxH                 := Screen.Height;
  UpDownTop.Max        := MaxH;
 
  if StrToInt(Edit1.Text) > UpDownTop.Max then
    Edit1.Text         := IntToStr(UpDownTop.Max);
 
  ScrCam.ScreenTop     := StrToInt(Edit1.Text);
end;
 
procedure TfrmMain.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if Sender is TEdit then
    begin
      if Key in [#8, '0'..'9'] then
         Exit;
      Key := #0;
    end;
end;
 
procedure TfrmMain.FormActivate(Sender: TObject);
begin
  UpDownTop.Max    := Screen.Width;
  UpDownLeft.Max   := Screen.Height;
  UpDownWidth.Max  := Screen.Width;
  UpDownHeight.Max := Screen.Height;
end;
 
procedure TfrmMain.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  ScrCam.Destroy;
end;
 
procedure TfrmMain.ComboBox3Change(Sender: TObject);
begin
  ScrCam.Colors := ComboBox3.ItemIndex;
end;
 
procedure TfrmMain.Edit2Change(Sender: TObject);
var
  MaxW : Integer;
begin
  if TEdit(Sender).Text = '' then
    TEdit(Sender).Text := '0';
 
  MaxW                 := Screen.Width;
  UpDownLeft.Max       := MaxW;
 
  if StrToInt(Edit2.Text) > UpDownLeft.Max then
    Edit2.Text         := IntToStr(UpDownLeft.Max);
 
  ScrCam.ScreenLeft    := StrToInt(Edit2.Text);
end;
 
procedure TfrmMain.Edit3Change(Sender: TObject);
var
  MaxW : Integer;
begin
  if TEdit(Sender).Text = '' then
    TEdit(Sender).Text := '0';
 
  MaxW                 := Screen.Width;
  UpDownWidth.Max      := MaxW;
 
  if StrToInt(Edit3.Text) > UpDownWidth.Max then
    Edit3.Text         := IntToStr(UpDownWidth.Max);
 
  ScrCam.ScreenWidth   := StrToInt(Edit3.Text);
end;
 
procedure TfrmMain.Edit4Change(Sender: TObject);
var
  MaxH : Integer;
begin
  if TEdit(Sender).Text = '' then
    TEdit(Sender).Text := '0';
 
  MaxH                 := Screen.Height;
  UpDownHeight.Max     := MaxH;
 
  if StrToInt(Edit4.Text) > UpDownHeight.Max then
    Edit4.Text         := IntToStr(UpDownHeight.Max);
 
  ScrCam.ScreenHeight  := StrToInt(Edit4.Text);
end;
 
end.
Добавлено через 6 часов 40 минут
Подскажите хотя бы как избавиться от ошибки с записью видео?
0
1 / 1 / 4
Регистрация: 24.10.2014
Сообщений: 200
29.03.2016, 09:50  [ТС] 3
Программа называется Profesional Screen Camera (PSC) и она написана под Delphi 7

Добавлено через 20 часов 6 минут
Хотя бы подскажите как заставить использовать компрессор по умолчанию, самое интерестное, что в исходнике не тронутой программы экзэшник ругается на вход в настройки, а снимает отлично...

Добавлено через 6 часов 39 минут
Из-за чего может появиться ошибка: "List index out of bounds (-1)"?

Добавлено через 13 часов 0 минут
Ну помогите плииииз(((
0
29.03.2016, 09:50
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
 29.03.2016, 09:50
Помогаю со студенческими работами здесь

Программа записи видео и звука с экрана
Друзья, посоветуйте пожалуйста легкую (потребляющую поменьше ресурсов) программу для записи того,...

Подскажите ПО для записи видео с экрана монитора
Здравствуйте! Подскажите программу для записи видео и звука с экрана монитора.

Программа для записи экрана
Добрый день! Подскажите нормальную программу для записи экрана и выкладывания в youtube? Заранее...

Программа для записи видео
Всем привет. Подскажите программу, с помощью которой можно записать видео файл с экрана...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Новые блоги и статьи
Rust или Go? А может C++?
hw_wired 28.01.2025
С каждой новой технологией или методологией появляются новые языки программирования, призванные решать конкретные задачи либо улучшать аспекты производительности и безопасности. Среди множества. . .
Fortran и WinAPI: как создать приложение с графическим интерфейсом
hw_wired 28.01.2025
Fortran — это один из старейших высокоуровневых языков программирования, широко используемый в науке и инженерии уже несколько десятилетий. Его название происходит от "Formula Translation" (перевод. . .
Списки в Haskell
hw_wired 28.01.2025
Haskell является функциональным языком программирования, который отличается лаконичностью синтаксиса и мощными абстракциями. Важным концептом в Haskell являются списки — упорядоченные коллекции. . .
Функции высшего порядка в Haskell
hw_wired 28.01.2025
Haskell – это современный функциональный язык программирования, который получил широкое распространение благодаря своей выразительности и мощным абстракциям. Одной из ключевых особенностей Haskell. . .
Как в цикле обойти все поля объекта в JavaScript
bytestream 28.01.2025
Объекты в JavaScript представляют собой фундаментальные структуры данных, которые позволяют хранить и организовывать связанную информацию в виде пар ключ-значение. Каждый объект можно представить как. . .
Как выбрать строки в DataFrame по значению столбца в Pandas
bytestream 28.01.2025
В области анализа данных библиотека Pandas стала незаменимым инструментом для работы с табличными данными в Python. Эта мощная библиотека предоставляет множество функций для эффективной обработки и. . .
Как сделать перенос строки в Bash
bytestream 28.01.2025
При работе с командной оболочкой Bash разработчики часто сталкиваются с необходимостью форматирования текстового вывода, где ключевую роль играет правильное управление переносами строк. Умение. . .
Поиск подстроки в строке с помощью Bash
bytestream 28.01.2025
Поиск подстроки в строке является одной из важных задач в программировании и обработке текстов. Применение такого поиска можно найти в самых разных областях, от анализа данных до разработки. . .
[golang] 169. Majority Element
alhaos 28.01.2025
Тут надо вернуть "мажористый" элемент который встречается в слайсе больше чем в половине случаев. По условиям задачи во входных данных такой элемент обязан присутствовать. / / . . .
Когда лучше использовать LinkedList вместо ArrayList в Java
bytestream 28.01.2025
При разработке Java-приложений выбор правильной структуры данных играет ключевую роль в обеспечении эффективности и производительности программы. ArrayList и LinkedList являются двумя. . .
Какой ответ HTTP лучше использовать: 403 Forbidden или 401 Unauthorized, когда недостаточно прав
bytestream 28.01.2025
В современной веб-разработке правильная обработка ошибок и точное информирование клиентов о статусе их запросов играют критическую роль в создании надежных и безопасных приложений. Особое внимание. . .
Как получить список всех файлов коммита в Git
bytestream 28.01.2025
Система контроля версий Git представляет собой мощный инструмент для управления изменениями в программном коде и других файлах проекта. В основе работы Git лежит концепция коммитов - снимков. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Условия использования - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru