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

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

31.05.2012, 23:54. Просмотров 346. Ответов 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
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Необходимы как воздух комменты (Delphi БД):

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

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

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

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

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

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

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

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

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

Как определять какие ключи компиляции необходимы при использовании сторонних библиотек?
Захотелось мне скомпилировать программу, использующую Zlib, но компилятор...

комменты
вот ниже программа счетчик ,напишите пожалуйста комменты и поподробнее если...


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

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

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