1 files changed, 176 insertions, 0 deletions
diff --git a/plugins/MirandaNGHistoryToDB/IMDownloaderComponent/Demo/DownLoaderTestUnit.pas b/plugins/MirandaNGHistoryToDB/IMDownloaderComponent/Demo/DownLoaderTestUnit.pas
new file mode 100644
index 0000000000..2ca42ac174
--- /dev/null
+++ b/plugins/MirandaNGHistoryToDB/IMDownloaderComponent/Demo/DownLoaderTestUnit.pas
@@ -0,0 +1,176 @@
+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.