diff options
Diffstat (limited to 'plugins/ImportTXT/ImportTxtWiz.pas')
| -rw-r--r-- | plugins/ImportTXT/ImportTxtWiz.pas | 369 |
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.
|