DLL как контейнер языковых файлов

@Samrisbe · Регистрация: 28.01.2011

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

Доброе утро! Прошу совета у опытных программистов!

Разумно ли использовать DLL как контейнер языков приложения?

Если да то помогите осуществить таккак я с DLL не работал.

@Flyer · 20.10.2011, 10:59

Проект рад хе2, а ты пробовал на 6 билдере я так думаю

@Samrisbe · 20.10.2011, 13:33 **[ТС]**

Сообщение от Flyer

Проект рад хе2, а ты пробовал на 6 билдере я так думаю

Builder 6 его вобще не видит как Project, видать пошол большой разрыв между поколениями Builderov

Добавлено через 1 час 7 минут
---------------------------------------------------------------------------------------------
Ответ на мой вопрос решит мою проблему с языками...

Как вместо того чтоб при загрузке языка не писать все названия как в примере:
пример:

C++
1
2
3
Button1->Caption = Ini->ReadString("Buttons","Button1","");
  Label1->Caption = Ini->ReadString("Labels","Label1","");
  CheckBox1->Caption = Ini->ReadString("CheckBoxs","CheckBox1","");

А написать одной строчкой типа:

C++
1
Ini->ReadString("Все компоненты","Caption","");

и чтоб все Captionы сменились на те что в ini.

Добавлено через 33 минуты
Из всего изученного я понял что надо писать для каждого компонента свой отдельный оператор загрузки Captiona из ини.
Надо написать код который будет загружать Captionы из ини все по одной команде.

@Programmer. · 20.10.2011, 14:50

Samrisbe,

Сообщение от Samrisbe

Легче всего так и сделать но я присоеденяюсь к той партии которая за хранение языковых настроек в ini, и врятли обрету покой пока не сделаю как советует уважаемый LK.
Programmer мои соболезнования по поводу компа. Если хоть чемто смогу тебе помочь, я буду только рад.

Спасибо дружишее, комп не жално(Шас лучще, новый комп купил), Я сегодня собераюс к другу пойти и достать проект с того винта а то 2 месяца царапал внем

Ну Я тоже сделал вчера в ини, не выжу и внем проблем

Я както в цикле сделал, Вечером покажу если хочеш.

@Samrisbe · 20.10.2011, 15:58 **[ТС]**

Я вот как придумал но пока немогу осуществить выбивает ошибку при исполнении программы:

поэтапно мои действия:
шаг первый:
У меня четыре CheckBoxа выбора языка, я выбираю первый "украинский"
1. Украинский v
2. Руский
3. Английский
4. Эстонский

шаг второй:
Кликаю по батону сменить язык на выбранный в : CheckBox->Checked == true

C++
1
2
3
4
5
6
7
8
9
10
11
12
if (CheckBox1->Checked == true) // если выбран Украинский
TIniFile *Ini = new TIniFile(ExtractFilePath(Application->ExeName)+"\\Lang\\Ukr.ini");// подключаю ini с украинским языком
 
if (CheckBox2->Checked == true) // если выбран Русский
TIniFile *Ini = new TIniFile(ExtractFilePath(Application->ExeName)+"\\Lang\\Rus.ini");// подключаю ini с Русским языком
 
// и считываю данные из ini
  Button1->Caption = Ini->ReadString("Buttons","Button1","");
  Label1->Caption = Ini->ReadString("Labels","Label1","");
  CheckBox1->Caption = Ini->ReadString("CheckBoxs","CheckBox1","");
// отключаю ini
  delete Ini;

по идеи все ок но компилятору такой вариант не нравится и он говорит:

C++
1
[BCC32 Error] Unit1.cpp(88): E2451 Undefined symbol 'Ini'

Про последний шаг моих действий:

C++
1
2
3
  Button1->Caption = Ini->ReadString("Buttons","Button1","");
  Label1->Caption = Ini->ReadString("Labels","Label1","");
  CheckBox1->Caption = Ini->ReadString("CheckBoxs","CheckBox1","");

Если эту ошибку исправить получится отличный вариант!

Добавлено через 34 минуты
Ура я сделал это сам

Четкая смена языка причем не надо писать отдельный оператор на каждый язык, я просто подсовываю под чтение тот ини который соответствует выбору языка пользователем.

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
  TIniFile* Ini;
if (CheckBox2->Checked == true){
   Ini =  new TIniFile(ExtractFilePath(Application->ExeName)+"\\Lang\\Rus.ini");}
if (CheckBox3->Checked == true){
   Ini = new TIniFile(ExtractFilePath(Application->ExeName)+"\\Lang\\Eng.ini");}
if (CheckBox4->Checked == true){
   Ini = new TIniFile(ExtractFilePath(Application->ExeName)+"\\Lang\\Ukr.ini");}
if (CheckBox5->Checked == true){
   Ini = new TIniFile(ExtractFilePath(Application->ExeName)+"\\Lang\\Est.ini");}
 
  Button1->Caption = Ini->ReadString("Buttons","Button1","");
  Label1->Caption = Ini->ReadString("Labels","Label1","");
  CheckBox1->Caption = Ini->ReadString("CheckBoxs","CheckBox1","");
 
  delete Ini;

Блин всю ночь и пол дня угрохал чтоб сделать так как мне хотелось.

LK твои пример я так и не понял, аемсори.

Конечно не без помощи добрых людей тобиш форумчан всем спасибо.

cpp_developer · 20.10.2011, 17:59

Programmer., как сдох и как погиб ?

@Samrisbe · 20.10.2011, 18:09 **[ТС]**

Сообщение от LK

Programmer., как сдох и как погиб ?

С ним все впорядке он купил новый ПК.

Теперь программы будут вылетать как горячии пирожки

cpp_developer · 20.10.2011, 18:10

да я уже в курсе

Сообщение от Samrisbe

1. ...не надо писать отдельный оператор на каждый язык, я просто подсовываю под чтение тот ини который соответствует выбору языка пользователем.

C++
1
2
3
  TIniFile* Ini;
if (CheckBox2->Checked == true){
   Ini =  new TIniFile

2. твои пример я так и не понял...

а разве в моих "примерах" этого не было - объявления глобальной переменной ини , радиокнопок вместо твоих чекбоксов и дальше все то, что ты придумал за всю ночь и пол-дня:

C++
1
2
3
4
5
6
7
8
  TIniFile * Eng;
...
void __fastcall TFormMain::RadioButtonLEngClick(TObject *Sender)
{
//
  FILE *F;
  Eng = new TIniFile(fEng);
//...

?

@Samrisbe · 20.10.2011, 18:22 **[ТС]**

Да теперь вижу...

Я весь форум перерыл все темы и варианты связанные с ини, и ни шиша, в итоге гдето в интернете нашел пример где в ини записывалось с переменной и обратно читалось в переменную, и тогда меня осенила мысль объявить переменную тот или иной языковой ини, покрутил повертел подумал покурил потом опять подумал потом поел глотнул винца потом поцеловал жену покурилпнул кота сел за комп и написал с нуля то что я уже внедрил в свой прект№1

Я думаю твой пример я не понял потамучто там все в куче, и мне было тяжело оттуда чтото выудить, из твоих сообщений я понял только одно структуру ини файла, и это мне здорого помогло!

Бульк еще одна бутылочка в твою коробку

@Flyer · 20.10.2011, 19:27

упистили мой вопрос =/
Unit1.cpp

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
41
42
43
// ---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
#include <IniFiles.hpp>
#include "Unit1.h"
// ---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
UnicodeString lng;
TIniFile *ini = new TIniFile("lang.ini");
 
// ---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) {
    RadioGroup1->Caption = ini->ReadString("En", "Group_name", "");
    RadioGroup1->Items->Strings[0] = ini->ReadString("En", "Option1", "");
    RadioGroup1->Items->Strings[1] = ini->ReadString("En", "Option2", "");
    RadioGroup1->Items->Strings[2] = ini->ReadString("En", "Option3", "");
}
 
// ---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    switch (RadioGroup1->ItemIndex) {
    case 0:
        lng = "En";
        break;
    case 1:
        lng = "Ua";
        break;
    case 2:
        lng = "Ru";
        break;
    }
 
    RadioGroup1->Caption = ini->ReadString(lng, "Group_name", "");
    RadioGroup1->Items->Strings[0] = ini->ReadString(lng, "Option1", "");
    RadioGroup1->Items->Strings[1] = ini->ReadString(lng, "Option2", "");
    RadioGroup1->Items->Strings[2] == ini->ReadString(lng, "Option3", "");
 
}
//---------------------------------------------------------------------------

структура ini файла

[En]
Group_name=Language
Option1=English
Option2=Ukrainian
Option3=Russian

[Ua]
Group_name=Мова
Option1=Англійська
Option2=Українська
Option3=Російська

[Ru]
Group_name=Язык
Option1=Английский
Option2=Украинский
Option3=Русский

Но почему-то всегда юзает дефолтное значение , то есть или секцию не находит или ключ. Почему?

cpp_developer · 20.10.2011, 19:33

можно и так, без отдельного языкового файла для каждого языка, но тогда указывайте, какую секцию читать:

C++
1
ini->ReadSection

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

@Flyer · 20.10.2011, 19:35

хмм, зачем тогда
ReadString(lng, "Option3", "");
что есть секция?

cpp_developer · 20.10.2011, 19:46

Сообщение от Flyer

1. зачем тогда
ReadString(lng, "Option3", "");
2. что есть секция?

1. понятия не имею, зачем оно вам
2. см. вышее
3.

@Flyer · 20.10.2011, 19:50

Я имел ввиду, что первый параметр это и есть секция с которой читать. То есть lng принимает значения En, Ru, Ua -> имена секций

А ридсекшн заносит всю секцию в стринглист, что есть немного не то

cpp_developer · 20.10.2011, 19:56

TIniFile
Работа с реестром и INI-файлами в Delphi

а как он должен понять, какую секцию читать?

переключайте как-нибудь:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
if... // например, язык системы - английский
  RadioGroup1->Caption = ini->ReadString("En", "Group_name", "");
  RadioGroup1->Items->Strings[0] = ini->ReadString("En", "Option1", "");
  RadioGroup1->Items->Strings[1] = ini->ReadString("En", "Option2", "");
  RadioGroup1->Items->Strings[2] = ini->ReadString("En", "Option3", "");
if... // например, язык системы - украинский
  RadioGroup1->Caption = ini->ReadString("Ua", "Group_name", "");
  RadioGroup1->Items->Strings[0] = ini->ReadString("Ua", "Option1", "");
  RadioGroup1->Items->Strings[1] = ini->ReadString("Ua", "Option2", "");
  RadioGroup1->Items->Strings[2] = ini->ReadString("Ua", "Option3", "");
if... // например, язык системы - русский
  RadioGroup1->Caption = ini->ReadString("Ru", "Group_name", "");
  RadioGroup1->Items->Strings[0] = ini->ReadString("Ru", "Option1", "");
  RadioGroup1->Items->Strings[1] = ini->ReadString("Ru", "Option2", "");
  RadioGroup1->Items->Strings[2] = ini->ReadString("Ru", "Option3", "");

и выше все же стоило посмотреть - там есть пример с иф.

@Flyer · 20.10.2011, 20:10

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

cpp_developer · 20.10.2011, 20:20

да, до кейса не дошел, а так:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
switch (RadioGroup1->ItemIndex) {
  case 0:
    lng = "En";
    RadioGroup1->Caption = ini->ReadString(lng, "Group_name", "");
    RadioGroup1->Items->Strings[0] = ini->ReadString(lng, "Option1", "");
    RadioGroup1->Items->Strings[1] = ini->ReadString(lng, "Option2", "");
    RadioGroup1->Items->Strings[2] == ini->ReadString(lng, "Option3", "");
  break;
  case 1:
    lng = "Ua";
    RadioGroup1->Caption = ini->ReadString(lng, "Group_name", "");
    RadioGroup1->Items->Strings[0] = ini->ReadString(lng, "Option1", "");
    RadioGroup1->Items->Strings[1] = ini->ReadString(lng, "Option2", "");
    RadioGroup1->Items->Strings[2] == ini->ReadString(lng, "Option3", "");
  break;
  case 2:
    lng = "Ru";
    RadioGroup1->Caption = ini->ReadString(lng, "Group_name", "");
    RadioGroup1->Items->Strings[0] = ini->ReadString(lng, "Option1", "");
    RadioGroup1->Items->Strings[1] = ini->ReadString(lng, "Option2", "");
    RadioGroup1->Items->Strings[2] == ini->ReadString(lng, "Option3", "");
  break;
}

? и не

C++
1
RadioGroup1->Items->Strings[2] == ini->ReadString(lng, "Option3", "");

а

C++
1
RadioGroup1->Items->Strings[2] = ini->ReadString(lng, "Option3", "");

@Flyer · 20.10.2011, 20:29

А зачем писать 3 раза одно и то же?
А насчет == конечно провтык, но это не причина проблемы

cpp_developer · 20.10.2011, 20:30

а как иначе ? ты все надеешься на экстрасенсорные способности билдера

чтобы было так, как ты хочешь, можно написать небольшую функцию, и передавать язык параметром:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
AnsiString SelectLang(AnsiString lng) {
}
  RadioGroup1->Caption = ini->ReadString(lng, "Group_name", "");
  RadioGroup1->Items->Strings[0] = ini->ReadString(lng, "Option1", "");
  RadioGroup1->Items->Strings[1] = ini->ReadString(lng, "Option2", "");
  RadioGroup1->Items->Strings[2] == ini->ReadString(lng, "Option3", "");
}
//...
switch (RadioGroup1->ItemIndex) {
  case 0:SelectLang("En");break;
  case 1:SelectLang("Ua");break;
  case 2:SelectLang("Ru");break;
}

@Flyer · 20.10.2011, 20:51

Хм, почему не работает код на создании формы тогда? Там сразу указана секция

@Programmer. · 20.10.2011, 21:14

Samrisbe,
Пример для МаинМену

Не по теме:

Прасти за опоздание :-[

C++
1
2
3
4
5
6
7
8
9
10
11
12
#include <IniFiles.hpp>
//--------------------------------
UnicodeString path = ExtractFilePath(Application->ExeName)+"lang.lng";
 TIniFile *ini = new TIniFile(path);
//--------------------------------
void __fastcall TForm3::Georgian1Click(TObject *Sender)
{
UnicodeString lng = "Ru";
ini->WriteString(lng,"Language1",_TEXT("Русский"));
 MainMenu1->Items->Find("File")->Find("Language")->Find("Russian")->Caption=ini->ReadString(lng,"Language1","");
 
}

LK
сдох, винчестер умер, а Я тупой на диске не записал, Вот шас пишу заного...

Новые блоги и статьи Все статьи Все блоги /
Nekobox - outbounds[0].transport: unknown transport type: raw damix 01.10.2026 Фикс ошибки Правым кликом по серверу -> отладочная информация -> edit Заменить "net": "raw", на "net": "tcp", Нажать кнопку reload.	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .
Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .	Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .	Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0. Maks 31.08.2026 При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .

@Samrisbe 1365 / 732 / 67 Регистрация: 28.01.2011 Сообщений: 2,069

	DLL как контейнер языковых файлов 14.10.2011, 10:46. Показов 8576. Ответов 53 Метки нет (Все метки) Доброе утро! Прошу совета у опытных программистов! Разумно ли использовать DLL как контейнер языков приложения? Если да то помогите осуществить таккак я с DLL не работал. 0

@Flyer wtf!? 750 / 281 / 25 Регистрация: 21.05.2010 Сообщений: 732
	20.10.2011, 10:59
	Проект рад хе2, а ты пробовал на 6 билдере я так думаю 1

cpp_developer 20124 / 5691 / 417 Регистрация: 09.04.2010 Сообщений: 22,546 Записей в блоге: 1
	20.10.2011, 17:59
	Programmer., как сдох и как погиб ? 1

@Samrisbe 1365 / 732 / 67 Регистрация: 28.01.2011 Сообщений: 2,069
	20.10.2011, 18:22 [ТС]
	Да теперь вижу... Я весь форум перерыл все темы и варианты связанные с ини, и ни шиша, в итоге гдето в интернете нашел пример где в ини записывалось с переменной и обратно читалось в переменную, и тогда меня осенила мысль объявить переменную тот или иной языковой ини, покрутил повертел подумал покурил потом опять подумал потом поел глотнул винца потом поцеловал жену покурилпнул кота сел за комп и написал с нуля то что я уже внедрил в свой прект№1 Я думаю твой пример я не понял потамучто там все в куче, и мне было тяжело оттуда чтото выудить, из твоих сообщений я понял только одно структуру ини файла, и это мне здорого помогло! Бульк еще одна бутылочка в твою коробку 1

@Flyer wtf!? 750 / 281 / 25 Регистрация: 21.05.2010 Сообщений: 732
	20.10.2011, 19:35
	хмм, зачем тогда ReadString(lng, "Option3", ""); что есть секция? 0

@Flyer wtf!? 750 / 281 / 25 Регистрация: 21.05.2010 Сообщений: 732
	20.10.2011, 19:50
	Я имел ввиду, что первый параметр это и есть секция с которой читать. То есть lng принимает значения En, Ru, Ua -> имена секций А ридсекшн заносит всю секцию в стринглист, что есть немного не то 0

@Flyer wtf!? 750 / 281 / 25 Регистрация: 21.05.2010 Сообщений: 732
	20.10.2011, 20:10
	Хмм, ну а чем мой вариант не подходит? Кейсом в зависимости от выбранного в групе подставляеться в переменную имя секции. Ну может глянь мой проект, а? 0

@Flyer wtf!? 750 / 281 / 25 Регистрация: 21.05.2010 Сообщений: 732
	20.10.2011, 20:29
	А зачем писать 3 раза одно и то же? А насчет == конечно провтык, но это не причина проблемы 0

@Flyer wtf!? 750 / 281 / 25 Регистрация: 21.05.2010 Сообщений: 732
	20.10.2011, 20:51
	Хм, почему не работает код на создании формы тогда? Там сразу указана секция 0