Здравия, господа эксперты! Вопрос такой. Написал я прогу в С++ Builder 6, которая использует базу данных Access через TTable. Скомпилил и тому подобное, понес на другой комп, а там – он говорит Borland Database Engine error! Причем при постановке проги на компы с более ранней версией BDE, он выдает какую-то ошибку, что-то типа SQL General Fault xxx куча плюсиков и равно и что-то там про Jet driver(мне казалось, он используется только с SQL Server). Помогите пожалуйста, как откорректировать программу, чтобы она запускалась везде? Заранее спасибо. Still me. Merovingian.
Здравствуйте, Merovingian! Ustanovi minimum BDE 5.01 (Poslednaya versiya 5.2.0 ili je 5.2.1) Ili je tot s kotorim rabotayesh! Nu radi udobstva mojesh ustanovit Access XP toje. Doljno zarabotat Ответ отправлен: 25.12.2003, 09:43 Отправитель: THE_PRO Отвечает Lot
Доброе время суток, Merovingian! Не буду настаивать но помоему это конфликт версии BDE. На старых версиях ваша прога не хочет работать. Тоесть надо либо у себя ставить такуюже версию DBE что и на клиентых либо на клиентах принудительно вместе с инсталяцией устанавливать свое BDE. Включить его в установку. Ответ отправлен: 26.12.2003, 11:47 Отправитель: Lot
Вопрос № 1203
Привет эксперты ! Скажите пожалуйста как проверить из программы установлена ли в системе звуковая карта и как мне по кнопке проиграть небольшой wav файл в Delphi 3. Заранее спасибо. Радик.
Здравствуйте, Радик! Проиграть проще всего - PlaySound.
* EMan1.5: ---===*** The game we play ***===---
Ответ отправлен: 28.12.2003, 14:05 Отправитель: Bob Johnson Отвечает sir henry
Добрый день, Радик! 1. Можно попробовать такой способ: uses MMsystem; begin if WaveOutGetNumDevs>0 then Result:='Зв. карта есть!' else Result:='Зв. карты нет!'; end; 2. Проиграть звуковой файл можно с помощью функции: PlaySound(имя_файла, hmod,fdwSound); hmod - 0, если пригрывается файл: fdwSownd - набор флагов, SND_FILENAME+SND_SYNC - звук из файла и функция завершается, когда файл заканчивается. Если нужно играть фоново, то тогда нужен флаг SND_ASYNC.
Ответ отправлен: 26.12.2003, 04:14 Отправитель: sir henry Отвечает samum2000
Добрый день, Радик! Для проверки наличия звуковой карты можно использовать такой фрагмент: uses MMsystem; begin if WaveOutGetNumDevs>0 then Result:=True; else Result:=False; end; Ну, а проиграть его (без mediaplayer'a) можно используя тот же модуль MMSystem: sndPlaySound(<файл>, <параметры>); где <файл> - полный путь до файла <параметры> - набор параметров. Тебе могут пригодиться SND_ASYNC - проиграть, SND_ASYNC + SND_LOOP - проигрывать бесконечно. Если надо остановить проигрывание файла, достаточно просто написать sndPlaySound(nil, SND_ASYNC); Попутного ветра! Ответ отправлен: 26.12.2003, 08:32 Отправитель: samum2000 Отвечает CJ
Добрый день, Радик! Что бы проиграть файл используй либо компонент MediaPlayer, либо метод PlaySound('c:....*.wav',0,SND_FILENAME); Удачи.
Ответ отправлен: 26.12.2003, 09:13 Отправитель: CJ
Вопрос № 1204
Добрый день! Посоветуйте какой-нибудь VCL компонент, желательно совместимый с D7, по возможностям аналогичный TTable, с возможностью чтения и записи разных форматов таблиц (Paradox, dBase и т.п.). Хотелось бы без BDE работать с локальными БД ;-) Сейчас использую TParadox, но его возможности ограничены.
Ответ отправлен: 28.12.2003, 14:05 Отправитель: Bob Johnson Отвечает sir henry
Здравствуйте, Andrey! TDbf dBase Access v.6.20 dBASE Viewer v.1.1 Это бесплатные компоненты для DBase. Взять их можно на: www.torry.net Ответ отправлен: 26.12.2003, 13:53 Отправитель: sir henry Отвечает THE_PRO
Здравствуйте, Andrey! Mojesh zayti na programmersheaven.com tam yest takiye shtuki!
Ответ отправлен: 26.12.2003, 08:54 Отправитель: THE_PRO
Вопрос № 1205
Привет Экспертам! Подскажите как получить к действия с папками(создание,переименование, удаление)?
Добрый день, Алексей! Посмотрите в справке про функцию WinAPI ShFileOperation(). Там довольно большое описание, поэтому приводить его здесь не буду. Это специальная функция по подобным операциям для файлов и каталогов. Ответ отправлен: 26.12.2003, 13:37 Отправитель: sir henry Отвечает samum2000
Здравствуйте, Алексей! Создает папку функция function CreateDir(const Dir: string): Boolean; где Dir - имя папки (если нет ошибки, вернет True). При этом если ты напишешь CreateDir('C:folder1folder2
ewdir'); то папки folder1 и folder2 должны существовать. Если их нет, то следует использовать процедуру procedure ForceDirectories(Dir: string);
Для удаления папки служит функция function RemoveDir(const Dir: string): Boolean; Параметры такие же, как и у CreateDir. Папка, которую хочешь удалять, должна быть пустой. Для переименования папки я использую такую процедуру: procedure RenameDir(DirFrom, DirTo: string); var shellinfo: TSHFileOpStruct; //объявлена в модуле ShellApi, не забудь //добавить его в Uses begin with shellinfo do begin Wnd := 0; wFunc := FO_RENAME; pFrom := PChar(DirFrom); //DirFrom - исходное имя папки pTo := PChar(DirTo); //DirTo - новое имя папки fFlags := FOF_FILESONLY or FOF_ALLOWUNDO or FOF_SILENT or FOF_NOCONFIRMATION;
end; SHFileOperation(shellinfo); end; Вот и всё. Попутного ветра! Ответ отправлен: 27.12.2003, 12:51 Отправитель: samum2000
Вопрос № 1206
Здравствуйте эксперты ! Надо было конечно сразу спросить, но хорошая мысля приходит опосля:) Как при проигрывании wav файла из программы выкрутить звук на максимум. Delhi 3. Заранее спасибо. Радик.
Приветствую Вас, Радик! Попробуйте такую штуку: waveOutSetVolume(Handle, Volume); где Handle - хэндл устройства, Volume - уровень громкости от $0000 до $FFFF; Эта функция находиться в модуле mmsystem. Ответ отправлен: 26.12.2003, 13:33 Отправитель: sir henry Отвечает Bob Johnson
Доброе время суток, Радик! Смотри работу с микшером - MixerOpen и т.д.
* EMan1.5: ---===*** The game we play ***===---
Ответ отправлен: 28.12.2003, 14:05 Отправитель: Bob Johnson
Вопрос № 1207
Какае есть алгоритмы сжатия информации под Delphi ? ( Если можно с примерами ).
Добрый день, AnGeL[Knight]! Naprimer RLE Pari Bayt-byte Chislo-Kolichestvo odinakovix baytov kototriye sleduyut druq za druqom Chitayesh bayti iz fayla...: 1111111111 1000000001 1000000001 1000000001 1111111111 RLE etix chisel viqlyadit tak 1 10 1 1 0 8 1 1 1 1 0 8 1 1 1 1 0 8 1 1 1 10 10 yedinits, odna yedinitsa, vosem nuley ... Eto uje i yest sjatiye! A na schet krutoqo alqoritma, pridumay sam... nikto ne otkroyet svoi sekreti druqomu! Ответ отправлен: 27.12.2003, 10:28 Отправитель: THE_PRO Отвечает Bob Johnson
Здравствуйте, AnGeL[Knight]! Алгоритмы подходять любые - какая им разница, какой ЯП. В сети я где-то видел какие-то компоненты для сжатия.
* EMan1.5: ---===*** The game we play ***===---
Ответ отправлен: 28.12.2003, 14:06 Отправитель: Bob Johnson Отвечает sir henry
Здравствуйте, AnGeL[Knight]! Вместе с Дельфи поставляются модули zlib и jpeg, для общего сжатия и для сжатия изображений соответственно. Примеры довольно велики, а брать куски оттуда - будет не очень понятно. Компоненты и примеры можно посмотреть на: www.delphimaster.ru/download.html www.torry.net Ответ отправлен: 29.12.2003, 04:35 Отправитель: sir henry
Форма отправки вопроса
Внимание!
Мы рекомендуем открывать рассылку в программе Internet Explorer 5.0+
или отправлять вопросы с сайта по адресу:
http://rusfaq.ru/cgi-bin/Message.cgi.