Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

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


Информационный Канал Subscribe.Ru


RusFAQ.ru: Программирование на C++ Builder / Delphi

Выпуск № 266
от 29.12.2003, 17:30

Администратор:
Имя: Калашников О.А.
URL: Информационный ресурс
ICQ: 68951340
Россия, Москва
О рассылке:
Задано вопросов: 1211
Отправлено ответов: 2534
Активность: 209.2 %
[Задать вопрос >>][Регистрация эксперта >>]
[Поиск в базе][Обсудить на форуме]


 Список экспертов, ответы которых опубликованы в данном выпуске

THE_PRO
Статус: Опытный
Общий рейтинг: 137.02
URL: THE_PRO
[Подробней >>]
Lot
Статус: Доверительный
Общий рейтинг: 119.28
[Подробней >>]
Bob Johnson
Статус: Профессиональный
Общий рейтинг: 147.07
URL: Программирование
[Подробней >>]
 
sir henry
Статус: Профессиональный
Общий рейтинг: 161.62
[Подробней >>]
samum2000
Статус: Доверительный
Общий рейтинг: 116.91
[Подробней >>]
CJ
Статус: Опытный
Общий рейтинг: 123.07
URL: Мой персональный сайт! Зайдите и не пожалеете!
[Подробней >>]


 Краткий перечень вопросов

Вопрос № 1202. Здравия, господа эксперты! Вопрос такой. Написал я прогу в С++ Builder 6, которая использует ба... (ответов: 2)
Вопрос № 1203. Привет эксперты ! Скажите пожалуйста как проверить из программы установлена ли в системе звуковая ка... (ответов: 4)
Вопрос № 1204. Добрый день! Посоветуйте какой-нибудь VCL компонент, желательно совместимый с D7, по возможностям ан... (ответов: 3)
Вопрос № 1205. Привет Экспертам! Подскажите как получить к действия с папками(создание,переименование, удаление)?... (ответов: 2)
Вопрос № 1206. Здравствуйте эксперты ! Надо было конечно сразу спросить, но хорошая мысля приходит опосля:) Как при... (ответов: 2)
Вопрос № 1207. Какае есть алгоритмы сжатия информации под Delphi ? ( Если можно с примерами ).... (ответов: 3)

Вопросов: 6, ответов: 16


 Вопрос № 1202

Здравия, господа эксперты! Вопрос такой. Написал я прогу в С++ Builder 6, которая использует базу данных Access через TTable. Скомпилил и тому подобное, понес на другой комп, а там – он говорит Borland Database Engine error! Причем при постановке проги на компы с более ранней версией BDE, он выдает какую-то ошибку, что-то типа SQL General Fault xxx куча плюсиков и равно и что-то там про Jet driver(мне казалось, он используется только с SQL Server).
Помогите пожалуйста, как откорректировать программу, чтобы она запускалась везде?
Заранее спасибо.
Still me. Merovingian.



Вопрос отправлен: 24.12.2003, 20:00
Отправитель: Merovingian

[Следующий вопрос >>] [Список вопросов]

Отвечает THE_PRO

Здравствуйте, 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.
Заранее спасибо.
Радик.



Вопрос отправлен: 25.12.2003, 12:03
Отправитель: Радик (rdk78@nightmail.ru)

[Следующий вопрос >>] [Список вопросов]

Отвечает Bob Johnson

Здравствуйте, Радик!
Проиграть проще всего - 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, но его возможности ограничены.



Вопрос отправлен: 25.12.2003, 17:56
Отправитель: Andrey

[Следующий вопрос >>] [Список вопросов]

Отвечает Bob Johnson

Здравствуйте, Andrey!
Есть Apollo.

* EMan1.5: ---===*** The game we play ***===---


Ответ отправлен: 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

Привет Экспертам!
Подскажите как получить к действия с папками(создание,переименование, удаление)?



Вопрос отправлен: 25.12.2003, 19:13
Отправитель: Алексей

[Следующий вопрос >>] [Список вопросов]

Отвечает sir henry

Добрый день, Алексей!
Посмотрите в справке про функцию 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.
Заранее спасибо.
Радик.



Вопрос отправлен: 26.12.2003, 12:43
Отправитель: Радик (rdk78@nightmail.ru)

[Следующий вопрос >>] [Список вопросов]

Отвечает sir henry

Приветствую Вас, Радик!
Попробуйте такую штуку:
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 ? ( Если можно с примерами ).



Вопрос отправлен: 26.12.2003, 15:57
Отправитель: AnGeL[Knight]

[Следующий вопрос >>] [Список вопросов]

Отвечает THE_PRO

Добрый день, 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.

(C) 2002-2003 Команда RusFAQ.ru.

 Персональные данные

Ваше имя:

Ваш e-mail:

Опубликовать мой e-mail в рассылке


 Вопрос и дополнение

Ваш вопрос:


Приложение (если необходимо):


Получить ответов:


 Выбор рассылки

Программисту
Assembler (27)
C / C++ (18)
Perl (4)
Builder / Delphi (19)
Pascal (21)
Basic / VBA (3)
Java / JavaScript (5)
PHP (10)
Криптография (7)
WinAPI (12)
Пользователю
Windows 95/98/Me (38)
Windows NT/2000/XP (51)
"Железо" (29)
Поиск информации (20)
Администратору
Windows NT/2000/XP (28)
Linux / Unix (14)
Юристу
Гражданское право (15)
Семейное право (9)
Трудовое право (10)
КоАП (9)

Отправить вопрос всем экспертам выбранной рассылки.




Задать вопрос | Регистрация эксперта | Поиск в базе | Чат | Форумы | Новости
Проект экспертов RusFAQ.ru | Фотоальбом | Virus.RusFAQ.ru | Администрирование
Профессиональная WEB-Студия B.I.T.


Яндекс цитирования
© 2001-2003 Россия, Москва. Авторское право: Калашников О.А.

http://subscribe.ru/
E-mail: ask@subscribe.ru
Отписаться
Убрать рекламу

В избранное