1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
| // ------Создание базы данных:-----------------------------------
procedure CreateDB();
Var
qCreateDb : TADOQuery;
begin
Try
SettingsForm.AdoCon.DefaultDatabase := SettingsForm.cbDB.Text;
Except
qCreateDb := TADOQuery.Create(SettingsForm);
qCreateDb.Connection := SettingsForm.AdoCon;
qCreateDb.SQL.Add('CREATE DATABASE IF NOT EXISTS spravochnik CHARACTER SET cp1251;');
qCreateDb.ExecSQL;
SettingsForm.AdoCon.DefaultDatabase := SettingsForm.cbDB.Text;
qCreateDb.ExecSQL;
End;
end;
//------------Подключение к серверу CTI Rander:---------------
Procedure TSettingsForm.ConnectToRanCom(Sender: TObject);
Begin
if Assigned(RCfrm) And RCfrm.IsConnectedToServer then Begin
RcFRM.Disconnect;
btConnectToRanCom.Caption:= 'Подключиться к RANDER';
ChangeCurState(CS_NOT_CONNECTED);
End
Else begin
Try
if Assigned(RCfrm) then Begin
RCfrm.Free;
End;
RCFrm:= TRanCom.Create(self);
RCfrm.OnServerConnectionStatusChanged:=OnConnectedRC;
IRCfrm:=RCfrm.DefaultInterface;
RCfrm.OnCallStateChanged:= OnChangeLineState;
RCfrm.Connect(eRCServerName.Text, eRCUsername.Text,eRCPassword.Text);
LineId:= IRCfrm.OpenLine(eRCLine.Text);
if Not RcFrm.IsConnectedToPbx then ShowMessage('Not Connected');
PostMessage(Handle,WM_SYSCOMMAND,SC_MINIMIZE,0);
ChangeCurState(CS_CONNECTED);
Timer2.Enabled:=true;
Except
ShowMessage('Не удалось подключиться к серверу');
ChangeCurState(CS_NOT_CONNECTED);
End;
end;
End;
//---------------Открытие карты Madow:------------------------------
Procedure OpenMadow();
var
Wnd: hWnd;
buff: array[0..127] of Char;
Rlst: LongBool;
StartUpInfo: TStartUpInfo;
ProcessInfo: TProcessInformation;
CmdLine,Filename : ShortString;
i:integer;
dummy :string;
Begin
Filename := SettingsForm.eMadowPath.Text;
CmdLine := '"' + FileName + '"' + strIIF(LastMapPath<>'',' "' + LastMapPath + '"','');
FillChar(StartUpInfo, SizeOf(TStartUpInfo), 0);
with StartUpInfo do begin
cb := SizeOf(TStartUpInfo);
dwFlags := STARTF_USESHOWWINDOW or STARTF_FORCEONFEEDBACK;
wShowWindow := SW_SHOWMAXIMIZED;
end;
Rlst := CreateProcess(nil, PChar( String( CmdLine ) ), nil, nil,false,CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS, nil,PChar(ExtractFilePath(Filename)),StartUpInfo,ProcessInfo);
if Rlst then with ProcessInfo do begin
WaitForInputIdle(hProcess, INFINITE);
CloseHandle(hThread);
CloseHandle(hProcess);
wnd := FindMadowWindow(dummy);
if wnd<>0 then SetForegroundWindow(wnd);
end
else Begin
ShowMessage('Ошибка открытия Madow');
ShowMessage(SysErrorMessage(GetLastError));
End;
if LastAdress <> '' then Begin
keybd_event(VK_CONTROL,0,0,0);
keybd_event(Ord('F'),0,0,0);
keybd_event(Ord('F'),0,KEYEVENTF_KEYUP,0);
keybd_event(VK_CONTROL,0,KEYEVENTF_KEYUP,0);
for i := 1 to Length(LastAdress) do Begin
Begin
keybd_event(VkKeyScan(LastAdress[i]),0,0,0);
keybd_event(VkKeyScan(LastAdress[i]),0,KEYEVENTF_KEYUP,0);
End;
End;
keybd_event(VK_RETURN,0,0,0);
keybd_event(VK_RETURN,0,KEYEVENTF_KEYUP,0); |
(
