RusFAQ.ru: Программирование на Delphi

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Delphi

Выпуск № 153
от 15.06.2005, 18:20

Вопрос № 21.991

Здравия желаю, Уважаемые! Тут на днях мне предложили написать одну программку. Одной из задач данной программы будет являться манипулирование различными рода данными. Одним словом надо написать обыкновенную базу данных. Решил писать на Delphi (у меня стоит пятая версия). Я когда-то писал для себя БД на Delphi, при этом использовал BDE. Сейчас же мне надо написать такую БД, чтобы можно было ее легко переносить. Дело в том, что мне ее заказали сразу несколько человек, и ездить к каждому устанавливать и редактировать BDE я не могу физически (я - инвалид). Так вот собственно и вопрос: можно ли обойтись в данном случае без BDE, есть ли в Delphi такие инструменты? Жду Ваших советов. Александр (zimorodokbrest@rambler.ru)

Отправлен: 09.06.2005, 20:53 Вопрос задал: Зимородкин Александр (статус: Посетитель) Всего ответов отправлено: 9

Отвечает: Jadd Здравствуйте, Зимородкин Александр! Есть, конечно. ADO. Можно, к примеру, делать базу в акцессе (Access), а линковать ее через ADO. Можно и другие базы - дело вкуса и фантазии. Можно сделать еще круче: базу линкуешь к ODBC и юзаешь либо adoшные компоненты, либо качаешь компоненты для odbc. Есть и компоненты сторонних фирм для якобы прямого доступа к той или иной базе, но большинство из них работает через тот же старый и не очень добрый Ole DB. Так что поле для маневра широко. Я последнее время, если конечно пишу на дельфях, юзаю только ADO, т.к. не в восторге от БДЕ. --------- Hakuna matata

Ответ отправил: Jadd (статус: 9-ый класс) Отправлен: 09.06.2005, 21:28 Оценка за ответ: 5 Комментарий оценки: Спасибо за ответ! Я уже думаю о ADO.

Отвечает: Denisss Здравствуйте, Зимородкин Александр! Да, есть! Можно воспользоваться ADO компонентами из поставки Delphi, либо можно скачать компоненты для работы с другими базами данных, не требующих BDE (например, можно взять TDBF и работать с базами dbf - http://sourceforge.net/projects/tdbf/)

Ответ отправил: Denisss (статус: 4-ый класс) Отправлен: 09.06.2005, 21:29 Оценка за ответ: 5 Комментарий оценки: Спасибо за ответ!

Отвечает: streetcat Здравствуйте, Зимородкин Александр! Есть. И много. Можно использовать компоненты ADO - они входят в стандартный состав Windows. Еще есть компоненты InterBase, dbExpress и др. Все они находятся на одноименных вкладках на панели компонент в Дельфи. Если у тебя нет ADO, то установи более новую версию Delphi, например Delphi 7, там они точно должны быть. --------- WinERROR: Keyboard not detected. Press Enter to continue

Ответ отправил: streetcat (статус: 6-ой класс) Отправлен: 09.06.2005, 23:10 Оценка за ответ: 5 Комментарий оценки: Спасибо за ответ! Я уже думаю о ADO.

Отвечает: komatoz Здравствуйте, Зимородкин Александр! Был такой компонент якобы позволяющий работать без BDE, поищи по поиску.. (Сам не пробовал)..

Ответ отправил: komatoz (статус: 2-ой класс) Отправлен: 10.06.2005, 03:12

Отвечает: sir henry Здравствуйте, Зимородкин Александр! Да, такие компоненты есть: 1. Если не использовать сервер баз данных, то можно подключатся к БД через ADO. Для Paradox и dBase таблиц компоненты доступа обычно уже есть в системе. Для доступа к базам Access компоненты устанавливаются вместе с MS Office (т.е. тоже везде есть). 2. Можно поставить идущий в комплекте с Дельфи сервер баз данных InterBase. Для него есть целая закладка компонентов прямого доступа. Называются IBX или InterBase Express. 3. Можно скачать како-либо специализированый компонент (например TDBF с sourceforge.net/projects/tdbf/). Он обеспечивает непосредственный доступ к БД типа dBase, интегрируется в Вашу программу и не требует установки на машине клиента.

Ответ отправил: sir henry (статус: Профессор) Отправлен: 10.06.2005, 04:38 Оценка за ответ: 5 Комментарий оценки: Спасибо за ответ!

Отвечает: Rusland Здравствуйте, Зимородкин Александр! Минимальный дистрибутив BDE занимает 753Кб в архиве, его можно высылать людям по почте, а они уже сами его поставят. Если нужен архив BDE, могу выслать.

Ответ отправил: Rusland (статус: 5-ый класс) Отправлен: 10.06.2005, 09:08 Оценка за ответ: 5 Комментарий оценки: Спасибо за ответ! Я уже думаю о ADO. А архив, если можно, все же вышли. Мало ли что, а вось пригодится. Мой e-mail: zimorodokbrest@rambler.ru

Отвечает: Tsechoev Bagaudin Здравствуйте, Зимородкин Александр! Нет никаких проблем, в Делфи 5 уже присутствуют компоненты ADO, а что касается самой БД, то возьми MySQL ничего в нем сложно, что под Винды, что под юникс-системы устанавливается очень просто. Скачай драйвер ODBC для него, и дергай SQL. Я знаю по старому опыту, какое д....о BDE. Удачи! --------- Есть только одно зло - невежество, и только одно благо - знания

Ответ отправил: Tsechoev Bagaudin (статус: 1-ый класс) Отправлен: 10.06.2005, 11:28 Оценка за ответ: 5 Комментарий оценки: Спасибо за ответ! Я уже думаю о ADO.

Отвечает: Voituk Alexander Здравствуйте, Зимородкин Александр! Слушай, я почитал все ответы. Все это здорово. Но по моему у тебя написано - " обыкновенную базу данных". Зачем тебе все эти навороты. Мне нужно было написать простенькую прогу для работы с DBF (причем VoxPro). Я пользовалься обычным компонентом TTable. Безо всяких BDE 100%. Даю тебе свой примерчик. Правда он на С++, но я думаю разберешься. Приложение: TTable *Table1; //создаем новую таблицу Table1 = new TTable(this); Table1->Active = false; Table1->FieldDefs->Clear(); Table1->IndexDefs->Clear(); //добавляем поля Table1->FieldDefs->Add("AXIS" ,ftMemo,4,false); Table1->FieldDefs->Add("ELEM" ,ftMemo,4,false); Table1->FieldDefs->Add("KOOR" ,ftMemo,4,false); //указываем ее тип и имя файла Table1->TableType = ttFoxPro; Table1->DatabaseName = ""; //здесь обязательно пусто иначе используется поиск в BDE Table1->TableName = "1111"; //это имя файла Table1->CreateTable(); Table1->Active = true; //добавляем запись - ну и так далее ... Table1->Append();

Ответ отправил: Voituk Alexander (статус: 8-ой класс) Отправлен: 10.06.2005, 11:33 Оценка за ответ: 5 Комментарий оценки: Спасибо за ответ! Я уже думаю о ADO.Но примерчик возможно пригодится.

Отвечает: Мурник Роман Здравствуйте, Зимородкин Александр! Другого выхода, как использовато BDE нет, он легко устанавливается и не требует настройки. А в вашей программе не нужно использовать Alias, надо просто указать путь к базе и имя используемой таблицы.

Ответ отправил: Мурник Роман (статус: 1-ый класс) Отправлен: 12.06.2005, 10:14

Вопрос № 21.993

Здравствуйте господа эксперты! Может быть мой вопрос покажется вам сложным, но я очень надеюсь получить на него ответ. Имеется телефон SonyEricsson-T610. Провод к компу и "голубой зуб". Мне нудно сделать прогу, которая будет принимать SMS-ки, обрабатывать и отсылать обратно на номер с которого были посланы. Залезал на сайт SonyEr в раздел development. Там все по англиски, там похоже ничего подобного нет :( Помогите пожалуйста, очень-очень надо, желательно с кусочками кода, ато самому не разобратся. Мой е-мыло: error911@mail.ru Огромное-приогромное спасибо.

Отправлен: 09.06.2005, 23:56 Вопрос задал: Мурник Роман (статус: 1-ый класс) Всего ответов отправлено: 1

Отвечает: Snowm@n Здравствуйте, Мурник Роман! Вам два совета: 1) Поищите программу FMA - как раз для SonyEricsson и с исходниками на Delphi 2) Если FMA найти не удалось, то ищите список AT-команд для модема Ericsson'a, ведь большинство операций, в частности и отправка SMS, происходит через них. Затем напишите AT-терминал. p.s. Если есть желание, пишите мне на zews_snowman@list.ru, я писал нечто подобное для Siemens

Ответ отправил: Snowm@n (статус: Студент) Отправлен: 10.06.2005, 09:02 Оценка за ответ: 4 Комментарий оценки: Эта прога у меня есть, даже с исходниками, но там так все наворочено и не компилируется, требует много компонентов разных :( А как нить попроще можно?

Вопрос № 22.008

Zdravstvuyte. Kak mojno pomenyat wallpaper desktopa iz delphi?

Отправлен: 10.06.2005, 11:28 Вопрос задал: Orkhan Gasimov Ayaz (статус: Посетитель) Всего ответов отправлено: 8

Отвечает: Jadd Здравствуйте, Orkhan Gasimov Ayaz! Есть такая функция SystemParametersInfo. Читай в MSDN и хелпе про ее параметры и пробуй. --------- Hakuna matata

Ответ отправил: Jadd (статус: 9-ый класс) Отправлен: 10.06.2005, 12:02

Отвечает: X Здравствуйте, Orkhan Gasimov Ayaz! Информация по обоям храниться в реестре в разделе HKEY_CURRENT_USERControi PanelDesktop TileWallpaper

Ответ отправил: X (статус: 6-ой класс) Отправлен: 10.06.2005, 13:19

Отвечает: Tsechoev Bagaudin uses registry; procedure TForm1.Button1Click(Sender: TObject); var Reg: TRegistry; begin Reg:= TRegistry.Create; Reg.RootKey := HKEY_CURRENT_USER; Reg.OpenKey('Control PanelDesktop',true); // сам файл для обоев Reg.WriteString('Wallpaper','c:wallpaper.jpg'); // 0 - если надо рисунок растянуть, 1 - если замостить им рабочий стол Reg.WriteString('TileWallpaper','0'); Reg.CloseKey; Reg.Free; PostMessage(HWND_BROADCAST, WM_SETTINGCHANGE, SPI_SETDESKWALLPAPER, 0); PaintDesktop(0); end; Вот вроде и все. --------- Есть только одно зло - невежество, и только одно благо - знания

Ответ отправил: Tsechoev Bagaudin (статус: 1-ый класс) Отправлен: 10.06.2005, 13:38

Отвечает: Ерёмин Андрей Здравствуйте, Orkhan Gasimov Ayaz! http://www.delphi.int.ru/modules/expert/showquestion.php?id=79

Ответ отправил: Ерёмин Андрей (статус: 6-ой класс) Отправлен: 10.06.2005, 13:39

Отвечает: Мурник Роман Здравствуйте, Orkhan Gasimov Ayaz! Можно, зная текущий Wallpaper можно просто подменить его, т.е. переписать файл на Ваш.

Ответ отправил: Мурник Роман (статус: 1-ый класс) Отправлен: 10.06.2005, 15:52

Отвечает: CJ Здравствуйте, Orkhan Gasimov Ayaz! Смотри код в приложении. В принципе, все настройки на фоновый рисунок хранятся в реестре. Поэтому надо сначала скопировать картинку в какое-нибудь место (лучше в каталог Виндов) на случай удаления или переноса исходного файла. Информация по обоям хранится в разделе HKEY_CURRENT_USERControi PanelDesktop в параметрах TileWallpaper (если 1 - рисунок размножен, 0 - в центре), Wallpaper - путь к файлу обоев (gif, bmp, jpg), WallpaperStyle - если 2, то обои будут растянуты (отсутствует в 95 винде). После установки всех занчений обновляешь рабочий стои и наслаждаешься эффектом. Приложение: program wallpapr; uses Registry, WinProcs; procedure SetWallpaper(sWallpaperBMPPath:String;bTile:boolean); var reg : TRegIniFile; begin // Изменяем ключи реестра // HKEY_CURRENT_USER // Control PanelDesktop // TileWallpaper (REG_SZ) // Wallpaper (REG_SZ) reg := TRegIniFile.Create('Control PanelDesktop' ); with reg do begin WriteString( '', 'Wallpaper', sWallpaperBMPPath ); if( bTile )then begin WriteString('', 'TileWallpaper', '1' ); end else begin WriteString('', 'TileWallpaper', '0' ); end; end; reg.Free; // Оповещаем всех о том, что мы // изменили системные настройки SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, Nil, {Эта строка - продолжение предыдущей}SPIF_SENDWININICHANGE ); end; // пример установки WallPaper по центру рабочего стола SetWallpaper('c:winntwinnt.bmp', False ); //Эту строчку надо написать где-то в программе.

Ответ отправил: CJ (статус: Студент) Отправлен: 10.06.2005, 17:47

Отвечает: Delphin Здравствуйте, Orkhan Gasimov Ayaz! См. приложение. Приложение: uses Registry, WinProcs; procedure SetWallpaper(sWallpaperBMPPath: string; bTile: boolean); var reg: TRegIniFile; begin reg := TRegIniFile.Create('Control PanelDesktop'); with reg do begin WriteString('', 'Wallpaper', sWallpaperBMPPath); if (bTile) then begin WriteString('', 'TileWallpaper', '1'); end else begin WriteString('', 'TileWallpaper', '0'); end; end; reg.Free; // Оповещаем всех о том, что мы изменили системные настройки SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, nil, {Эта строка - продолжение предыдущей} SPIF_SENDWININICHANGE); end; // пример установки WallPaper по центру рабочего стола SetWallpaper('c:wallpaper.jpg', False); --------- Ищу сервис пак для школы ^)))

Ответ отправил: Delphin (статус: 4-ый класс) Отправлен: 10.06.2005, 20:17

Отвечает: Stamm Здравствуйте, Orkhan Gasimov Ayaz! program wallpapr; uses Registry, WinProcs; procedure SetWallpaper(sWallpaperBMPPath:String;bTile:boolean); var reg : TRegIniFile; begin // Изменяем ключи реестра // HKEY_CURRENT_USER // Control PanelDesktop // TileWallpaper (REG_SZ) // Wallpaper (REG_SZ) reg := TRegIniFile.Create('Control PanelDesktop' ); with reg do begin WriteString( '', 'Wallpaper', sWallpaperBMPPath ); if( bTile )then begin WriteString('', 'TileWallpaper', '1' ); end else begin WriteString('', 'TileWallpaper', '0' ); end; end; reg.Free; // Оповещаем всех о том, что мы // изменили системные настройки SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, Nil, {Эта строка - продолжение предыдущей}SPIF_SENDWININICHANGE ); end; // пример установки WallPaper по центру рабочего стола SetWallpaper('c:winntwinnt.bmp', False ); //Эту строчку надо написать где-то в программе.

Ответ отправил: Stamm (статус: 3-ий класс) Отправлен: 10.06.2005, 23:35

© 2001-2005, RusFAQ.ru, Россия, Москва. Все права защищены.
Идея, дизайн, программирование, авторское право: Калашников О.А.