Любишь сериалы? Заходи!

[KiRo_Lajt]

Многие смотрят сериалы, а раз вы сюда зашли, то и судя по всему вы не исключение. Начнём. Что я хочу вам предложить? А вот что. Если вы хоть раз смотрели сериалы (не важно что вы смотрели) не по телевизору, а например в ВК или где-нибудь ещё, то я думаю, вам знакомо ощущение того, что ты забыл, на какой серии остановился.
Я сидел, ждал чего-нибудь нового в этой теме на форуме... Ушел смотреть сериал, и вдруг! Вспомнил, что я снова не помню какую серию смотрел в прошлый раз! Так вот к чему я это...
Я решил написать для вас целый пост, включающий в себя довольно ещё сырую, но уже программку.
[Ссылки могут видеть только зарегистрированные пользователи. ] [Ссылки могут видеть только зарегистрированные пользователи. ]
Пройдёмся чуток по функционалу и закончим интерфейсом.

Что она умеет...
Умеет она уже больше, но мне этого достаточно чтобы не путаться какие сериалы и на какой серии я закончил смотреть.

• Загрузка из файла при запуске программы;
• Сохранение в файл после выключения;
• Открытие ссылки с сериалом/аниме/и т.д. в браузере (у меня открывает в google chrome);
• Запоминание всего, что вы написали в файл setter.dll;
• 10 строк для названий и 10 кнопок для выбора серий, 10 окошек (скрытых изначально) для ссылок и 2 кнопки для очистки и настройки всего-всего;

Возможно, что она не понадобится никому, но я надеюсь, что кто-нибудь кроме меня будет юзать её

По поводу интерфейса
Кнопки переделал. Они мне не очень нравились. Сделал на SpinEdit. Кому не нравится - предлагайте свои идеи!
Всё, что вы предложите - постараюсь воплотить в жизнь.
А оформление это просто Одна из множества моделек в AlphaSkins. Постараюсь их менять с каждым обновлением

Надеюсь, это не так уж и плохо.

[Ссылки могут видеть только зарегистрированные пользователи. ]
[Ссылки могут видеть только зарегистрированные пользователи. ]


{Прошу не ругаться за дикую неграмотность в коде... Предчувствую быдлопосты...
Кто считает, что исходник не стоит выкладывать - напишите мне пожалуйста. А пока оставлю так.}

Быдлокод тут /bonk

Расставить всё по своим местам, я надеюсь, вы сумеете.
[Ссылки могут видеть только зарегистрированные пользователи. ]

unit Unit444;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, sButton, sEdit, sSpinEdit,
  sSkinManager, sLabel, sCheckBox, Winapi.ShellAPI,ShlObj, ActiveX, ComObj;

type
  TForm1 = class(TForm)
    sEdit1: TsEdit;
    sEdit2: TsEdit;
    sEdit3: TsEdit;
    sEdit4: TsEdit;
    sEdit5: TsEdit;
    sEdit6: TsEdit;
    sEdit7: TsEdit;
    sEdit8: TsEdit;
    sEdit9: TsEdit;
    sEdit10: TsEdit;
    sSkinManager1: TsSkinManager;
    sButton13: TsButton;
    sLabel1: TsLabel;
    spndt1: TsSpinEdit;
    spndt2: TsSpinEdit;
    spndt3: TsSpinEdit;
    spndt4: TsSpinEdit;
    spndt5: TsSpinEdit;
    spndt6: TsSpinEdit;
    spndt7: TsSpinEdit;
    spndt8: TsSpinEdit;
    spndt9: TsSpinEdit;
    spndt10: TsSpinEdit;
    btn1: TsButton;
    btn2: TsButton;
    btn3: TsButton;
    btn4: TsButton;
    btn5: TsButton;
    btn6: TsButton;
    btn7: TsButton;
    btn8: TsButton;
    btn9: TsButton;
    btn10: TsButton;
    btn11: TsButton;
    sdt1: TsEdit;
    sdt2: TsEdit;
    sdt3: TsEdit;
    sdt4: TsEdit;
    sdt5: TsEdit;
    sdt6: TsEdit;
    sdt7: TsEdit;
    sdt8: TsEdit;
    sdt9: TsEdit;
    sdt10: TsEdit;
    procedure sButton13Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure btn11Click(Sender: TObject);
    procedure btn1Click(Sender: TObject);
    procedure btn2Click(Sender: TObject);
    procedure btn3Click(Sender: TObject);
    procedure btn4Click(Sender: TObject);
    procedure btn5Click(Sender: TObject);
    procedure btn6Click(Sender: TObject);
    procedure btn7Click(Sender: TObject);
    procedure btn8Click(Sender: TObject);
    procedure btn9Click(Sender: TObject);
    procedure btn10Click(Sender: TObject);

  private
  { Public declarations }
  public
  { Public declarations }
  end;

var
  Form1: TForm1;
  q,w,e,r,t,y,u,i,o,p:integer;
  s,a,d,f,g,h,j,k,l,z,x,c,v,b,n,m,zx,xc,cv,vb:string;
  but:TsButton;
  mass : array [1..9] of TsButton;
  iooo:integer;
  implementation

{$R *.dfm}



procedure TForm1.btn11Click(Sender: TObject);
begin
if sdt1.Visible=true then
begin
  sdt1.Visible:=False;
  sdt2.Visible:=False;
  sdt3.Visible:=False;
  sdt4.Visible:=False;
  sdt5.Visible:=False;
  sdt6.Visible:=False;
  sdt7.Visible:=False;
  sdt8.Visible:=False;
  sdt9.Visible:=False;
  sdt10.Visible:=False;
end
else
begin
sdt1.Visible:=True;
sdt2.Visible:=True;
sdt3.Visible:=True;
sdt4.Visible:=True;
sdt5.Visible:=True;
sdt6.Visible:=True;
sdt7.Visible:=True;
sdt8.Visible:=True;
sdt9.Visible:=True;
sdt10.Visible:=True;
end;
end;



procedure TForm1.btn1Click(Sender: TObject);
  begin
    if sdt1.Visible=true then
  begin
  sdt1.Visible:=False;
  end
  else
  begin

  if sdt1.text = '' then
  sdt1.Visible := True
  else
    begin
    ShellExecute(0, 'open', PWideChar(sdt1.Text), nil, nil, SW_SHOW);
    end;
  end;
end;

procedure TForm1.btn2Click(Sender: TObject);
  begin
    if sdt2.Visible=true then
  begin
  sdt2.Visible:=False;
  end
  else
  begin

  if sdt2.text = '' then
  sdt2.Visible := True
  else
    begin
    ShellExecute(0, 'open', PWideChar(sdt2.Text), nil, nil, SW_SHOW);
    end;
  end;
end;

procedure TForm1.btn3Click(Sender: TObject);
  begin
    if sdt3.Visible=true then
  begin
  sdt3.Visible:=False;
  end
  else
  begin

  if sdt3.text = '' then
  sdt3.Visible := True
  else
    begin
    ShellExecute(0, 'open', PWideChar(sdt3.Text), nil, nil, SW_SHOW);
    end;
  end;
end;


procedure TForm1.btn4Click(Sender: TObject);
  begin
    if sdt4.Visible=true then
  begin
  sdt4.Visible:=False;
  end
  else
  begin
  if sdt4.text = '' then
  sdt4.Visible := True
  else
    begin
    ShellExecute(0, 'open', PWideChar(sdt4.Text), nil, nil, SW_SHOW);
    end;
  end;
end;

procedure TForm1.btn5Click(Sender: TObject);
  begin
  if sdt5.Visible=true then
  begin
  sdt5.Visible:=False;
  end
  else
  begin
  if sdt5.text = '' then
  sdt5.Visible := True
  else
    begin
    ShellExecute(0, 'open', PWideChar(sdt5.Text), nil, nil, SW_SHOW);
    end;
  end;
end;
procedure TForm1.btn6Click(Sender: TObject);
  begin
    if sdt6.Visible=true then
  begin
  sdt6.Visible:=False;
  end
  else
  begin

  if sdt6.text = '' then
  sdt6.Visible := True
  else
    begin
    ShellExecute(0, 'open', PWideChar(sdt6.Text), nil, nil, SW_SHOW);
    end;
  end;
end;

procedure TForm1.btn7Click(Sender: TObject);
  begin
    if sdt7.Visible=true then
  begin
  sdt7.Visible:=False;
  end
  else
  begin

  if sdt7.text = '' then
  sdt7.Visible := True
  else
    begin
    ShellExecute(0, 'open', PWideChar(sdt7.Text), nil, nil, SW_SHOW);
    end;
  end;
end;

procedure TForm1.btn8Click(Sender: TObject);
  begin
    if sdt8.Visible=true then
  begin
  sdt8.Visible:=False;
  end
  else
  begin

  if sdt8.text = '' then
  sdt8.Visible := True
  else
    begin
    ShellExecute(0, 'open', PWideChar(sdt8.Text), nil, nil, SW_SHOW);
    end;
  end;
end;

procedure TForm1.btn9Click(Sender: TObject);
  begin
    if sdt9.Visible=true then
  begin
  sdt9.Visible:=False;
  end
  else
  begin

  if sdt9.text = '' then
  sdt9.Visible := True
  else
    begin
    ShellExecute(0, 'open', PWideChar(sdt9.Text), nil, nil, SW_SHOW);
    end;
  end;
end;


procedure TForm1.btn10Click(Sender: TObject);
  begin
    if sdt10.Visible=true then
  begin
  sdt10.Visible:=False;
  end
  else
  begin

  if sdt10.text = '' then
  sdt10.Visible := True
  else
    begin
    ShellExecute(0, 'open', PWideChar(sdt10.Text), nil, nil, SW_SHOW);
    end;
  end;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var fi:TextFile;               //задаем файловую переменную
qw, we, er, rt, ty, yu, ui, io, qe, wr : string;
begin
s:=sEdit1.Text;
a:=sEdit2.Text;
d:=sEdit3.Text;
f:=sEdit4.Text;
g:=sEdit5.Text;
h:=sEdit6.Text;
j:=sEdit7.Text;
k:=sEdit8.Text;
l:=sEdit9.Text;
z:=sEdit10.Text;
////
//
//
////
qw :=sdt1.Text;
we :=sdt2.Text;
er :=sdt3.Text;
rt :=sdt4.Text;
ty :=sdt5.Text;
yu :=sdt6.Text;
ui :=sdt7.Text;
io :=sdt8.Text;
qe :=sdt9.Text;
wr:=sdt10.Text;
////
//
////
x:=spndt1.Text;
c:=spndt2.Text;
v:=spndt3.Text;
b:=spndt4.Text;
n:=spndt5.Text;
m:=spndt6.Text;
zx:=spndt7.Text;
xc:=spndt8.Text;
cv:=spndt9.Text;
vb:=spndt10.Text;
////
//
////
assignfile(fi,'setter');
Rewrite(fi);  //очищаем файл и записываем заного
writeln(fi,s);
writeln(fi,a);
writeln(fi,d);
writeln(fi,f);
writeln(fi,g);
writeln(fi,h);
writeln(fi,j);
writeln(fi,k);
writeln(fi,l);
writeln(fi,z);
////
//
////
writeln(fi,x);
writeln(fi,c);
writeln(fi,v);
writeln(fi,b);
writeln(fi,n);
writeln(fi,m);
writeln(fi,zx);
writeln(fi,xc);
writeln(fi,cv);
writeln(fi,vb);
////
//
////
Writeln(fi,qw);
Writeln(fi,we);
Writeln(fi,er);
Writeln(fi,rt);
Writeln(fi,ty);
Writeln(fi,yu);
Writeln(fi,ui);
Writeln(fi,io);
Writeln(fi,qe);
Writeln(fi,wr);
closefile(fi);
end;


procedure TForm1.FormShow(Sender: TObject);
var
  list: TStringList;
  fi: TextFile;
begin

if FileExists('setter') then

begin
    list := TStringList.Create;
    list.LoadFromFile ('setter');
    sEdit1.Text  := list[0];
    sEdit2.Text  := list[1];
    sEdit3.Text  := list[2];
    sEdit4.Text  := list[3];
    sEdit5.Text  := list[4];
    sEdit6.Text  := list[5];
    sEdit7.Text  := list[6];
    sEdit8.Text  := list[7];
    sEdit9.Text  := list[8];
    sEdit10.Text := list[9];
    //
    //
    //
    spndt1.Text  := list[10];
    spndt2.Text  := list[11];
    spndt3.Text  := list[12];
    spndt4.Text  := list[13];
    spndt5.Text  := list[14];
    spndt6.Text  := list[15];
    spndt7.Text  := list[16];
    spndt8.Text  := list[17];
    spndt9.Text  := list[18];
    spndt10.Text := list[19];
    ////
    //
    ////
    sdt1.Text := list[20];
    sdt2.Text := list[21];
    sdt3.Text := list[22];
    sdt4.Text := list[23];
    sdt5.Text := list[24];
    sdt6.Text := list[25];
    sdt7.Text := list[26];
    sdt8.Text := list[27];
    sdt9.Text := list[28];
    sdt10.Text := list[29];
    list.Free;
  end

  else


  begin
  assignfile(fi,'setter');
  Rewrite(fi);  //очищаем файл и записываем заного
  writeln(fi,'');
  writeln(fi,'');
  writeln(fi,'');
  writeln(fi,'');
  writeln(fi,'');
  writeln(fi,'');
  writeln(fi,'');
  writeln(fi,'');
  writeln(fi,'');
  writeln(fi,'');
  ////
  //
  ////
  writeln(fi,'0');
  writeln(fi,'0');
  writeln(fi,'0');
  writeln(fi,'0');
  writeln(fi,'0');
  writeln(fi,'0');
  writeln(fi,'0');
  writeln(fi,'0');
  writeln(fi,'0');
  writeln(fi,'0');
  ////
  //
  ////
  Writeln(fi,'');
  Writeln(fi,'');
  Writeln(fi,'');
  Writeln(fi,'');
  Writeln(fi,'');
  Writeln(fi,'');
  Writeln(fi,'');
  Writeln(fi,'');
  Writeln(fi,'');
  Writeln(fi,'');
  closefile(fi);

  end;

end;




procedure TForm1.sButton13Click(Sender: TObject);
var fi:TextFile;
begin
assignfile(fi,'setter');
Rewrite(fi);
writeln(fi,'');
writeln(fi,'');
writeln(fi,'');
writeln(fi,'');
writeln(fi,'');
writeln(fi,'');
writeln(fi,'');
writeln(fi,'');
writeln(fi,'');
writeln(fi,'');
writeln(fi,'0');
writeln(fi,'0');
writeln(fi,'0');
writeln(fi,'0');
writeln(fi,'0');
writeln(fi,'0');
writeln(fi,'0');
writeln(fi,'0');
writeln(fi,'0');
writeln(fi,'0');
closefile(fi);
sedit1.Text := '';
sedit2.Text := '';
sedit3.Text := '';
sedit4.Text := '';
sedit5.Text := '';
sedit6.Text := '';
sedit7.Text := '';
sedit8.Text := '';
sedit9.Text := '';
sedit10.Text := '';
spndt1.Text  := IntToStr(0);
spndt2.Text  := IntToStr(0);
spndt3.Text  := IntToStr(0);
spndt4.Text  := IntToStr(0);
spndt5.Text  := IntToStr(0);
spndt6.Text  := IntToStr(0);
spndt7.Text  := IntToStr(0);
spndt8.Text  := IntToStr(0);
spndt9.Text  := IntToStr(0);
spndt10.Text := IntToStr(0);
sdt1.Text:='';
sdt2.Text:='';
sdt3.Text:='';
sdt4.Text:='';
sdt5.Text:='';
sdt6.Text:='';
sdt7.Text:='';
sdt8.Text:='';
sdt9.Text:='';
sdt10.Text:='';
end;



end.

[Павел.DO]

добавь поле для ссылки)) что б ещё сайт запоминала, на котором смотришь) и по клику открывала в браузере по умолчанию)

[Yukikaze]

Я такое для ex.ua делал, написал небольшой юзерскрипт, который добавляет, через [Ссылки могут видеть только зарегистрированные пользователи. ], кнопку для запуска программы.
Ну а дальше в принципе все просто, программа получает первым параметром адрес странички, а вторым название раздачи. Все это заносится в базу и каждые 12 часов дергается GET запросом, проверяя не изменился ли заголовок

[KiRo_Lajt]

Цитата: Сообщение от Yukikaze Я такое для ex.ua делал, написал небольшой юзерскрипт, который добавляет, через [Ссылки могут видеть только зарегистрированные пользователи. ], кнопку для запуска программы. Ну а дальше в принципе все просто, программа получает первым параметром адрес странички, а вторым название раздачи. Все это заносится в базу и каждые 12 часов дергается GET запросом, проверяя не изменился ли заголовок

Цитата: Сообщение от Павел.DO добавь поле для ссылки)) что б ещё сайт запоминала, на котором смотришь) и по клику открывала в браузере по умолчанию)

Спасибо за советы. Попробую сделать. Кто может чем помочь - в скайп XDavataraXD. Правда, чаще пользуюсь помощью гугла;

//Доделал поддержку ссылок. Идея понравилась. Доделаю пару кнопок до новой версии - выложу! Всем добра!;

[Sinyss]

Пользуюсь сайтом myshows.ru и американским треккером, качаю серии через 3-5 часов после выхода. (когда выходят у нас ночь и качать сложно)

[KiRo_Lajt]

Цитата: Сообщение от Sinyss Пользуюсь сайтом myshows.ru и американским треккером, качаю серии через 3-5 часов после выхода. (когда выходят у нас ночь и качать сложно)

Может я и ошибаюсь, но вроде там только для IPhone, Android и WindowsPhone

//До меня дошло! Но там только сериалы, а те, которых там нет - никак туда не вписать (если же я снова не туплю)

[J-Fobos]

Предлагаю сделать список не с 10-ти штук, а с динамического количества. Например чтоб вводя ссылку в последнее поле добавлялась ниже еще одна.

[KiRo_Lajt]

Цитата: Сообщение от J-Fobos Предлагаю сделать список не с 10-ти штук, а с динамического количества. Например чтоб вводя ссылку в последнее поле добавлялась ниже еще одна.

Прошу по ссылке. Нужна Ваша помощь