Вопросы по программированию на делфи
Пользователи, просматривающие топик: none
|
Зашли как: Guest
|
Имя  |
| Сообщение |
<< Старые топики Новые топики >> |
|
|
Вопросы по программированию на делфи - 2009-02-06 23:00:59.626666
|
|
|
FYzeST
Сообщений: 23
Оценки: 0
Присоединился: 2007-10-03 22:27:34.053333
|
Я вот совсем недавно с паскаля соскочил на делфии у меня появилося 2 вопроса
1. Што нужно написать в процедуре кнопки штоб при нажатии на эту кнопку воспроизводился определенный музикальный файл? (без всяких плееров)
2. Мне нужно сделать mainmenu c инфой о программе. Што нужно написать в процедуре менюшной кнопки штоб она вызывала форму (Form2) с инфой о программе ?
|
|
|
|
|
RE: Вопросы по программированию на делфи - 2009-02-06 23:15:13.006666
|
|
|
Genco
Сообщений: 1662
Оценки: 90
Присоединился: 2007-12-16 23:11:22.003333
|
1. Например WinApi : PlaySound(файл, дескриптор если звук в ресурсе лежит, как) . Пример: PlaySound("my_sound.wav",0,SND_ASYNC); (файл,потому 2й параметр - 0).
2. Ну…это смотря что ты имеешь в виду.Вообще мог бы и файл справки слепить и вызывать.Если форма в том же проекте,то сделай ее невидимой,потом Form2.Visible:=True; или при создании Form2.Hide; А потом Form2.Show……Но это тупо очень,правда - лучше сделай спец.файл справки(хтмл) и вызови.
|
|
|
|
|
RE: Вопросы по программированию на делфи - 2009-02-06 23:27:54.350000
|
|
|
FYzeST
Сообщений: 23
Оценки: 0
Присоединился: 2007-10-03 22:27:34.053333
|
да не хтмл ето гониво…. ти наверно не понял
короче в form 1 есть кнопка при нажатии на кнопку должна вызиватся поверху form2…. вот ивсе …. просто я незнаю што написать в процедуре кнопки… обясни пожалусто
|
|
|
|
|
RE: Вопросы по программированию на делфи - 2009-02-06 23:39:36.990000
|
|
|
Anwin2771
Сообщений: 6
Оценки: 0
Присоединился: 2009-02-01 18:41:46.733333
|
Еще можно. ShowMEssage(здесь инфа о проге) .Откроется отдельное окошко. Стандартное окно Есть в новый форма . Не забывай если есть заходить в демо стандартные от делфи там много чего интересного.
|
|
|
|
|
RE: Вопросы по программированию на делфи - 2009-02-06 23:50:22.513333
|
|
|
Genco
Сообщений: 1662
Оценки: 90
Присоединился: 2007-12-16 23:11:22.003333
|
Ну просто сторонней софтиной легко собирается файл Справка.chm. И дальше вызывается. Но в твоем можно как я сказал: создаешь 2ю форму так чтоб была в проекте, пишешь в создании формы Form2.Hide. В кнопке тогда будет Form2.Show. Ещё можно с ее видимостью мутить. Скоко раз писать одно и то же чтоб ты прочел?)) Кста,MessageBox / MessageDialog тоже выводят текст вполне неплохо.
|
|
|
|
|
RE: Вопросы по программированию на делфи - 2009-02-06 23:57:25.973333
|
|
|
SkyLinE215
Сообщений: -986
Оценки: 0
Присоединился: 2007-08-27 10:25:44.570000
|
quote:
Кста,MessageBox / MessageDialog тоже выводят текст вполне неплохо.
Не плохо, но этот вариант хорош в том случае если есть exception или просто ошибка.. Но если дело идет о инфе программы то лучше создать form2 и воспользоватся form2.hide / form2.show так как эту форму можно редактировать самому (размер, контент, может картинки какие), а ShowMessage так сказать немного примитивен..
|
|
|
|
|
RE: Вопросы по программированию на делфи - 2009-02-07 00:02:50.650000
|
|
|
Genco
Сообщений: 1662
Оценки: 90
Присоединился: 2007-12-16 23:11:22.003333
|
Ммм….согласен,просто передернуло что ради хелпа целую форму пихать в проект,но вообще да.
|
|
|
|
|
RE: Вопросы по программированию на делфи - 2009-02-07 00:10:07.920000
|
|
|
Xelle
Сообщений: 20
Оценки: 0
Присоединился: 2008-07-10 23:07:46.580000
|
поставь на пункт меню:
if not Assigned(Form2) then
Form2 := TForm2.Create(Self);
Form2.ShowModal;
FreeAndNill(Form2);
|
|
|
|
|
RE: Вопросы по программированию на делфи - 2009-02-07 00:10:50.010000
|
|
|
ydzero
Сообщений: 100
Оценки: 0
Присоединился: 2008-11-06 15:38:02.560000
|
quote:
ORIGINAL: FYzeST
2. Мне нужно сделать mainmenu c инфой о программе. Што нужно написать в процедуре менюшной кнопки штоб она вызывала форму (Form2) с инфой о программе ?
http://slil.ru/26624458
Сорс на delphi 2009
в двух словах, открываешь свой проект, дальше file->new->form - delphi
появиться unit2 с формой, в unit1 пишешь после implementation
uses Unit2;
дальше для кнопки
procedure TForm1.Button1Click(Sender: TObject);
begin
form2:=Tform2.create(application);
form2.Show;
end;
также при работе со 2-й формой, если будешь прыгать туда-сюда, добавь uses unit1 после implementation
p.s. юзай гугль, материалов по дельфям в избытке
|
|
|
|
|
RE: Вопросы по программированию на делфи - 2009-02-07 00:11:03.566666
|
|
|
FYzeST
Сообщений: 23
Оценки: 0
Присоединился: 2007-10-03 22:27:34.053333
|
ну с формами щас попробую а вот со звуком не получается….
Я создал форму в ней кнопку. сохранил проэкт в папке sound .
кинул туда файл A_5.mid
когда клацаю по кнопке вылазит редактор кода и там написано
procedure TForm1.Button1Click(Sender: TObject);
begin
end;
Што вписать между бегин и энд штоб при нажатии на кнопку воспроизводился A_5.mid ???
|
|
|
|
|
RE: Вопросы по программированию на делфи - 2009-02-07 00:15:06.240000
|
|
|
SkyLinE215
Сообщений: -986
Оценки: 0
Присоединился: 2007-08-27 10:25:44.570000
|
quote:
Ммм….согласен,просто передернуло что ради хелпа целую форму пихать в проект
Вот сам посмотри
http://forum.xakep.ru/m_1219606/tm.htm#1219606
я еще давно зделал эту прогу, но просто первая попалась под руку..
В Справка-О Программе.. там создана новая форма и выглядет на много лучше чем обычный ShowMessage, хоть там и не так много инфы..(на втором скрине показанно)
|
|
|
|
|
RE: Вопросы по программированию на делфи - 2009-02-07 00:24:20.826666
|
|
|
FYzeST
Сообщений: 23
Оценки: 0
Присоединился: 2007-10-03 22:27:34.053333
|
ydzero спасибо ты мне очень помог…у меня получилося то што я хотел
SkyLinE215 я так и зделал
все еще жду ответ по поводу звуков
|
|
|
|
|
RE: Вопросы по программированию на делфи - 2009-02-07 00:35:25.280000
|
|
|
SkyLinE215
Сообщений: -986
Оценки: 0
Присоединился: 2007-08-27 10:25:44.570000
|
quote:
все еще жду ответ по поводу звуков
Те же сказали, используй функцию PlaySound
Эта функция может воспроизводить любые волновые звуки, а не только звуки событий Windows. Функция API Windows, параметры которой описаны в модуле mmsystem. Поэтому для использования этой функции в Ваших программах, необходимо включить в раздел uses модуль mmsystem. Функция PlaySound определена так:
function PlaySound(pszSound:PChar; hmod:HINST; fdwSound:Cardinal):boolean; Параметр pszSound является нуль терминированной строкой (последний символ строки имеет нулевой код), он определяет воспроизводимый звук. Параметр hmod используется в случае, когда звук берется из ресурса, поскольку мы этого делать не будем, то можно этот параметр задавать равным 0 или nil.
Последний параметр fdwSound является множеством, которое определяет как будет воспроизводиться звук (режим воспроизведения). Приведу наиболее важные значения этого множества для воспроизведения произвольных волновых флагов.
[ul]SND_ASYNC - Звук воспроизводится асинхронно и функция возвращается сразу же после начала воспроизведения. Чтобы прекратить воспроизведение нужно вызвать функцию PlaySound с параметром pszSound, равным 0. SND_LOOP - воспроизведение звука постоянно повторяется, одновременно надо установить флаг SND_ASYNC. SND_NOSTOP - Если заданный звук не может быть воспроизведен из-за занятости ресурсов, то функция немедленно вернет false (и звук не будет воспроизведен). Если же данный флаг не указан, то функция попытается остановить воспроизведение другого звука, чтобы освободить ресурсы. SND_PURGE - Останавливает воспроизведение любых звуков, вызванных в данной задаче. SND_SYNC - Синхронное воспроизведение звука события. Функция PlaySound возвращается только после окончания воспроизведения.[/ul] Важно: флаги можно комбинировать операцией or.
Указанный параметром pszSound звук, должен подходить для установленного драйвера устройства воспроизведения волновых файлов, а также должен помещаться в доступную память.
Прервать воспроизведение звука можно выполнив оператор
PlaySound(0, 0, SND_PURGE); или путем задания нового звука.
Например, чтобы многократно и асинхронно проиграть какой-нибудь звук, выбранный с помощью OpenDialog, можно написать такой код:
procedure TForm1.Button1Click(Sender: TObject);
var PCh: PChar;
begin
if OpenDialog1.Execute then
begin
StrPCopy(PCh,OpenDialog1.FileName);
PlaySound(Pch,0,SND_ASYNC or SND_LOOP);
end;
end;
|
|
|
|
|
RE: Вопросы по программированию на делфи - 2009-02-07 00:39:06.996666
|
|
|
Genco
Сообщений: 1662
Оценки: 90
Присоединился: 2007-12-16 23:11:22.003333
|
ТС,ты чето реал читаешь косо
2 SkyLinE215: Ну я не спорю,это так,сообщение убого будет,но если уж на то пошло, HTML Help WorkShop поставить недолго,он маленький,и там можно цветной форматированный текст,каринки - все что пожелаешь. хтмл учить не надо - в браузере передрать теги недолго,а справка будет каноническая прям. Сори,проекта ща нет показать как выглядит. И да,поглядел ссыль - инфа отлично смотрится,коли так то конечно[sm=ay.gif].
|
|
|
|
|
RE: Вопросы по программированию на делфи - 2009-02-07 00:47:09.383333
|
|
|
Anwin2771
Сообщений: 6
Оценки: 0
Присоединился: 2009-02-01 18:41:46.733333
|
quote:
ORIGINAL: SkyLinE215
ShowMessage так сказать немного примитивен
согласен . Не знал что добавить, может и пригодиться.
|
|
|
|
|
RE: Вопросы по программированию на делфи - 2009-02-07 00:47:14.950000
|
|
|
SkyLinE215
Сообщений: -986
Оценки: 0
Присоединился: 2007-08-27 10:25:44.570000
|
Ну я не сказал что хтмл хуже))
Но воопщем кому как.. Я лично с самого начало делал разные формы и приклеивал, по этому я так привык и не пользуюсь хтмл)
|
|
|
|
|
RE: Вопросы по программированию на делфи - 2009-02-07 00:56:41.400000
|
|
|
FYzeST
Сообщений: 23
Оценки: 0
Присоединился: 2007-10-03 22:27:34.053333
|
Блин я извиняюся за свою тупость но я так нечего и не понял со звуками..
проект у меня лежи в папочке sound файл со звуком називается A_5.mid он тоже лежит в єтой папке…
Напишите мне хтото текст с именем фала который я должен вставить в процедуру
|
|
|
|
|
RE: Вопросы по программированию на делфи - 2009-02-07 01:08:24.736666
|
|
|
Genco
Сообщений: 1662
Оценки: 90
Присоединился: 2007-12-16 23:11:22.003333
|
ТС,ну 2й пост,ну пост SkyLinE215 ,что ж ты за человек! имхо ты не своим делом занялся совем…,но:
PlaySound("A_5.mid",0,SND_ASYNC);
З.Ы. Если ты не подключишь модуль и полезешь спрашивть что не так - вот лучше даже не пробуй.
|
|
|
|
|
RE: Вопросы по программированию на делфи - 2009-02-07 01:18:07.390000
|
|
|
SkyLinE215
Сообщений: -986
Оценки: 0
Присоединился: 2007-08-27 10:25:44.570000
|
Сейчас тс полезит с проблемой что не может остановить воспроивездение)) лучше я думаю для начала использовать SND_SYNC
|
|
|
|
|
RE: Вопросы по программированию на делфи - 2009-02-07 02:16:08.116666
|
|
|
_SaZ_
Сообщений: 4329
Оценки: 398
Присоединился: 2008-01-30 02:18:05.553333
|
Можно таскать с собой винамп, запускать его, не отображая окна, и управлять через SendMessage :D
|
|
|
|
|
RE: Вопросы по программированию на делфи - 2009-02-07 02:25:10.260000
|
|
|
SkyLinE215
Сообщений: -986
Оценки: 0
Присоединился: 2007-08-27 10:25:44.570000
|
quote:
ORIGINAL: _SaZ_
Можно таскать с собой винамп, запускать его, не отображая окна, и управлять через SendMessage :D
лол)))
но вот я пользуюсь AIMP)
|
|
|
|
|
RE: Вопросы по программированию на делфи - 2009-02-07 13:57:12.970000
|
|
|
FYzeST
Сообщений: 23
Оценки: 0
Присоединился: 2007-10-03 22:27:34.053333
|
Ну кажется со звуком я розобрался
PlaySound("A_5.mid",0,SND_ASYNC); у меня не компилировалася пока я не поменял скобки на
PlaySound('A_5.mid',0,SND_ASYNC);
но я заметил што програма работает только с мп3 форматом и то не со всеми мп3 както странно … хто знает што зделать штоб с .mid она заработала
|
|
|
|
|
RE: Вопросы по программированию на делфи - 2009-02-08 15:31:06.923333
|
|
|
FYzeST
Сообщений: 23
Оценки: 0
Присоединился: 2007-10-03 22:27:34.053333
|
Вот еще один вопрос появился …
Вот я в форме создаю label и пишу в нем свой емеил. Как мне зделать штоб етот емеил выглядел в виде ссылки. Штоб если нажать на строку открывался виндовский почтовик Outlook Express.
знаю што в хтмл єто делается так:
<a href="mailto:pochta@mail.ru"> pochta@mail.ru </a>
а как єто зделать в делфи?
|
|
|
|
|
RE: Вопросы по программированию на делфи - 2009-02-08 18:09:52.390000
|
|
|
ydzero
Сообщений: 100
Оценки: 0
Присоединился: 2008-11-06 15:38:02.560000
|
quote:
ORIGINAL: FYzeST
Вот еще один вопрос появился …
Вот я в форме создаю label и пишу в нем свой емеил. Как мне зделать штоб етот емеил выглядел в виде ссылки. Штоб если нажать на строку открывался виндовский почтовик Outlook Express.
знаю што в хтмл єто делается так:
<a href="mailto:pochta@mail.ru"> [email=pochta@mail.ru]pochta@mail.ru[/email] </a>
а как єто зделать в делфи?
раз http://delphiexpert.ru/view_lesson.php?id=57, это про ссылку
два http://www.delphisources.ru/pages/faq/base/shellexecute.html, тут и про мэйл
в два, внизу, есть такой пример
ShellExecute(Handle, nil, 'mailto:DelphiWorld@mail.ru', nil, nil, SW_SHOW);
ставишь строку на событие onClick в лейбл
procedure TForm1.Label1Click(Sender: TObject);
begin
ShellExecute(Handle, nil, 'mailto:DelphiWorld@mail.ru', nil, nil, SW_SHOW);
end;
не забудь в uses дописать shellapi
вот как это выглядит в действии
http://slil.ru/26628255
|
|
|
|
|
RE: Вопросы по программированию на делфи - 2009-02-09 18:45:56.120000
|
|
|
FYzeST
Сообщений: 23
Оценки: 0
Присоединился: 2007-10-03 22:27:34.053333
|
1. Как на делфи зставить выехать сидером.?
2. Как на делфи добавить ключик в реестр на автозагрузку файла?
|
|
|
|
|
RE: Вопросы по программированию на делфи - 2009-02-09 20:18:45.973333
|
|
|
_SaZ_
Сообщений: 4329
Оценки: 398
Присоединился: 2008-01-30 02:18:05.553333
|
www.google.com в помощь.
|
|
|
|
|
RE: Вопросы по программированию на делфи - 2009-02-09 21:39:49.996666
|
|
|
Genco
Сообщений: 1662
Оценки: 90
Присоединился: 2007-12-16 23:11:22.003333
|
2 FYzeST : тебя кажется интересуют что называется "трюки". – "Программирование на Delphi глазами хакера" М.Фленов.
Там как раз есть кроме прочего простенькие примеры в этом духе)
|
|
|
|
|
RE: Вопросы по программированию на делфи - 2009-02-09 22:56:29.366666
|
|
|
::DJ on::
Сообщений: 108
Оценки: 0
Присоединился: 2009-01-24 16:01:40.556666
|
Люди, я канеш извиняюсь за такой ламерский вопрос, я просто вчера только эту Delphi поставил, взял книжецу какую-то убогую, в ней нифига нет.
Можно в Delphi окно твоей программы сделать произвольной формы, ну треугольной например, или только прямоугольники из под неё выходят??
|
|
|
|
|
RE: Вопросы по программированию на делфи - 2009-02-09 23:47:32.210000
|
|
|
ydzero
Сообщений: 100
Оценки: 0
Присоединился: 2008-11-06 15:38:02.560000
|
quote:
ORIGINAL: ::DJ on::
Люди, я канеш извиняюсь за такой ламерский вопрос, я просто вчера только эту Delphi поставил, взял книжецу какую-то убогую, в ней нифига нет.
Можно в Delphi окно твоей программы сделать произвольной формы, ну треугольной например, или только прямоугольники из под неё выходят??
procedure TForm1.FormCreate(Sender: TObject);
var
hRegion: THandle;
begin
hRegion := CreateEllipticRgn (-140,-140 0, Width, Height);
SetWindowRgn (Handle, hRegion, True);
end;
пример как это выглядит
http://smages.com/i/f5/e9/f5e95addb74ef1f457e112fc8e6e7da3.jpg
и это не треугольник)
|
|
|
|
|
RE: Вопросы по программированию на делфи - 2009-02-10 00:47:11.903333
|
|
|
::DJ on::
Сообщений: 108
Оценки: 0
Присоединился: 2009-01-24 16:01:40.556666
|
ydzero понял отстал))
еще вопрос, я скомпилировал программу, в папке проекта музыка играет, а если вытащить то нет, подскажете чё делать? или чё так эту музыку за EXEшником таскать?
|
|
|
|
|
RE: Вопросы по программированию на делфи - 2009-02-10 00:54:27.280000
|
|
|
::DJ on::
Сообщений: 108
Оценки: 0
Присоединился: 2009-01-24 16:01:40.556666
|
ydzero чёт окно не загибается(( может надо еще в uses что-нибудь прописать?
|
|
|
|
|
RE: Вопросы по программированию на делфи - 2009-02-10 03:35:23.306666
|
|
|
ydzero
Сообщений: 100
Оценки: 0
Присоединился: 2008-11-06 15:38:02.560000
|
quote:
ORIGINAL: ::DJ on::
ydzero чёт окно не загибается(( может надо еще в uses что-нибудь прописать?
писал-писал, отправил да не дошло, бля
кароче вот исходник на delphi 2009 в старые наверно тоже влезет - http://multi-up.com/57091
там же скомпилированный ехе чтоб убедиться
|
|
|
|
|
RE: Вопросы по программированию на делфи - 2009-02-10 15:19:50.180000
|
|
|
::DJ on::
Сообщений: 108
Оценки: 0
Присоединился: 2009-01-24 16:01:40.556666
|
ydzero спасибо канечно, только у меня этот вариант не работает Дельфя старая 6, надо срочно новую надыбать……
Ну а что по поводу музыки, можно в среде дельфи интегрировать музык.файл в ехе.файл. ?
|
|
|
|
|
RE: Вопросы по программированию на делфи - 2009-02-13 13:41:01.860000
|
|
|
FYzeST
Сообщений: 23
Оценки: 0
Присоединился: 2007-10-03 22:27:34.053333
|
што написать в процедуру кнопки штоб она создавала файл с определенным форматом, и текстом.
Знаю што в паскаkе єто делается так:
var
F : File;
begin
Assign(F, 'EICAR.TXT');
Rewrite(F);
Write(F, 'Eicar');
Close(F);
end;
А как реализовать на делфи?
|
|
|
|
|
RE: Вопросы по программированию на делфи - 2009-02-13 19:40:04.573333
|
|
|
Kolan4iK
Сообщений: 258
Оценки: 0
Присоединился: 2007-09-28 20:23:45.553333
|
google.com
|
|
|
|
|
RE: Вопросы по программированию на делфи - 2009-02-13 21:41:08.943333
|
|
|
::DJ on::
Сообщений: 108
Оценки: 0
Присоединился: 2009-01-24 16:01:40.556666
|
Kolan4iK вот я тебе удивляюсь….. нахрена ты google вставил, если нечего сказать по вопросу, лучше уж вообще промолчать….
как говорится: "иногда, лучше жевать, чем говорить!"
|
|
|
|
|
RE: Вопросы по программированию на делфи - 2009-02-13 22:05:49.056666
|
|
|
VaZoNeZ
Сообщений: -6758
Оценки: 0
Присоединился: 2008-10-31 14:38:43.796666
|
FYzeST,
1) пиши граммотней;
2) ищи все в гугле. достал уже;
3) читай пункт №2 до посинения;
|
|
|
|
|
RE: Вопросы по программированию на делфи - 2009-02-13 22:19:57.420000
|
|
|
Genco
Сообщений: 1662
Оценки: 90
Присоединился: 2007-12-16 23:11:22.003333
|
2 ::DJ on:: : не то чтобы интегрировать,но ты можешь создать файл ресурсов и в него запихать свой муз.файл. вызывать так же,токо там параметр в PlaySound 2й надо менять.
2 FYzeST : тебе даже не гугл,а документацию качать надо. мсдн на дельфи нет,но все равно какие то доки к компиляторам всегда прилагаются. Кароч, ЧИТАЙ дома А НЕ ПИШИ тут!!!
|
|
|
|
|
|
