Форма авторизации +ini

@Oxotnuk · Регистрация: 18.06.2009

Студворк — интернет-сервис помощи студентам

Ребят,подскажите как реализовать такой момент. Есть много Sql серверов .подключение происходит с помощью ADOConnection.
Хочу примерно такую структура ini файла.
[server1]
127.0.0.1,5005
[server2]
127.0.0.1,5000
Как мне в ComboBox вытаскивать имена серверов?При выборе имени сервера, в ComboBox оно шарило,что по этому имени такой ip? и -> подключаемся

Заранее спасибо.

Добавлено через 22 часа 11 минут
Нет идей никаких?

@_Dimon_ · 06.03.2013, 12:48

C++
1
2
3
 TIniFile *pIniFile = new TIniFile(ExtractFilePath(Application->ExeName)+L"t.ini"); //твой ini файл
 pIniFile->ReadSections(ComboBox1->Items);
 delete pIniFile;

@Oxotnuk · 06.03.2013, 13:43 **[ТС]**

А как определять,что этому ИМЕНЮ_СЕРВЕРА использовать такой то IP и такой то ПОРТ,я просто зависаю на этом моменте,и не могу продумать

@_Dimon_ · 06.03.2013, 14:02

ини файл должен быть таким

[server1]
connect = 127.0.0.1,5005
[server2]
connect = 127.0.0.1,5000

после выбора в комбобоксе нужного сервера

C++
1
2
UnicodeString connect; //параметры подключения
connect =  pIniFile->ReadString(Combobox->Text,L"connect",L"");

@Oxotnuk · 06.03.2013, 15:42 **[ТС]**

А что означает L ***** L ?

@_Dimon_ · 06.03.2013, 16:01

L - это UnicodeString

Если у тебя билдер раньший чем 2009, то L ненадо

@Oxotnuk · 06.03.2013, 16:14 **[ТС]**

C++
1
2
3
TIniFile *pIniFile = new TIniFile(ExtractFilePath(Application->ExeName)+L"c:/MyAseClient/server.ini");
 pIniFile->ReadSections(ComboBox1->Items);
 delete pIniFile;

Что-то не забирает он в комбобокс ничего....

@_Dimon_ · 06.03.2013, 16:24

C++
1
TIniFile *pIniFile = new TIniFile(L"c:\\MyAseClient\\server.ini");

Добавлено через 2 минуты
ExtractFilePath(Application->ExeName) - это путь к папке где находится твой exe-файл

@Oxotnuk · 07.03.2013, 17:32 **[ТС]**

C++
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
#include "IniFiles.hpp"
#include "Unit1.h"
#include "Project1PCH1.h"
#include "Unit2.h"
TIniFile *pIniFile = new TIniFile(L"c:\\MyAseClient\\server.ini");
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
DataModule2->ADOConnection1->Connected=false;
DataModule2->ADOConnection1->ConnectionString = pIniFile->ReadString("ADO","ADOConnection","ADOConnection=Provider=MSDASQL.1;Password=MaskEdit1->Text;Persist Security Info=False;User ID=Edit1->Text;Data Source=sa");
DataModule2->ADOConnection1->Connected = true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
 pIniFile->ReadSections(ComboBox1->Items);
 UnicodeString connect;
connect =  pIniFile->ReadString(ComboBox1->Text,L"connect",L"");
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
 delete pIniFile;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button2Click(TObject *Sender)
{
Form1->Close();
}

Login Failed.... что-то не так с Edit?

Добавлено через 7 минут
Упс,затупил,нужно так.

C++
1
DataModule2->ADOConnection1->ConnectionString = pIniFile->ReadString("ADO","ADOConnection","ADOConnection=Provider=MSDASQL.1;MaskEdit1->Text=Password;Persist Security Info=False;Edit1->Text =User ID;Data Source=sa");

Добавлено через 47 минут

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
void __fastcall TForm1::Button1Click(TObject *Sender)
{
try {
DataModule2->ADOConnection1->Connected=false;
DataModule2->ADOConnection1->ConnectionString = pIniFile->ReadString("ADO","ADOConnection","ADOConnection=Provider=MSDASQL.1;MaskEdit1->Text=Password;Persist Security Info=False;Edit1->Text =User ID;Data Source=sa");
DataModule2->ADOConnection1->Connected = true;
if (DataModule2->ADOConnection1->Connected)
 {
    Form3->Show();
 }   }
catch( Exception &ex ) {
    ShowMessage( "error" );
    Close();
    return;}
}

Помогите довести до ума,как сделать проверку,что бы если логин не правильный,то форму не показывало? (Form3)

Добавлено через 15 часов 17 минут
Ребята...

как сделать проверку?

Добавлено через 6 часов 55 минут
Тема закрыта.Проблема решена.

Новые блоги и статьи Все статьи Все блоги /
Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .
Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .

@Oxotnuk 78 / 78 / 6 Регистрация: 18.06.2009 Сообщений: 533

	Форма авторизации +ini 06.03.2013, 11:21. Показов 1775. Ответов 8 Метки нет (Все метки) Ребят,подскажите как реализовать такой момент. Есть много Sql серверов .подключение происходит с помощью ADOConnection. Хочу примерно такую структура ini файла. [server1] 127.0.0.1,5005 [server2] 127.0.0.1,5000 Как мне в ComboBox вытаскивать имена серверов?При выборе имени сервера, в ComboBox оно шарило,что по этому имени такой ip? и -> подключаемся Заранее спасибо. Добавлено через 22 часа 11 минут Нет идей никаких? 0

@Oxotnuk 78 / 78 / 6 Регистрация: 18.06.2009 Сообщений: 533
	06.03.2013, 13:43 [ТС]
	А как определять,что этому ИМЕНЮ_СЕРВЕРА использовать такой то IP и такой то ПОРТ,я просто зависаю на этом моменте,и не могу продумать 0

@Oxotnuk 78 / 78 / 6 Регистрация: 18.06.2009 Сообщений: 533
	06.03.2013, 15:42 [ТС]
	А что означает L ***** L ? 0

@_Dimon_ 1408 / 572 / 127 Регистрация: 31.10.2011 Сообщений: 1,960
	06.03.2013, 16:01
	L - это UnicodeString Если у тебя билдер раньший чем 2009, то L ненадо 0