initial commit

git-svn-id: http://svn.miranda-ng.org/main/trunk@2 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c

1 files changed, 369 insertions, 0 deletions

diff --git a/plugins/ImportTXT/ImportTxtWiz.pas b/plugins/ImportTXT/ImportTxtWiz.pas
new file mode 100644
index 0000000000..72c74b2386
--- /dev/null
+++ b/plugins/ImportTXT/ImportTxtWiz.pas
@@ -0,0 +1,369 @@
+unit ImportTxtWiz;

+

+interface

+

+uses Windows,Messages,SysUtils,

+     m_api,

+     general, ImportTU, FileDlgs,

+     ImportThrd

+     ;

+

+{$R ImpTxtWiz.res}

+{$I ImpWizRes.inc}

+

+const

+ WIZM_GOTOPAGE = (WM_USER+10);	//wParam=resource id, lParam=dlgproc

+ WIZM_DISABLEBUTTON = (WM_USER+11);    //wParam=0:back, 1:next, 2:cancel

+ WIZM_SETCANCELTEXT = (WM_USER+12);    //lParam=(char*)newText

+ WIZM_SETNEXTTEXT = (WM_USER+13);    //lParam=(char*)newText

+ WIZM_ENABLEBUTTON = (WM_USER+14);    //wParam=0:back, 1:next, 2:cancel

+

+ WIZM_ACCLISTCHANGED = (WM_USER+15);    //OnAccountListChanged

+

+var hwndPage:HWND;

+    IndexOfPattern:integer;

+    FileNames:array of WideString;

+    FileName:string;

+    nFO:integer;

+    FilePath:WideString;

+    ProtoSelect: integer;

+    ImportThrd:TImportThrd;

+    StartTime,FinishTime:TDateTime;

+    

+function WizardIntroPageProc(hdlg:HWND; hMessage,wParam,lParam:DWORD):LongBool; stdcall;

+function ImportTypePageProc(hdlg:HWND; hMessage,wParam,lParam:DWORD):LongBool; stdcall;

+function WizardDlgProc(hdlg:HWND; hMessage,wParam,lParam:DWORD):LongBool; stdcall;

+function ImportFilesPageProc(hdlg:HWND; hMessage,wParam,lParam:DWORD):LongBool; stdcall;

+function ImportDestinationPageProc(hdlg:HWND; hMessage,wParam,lParam:DWORD):LongBool; stdcall;

+function ImportProgressPageProc(hdlg:HWND; hMessage,wParam,lParam:DWORD):LongBool; stdcall;

+

+implementation

+

+

+function MakeFileList(hdlg:HWND; param:WORD):boolean;

+var i:integer;

+    s1:WideString;

+begin

+ result:=false;

+ case param of

+  IDC_FILE: FileName:=OpenDialogExecute(hdlg, $0200, nFO,TxtPatterns[IndexOfPattern].DefExtension); //OFN_ALLOWMULTISELECT = $00000200;

+  IDC_DIR: FileName:=FolderDialogExecute(hdlg, nFO,TxtPatterns[IndexOfPattern].DefExtension);

+ end;

+ if FileName<>'' then

+  begin

+   SendDlgItemMessageW(hDlg,IDC_LIST,LB_RESETCONTENT,0,0);

+   SendDlgItemMessageW(hdlg, IDC_PATH,WM_SETTEXT,0,0);

+   SetLength(FileNames,0);

+   FilePath:=Copy(FileName,1,nFO-1);

+   SendDlgItemMessageW(hdlg, IDC_PATH,WM_SETTEXT,0,dword(PWideChar(FilePath)));

+   i:=nFO;

+   while FileName[i+1]<>#0 do

+    begin

+     s1:='';

+     Inc(i);

+     while FileName[i]<>#0 do

+      begin s1:=s1+FileName[i]; inc(i); end;

+     if (s1<>'') and (s1<>#0) then

+      begin

+       SetLength(FileNames,Length(FileNames)+1);

+       FileNames[High(FileNames)]:=s1;

+       SendDlgItemMessageW(hDlg,IDC_LIST,LB_ADDSTRING,0,Integer(PWideChar(s1)));

+      end; 

+    end;

+  end;

+  if High(FileNames)>-1 then result:=true;

+end;

+

+procedure AddStatusMessage(hDLG:HWND; msg:WideString);

+begin

+  SendDlgItemMessageW(hDLG,IDC_STATUS,LB_SETCURSEL,SendDlgItemMessageW(hDLG,IDC_STATUS,LB_ADDSTRING,0,dword(PWideChar(msg))),0);

+end;

+

+procedure AccLstChngd;

+begin

+ SendMessageW(hwndPage,WIZM_ACCLISTCHANGED,0,0);

+end;

+

+function WizardIntroPageProc(hdlg:HWND; hMessage,wParam,lParam:DWORD):LongBool; stdcall;

+begin

+ result:=false;

+	case hMessage of

+   WM_INITDIALOG:

+    begin

+		 TranslateDialogDefault(hdlg);

+		 SendMessage(GetParent(hdlg), WIZM_DISABLEBUTTON, 0, 0);

+     IndexOfPattern:=0;

+     ProtoSelect:=0;

+     SetLength(FileNames,0);

+		 result:=true;

+		end;

+	 WM_COMMAND:

+		case LOWORD(wParam) of

+     IDOK:

+			 PostMessage(GetParent(hdlg), WIZM_GOTOPAGE, IDD_IMPTYPE, integer(@ImportTypePageProc));

+		 IDCANCEL:

+       PostMessage(GetParent(hdlg), WM_CLOSE, 0, 0);

+    end; //Case wParam

+  end; //Case hMassege

+end;

+

+function ImportTypePageProc(hdlg:HWND; hMessage,wParam,lParam:DWORD):LongBool; stdcall;

+var i:integer;

+begin

+ result:=false;

+	case hMessage of

+	 WM_INITDIALOG:

+    begin

+	   TranslateDialogDefault(hdlg);

+     ReadPatterns;

+     if PatternsCount>0 then

+      begin

+       For i:=0 to PatternsCount-1 do

+        SendDlgItemMessage(hDlg,IDC_COMBO1,CB_ADDSTRING,0,Integer(PatternNames[i]));

+       SendDlgItemMessage(hDlg, IDC_COMBO1, CB_SETCURSEL, GetLastPattern, 0);

+       IndexOfPattern:=GetLastPattern;

+      end

+                        else

+       SendMessage(GetParent(hdlg), WIZM_DISABLEBUTTON, 1, 0);

+ 	   result:=true;

+    end;

+	 WM_COMMAND:

+    begin

+     if (HiWord(wParam)=CBN_SELCHANGE) and (LoWord(wParam)=IDC_COMBO1) then

+         IndexOfPattern:=SendDlgItemMessage(hdlg, IDC_COMBO1, CB_GETCURSEL, 0, 0);

+		 Case LOWORD(wParam) of

+		  IDC_BACK:

+		   PostMessage(GetParent(hdlg), WIZM_GOTOPAGE, IDD_IMPWIZARDINTRO, integer(@WizardIntroPageProc));

+		  IDOK:

+       PostMessage(GetParent(hdlg), WIZM_GOTOPAGE, IDD_IMPFILES, integer(@ImportFilesPageProc));

+		  IDCANCEL:

+		   PostMessage(GetParent(hdlg), WM_CLOSE, 0, 0);

+     end; //Case wParam

+    end; //WM_COMMAND

+  end; //Case hMassage

+end;

+

+function ImportFilesPageProc(hdlg:HWND; hMessage,wParam,lParam:DWORD):LongBool; stdcall;

+var i:integer;

+begin

+ result:=false;

+	case hMessage of

+	 WM_INITDIALOG:

+    begin

+	   TranslateDialogDefault(hdlg);

+     if High(FileNames)<0 then SendMessage(GetParent(hdlg), WIZM_DISABLEBUTTON, 1, 0)

+                          else

+      begin

+       SendDlgItemMessageW(hdlg, IDC_PATH,WM_SETTEXT,0,dword(PWideChar(FilePath)));

+       for i:=0 to High(FileNames) do

+        SendDlgItemMessageW(hDlg,IDC_LIST,LB_ADDSTRING,0,Integer(PWideChar(FileNames[i])));

+      end;

+		 result:=true;

+    end;

+	 WM_COMMAND:

+		Case LOWORD(wParam) of

+     IDC_FILE,

+     IDC_DIR: if MakeFileList(hdlg,LOWORD(wParam)) then SendMessage(GetParent(hdlg), WIZM_ENABLEBUTTON, 1, 0)

+                                                   else SendMessage(GetParent(hdlg), WIZM_DISABLEBUTTON, 1, 0);

+		 IDC_BACK:

+		   PostMessage(GetParent(hdlg), WIZM_GOTOPAGE, IDD_IMPTYPE, integer(@ImportTypePageProc));

+		 IDOK:

+       PostMessage(GetParent(hdlg), WIZM_GOTOPAGE, IDD_IMPDEST, integer(@ImportDestinationPageProc));

+		 IDCANCEL:

+		   PostMessage(GetParent(hdlg), WM_CLOSE, 0, 0);

+    end; //Case wParam

+  end; //Case hMassage

+end;

+

+function ImportDestinationPageProc(hdlg:HWND; hMessage,wParam,lParam:DWORD):LongBool; stdcall;

+var i:integer;

+    tempws:WideString;

+begin

+ result:=false;

+	case hMessage of

+	 WM_INITDIALOG:

+    begin

+	   TranslateDialogDefault(hdlg);

+     EnumProtocols;

+     for i:=0 to ProtoCount-1 do

+       begin

+        tempws:=Protocols[i].ProtoName+' | ';

+        if IsMirandaUnicode then tempws:=tempws+UTF8Decode(Protocols[i].ProtoUID)+' | '+UTF8Decode(Protocols[i].ProtoNick)

+                            else tempws:=tempws+Protocols[i].ProtoUID+' | '+Protocols[i].ProtoNick;

+        SendDlgItemMessageW(hDlg,IDC_COMBO1,CB_ADDSTRING,0,Integer(PWideChar(tempws)));

+       end;

+     SendDlgItemMessage(hDlg, IDC_COMBO1, CB_SETCURSEL, 0, 0);

+     OnAccountListChange:=AccLstChngd;

+     CheckDlgButton(hdlg,IDC_CHKDUPW,BST_CHECKED);

+     CheckForDuplicates:=true;

+     CheckDlgButton(hdlg,IDC_SHOWDUPW,BST_UNCHECKED);

+     CheckForDuplicates:=false;

+	   result:=true;

+    end;

+	 WM_COMMAND: begin

+    if (HiWord(wParam)=CBN_SELCHANGE) and (LoWord(wParam)=IDC_COMBO1) then

+         ProtoSelect:=SendDlgItemMessage(hdlg, IDC_COMBO1, CB_GETCURSEL, 0, 0);

+    if (HiWord(wParam)=BN_CLICKED) and (LoWord(wParam)=IDC_CHKDUPW) then

+     if LongBool(IsDlgButtonChecked(hdlg,IDC_CHKDUPW)) then EnableWindow(GetDlgItem(hdlg, IDC_SHOWDUPW), TRUE)

+                                                         else EnableWindow(GetDlgItem(hdlg, IDC_SHOWDUPW), FALSE);

+		Case LOWORD(wParam) of

+		 IDC_BACK:

+		   PostMessage(GetParent(hdlg), WIZM_GOTOPAGE, IDD_IMPFILES, integer(@ImportFilesPageProc));

+		 IDOK:begin

+       CheckForDuplicates:=LongBool(IsDlgButtonChecked(hdlg,IDC_CHKDUPW));

+       ShowDuplicates:=LongBool(IsDlgButtonChecked(hdlg,IDC_SHOWDUPW));

+       PostMessage(GetParent(hdlg), WIZM_GOTOPAGE, IDD_PROGRESS, integer(@ImportProgressPageProc));end;

+ 		 IDCANCEL:

+		   PostMessage(GetParent(hdlg), WM_CLOSE, 0, 0);

+    end; //Case wParam

+   end; //WM_COMMAND

+   WIZM_ACCLISTCHANGED:begin

+    ProtoSelect:=SendDlgItemMessage(hdlg, IDC_COMBO1, CB_GETCURSEL, 0, 0);

+    SendDlgItemMessageW(hDlg,IDC_COMBO1,CB_RESETCONTENT,0,0);

+    for i:=0 to ProtoCount-1 do

+     begin

+      tempws:=Protocols[i].ProtoName+' | ';

+      if IsMirandaUnicode then tempws:=tempws+UTF8Decode(Protocols[i].ProtoUID)+' | '+UTF8Decode(Protocols[i].ProtoNick)

+                          else tempws:=tempws+Protocols[i].ProtoUID+' | '+Protocols[i].ProtoNick;

+      SendDlgItemMessageW(hDlg,IDC_COMBO1,CB_ADDSTRING,0,Integer(PWideChar(tempws)));

+     end;

+     if ProtoSelect<ProtoCount-1 then SendDlgItemMessage(hDlg, IDC_COMBO1, CB_SETCURSEL, ProtoSelect, 0)

+                                 else SendDlgItemMessage(hDlg, IDC_COMBO1, CB_SETCURSEL, ProtoCount-1, 0);

+   end; //WIZM_...

+  end; //Case hMassage

+end;

+

+function ImportProgressPageProc(hdlg:HWND; hMessage,wParam,lParam:DWORD):LongBool; stdcall;

+var H,Mi,sec,ms:word;

+    s:WideString;

+    tempwstr:PWideChar;

+begin

+ result:=false;

+	case hMessage of

+	 WM_INITDIALOG:

+    begin

+	   TranslateDialogDefault(hdlg);

+     SendMessage(GetParent(hdlg), WIZM_DISABLEBUTTON, 0, 0);

+     SendMessage(GetParent(hdlg), WIZM_DISABLEBUTTON, 1, 0);

+     SendMessage(GetParent(hdlg), WIZM_DISABLEBUTTON, 2, 0);

+     SendMessage(GetParent(hdlg), WIZM_SETCANCELTEXT, 0, Integer(PWideChar(TranslateWideString('Finish'))));

+     //START THREAD

+     ImportThrd:=TImportThrd.Create(TRUE);

+     ImportThrd.FreeOnTerminate:=true;

+     ImportThrd.DContact.hContact:=0;

+     ImportThrd.Destination:=Protocols[ProtoSelect];

+     ImportThrd.FileNames:=FileName+#0+#0;

+     ImportThrd.OffsetFileName:=nFO;

+     ImportThrd.WorkPattern:=TxtPatterns[IndexOfPattern];

+     ImportThrd.ParentHWND:=hdlg;

+     ImportThrd.Resume;

+		 result:=true;

+    end;

+	 WM_COMMAND:

+		Case LOWORD(wParam) of

+		 IDCANCEL:

+		   PostMessage(GetParent(hdlg), WM_CLOSE, 0, 0);

+    end; //Case wParam

+  //Далее оброботка сообщений от потока импорта

+  //Начали

+  ITXT_THREAD_ALLSTARTED:StartTime:=Time;

+  ITXT_THREAD_START:begin

+     AddStatusMessage(hdlg,TranslateWideString('Import started...'));

+    end;

+  //Известна длинна файла выставляем диапазон прогрессбара

+  ITXT_THREAD_MAXPROGRESS:

+     SendDlgItemMessage(hdlg,IDC_PROGRESS,PBM_SETRANGE,0,MakeLParam(0,lParam));

+  //Идет прогресс ...

+  ITXT_THREAD_PROGRESS:

+     SendDlgItemMessage(hdlg,IDC_PROGRESS,PBM_SETPOS,wParam,0);

+  //Возникла ошибка

+  ITXT_THREAD_ERROR:

+     AddStatusMessage(hdlg,TranslateWideString(PWideChar(wParam)));

+  //Закончили

+  ITXT_THREAD_FINISH:begin

+     AddStatusMessage(hdlg,WideFormat(TranslateWideString('Added: %d messages'),[wParam]));

+     AddStatusMessage(hdlg,WideFormat(TranslateWideString('Duplicates: %d messages'),[lParam]));

+     end;

+  //начали новый файл

+  ITXT_THREAD_START_FILE:

+      AddStatusMessage(hdlg,WideFormat(TranslateWideString('File: %s'),[PWideChar(wParam)]));

+  //определили контакт

+  ITXT_THREAD_DEST_CONTACT:begin

+     if IsMirandaUnicode then

+       begin

+      tempwstr:=UTF8toWide(PChar(GetContactID(wParam,'',true)),tempwstr);

+      s:= tempwstr;

+      tempwstr:=UTF8toWide(PChar(GetContactNick(wParam,'',true)),tempwstr);

+      s:=s +  ' | ' + tempwstr;

+       end

+                         else

+      s:=GetContactID(wParam,'',true)+' | '+GetContactNick(wParam,'',true);

+     AddStatusMessage(hdlg,WideFormat(TranslateWideString('To: %s'),[s]));

+     end;

+  ITXT_THREAD_ALLFINISHED:begin

+     FinishTime:=Time;

+     DecodeTime(FinishTime-StartTime,h,mi,sec,ms);

+     AddStatusMessage(hdlg,WideFormat(TranslateWideString('In: %d:%d:%d'),[h,mi,sec]));

+     SendMessage(GetParent(hdlg), WIZM_ENABLEBUTTON, 2, 0);

+     end;

+  end; //Case hMessage

+end;

+

+function WizardDlgProc(hdlg:HWND; hMessage,wParam,lParam:DWORD):LongBool; stdcall;

+begin

+ result:=false;

+ case hMessage of

+  WM_DESTROY:

+    SetLastPattern(IndexOfPattern);

+	WM_INITDIALOG:

+   begin

+	  TranslateDialogDefault(hdlg);

+    hwndPage:=CreateDialog(hInstance, MAKEINTRESOURCE(IDD_IMPWIZARDINTRO), hdlg, @WizardIntroPageProc);

+    SetWindowPos(hwndPage, 0, 0, 0, 0, 0, SWP_NOZORDER or SWP_NOSIZE);

+    ShowWindow(hwndPage, SW_SHOW);

+    ShowWindow(hdlg, SW_SHOW);

+    SendMessage(hdlg, WM_SETICON, ICON_BIG, LoadIcon(hInstance,MAKEINTRESOURCE(110)));

+    result:=true;

+   end;

+  WIZM_GOTOPAGE:

+   begin

+	  DestroyWindow(hwndPage);

+	  EnableWindow(GetDlgItem(hdlg, IDC_BACK), TRUE);

+	  EnableWindow(GetDlgItem(hdlg, IDOK), TRUE);

+	  EnableWindow(GetDlgItem(hdlg, IDCANCEL), TRUE);

+	  SetDlgItemTextW(hdlg, IDCANCEL, PWideChar(TranslateWideString('Cancel')));

+	  hwndPage:=CreateDialog(hInstance, MAKEINTRESOURCE(wParam), hdlg, Pointer(lParam));

+	  SetWindowPos(hwndPage, 0, 0, 0, 0, 0, SWP_NOZORDER or SWP_NOSIZE);

+	  ShowWindow(hwndPage, SW_SHOW);

+   end;

+	WIZM_DISABLEBUTTON:

+   begin

+		case wParam of

+		 0: EnableWindow(GetDlgItem(hdlg, IDC_BACK), FALSE);

+		 1: EnableWindow(GetDlgItem(hdlg, IDOK), FALSE);

+		 2: EnableWindow(GetDlgItem(hdlg, IDCANCEL), FALSE);

+    end; //Case wParam

+   end;

+	WIZM_ENABLEBUTTON:

+   begin

+	  case wParam of

+	   0: EnableWindow(GetDlgItem(hdlg, IDC_BACK), TRUE);

+	   1: EnableWindow(GetDlgItem(hdlg, IDOK), TRUE);

+     2: EnableWindow(GetDlgItem(hdlg, IDCANCEL), TRUE);

+		end; //Case wParam

+   end;

+	WIZM_SETCANCELTEXT:

+		SetDlgItemTextW(hdlg, IDCANCEL, PWideChar(lParam));

+  WIZM_SETNEXTTEXT:

+    SetDlgItemTextW(hdlg, IDOK, PWideChar(lParam));

+	WM_COMMAND:

+		SendMessage(hwndPage, WM_COMMAND, wParam, lParam);

+	WM_CLOSE:

+   begin

+    OnAccountListChange:=nil;

+		DestroyWindow(hwndPage);

+		DestroyWindow(hdlg);

+   end;

+ end;// Case hMessage

+end;

+end.