Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi: Базы данных
Войти
Регистрация
Восстановить пароль
 
xas
0 / 0 / 0
Регистрация: 13.03.2017
1

Необходимы как воздух комменты

31.05.2012, 23:54. Просмотров 358. Ответов 0
Метки нет (Все метки)

Люди плиз хелп ми!! У меня есть отрезки кода, но с делфи я не очень, и мне необходимо узнать, что означает каждая строчка кода. Если не сложно, помогите чайнику. Буду очень благодарен всем откликнувшимся помочь))
Код не полный, но 100% рабочий, может кому то пригодится

Delphi
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);
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
31.05.2012, 23:54
Ответы с готовыми решениями:

Подскажите необходимы компонент
Доброго времени суток форумчане))) Плиз помогите, подскажите, что это за...

Какие компоненты необходимы для работы с Excel (Office2013)?
Какие компоненты необходимы для работы с Excel (Microsoft Office 2013)?

Какие главы математики необходимы как воздух будущему программисту?
Добрый день, люди! Подскажите, пожалуйста, какие главы / темы математики...

Обладает ли воздух потенциалом или почему воздух не земля?
Собственно, вопрос в шапке. Обладает ли воздух потенциалом и, если да (ну...

Кроссбраузерность. Нужно, как воздух!
Всем доброго времени суток! Почему в Opera и Google Chrome нижеприведенный...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
31.05.2012, 23:54

Как парсить комменты на youtube.com?
Всем привет! Кто знает как парсить комменты на youtube.com? p.s. Поиском...

Как убрать воздух из СНПЧ в Canon mp280
Как убрать воздух из СНПЧ в Canon mp280, вот фото оранжевого цвета, там и...

Как выудить необходимы данные при парсинге
Добрый день Мне необходимо спарсить данную страницу...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru