1 files changed, 0 insertions, 176 deletions
diff --git a/plugins/!Deprecated/MirandaNGHistoryToDB/IMDownloaderComponent/Demo/DownLoaderTestUnit.pas b/plugins/!Deprecated/MirandaNGHistoryToDB/IMDownloaderComponent/Demo/DownLoaderTestUnit.pas
deleted file mode 100644
index 2ca42ac174..0000000000
--- a/plugins/!Deprecated/MirandaNGHistoryToDB/IMDownloaderComponent/Demo/DownLoaderTestUnit.pas
+++ /dev/null
@@ -1,176 +0,0 @@
-unit DownLoaderTestUnit;
-
-interface
-
-uses
-  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
-  Dialogs, uIMDownLoader, StdCtrls, ToolWin, ComCtrls, Menus;
-
-type
-  TMainForm = class(TForm)
-    IMDownloader_Demo: TIMDownloader;
-    Edit1: TEdit;
-    ToolBar1: TToolBar;
-    StatusBar1: TStatusBar;
-    RichEdit1: TRichEdit;
-    SaveDialog1: TSaveDialog;
-    TBDownload: TToolButton;
-    TBStopDownload: TToolButton;
-    TBView: TToolButton;
-    ViewAsTest: TMenuItem;
-    SaveToFile: TMenuItem;
-    PopupMenu1: TPopupMenu;
-    ProgressBar1: TProgressBar;
-    procedure FormShow(Sender: TObject);
-    procedure IMDownloader_DemoError(Sender: TObject; E: TIMDownLoadError);
-    procedure IMDownloader_DemoAccepted(Sender: TObject);
-    procedure IMDownloader_DemoStartDownload(Sender: TObject);
-    procedure IMDownloader_DemoBreak(Sender: TObject);
-    procedure ViewAsTestClick(Sender: TObject);
-    procedure SaveToFileClick(Sender: TObject);
-    procedure TBDownloadClick(Sender: TObject);
-    procedure TBStopDownloadClick(Sender: TObject);
-    procedure TBViewClick(Sender: TObject);
-    procedure IMDownloader_DemoDownloading(Sender: TObject; AcceptedSize, MaxSize: Cardinal);
-    procedure IMDownloader_DemoHeaders(Sender: TObject; Headers: string);
-    procedure IMDownloader_DemoMD5Checked(Sender: TObject; MD5Correct,
-      SizeCorrect: Boolean; MD5Str: string);
-  private
-    { Private declarations }
-  public
-    { Public declarations }
-  end;
-
-var
-  MainForm: TMainForm;
-
-const
-  uURL = 'http://im-history.ru/update/get.php?file=HistoryToDB-Update';
-
-implementation
-
-{$R *.dfm}
-
-procedure TMainForm.FormShow(Sender: TObject);
-begin
-  Edit1.Text := uURL;
-  IMDownloader_Demo.DirPath := ExtractFilePath(Application.ExeName);
-end;
-
-procedure TMainForm.IMDownloader_DemoAccepted(Sender: TObject);
-begin
-  ProgressBar1.Visible := False;
-  TBStopDownload.Visible := false;
-  TBDownload.Visible := true;
-  TBView.Visible := true;
-  Edit1.ReadOnly := false;
-  StatusBar1.SimpleText :=
-    'Скачивание успешно завершено. Всего получено данных в байтах: ' + IntToStr
-    (IMDownloader_Demo.AcceptedSize);
-  //RichEdit1.Lines.Append('MD5 файла в памяти: '+MD5DigestToStr(MD5Stream(IMDownloader_Demo.OutStream)));
-end;
-
-procedure TMainForm.IMDownloader_DemoBreak(Sender: TObject);
-begin
-  ProgressBar1.Visible := False;
-  TBStopDownload.Visible := false;
-  TBStopDownload.Enabled := true;
-  TBDownload.Visible := true;
-  TBView.Visible := IMDownloader_Demo.AcceptedSize > 0;
-  Edit1.ReadOnly := false;
-  StatusBar1.SimpleText :=
-    'Скачивание остановлено. Всего получено данных в байтах: ' + IntToStr
-    (IMDownloader_Demo.AcceptedSize);
-end;
-
-procedure TMainForm.IMDownloader_DemoDownloading(Sender: TObject; AcceptedSize,
-  MaxSize: Cardinal);
-begin
-  StatusBar1.SimpleText := 'Получено байт: ' + IntToStr(AcceptedSize);
-  ProgressBar1.Visible := MaxSize > AcceptedSize;
-  ProgressBar1.Max := MaxSize;
-  ProgressBar1.Position := AcceptedSize;
-end;
-
-procedure TMainForm.IMDownloader_DemoError(Sender: TObject; E: TIMDownLoadError);
-var
-  s: string;
-begin
-  ProgressBar1.Visible := False;
-  TBStopDownload.Visible := false;
-  TBDownload.Visible := true;
-  TBView.Visible := IMDownloader_Demo.AcceptedSize > 0;
-  Edit1.ReadOnly := false;
-  case E of
-    deInternetOpen: s := 'Ошибка при открытии сессии. ';
-    deInternetOpenUrl: s := 'Ошибка при запрашивании файла. ';
-    deDownloadingFile: s := 'Ошибка при чтении файла. ';
-    deRequest: s := 'Ошибка при запросе данных через прокси-сервер. ';
-  end;
-  StatusBar1.SimpleText :=
-    s + 'Всего получено данных в байтах: ' + IntToStr
-    (IMDownloader_Demo.AcceptedSize);
-end;
-
-procedure TMainForm.IMDownloader_DemoHeaders(Sender: TObject; Headers: string);
-begin
-  RichEdit1.Lines.Text := Headers;
-end;
-
-procedure TMainForm.IMDownloader_DemoMD5Checked(Sender: TObject; MD5Correct,
-  SizeCorrect: Boolean; MD5Str: string);
-begin
-  if MD5Correct then
-    RichEdit1.Lines.Append('Контрольная сумма MD5 = '+MD5Str+' - ВЕРНА!')
-  else
-    RichEdit1.Lines.Append('Контрольная сумма MD5 = '+MD5Str+' - НЕ ВЕРНА!');
-  if SizeCorrect then
-    RichEdit1.Lines.Append('Размер файла = '+IntToStr(IMDownloader_Demo.AcceptedSize)+' - ВЕРНЫЙ!')
-  else
-    RichEdit1.Lines.Append('Размер файла = '+IntToStr(IMDownloader_Demo.AcceptedSize)+' - НЕ ВЕРНЫЙ!');
-end;
-
-procedure TMainForm.IMDownloader_DemoStartDownload(Sender: TObject);
-begin
-  TBDownload.Visible := false;
-  TBStopDownload.Visible := true;
-  TBView.Visible := false;
-  Edit1.ReadOnly := true;
-  StatusBar1.SimpleText := 'Инициализация скачивания...';
-end;
-
-procedure TMainForm.ViewAsTestClick(Sender: TObject);
-begin
-  RichEdit1.Lines.LoadFromStream(IMDownloader_Demo.OutStream);
-end;
-
-procedure TMainForm.SaveToFileClick(Sender: TObject);
-begin
-  if Edit1.Text = uURL then
-    SaveDialog1.FileName := 'HistoryToDBCreateDB.rar';
-  if SaveDialog1.Execute then
-    IMDownloader_Demo.OutStream.SaveToFile(SaveDialog1.FileName);
-end;
-
-procedure TMainForm.TBDownloadClick(Sender: TObject);
-begin
-  IMDownloader_Demo.URL := Edit1.Text;
-  //IMDownloader_Demo.Proxy := '192.168.42.240:1522';
-  IMDownloader_Demo.Proxy := '172.29.72.168:8080';
-  IMDownloader_Demo.Download;
-end;
-
-procedure TMainForm.TBStopDownloadClick(Sender: TObject);
-begin
-  StatusBar1.SimpleText := 'Останавливаем скачку';
-  TBStopDownload.Enabled := false;
-  IMDownloader_Demo.BreakDownload;
-end;
-
-procedure TMainForm.TBViewClick(Sender: TObject);
-begin
-  TBView.DropdownMenu.Popup(TBView.ClientOrigin.X,
-    TBView.ClientOrigin.Y + TBView.Height);
-end;
-
-end.