Камчатский форум, новости, комментарии, обсуждения

Есть ли у Вас что-нибудь по программированию Delphi 6 (почитать)??? Буду премного благодарен за предоставленную информацию! :fls

НА яндексе поищи там есть, сам вчера искал

Цитата: Grek от 09:38, 22 августа, 2003
НА яндексе поищи там есть, сам вчера искал

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

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

Цитата: Leksfor от 23:31, 23 августа, 2003
Приветствую! Почитай журнал Хакер. Не помню с какого номера (лень глянуть))) там идут реальные статьи с описаниями функций, написанием прикольных программ. Когда я сам увлекался дельфи - было полезно.

Так Ты сам что-нибудь писал? Есть какие-нибудь собственные примеры или штуки полезные? Если есть подскажи...

Дык это было два-три года назад. Ессно писал проги, часть из них заимствовала функции из Хакера (там мигание кнопок на клаве, уезжающие окна Windows и т.п.). Есть книжка. Но на данный момент я от Дельфи далеко. Я сейчас полность в веб-дизайне. Поэтому более всего интересуюсь PHP.

DELPHI.MASTAK.RU (http://delphi.mastak.ru)
;)

ЛЮДИ!!! Кто занимася программированием на Delphi 6 подскажите пожалуйста как сделать подсветку синтаксиса!? И ещ?, что-то не получается у меня изменить шрифт из FontDialog-а.

Цитата: AmonRa от 00:21, 30 августа, 2003
ЛЮДИ!!! Кто занимася программированием на Delphi 6 подскажите пожалуйста как сделать подсветку синтаксиса!? И ещ?, что-то не получается у меня изменить шрифт из FontDialog-а.

Где подсветка-то? В проге или в Дельфе? И про диалог также.
Ты подробней объясняй, телепаты в отпуске!  :)

Цитата: Vad от 00:54, 30 августа, 2003
Где подсветка-то? В проге или в Дельфе? И про диалог также.
Ты подробней объясняй, телепаты в отпуске!  :)

Подсветка в каком-нибудь редакторе, например в томже блокноте, а про диалог шрифта, вообще труба: вроде все стоит как надо и действие стоит, только сам шрифт меняться не хочет!

Цитата: AmonRa от 00:41, 01 сентября, 2003
Подсветка в каком-нибудь редакторе, например в томже блокноте, а про диалог шрифта, вообще труба: вроде все стоит как надо и действие стоит, только сам шрифт меняться не хочет!

В том же блокноте подсветки не будет.
Возможно только в RichEdit.
А про диалог шрифта - это руки кривые, однозначно.

Цитата: Vad от 02:44, 01 сентября, 2003
В том же блокноте подсветки не будет.
Возможно только в RichEdit.
А про диалог шрифта - это руки кривые, однозначно.

не спорю, руки кривые, но с ними я уже разобрался, есть еще одна тема: деляю, делаю, все нормально работает, закрываю, сохраняю, захожу заново, Events у большинства кнопок стираются, но стоит по ним понажимать, как все становится в порядке, что такое или опять руки??? А как тогда сделать подсветку в RichEdit усли не секрет?

Цитата: AmonRa от 00:18, 03 сентября, 2003
не спорю, руки кривые, но с ними я уже разобрался, есть еще одна тема: деляю, делаю, все нормально работает, закрываю, сохраняю, захожу заново, Events у большинства кнопок стираются, но стоит по ним понажимать, как все становится в порядке, что такое или опять руки??? А как тогда сделать подсветку в RichEdit усли не секрет?

Даж не знаю что сказать про Events...
Возможно (!) у тебя не сохраняются правильно DFM файлы а PAS файлы сохраняются номально (?!), поэтому когда ты пощелкаешь по кнопкам
соотв. события цепляются к их описаниям в PAS файлах...
Видима при установке што-та криво встало... или вооще не встает...  ;D

Про подсветку в RichEdit - это отдельная большая тема, явно не для этого
форума.
Я же давал ссылку, куда писа'ть !?

Я в Delphi ноль. Но это из общей практики.
Если что-то глючит.
- Проверь есть ли такие же глюки при работе с другими
проектами.
- Попробуй создать новый проект в отдельном директории и аккуратно
перенести только source-файлы и добавить их в новый проект.
- Попробуй перенести и запустить свой проект на другом компьютере (у друга, на работе и т. д.)
- То что глючит в design-time , можно попробовать создать в Run-time
( конструкторы, form create  события и проч... )
- Ну и естестественно не забываем народную мудрость. Не надо пытаться
запустить весь код сразу, лучше закрыть все нафик потихоньку отлаживать небольшие куски...
Удач!

проблемы с евентс? 95% - криво усановлена делфа или сама делфа кривая. с 6-м такое бывает.... довольно часто - пиратизация стремная... ;D
поставь лучше делфу 5. глюков с редактором намного меньше, а по поводу того на чем учиться - я особой разницы не вижу....

Первое: Поставь себе делфи 7. Он понавороченней и совершенней будет :)  Есле денег жалко, то могу тебе копию нарезать. Мыль на 111drakon555@mail.ru.
Второе: Что касается книг, то для начала рекомендую книгу А.Жукова "Изучаем DELPHI" Книжка не очень толстая (страниц 300), стоит около 50-100р. Ничего более подходящего для новичка я не встречал. Что бы по полкам долго не рылся: малоформатная книга красно-синего цвета, на обложке нарисована девушка на роликах.
Если че еще спросить надо, то мыль по вышеуказанному адресу, а то на форуме я редко появляюсь.

Люди, у кого есть компоненты для 7 Delphi? Очень нужно скажите пожалуйста! А там договоримся!

Цитата: AmonRa от 23:57, 26 ноября, 2003
Люди, у кого есть компоненты для 7 Delphi? Очень нужно скажите пожалуйста! А там договоримся!

www.torry.net

Да, качать это конечно прикольно, но только не с моей связью, а что-то типа дисков нету??? Очень нужно!!!
И ещ?, люди, кто менял обои рабочего стола в Delphi  подскажите как!

Цитата: AmonRa от 01:28, 28 ноября, 2003
Да, качать это конечно прикольно, но только не с моей связью, а что-то типа дисков нету??? Очень нужно!!!
И ещ?, люди, кто менял обои рабочего стола в Delphi  подскажите как!

Посмотри по магазнам диски с компонентами.

Прописываешь соотв. ключи в реестре "Control Panel\Desktop"
Если нужно сразу сменить, то еще
SystemParametersInfo(SPI_SETDESKWALLPAPER,........
ну и т.д.
:)

Цитата: Drakon от 20:30, 10 сентября, 2003
Первое: Поставь себе делфи 7. Он понавороченней и совершенней будет :)

Не нравится мне эта "делфи 7".
Может я просто не умею ее готовить?  ???
;D

Цитата: Vad от 10:50, 28 ноября, 2003
Посмотри по магазнам диски с компонентами.

Прописываешь соотв. ключи в реестре "Control Panel\Desktop"
Если нужно сразу сменить, то еще
SystemParametersInfo(SPI_SETDESKWALLPAPER,........
ну и т.д.
:)

Спасибо огромное за ответ, я попробывал - работает, только вот с обновлением экрана как-то не получается, если не трудно можно поподробнее. И ещ?: это точно работает под 2000 виндой, а вот под XP НЕТ!!! Как сделать? Заранее спасибо!

И ещ?: как сделать чтобы приложение сворачивалось в трей, рядом с часами?

Цитата: AmonRa от 23:39, 01 декабря, 2003
И ещ?: как сделать чтобы приложение сворачивалось в трей, рядом с часами?

один из вариантов : ставишь себе пакет LMD компонентов ...
много там всяких интересных и не очень вещей ... но конкретно по сабжу на форму пихаешь LMD TrayIcon .. ну немного работы руками и все тип топ )))
если сильно нужно - пример могу отписать

Цитата: Art от 08:31, 02 декабря, 2003
один из вариантов : ставишь себе пакет LMD компонентов ...
много там всяких интересных и не очень вещей ... но конкретно по сабжу на форму пихаешь LMD TrayIcon .. ну немного работы руками и все тип топ )))
если сильно нужно - пример могу отписать

а без компонентов можно?? Или где его достать?

Цитата: AmonRa от 23:40, 02 декабря, 2003
а без компонентов можно?? Или где его достать?

www.torry.net
- правда на 7-ю Delphi пока только Trial версия ... на 5-6 -ю уже есть вполне рабочие - хацкеры не дремлют ))
..............
или давай болванку - нарисуем

Люди, помогите, естьтакая штука: в базе данные поле "password" и поле "user" мне надо сделать так, чтобы проверялся пароль (edit) и в label отображался пользователь как сделать? Как проверить пароль я знаю, а вот с пользователем проблемка!

Цитата: AmonRa от 01:41, 07 декабря, 2003
Люди, помогите, естьтакая штука: в базе данные поле "password" и поле "user" мне надо сделать так, чтобы проверялся пароль (edit) и в label отображался пользователь как сделать? Как проверить пароль я знаю, а вот с пользователем проблемка!

Зачем тебе пользователь в Label ?
Пользователя тоже вводят (обычно). А в caption не пробовал писать?  ;)

Цитата: Vad от 02:02, 07 декабря, 2003
Зачем тебе пользователь в Label ?
Пользователя тоже вводят (обычно). А в caption не пробовал писать?  ;)

Мне именно в label'e надо, а с caption пробовал, не получается.! Есть идеи?

Блин, люди, как менять обои в win xp!!! В win 2000 ЗНАЮ, если кому надо могу написать, а вот с xp проблемка, подскажите пожалуйста!

Цитата: AmonRa от 00:11, 10 декабря, 2003

Мне именно в label'e надо, а с caption пробовал, не получается.! Есть идеи?

Блин, люди, как менять обои в win xp!!! В win 2000 ЗНАЮ, если кому надо могу написать, а вот с xp проблемка, подскажите пожалуйста!

Можна я одну весчь скажу, только ты не обижайся. :)
Может для начала подучиться или книжку умную прочитать?
Ну или в крайнем случае:
http://delphi.mastak.ru/cgi-bin/forum.pl?n=0

Цитата: Vad от 11:42, 10 декабря, 2003
Можна я одну весчь скажу, только ты не обижайся. :)
Может для начала подучиться или книжку умную прочитать?
Ну или в крайнем случае:
http://delphi.mastak.ru/cgi-bin/forum.pl?n=0

Да я вообще то не обижаюсь.
В общем пишу такую штуку:
var strField:string;
begin
edit2.SetFocus;TABLE1.Active:=TRUE;strField:='PASSWORD';
if Table1.Locate(strField, Edit2.Text, [loCaseInsensitive, loPartialKey])
then begin
table1.Active:=false; panel2.Visible:=true; PANEL3.Visible:=FALSE;
// а здесь должно быть что-то типа
User:=Table1.FieldByName('User').asString;
Form1.Caption:='Пользователь  '+User;
end else
label4.caption:= ' Пароль неверный ';
end;
Но при компиляции мне говорят что такого поля нет! Что делать?
И еще! Не знаю что такое но сообщения у меня не хотят обрабатываться, при компиляции пишет:"Mising operator or semicolon" во как что это?

Цитата: AmonRa от 23:53, 11 декабря, 2003

Да я вообще то не обижаюсь.
В общем пишу такую штуку:
var strField:string;
begin
edit2.SetFocus;TABLE1.Active:=TRUE;strField:='PASSWORD';
if Table1.Locate(strField, Edit2.Text, [loCaseInsensitive, loPartialKey])
then begin
table1.Active:=false; panel2.Visible:=true; PANEL3.Visible:=FALSE;
// а здесь должно быть что-то типа
User:=Table1.FieldByName('User').asString;
Form1.Caption:='Пользователь  '+User;
end else
label4.caption:= ' Пароль неверный ';
end;
Но при компиляции мне говорят что такого поля нет! Что делать?
И еще! Не знаю что такое но сообщения у меня не хотят обрабатываться, при компиляции пишет:"Mising operator or semicolon" во как что это?

Ты закрываешь таблицу, а потом обращаешься к полю.
И потом поле  User, оно у тебя точно есть?
И ты где-то не поставил точку с запятой.

Цитата: Vad от 00:01, 13 декабря, 2003
Ты закрываешь таблицу, а потом обращаешься к полю.
И потом поле  User, оно у тебя точно есть?
И ты где-то не поставил точку с запятой.

ДА, вот это протупил, но ничего, уже все исправил, работает, а как на счет showmessage??? Уж больно нужно!

Цитата: AmonRa от 23:32, 16 декабря, 2003
ДА, вот это протупил, но ничего, уже все исправил, работает, а как на счет showmessage??? Уж больно нужно!

Чего showmessage???  ???
:nope

Цитата: Vad от 00:56, 17 декабря, 2003
Чего showmessage???  ???
:nope

И еще! Не знаю что такое но сообщения у меня не хотят обрабатываться, при компиляции пишет:"Mising operator or semicolon" во как что это? А когда делаешь обработчик нажатия кнопки, то вообще: Undeclared identifier:'showmessage'!!! Во как! В чем дело?

Цитата: AmonRa от 23:11, 17 декабря, 2003
И еще! Не знаю что такое но сообщения у меня не хотят обрабатываться, при компиляции пишет:"Mising operator or semicolon" во как что это? А когда делаешь обработчик нажатия кнопки, то вообще: Undeclared identifier:'showmessage'!!! Во как! В чем дело?

Дословный перевод:
"Потерян оператор или точка с запятой." При этой ошибке программа
должна остановится на строке, которая ей не нравится.

С showmessage...
Эта процедура объявленна в модуле Dialogs. Проверь есть ли он  у
тебя в Uses. И правильно ли написанно "showmessage".
И читай, читай книжки побольше...
:)

А почему такая бяка, вроде Delphi сама всегда добавляет такие модули в Uses! Странно все это, вот добавил, заработало, почему так произошло?


Люди, кто-нибудь знает как менять обои
под Win XP???

Цитата: AmonRa от 23:38, 19 декабря, 2003

Люди, кто-нибудь знает как менять обои
под Win XP???

Обыкновенно... :nope

По крайней мере вот это не работает:
reg:=TRegistry.Create;
reg.RootKey:=HKEY_CURRENT_USER;
reg.OpenKey('Control Panel\Desktop',true);
reg.WriteString('Wallpaper',FileListBox1.Filename);
SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, Nil,SPIF_SENDwinIniCHANGE);
reg.CloseKey;
reg.free;
ActiveDesktop := CreateComObject(CLSID_ActiveDesktop) as IActiveDesktop; ActiveDesktop.SetWallpaper('c:\windows\forest.bmp',0);
ActiveDesktop.ApplyChanges(AD_APPLY_ALL or AD_APPLY_FORCE);

Цитата: AmonRa от 00:24, 22 декабря, 2003
По крайней мере вот это не работает:
reg:=TRegistry.Create;
reg.RootKey:=HKEY_CURRENT_USER;
reg.OpenKey('Control Panel\Desktop',true);
reg.WriteString('Wallpaper',FileListBox1.Filename);
SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, Nil,SPIF_SENDwinIniCHANGE);
reg.CloseKey;
reg.free;
ActiveDesktop := CreateComObject(CLSID_ActiveDesktop) as IActiveDesktop; ActiveDesktop.SetWallpaper('c:\windows\forest.bmp',0);
ActiveDesktop.ApplyChanges(AD_APPLY_ALL or AD_APPLY_FORCE);

Чет ты опять накрутил....
Нету под рукой XP проверить, но для остальных этого куска хватает:

reg:=TRegistry.Create;
reg.RootKey:=HKEY_CURRENT_USER;
reg.OpenKey('Control Panel\Desktop',true);
reg.WriteString('Wallpaper',SavePictureDialog1.FileName);
reg.CloseKey;
reg.free;
SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, Nil,SPIF_SENDwinIniCHANGE);

==============
Проверил энто на ХР, все пашет.
;D

Подскажите пожалуйста где можно скачать RX компоненты для !!!delphi 7!!! А то закачал один, а он не пашет! Говорит что нет файла Gauses или что-то в этом роде, если у кого есть вышлите или скиньте ссылку!

www.delphi.dax.ru

Привет народ, подскажите пожалуйста как сделать сетевой ч\з TCP\IP чат. Только основное - компоненты (стандартные желательнее всего) и др. "приятные" примочки. Заранее спасибо

AmonRa все зависит от троего уровня ...... на скока хорошо ты в делфи разбираешся.? ЕСли тока  начинаеш то возьми какой нить монуал и поучи обжект паскаль, если в этом уже разбираешся то саветую скачать русофецированый Хелп ( тама пижется что какая функция делает и все такое ) и часто посешать форумы тика  Мастеров Делфи или там Королевство делфи

Цитата: Irwin Skull от 23:44, 22 марта, 2004
AmonRa все зависит от троего уровня ...... на скока хорошо ты в делфи разбираешся.? ЕСли тока  начинаеш то возьми какой нить монуал и поучи обжект паскаль, если в этом уже разбираешся то саветую скачать русофецированый Хелп ( тама пижется что какая функция делает и все такое ) и часто посешать форумы тика  Мастеров Делфи или там Королевство делфи

НЕ, занимаюсь относительно недовно и то только тем, что надо по работе (базами данных, составлением отчетов), а вот недавно в доме киданули сетку и хотелось бы написать самому чат, знаю что надо с Инди клиент-сервер работать, но никогда в глаза не видел даже приблизительных исходников по этой теме, может че-нить есть поглазеть?!

Привет Всем, подскажите пожалуйста как сделать следущее: при нажатии кнопки происходит поиск в базе данных в поле Дата определенной даты (текушей), в этой же базе есть поле ?п\п, которое за это самое число может быть разным, как сделать чтобы отмечалась самое максимальное число в поле за эту дату? Заранее спасибо!

НАРОД, ПОМОГИТЕ!!!! Как сделать СОРТИРОВКУ ПО УБЫВАНИЮ в таблице2, которая связана по номеру с таблицей1 (индекс numer). В таблице 2 есть индекс data который сортирует таблицу в порядке убывания. Если указывать индекс Data, то теряется связь с 1таблицей! Как делать???? Можно любыми способами, но самое главное, что бы при закрытии формы все возвращалось на свои места, т.е. таблица 2 сортировалась по возрастанию!!! ОЧЕНЬ БУДУ БЛАГОДАРЕН!!!!!!!!

Цитата: AmonRa от 23:50, 11 мая, 2004
НАРОД, ПОМОГИТЕ!!!! Как сделать СОРТИРОВКУ ПО УБЫВАНИЮ в таблице2, которая связана по номеру с таблицей1 (индекс numer). В таблице 2 есть индекс data который сортирует таблицу в порядке убывания. Если указывать индекс Data, то теряется связь с 1таблицей! Как делать???? Можно любыми способами, но самое главное, что бы при закрытии формы все возвращалось на свои места, т.е. таблица 2 сортировалась по возрастанию!!! ОЧЕНЬ БУДУ БЛАГОДАРЕН!!!!!!!!

Ну сделай запрос со связыванием таблиц и с сортировкой по
убыванию, например.
Или тебе нужен редактируемый набор?

Нет, редактируемы набор мне не нужен, а вот с запросом дело сложнее!!! Как его сделать? Через TQuery??? Дело в том, что это нужно для отчета!  А в нем уже содержится один TQuery (из которого берутся данные для отчета),  а связать их вместе у меня никак не получается! Может подскажешь??? Заранее спасибо!!!

Цитата: AmonRa от 21:17, 12 мая, 2004
Нет, редактируемы набор мне не нужен, а вот с запросом дело сложнее!!! Как его сделать? Через TQuery??? Дело в том, что это нужно для отчета!  А в нем уже содержится один TQuery (из которого берутся данные для отчета),  а связать их вместе у меня никак не получается! Может подскажешь??? Заранее спасибо!!!

Напиши какие поля в каких таблицах, как связанны,
и чего надо. Я ж не телепат. :nope

Цитата: Vad от 00:07, 13 мая, 2004
Напиши какие поля в каких таблицах, как связанны,
и чего надо. Я ж не телепат. :nope

В таблице 2 поля: номер, кол-во, дата1, дата2, и еще какое-то, сейчас не помню! В таблице1: номер (тот же что и во 2-й), дата1, дата2 (эти даты ко 2-й таблице никакого отношения не имеют!). В таблице1 и 2 есть индекс номер, по которому они и связываются! Создал дополнительный индекс Дата1 (сортирующий таблицу в порядке убывания), но если при работе изменить индекс с номера на Дату, то теряется связь :-((, может можно как-то сделать, что бы 2-я таблица приоткрытии сразу сортировалась в порядке убывания даты???

Думал сделать с помошью TQuery, но не получилось связать их TQuery1 с TQuery2 (в каждом есть поле номер, по которому в принципе возможно сделать связь, но КАК????). Вот, буду премного благодарен за ответ, только если можно поподробнее!!! Если нужно: в TQuery1 забиваются данные еще из кучи таблиц, их перечислять замучаюсь, !но Таблицы2 там нет!, зато есть Таблица1, точнее е? необходимая часть!

Цитата: AmonRa от 02:05, 13 мая, 2004
В таблице 2 поля: номер, кол-во, дата1, дата2, и еще какое-то, сейчас не помню! В таблице1: номер (тот же что и во 2-й), дата1, дата2 (эти даты ко 2-й таблице никакого отношения не имеют!). В таблице1 и 2 есть индекс номер, по которому они и связываются! Создал дополнительный индекс Дата1 (сортирующий таблицу в порядке убывания), но если при работе изменить индекс с номера на Дату, то теряется связь :-((, может можно как-то сделать, что бы 2-я таблица приоткрытии сразу сортировалась в порядке убывания даты???

Думал сделать с помошью TQuery, но не получилось связать их TQuery1 с TQuery2 (в каждом есть поле номер, по которому в принципе возможно сделать связь, но КАК????). Вот, буду премного благодарен за ответ, только если можно поподробнее!!! Если нужно: в TQuery1 забиваются данные еще из кучи таблиц, их перечислять замучаюсь, !но Таблицы2 там нет!, зато есть Таблица1, точнее е? необходимая часть!

Ну, кидаешь еще одну TQuery2 ни с чем не связывая,
ей в SQL забиваешь что то вроде:

SELECT <какие там нужно поля с псевдонимом> FROM
"TAB1.DB" T1, "TAB2.DB" T2
WHERE T1.НОМЕР=T2.НОМЕР
ORDER BY T2.Дата1 DESC

Здесь T2.Дата1 - поле из второй таблицы. по которому сортировка, DESC -признак по убыванию.
Потом просто открываешь TQuery2 и у тебя все есть.

А вообще смотри localsql.hlp

А можно ли как-нибудь сохранить результаты запроса TQuery в *.dbf. А при нажатии на кнопку сделать удаление всех записей таблицы?

Цитата: AmonRa от 16:27, 15 мая, 2004
А можно ли как-нибудь сохранить результаты запроса TQuery в *.dbf. А при нажатии на кнопку сделать удаление всех записей таблицы?

Можно все, было бы время и желание. :)

Цитата: Vad от 20:58, 15 мая, 2004
Можно все, было бы время и желание. :)

Так желание есть всегда, но вот со временем уже напряженка выходит! :-(


И еще вопросик: можно ли с помощью AppendRecord сделать добавление в таблицу не одной строки, а сразу всех! Я делаю следующее:
Table1.AppendRecord([Query1Numer, Query1NPP, Query1KL, Query1DATA1, Query1ISP, Query1Dаta2, Query1PR]); в этом случае происходит добавление только одной записи из Query? а как сделать добавление сразу всех??? Если есть способ полегче, то с радостью приму!

Народ, если кому нибудь понадобится, то вот процедура добавледия всех записей из TQuery в Ttable и очищение TTable:


procedure TForm1.BitBtn2Click(Sender: TObject);
var
n:integer;
begin
form5.Query1.Active:=true;
form5.Table1.Active:=true;
form5.Table1.Filter:='Data1 = '''+DateToStr(SprDate.Date)+'''';
form5.QRLabel7.Caption:= DateToStr(SprDate.Date);
form5.Query2.Active:=true;
form5.Table2.Active:=true;
//Добавление всех записей в таблицу!!!!!!
form5.Query2.First;
for n:=1 to form5.Query2.RecordCount do begin
form5.Table2.AppendRecord([form5.Query2Numer,
form5.Query2PP, form5.Query2DATA1,
form5.Query2SP, form5.Query2P]);
form5.Query2.Next;
end;
form5.Table2.Filter:='Data1 <= '''+DateToStr(SprDate.Date)+'''';
form5.QuickRep1.Preview;
form5.Query1.Active:=false;
form5.Query2.Active:=false;
form5.Table1.Active:=false;
form5.Table2.Active:=false;
// Удаление ВСЕХ данных из таблицы
with form5.Table2 do
begin
Exclusive := true ;
EmptyTable ;
end;
end;

Народ! Плдскажите где можно достать RXLib для 7 Delphi!!! Очень нужно! Если можно ссылку попрямее! Спасибо!  

Цитата: AmonRa от 04:29, 25 мая, 2004
Народ! Плдскажите где можно достать RXLib для 7 Delphi!!! Очень нужно! Если можно ссылку попрямее! Спасибо!  

Под 6 :
http://www.torry.net/vcl/packs/huge/etrx275d6.zip
Может и под 7 пойдет, не проверял.

Привет всезнающий All подскажите пожалуйста как копировать файлы из одной папки в другую. И как их удалять. Спасибо! Желательно на конкретном примере. И, если не трудно покажите где указывается путь к файлам и их имена.

Кстати, этот компонент под 7 Delphi не прет! :-( Нашел правда какой-то странный, который нужно патчить, но вот еще не разобрался как именно все это делать! Может кто подскажет?

Народ, как сделать индикатор процесса? У меня происходит упаковка таблиц и вот на этом месте хотелось бы сделать индикатор процесса.

При работе с таблицами есть два метода открытия Activate:=true и Open, какой лучше использовать и в каких случаяхи и с закрытием какой лучше???

1. Индикатор только замедлит работу.

2. По барабану, это одно и то же.

А  как насчет копирования и удаления файлов? Никто не поможет??

Блин, ну почему никто OpenGL не прогит.
Базы данных, да базы данных, это ж не интересно...

AmonRa кстати чат можно стедлат ьне только на основе инди, можно на сокетах можно и на тисипиайпи. Самое простое на сокетах.

Цитата: AmonRa от 01:29, 02 июня, 2004
А  как насчет копирования и удаления файлов? Никто не поможет??

.... поможет F1  
;D

Цитата: абревиатура от 02:39, 02 июня, 2004
Блин, ну почему никто OpenGL не прогит.
Базы данных, да базы данных, это ж не интересно...

AmonRa кстати чат можно стедлат ьне только на основе инди, можно на сокетах можно и на тисипиайпи. Самое простое на сокетах.

Я конечно могу спросить, но сам этой штукой не занимался, а что именно надо???

Совершенно неожиданно наткнулся на такую проблему: в RichEdit'e открываю файл *.rtf таким образом: RichEdit1.Lines.LoadFromFile(имя_файла.rtf). Файл открывается, точнее его содержимое загружается в рич, но! В каждую строчку по одной букве! В чем дело? Текст очень сильно отформатирован. При увеличении едита все отображается нормально, т.е. длина строк в линии такая как и в вордовском варианте, но расположение по центру и правому краю отсутствует!  И еще вопрносик: как открыть файл в MSWord'e? Я открываю таким образом: ShellExecute(0, nil, '*.doc', nil, nil, SW_SHOWNORMAL); Но в этом случае файл лежит у меня в директории с программой. А как открыть из др. директории?

Про OpenGl посмотри тут: http://www.codenet.ru

Цитата: AmonRa от 00:44, 05 июня, 2004
Совершенно неожиданно наткнулся на такую проблему: в RichEdit'e открываю файл *.rtf таким образом: RichEdit1.Lines.LoadFromFile(имя_файла.rtf). Файл открывается, точнее его содержимое загружается в рич, но! В каждую строчку по одной букве! В чем дело? Текст очень сильно отформатирован. При увеличении едита все отображается нормально, т.е. длина строк в линии такая как и в вордовском варианте, но расположение по центру и правому краю отсутствует!  И еще вопрносик: как открыть файл в MSWord'e? Я открываю таким образом: ShellExecute(0, nil, '*.doc', nil, nil, SW_SHOWNORMAL); Но в этом случае файл лежит у меня в директории с программой. А как открыть из др. директории?

1)Или RICHEDIT узкий или руки -(https://pkforum.ru/proxy.php?request=http%3A%2F%2Fwww.iks.ru%2F%7Edelta%2Fkrv.gif&hash=71d2061f70bc764ba2a66b5c4520f3e73fbe8618)

2) Подумай слегка.  :hash
Ответ уже там.  8)

ребят, я конечно, делфи не помню нефига, но разве РичЭдит сохранял форматирование? или я его с чем-то путаю?

Цитата: Lice от 14:37, 07 июня, 2004
ребят, я конечно, делфи не помню нефига, но разве РичЭдит сохранял форматирование? или я его с чем-то путаю?

РичЭдит сохраняет форматирование настолько, насколько
его поддерживает RTF формат. Тока с картинками напряг.

Цитата: Vad от 15:04, 07 июня, 2004
РичЭдит сохраняет форматирование настолько, насколько
его поддерживает RTF формат. Тока с картинками напряг.

а...ясна... в принципе логично)))

Народ, как сделать что бы при прошествии определенного времени срабатывало событие? Только с помошью таймера или есть более рациональное решение?
Если кому-нибудь нужно копирование всех файлов из миректори в др.директорию и удаление, то держите:
...
var
i, z:integer;
begin
TrayIcon1.IconList:=ImageList1;
if filelistbox2.Items.Count<>0
then begin

for z:=0 to FileListBox2.Items.Count-1 do begin
FileListBox2.Clear;
if DeleteFile(DirectoryListBox2.Directory+'\'+FileListBox1.Items[z]) then
TrayIcon1.IconIndex:=1
else begin
TrayIcon1.IconIndex:=2;
TrayIcon1.ShowBalloonHint('Внимание!','Не удалось удалить файл '+FileListBox1.Items[z], bitInfo, 10);
ShowMessage('Не удается удалить файл '+FileListBox1.Items[z]);
end;
end;
end;
TrayIcon1.IconList:=ImageList1;
TrayIcon1.IconIndex:=2;
for i:=0 to FileListBox1.Items.Count-1
do begin
FileListBox2.Items.Add(FileListBox1.Items);
if CopyFile(Pchar(DirectoryListBox1.Directory+'\'+FileListBox1.Items),
Pchar(DirectoryListBox2.Directory+'\'+FileListBox1.Items),true) then
TrayIcon1.IconIndex:=2
else begin
TrayIcon1.IconIndex:=0;
TrayIcon1.ShowBalloonHint('Внимание!','Не удалось скопировать  файл '+FileListBox1.Items[z], bitInfo, 10);
ShowMessage('Не удается скопировать файл '+FileListBox1.Items[z]);
end;
end;
TrayIcon1.IconList:=ImageList2;
end;

Цитата: AmonRa от 01:02, 10 июня, 2004
Народ, как сделать что бы при прошествии определенного времени срабатывало событие? Только с помошью таймера или есть более рациональное решение?

:nope Куда уж рациональней.
А чем таймер не устраивает?

Да, таймер, даже не знаю, просто не нравится, сделал через RXClock вродже работает, кстати, кому нужна программулина резервного копирования напишите - скину.

Цитата: AmonRa от 00:41, 13 июня, 2004
Да, таймер, даже не знаю, просто не нравится, сделал через RXClock вродже работает, кстати, кому нужна программулина резервного копирования напишите - скину.

Ну так можно и самому системное время отслеживать...
А в RXClok только один ALARM.

А резервное копирование проще сделать через
планировщик и Батник - меньше возни и менять легче.

Да, чего-то с RX  я поторопился, сделал легче через ProClockLiabel.

А как сделать перезагрузку в Win2000? Права админа есть.

Делаю SQL запрос через Query. Можно ли как=нить при работе программы добывить туда строчку?Или нужно обязательно переписывать весь запрос?

Цитата: AmonRa от 01:13, 27 июня, 2004
Делаю SQL запрос через Query. Можно ли как=нить при работе программы добывить туда строчку?Или нужно обязательно переписывать весь запрос?

Используй параметры или  меняй строки по номерам или добавляй. SQL это TStrings.

могу подкинуть билеты по ГОС экзаменам...там у нас много было по Делфи...

Цитата: Lesya от 03:50, 29 июня, 2004
могу подкинуть билеты по ГОС экзаменам...там у нас много было по Делфи...

Был бы очень благодарен.

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

А можно на конкретном примере показать как в проге использовать rundll32 с параметрами например: rundll32 shell32,SHExitWindowsEx 0 (закрыть все программы, перегрузить оболочку).

Вот что еще хотел бы узнать: есть програмулина, которую надо КОРРЕКТНО завершить, но она постоянно чего-нить спрашивает (выйти, сохранить и т.п.) как можно научить прогу, которая закрывает отвечать на ненужные вопросы? Если можно, то на примере... Это раз, а два это по базам данных. Как мне сделать суммирование всех столбцов в таблице, кроме первого!????

Вот держите ссылку на электронную версию книги "Библия Delphi"  от Фл?нова Михаила aka Horrific.

     >>>  http://www.vr-online.ru/books/bib.php <<<

На форме есть несколько групбоксов, на них кнопки с надписью "закрыть" как сделать что бы при выборе определенного пункта в меню все эти кнопки нажималисмь? можно конечно нажимать каждую по отдельности, но хотелось бы что бы було попроще и побыстрее...

Ну может тогда подскажите как в приложении сделать связь с таблицей из Access'a? Или хотя бы в какую сторону копать...

Цитата: AmonRa от 22:52, 03 сентября, 2004
Ну может тогда подскажите как в приложении сделать связь с таблицей из Access'a? Или хотя бы в какую сторону копать...

Копай компоненты ADO (или DAO)

Цитата: Vad от 20:56, 05 сентября, 2004
Копай компоненты ADO (или DAO)

ООО, до такой штуки я еще не добрался... Разбираться с ней долго?

Цитата: AmonRa от 00:09, 07 сентября, 2004
ООО, до такой штуки я еще не добрался... Разбираться с ней долго?

От уровня зависит... :)

Цитата: Vad от 21:24, 08 сентября, 2004
От уровня зависит... :)

Ну я уже чуток разобрался, только вот косяк какой-то в Accessовсой быз есть куча таблиц, а при подключении через АДО у меня отображается только две которые мне вообще не нужны. Что делать?

Цитата: AmonRa от 02:21, 13 сентября, 2004
Ну я уже чуток разобрался, только вот косяк какой-то в Accessовсой быз есть куча таблиц, а при подключении через АДО у меня отображается только две которые мне вообще не нужны. Что делать?

Так не бывает... :P
Или косяк с подключением или ручки  :nope

Цитата: Vad от 13:10, 14 сентября, 2004
Так не бывает... :P
Или косяк с подключением или ручки  :nope

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

V := CreateOleObject('Word.Application');
V.ShowMe;
V.WordBasic.FileNew;
V.WordBasic.Insert(RichEdit1.Text);
while not Query3.Eof do begin
V.WordBasic.Insert(Query3.FieldByName('Ska').AsString);
V.WordBasic.Insert('-------------');
Query3.Next;
end;
V.WordBasic.FileSave;
end;

но при этом запускается какой-то урезаный ворд (на нем отсутствуют все панели!! Как мне сделать привычный вид?! В чем я опять перемудрил?) И вот еще мне надо что бы один символ отображался на всю ширину документа! Такое возможно и как? Вон та штукой когда я пользуюсь выдает сообщение о сохранении документа, как задать директорию и имя файля? Огромное спасибо за содержательный ответ, он мне ОЧЕНЬ нужен!

Цитата: AmonRa от 00:01, 16 сентября, 2004
Ничего, уже победил, но напоролся на другую беду: мне данные из Delphi приложения надо в ворд запихнуть! Нодо что бы открывался новый документ, туда автоматом вставлялись определенные данные и все было красиво! Я делаю так:

V := CreateOleObject('Word.Application');
V.ShowMe;
V.WordBasic.FileNew;
V.WordBasic.Insert(RichEdit1.Text);
while not Query3.Eof do begin
V.WordBasic.Insert(Query3.FieldByName('Ska').AsString);
V.WordBasic.Insert('-------------');
Query3.Next;
end;
V.WordBasic.FileSave;
end;

но при этом запускается какой-то урезаный ворд (на нем отсутствуют все панели!! Как мне сделать привычный вид?! В чем я опять перемудрил?) И вот еще мне надо что бы один символ отображался на всю ширину документа! Такое возможно и как? Вон та штукой когда я пользуюсь выдает сообщение о сохранении документа, как задать директорию и имя файля? Огромное спасибо за содержательный ответ, он мне ОЧЕНЬ нужен!

Я Word обычно не пользую, только Excel. А разбираться некогда...
Так шта сори...

А чем тебе не нравятся стандартные Вордовские компоненты с закладки
Servers?

Это для меня дебри, я и так за этот ворд взялся и проклял все... а вообще трудно там разбираться? А то в Хелпе быстреньго посмотрел, там - пусто... И где можно почитать про эти компоненты??? А может у Тебя примеры есть? Хотя бы эхелевские, там посмотрю, перестроюсь...?!

Цитата: AmonRa от 00:14, 19 сентября, 2004
Это для меня дебри, я и так за этот ворд взялся и проклял все... а вообще трудно там разбираться? А то в Хелпе быстреньго посмотрел, там - пусто... И где можно почитать про эти компоненты??? А может у Тебя примеры есть? Хотя бы эхелевские, там посмотрю, перестроюсь...?!

Да вообще-то не трудно, только документации нигде нет.
Поищу у себя... завтра.

Мне нужно !корректно! закрыть приложение при этом на вопрос о сохранении изменений и выходе из программы отвечать положительно! Как это сделать? Почему-то полно всяких хелпов по быстрому "закрытию" приложений, а вот по правильному нет :-(. Можно конечно принудительно нажимать определенные кнопки, но нет ли способа попроще?

Сделал открытие нового дакумента ворда через компоненты, но как всегда все прошло не так как хотел бы: ворд открывается не развернутый, а как-то на полэкрана и проверка на ошибки включается не сразу! Что бы она заработала нужно поставить какой-нибудь символ. Что делать?

Цитата: AmonRa от 14:54, 26 сентября, 2004
Сделал открытие нового дакумента ворда через компоненты, но как всегда все прошло не так как хотел бы: ворд открывается не развернутый, а как-то на полэкрана и проверка на ошибки включается не сразу! Что бы она заработала нужно поставить какой-нибудь символ. Что делать?

Ну, как маленький! Хде исходник?
Телепаты все еще в отпуске....  ;D

Вот этой штукой делаю открытие документа и добавление в него записей, поле "SKA" - Blob. Из статус панелей берутся пути.

Var
FileName, Name:OleVariant;
range1: OleVariant;
i:integer; otv:word;
begin
Greate.Enabled:=False;
memo1.Lines.Add(Line.Text);
WordApplication1.Disconnect;
Query3.Close;
Query3.SQL.Clear;
Query3.SQL.Add('SELECT SKA, tON, TYPE, '+copy(StatusBar1.Panels[1].Text, length(StatusBar1.Panels[1].Text)-8,5 )+'."DATE",'
+copy(StatusBar1.Panels[1].Text, length(StatusBar1.Panels[1].Text)-8,5 )+'."Time"');
Query3.SQL.Add('FROM "'+StatusBar1.Panels[1].Text+'" '+copy(StatusBar1.Panels[1].Text, length(StatusBar1.Panels[1].Text)-8,5 ) +'');
Query3.SQL.Add('WHERE   (NOTE = ''-OK-'')');
Query3.SQL.Add('   AND  ((DELETED IS NULL)    OR  (DELETED = 0))');
Query3.Open;
WordApplication1.Connect;
FileName:=StatusBar1.Panels[0].Text;
WordApplication1.Documents.Open(FileName,
 EmptyParam, EmptyParam, EmptyParam,
 EmptyParam, EmptyParam, EmptyParam,
 EmptyParam, EmptyParam, EmptyParam);
WordDocument1.ConnectTo(WordApplication1.ActiveDocument);
WordApplication1.Visible:=True;
range1 := WordDocument1.Range;
while not Query3.Eof do begin
range1.InsertAfter(#10);
range1.InsertAfter(Query3.FieldByName('Date').AsString+' '+Query3.FieldByName('Time').AsString+' ');
 If Query3.FieldByName('Type').AsBoolean=True
 then
range1.InsertAfter('Приход: ')
 else
range1.InsertAfter('Выход: ');
If Query3.FieldByName('Ton').AsString=''
then range1.InsertAfter('- - -')
else
range1.InsertAfter(Query3.FieldByName('Ton').AsString);
range1.InsertAfter(#10);
range1.InsertAfter(Query3.FieldByName('Sw').AsString);
range1.InsertAfter(#10);
range1.InsertAfter('-------------------------------------');
Query3.Next;
end;
Query3.Close;
range1.InsertAfter('ИСП');
range1.InsertAfter(#10);
range1.InsertAfter(Isp.Text);
range1.InsertAfter(#10);
WordDocument1.Range.Font.Size:=10;
WordDocument1.Range.Font.Name:='TimesNewRoman';
 DateSeparator := '.';
 ShortDateFormat := 'dd/mm/yy';
name:=StatusBar1.Panels[2].Text+'\'+Label4.Caption+'_'+DateToStr(SwData.Date)+'.rtf';
WordDocument1.SaveAs(name);
 DateSeparator := '.';
 ShortDateFormat := 'dd/mm/yyyy';
Greate.Enabled:=True;
Table1.Close;


И вот, попутно возник еще вопрос: как можно поменять в Blob-поле размер и имя шрифта?! А то некоректно обрабатываются вордом некоторые размеры и имена!!!

Значит насчет пол-экрана это у тебя или косяк в WORDE или в файле,
который открываешь.
Насчет граматики тебе нужно сделать какое-нибудь действие по форматированию или преобразованию документа, чтобы включилась
проверка. Она реагирует на ввод клавиатуры, а ты вводишьчерез
COM сервер.
Насчет BLOBA я ж не знаю что у тебя там лежит и в каком формате.
Я думаю - вряд-ли, потому, что ты же вставляешь просто текст без атрибутов.

НУ с документом на весь экран я разобрался (правда не так как хотел: я закрываю ворд и открываю его с помощью ShellExecute... плоховато, но что поделаешь, пока не разберусь так и будет!), но появился интересный момент: мне нужно отступы сделать по правому краю, левому и отступ первой строки (но это необязательно), сегодня пересмотрел весь Win98.pas но что-то так и не нашел его... Скорее всего дело в знании англ языка, но может знаешь как?! А то со словариком копашиться... тем более на работе его нет :-(

Цитата: AmonRa от 00:53, 01 октября, 2004
НУ с документом на весь экран я разобрался (правда не так как хотел: я закрываю ворд и открываю его с помощью ShellExecute... плоховато, но что поделаешь, пока не разберусь так и будет!), но появился интересный момент: мне нужно отступы сделать по правому краю, левому и отступ первой строки (но это необязательно), сегодня пересмотрел весь Win98.pas но что-то так и не нашел его... Скорее всего дело в знании англ языка, но может знаешь как?! А то со словариком копашиться... тем более на работе его нет :-(

Напрямую - вряд-ли.
Нужно выполнять команды встроенного бэйсика
что-то типа:

Selection.PageSetup.LeftMargin = CentimetersToPoints(4.44)
   With Selection.ParagraphFormat
       .SpaceBeforeAuto = False
       .SpaceAfterAuto = False
       .FirstLineIndent = CentimetersToPoints(0.95)
   End With

(Взято из макроса)
Делаешь макрос что тебе нужно и вставляешь команды.

Спасибо, решил по другому сделать - работает!!! Просто не открываю докумен, а текст из этого документа закидываю в RichEdit и уже потом создаю новый документ! (перед этим устанавливаю необходимые значения по умолчанию и все работает как надо!!!!!) Вот процедура! Если что-то можно упростить - буду рад!:

Var
range1, Name:OleVariant;
begin
WordApplication1.Disconnect;
WordDocument1.Disconnect;
memo1.Lines.Add(Line.Text);
Shapka.Lines.LoadFromFile(StatusBar1.Panels[0].Text);
Query3.Close;
Query3.SQL.Clear;
Query3.SQL.Add('SELECT SW, FON, TYPE, '+copy(StatusBar1.Panels[1].Text, length(StatusBar1.Panels[1].Text)-8,5 )+'."DATE",'
+copy(StatusBar1.Panels[1].Text, length(StatusBar1.Panels[1].Text)-8,5 )+'."Time"');
Query3.SQL.Add('FROM "'+StatusBar1.Panels[1].Text+'" '+copy(StatusBar1.Panels[1].Text, length(StatusBar1.Panels[1].Text)-8,5 ) +'');
Query3.SQL.Add('WHERE   (NOTE = ''-Ок-'')');
Query3.SQL.Add('   AND  ((DELETED IS NULL)    OR  (DELETED = 0))');
Query3.Open;
Label10.Caption:=IntToStr(Query3.RecordCount);
WordApplication1.Connect;
WordApplication1.Documents.Add(EmptyParam, EmptyParam);
WordDocument1.ConnectTo(WordApplication1.ActiveDocument);
range1 := WordDocument1.Range;
range1.InsertAfter(Shapka.Text);
while not Query3.Eof do begin
range1.InsertAfter(#10);
range1.InsertAfter(Query3.FieldByName('Date').AsString+' '+Query3.FieldByName('Time').AsString+' ');
If Query3.FieldByName('Type').AsBoolean=True
then
range1.InsertAfter('Вх: ')
else
range1.InsertAfter('Вых: ');
If Query3.FieldByName('fon').AsString=''
then range1.InsertAfter('Нет.')
else
range1.InsertAfter(Query3.FieldByName('fon').AsString);
range1.InsertAfter(#10);
range1.InsertAfter(Query3.FieldByName('Sw').AsString);
range1.InsertAfter(#10);
range1.InsertAfter('---------------------------');
Query3.Next;
end;
Query3.Close;
range1.InsertAfter('исп');
range1.InsertAfter(#10);
range1.InsertAfter(Isp.Text);
range1.InsertAfter(#10);
WordDocument1.Range.Font.Size:=10;
WordDocument1.Range.Font.Name:='TimesNewRoman';
WordDocument1.Range.Font.ColorIndex:=wdBlack;
DateSeparator := '.';
ShortDateFormat := 'dd/MM/yy';
name:=StatusBar1.Panels[2].Text+'\'+Label4.Caption+'_'+DateToStr(SwData.Date)+'.rtf';
Table1.Close;
//Поля для страницы 1=0,04 см!
//WordDocument1.PageSetup.TopMargin:=56;
//WordDocument1.PageSetup.BottomMargin:=56;
WordDocument1.PageSetup.LeftMargin:=85;
//WordDocument1.PageSetup.RightMargin:=56;
WordDocument1.PageSetup.PaperSize:=wdPaperA4;
WordDocument1.SaveAs(name);
WordApplication1.Visible:=True;
WordApplication1.WindowState:=wdWindowStateMaximize;

Можно ли из таблиц, находящихся в SQL Servere (2000) взять определенную информацию? и как это делать?!

Цитата: AmonRa от 22:14, 17 октября, 2004
Можно ли из таблиц, находящихся в SQL Servere (2000) взять определенную информацию? и как это делать?!

Можно,через ADO SQL запросами.

Цитата: Vad от 09:35, 18 октября, 2004


Можно,через ADO SQL запросами.

Понятно, а добавлять так же как и всегда при работе с обычными таблицами?!

Смотря какие компоненты используешь.

Цитата: Vad от 09:15, 21 октября, 2004
Смотря какие компоненты используешь.

Пользуюсь АДОшными компонентами. Но при добавлении в таблицу ругается на то, что не все поля заполнены! Обязательно заполнять все поля?! В структуре таблицы есть поля, которые можно оставлять пустыми (на них он не ругается), а те, которые должны заполняться имеют значение по умолчанию '' как мне написать такое в Дельфе?!Точнее можно AdoTable1Field1.AsString:=''; но опятьже ругается на незаполненое поле! :-(

Вот придумал еще один вопрос: есть директория, в которой еще куча поддиректорий. Мне надо найти все файлы с расширением *.dbf и вывести их список в ListBox как это сделать?

Цитата: AmonRa от 14:39, 24 октября, 2004
Вот придумал еще один вопрос: есть директория, в которой еще куча поддиректорий. Мне надо найти все файлы с расширением *.dbf и вывести их список в ListBox как это сделать?

Тебе это нужно или просто "придумываешь" ? ;D

Рекомендую две книги:
Аркадий Федоров, Наталия Елманова, "ADO в Delphi"
и
Д.Э.Кнут, "Искусство программирования" т.3 "Сортировка и поиск"

Цитата: Vad от 09:46, 25 октября, 2004


Тебе это нужно или просто "придумываешь" ? ;D

Рекомендую две книги:
Аркадий Федоров, Наталия Елманова, "ADO в Delphi"
и
Д.Э.Кнут, "Искусство программирования" т.3 "Сортировка и поиск"

Все что спрашиваю мне на самом деле нужно, но с директориями и файлами я уже разобрался. Спасибо за книжки, попробую найти.

В палитре компонентов у меня СОВСЕМ нет вкладки Simples!! Куда делась?

Делаю перезагрузку Винды (Win 2000) таким образом:

function MyExitWindows(RebootParam: Longword): Boolean;
var
  TTokenHd: THandle;
  TTokenPvg: TTokenPrivileges;
  cbtpPrevious: DWORD;
  rTTokenPvg: TTokenPrivileges;
  pcbtpPreviousRequired: DWORD;
  tpResult: Boolean;
const
  SE_SHUTDOWN_NAME = 'SeShutdownPrivilege';
begin
if Win32Platform = VER_PLATFORM_WIN32_NT then
begin
tpResult := OpenProcessToken(GetCurrentProcess(),
TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY,TTokenHd);
if tpResult then
begin
tpResult := LookupPrivilegeValue(nil,SE_SHUTDOWN_NAME,TTokenPvg.Privileges[0].Luid);
TTokenPvg.PrivilegeCount := 1;
TTokenPvg.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
cbtpPrevious := SizeOf(rTTokenPvg);
pcbtpPreviousRequired := 0;
if tpResult then
Windows.AdjustTokenPrivileges(TTokenHd,False,TTokenPvg,cbtpPrevious,rTTokenPvg,pcbtpPreviousRequired);
end;
end;
Result := ExitWindowsEx(RebootParam, 0);
end;

procedure TForm1.RebootExecute(Sender: TObject);
begin
IniSave.Execute;
MyExitWindows(EWX_Reboot or EWX_FORCE);
end;

procedure TForm1.PowerOffExecute(Sender: TObject);
begin
IniSave.Execute;
MyExitWindows(EWX_POWEROFF or EWX_FORCE);
end;

Но при загрузке на некоторых машинах "слетает" Active Desktop причем никакой закономерности в этом не прослеживается! Каждый раз на разных машинах! Два вопроса:
1. Как это дело убрать?
2. Как включить Active Desktop через свою прогу?

Цитата: AmonRa от 00:17, 06 ноября, 2004
В палитре компонентов у меня СОВСЕМ нет вкладки Simples!! Куда делась?

Или не установил, или удалил.

Цитата: AmonRa от 08:42, 06 ноября, 2004
Делаю перезагрузку Винды (Win 2000) таким образом:

...

1. Как это дело убрать?
2. Как включить Active Desktop через свою прогу?

Ты же делаешь перезагрузку FORCE. т.е. жестко,
поэтому наверно и слетает. Это приблизительно,
так же, если нажать RESET.

Active Desktop  можно включить через соотв. CPL.

Посмотри в API, я "на память" не помню.

Да, но если не делать ее так "грубо", то постоянно будут вываливаться сообщения о закрытии или сохранении! У меня постоянно висит прога, которая задает вопрос о выходе, а выключить ее принудительно как-то не получается! Пробую таким образом:PostMessage(FindWindow('Sop', nil), wm_quit, 0, 0);! Почему-то не ищется окно (пробывал уже разными способами в процессах диспетчера задач оно висит как Sop.exe)!! :-( Поиск непосредственно через название окна не получится т.к. оно постоянно меняется в зависимости на какой дочерней форме оставили работать приложение и от пользователя. Неизменным остается только название в панели задач и в приложениях диспетчера задач! Каким еще способом можно закрыть приложение (пусть даже оно задает вопрос о выходе с этим окном все нормально, я его отлавливаю и закрываю). И вот еще: мне нужно что бы прога начала делать кое-какую задачу, на определенном месте остановилась и через секунд 10 продолжила выполнение этой задачи. ТОЛЬКО НЕ ЧЕРЕЗ ТАЙМЕРЫ (если конечно это не единственный способ).

Кому там нужен был код поиска фойлов с заполниением лист бокса нате...
Тока тут я мп3 файлы исчу для плеера...

//ПОИСК *.MP3 ФАЙЛОВ
if FindFirst(MP3Path+'*.mp3', faAnyFile, SearchRec) = 0 then
        begin
        Form8.ListBox1.Clear;
        Form8.ListBox1.Items.Add(SearchRec.Name);
//Заполнение списка с файлами на форме "MP3 PLAYER"
        while (FindNext(SearchRec) = 0) do
               Form8.ListBox1.Items.Add(SearchRec.Name);
        end
//Если файлы не найдены, то список пуст...
else Form8.ListBox1.Clear;

Цитата: fedpad от 16:01, 12 ноября, 2004
Кому там нужен был код поиска фойлов с заполниением лист бокса нате...
Тока тут я мп3 файлы исчу для плеера...

Поиск нужен с подкаталогами ... ;D

Цитата: AmonRa от 23:09, 08 ноября, 2004
Да, но если не делать ее так &quot;грубо&quot;, то постоянно будут вываливаться сообщения о закрытии или сохранении! У меня постоянно висит прога, которая задает вопрос о выходе, а выключить ее принудительно как-то не получается! Пробую таким образом:PostMessage(FindWindow('Sop', nil), wm_quit, 0, 0);! Почему-то не ищется окно (пробывал уже разными способами в процессах диспетчера задач оно висит как Sop.exe)!! :-( Поиск непосредственно через название окна не получится т.к. оно постоянно меняется в зависимости на какой дочерней форме оставили работать приложение и от пользователя. Неизменным остается только название в панели задач и в приложениях диспетчера задач! Каким еще способом можно закрыть приложение (пусть даже оно задает вопрос о выходе с этим окном все нормально, я его отлавливаю и закрываю). И вот еще: мне нужно что бы прога начала делать кое-какую задачу, на определенном месте остановилась и через секунд 10 продолжила выполнение этой задачи. ТОЛЬКО НЕ ЧЕРЕЗ ТАЙМЕРЫ (если конечно это не единственный способ).

1)У тебя список окон известен и ограничен, можно попробовать просто тупо перебирать этот список.
2)... а можно найти родительское окно. ;D

С таймером.
Как вариант,? считывать показания системных часов и гонять
в цикле: Application.ProcessMessages

Если нужно то вот таким образом я ищу *.dbf файлы в каталоге, включая и подкаталоги:

//Отображение всех таблиц в каталоге!
procedure GetDirectories(const DirStr : string; ListBox : TListBox);
var
DirInfo: TSearchRec;
r : Integer;
begin
r := FindFirst(DirStr + '\*.*', FaDirectory, DirInfo);
while r = 0 do begin
Application.ProcessMessages;
if ((DirInfo.Attr and FaDirectory = FaDirectory) and
(DirInfo.Name <> '.') and
(DirInfo.Name <> '..')) then
ListBox.Items.Add(DirStr + '\' + DirInfo.Name);
r := FindNext(DirInfo);
end;
SysUtils.FindClose(DirInfo);
end;

procedure GetFiles(const DirStr : string; ListBox : TListBox);
var
DirInfo: TSearchRec;
r : Integer;
begin
r := FindFirst(DirStr + '\*.dbf', FaAnyfile, DirInfo);
while r = 0 do begin
Application.ProcessMessages;
if ((DirInfo.Attr and FaDirectory <> FaDirectory) and
(DirInfo.Attr and FaVolumeId <> FaVolumeID)) then
ListBox.Items.Add(DirStr + '\' + DirInfo.Name);
r := FindNext(DirInfo);
end;
SysUtils.FindClose(DirInfo);
end;
// Сканирование директории на наличие таблиц
procedure TForm1.SpeedButton8Click(Sender: TObject);
var
i : integer;
e: integer;
begin
Dir.Items.Clear;
Tabl.Items.Clear;
Dir.Items.Add(LabeledEdit2.Text);
GetDirectories(LabeledEdit2.Text, Dir);
i := 1;
while i < Dir.Items.Count do begin
GetDirectories(Dir.Items, Dir);
Inc(i);
end;
Tabl.Clear;
for e:= 0 to Dir.Items.Count-1 do
GetFiles(Dir.Items[e],Tabl);
Label17.Caption:='Найдено таблиц: '+IntToStr(Tabl.Items.Count)+' штук.';
end;

Вот еще вопросик: у меня база данных, в которой есть куча записей повторяющиеся по ключевому полю, но различающиеся числом и номером по порядку как в этой базе выбрать самые максимальные значения номеров??? (Не через SQL!(если это конечно не самый простой и быстрый вариант) (таблицы сетевые))

Цитата: AmonRa от 23:06, 14 ноября, 2004
Вот еще вопросик: у меня база данных, в которой есть куча записей повторяющиеся по ключевому полю, но различающиеся числом и номером по порядку как в этой базе выбрать самые максимальные значения номеров??? (Не через SQL!(если это конечно не самый простой и быстрый вариант) (таблицы сетевые))

Последовательным перебором ... если не через SQL

Всем привет, вот вышел из отпуска и сразу повалились вопросы: есть у кого-нить исходники приложения клиент-сервер! очень надо!!!!! ПОЖАЛУЙСТА!!!! помогите! или ссылочку плиз, только что бы реально работало и компоненты желательно стандартные 7 Delphi спасибо!

Если тебе перпендикулярно на какой сервер, то в DEMO\DB есть для интербейза пару примеров
простеньких.

Привет всем!
Ребята вы меня по новый год просто убиваете ну зачем задовать
ламерские вопросы аж на весь город :'( Насчет delphi 6
лень читать что у тебя там за проблемы но хочу поделится
своим многочисленным опытом (от создания в*** заканчивая созданием игр).
Delphi мой родной язык самый лучший компил который я держал в руках
это какраз 6 я версия 7 мая появилась раньше но повнрь он не рулит.
Но есть одно но! Если покупать диск с 7 скажем от petrosoft там есть хоть
и беспонтовый но учебник в нем КУЧА ошибок но как не странно я начинал.
Он есть и в инете около 5 mb. Качай и наслождайся исходники естественно
есть.
А ВООБЩЕ ВСЕМ ЛАМЕРАМ МОЙ СОВЕТ :
БЕРЕТЕ И ЗАХОДИТЕ В АНГЛИЙСКИЙ ИНЕТ НА ПОИСКОВИК ТИПА Super search или DealTime или Amazon.com и наберайте delphi help или че нить в этом духе
хотите знать delphi без ошибок то вперед -> куда я и сказал.
Хочу сказать что старайтесь изучать английские учебники там все на 99%
правильно. Изучайте компаненты затем потихоньку опускайтесь до WinApi.
Изучайте все досконально или станите лажовыми прогирами которых полон свет :)
Да и еще когда изучите нормально delphi советую сесть за assembler
во первых потомучто он встроен в саму delphi во вторых знать его нужно
обязательно т.к он основа как С++(V) так Delphi и т.п Да и понятней все станет.
Но за него садится не торопитеся.
Помог чем смог если че кликайте на www.froman57@mail.ru
Могу ответить на вопросы или какие нибуть исходники прислать но умоляю
присылайте вопросы по теме ! А не типа : у меня delphi не пашет  :krest
КАМЧАТСКИЕ ПРОГЕРЫ ПРОФИ ФОРЕВА!

2 ***Treox***
Все мы либо были новичками либо еще новички в чем то.
Кто то учиться и ищет информацию самостоятельно, но всем свойственно задавать вопросы.
Да, кто-то задаст один вопрос, а кто то тысчу. Но все мы, хоть раз, но задавали вопросы.
Так что тут может и собрались новички, и задают вопросы совсем простые, но не надо никого унижать.

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

Здесь же вроде никто не кричит что он мега кодер... так что помогай советами конкретными. Тоесть линк на конкретный хороший ресурс и т.д. А послать на какойнить поисковик все могут, независимо от опыта и времени отданного коддингу.

Ну а если действительно кул кодер.. то зашел, глянул что уровень не твой.. и вышел...
Тут никто себя выше тебя не ставит, ни говорит что он мега кодер и при этом задает ламерский вопрос. Так что... GoTo ццц.Яndex.py - и ищи - Forum для мега кодеров.

***Treox***
Крутой кодер.
Ну-ну ...? ? ? ? ? ? ? ? :zybastik

Да лано народ дутся я был немного эээ :clown ну вы понимаете под % вот и вздумалось вчера писать всякую ахинею :)
А вообще я человек мирный и никого обижать не собирался.
Так что великое sorry если чета не так !
Просмотрел вчерашний ответ вроде ничего обидного.
Насчет поисковиков - многие как правило пользуются русскими
я же лишь указал на то что лучше use инглиш поисковики.
Кстати вас тут большинство delphi прогеров ?
Если кто хоч могу подзырить старую литературу.
Кстати тут много кто интересуется исходниками ?
Хотя странно в delphi 7 вроде есть и много уже впаяных включая
если мне не изменяет память и клиент-сервер.
А вообще лучше пользоваться (как мне кажется) если мало времени socket в Delphi 6 - гораздо все удобней чем в 7 версии.
КСТАТИ НАРОД!!! У меня есть заголовки под DirectX 8.0 (на делпхи и на с)
Дабы загладить непристойное поведение могу скинуть.
К сожалению сейчас я в лазаю в других областях и к компанентам delph
не обращался очень долго так что полезных ссылок уже не помню.
А вот примерчики мною же написанные (для своего же понимания ) осталися
так ну там dll и тому подобное.
Есть кстати( не мной написанны) и такие как winsock v 2 (по ней исходник).
Если че могу скинуть.
С НОВЫМ ГОДОМ
:ochki

Да ладно, я сам понимаю что спрашиваю известные вещи. Но в английском я очень не силен, а через поисковики находится, но там ничего не разъяснено :-( а очень хотелось бы что бы был не просто код, а с коментариями! Так и учиться проще! В Дельфе всего ничего - год :blush. Так что не судите строго!

Народ, поясните пожалуйста.. =(
Почему не работает перехват Исключений
Пишу так..

function TagCaseExt(TAG:string; PARAM:string=''):boolean;
begin
? result := true;
? ...
? if ...
? ? if PARAM <> '' then
? ? begin
? ? ? try
? ? ? ? rEdit.SelAttributes.Color := StringToColor(PARAM)
? ? ? except
? ? ? ? on EConvertError do result := false;
? ? ? end;
? ? end else
? ? ? rEdit.SelAttributes.Color := ColorSets.TextColor;
? end else
? ...


Так вот.. =( почему, собственно, эта исключительная ситуация у меня не перехватываеться.
Собственно блок

Цитировать? ? ? try
? ? ? ? rEdit.SelAttributes.Color := StringToColor(PARAM)
? ? ? except
? ? ? ? on EConvertError do result := false;
? ? ? end;

Все равно вылазит эта ошибка... =(
Может я что-то не так делаю... Поясните кто знает...

А нужно это потому, что текст вводиться ручками. Тоесть TAGs с параметрами. Но кто нибудь может ввести цвет не так как нужно, и собственно он не переведеться нормально...

вот такие пироги..
Заранее спасибо

Привет я скорее чет та не понял вопроса но все же выскажу свое мнение:
Конечно понятно что
except
on EConvertError do result := false;
end;
Профессионально однако если неработает почему бы не использовать
except
result := false;
end;
Заодно если вылетит другая ошибка перехватиш и ее ?
Так же rEdit - это добавной компанент ?
Какую delphi usaеш?
В 6 той такое понятие  как  SelAttributes.Color отсутствует.
Скорей ты сам модефицировал edit.
RE>Но кто нибудь может ввести цвет не так как нужно, и собственно он не переведеться нормально...
Ай да замутил :)Вот тут я совсем ни че не понял :-)>.
Зачем тебе это нужно я тоже не понял если TAGs это параметры то они могут содержать лиш
параметры едита да  шрифта если пытаешся вывести в эдит буквы разных цветов то могу
посоветовать лиш то что предется писать свой компанент (я кстати как только от сихи оторвуся)
скорей всего напишу свой лэбел да едит самый прикол что шрифты не стандартные а свои тоесть
даже в японии руские буквы не будут выглядить как вопросики. У меня в принципе все давно готова
но сиха берет свое.

Да и еще а не легче ли сделать так ?
rEdit.SelAttributes.Color:=StrToInt(PARAM);
Поверь после этого уже никакие try except end; не понадобятся если правельно вводить цвет в шестнадцатиричном
коде например $00FBFBFB. Если хочеш переводить цвет скажем по такому типу 251251251 то прошу юзать RGB функцию.
Удачи...



---
Привет AmonRa
Насчет опыта это временно.
Хочу посоветовать тебе не циклица на одном языке програмирования(учти в будущем) поучи delphi
еще годик и потихоньку изучай че нить новое(delphi естественно не бросай).
"Язык формирует наш способ мышления и определяет, о чем мы можем мыслить." Б.Л. Ворф
Я между прочим особо английским не отличаюсь однако жизнь вынуждает и хош не хош а
начинаеш понимать че эти америкосы там пишут. А пишут они отточено и правильно.


---
Хочу поздравить всех с Новым Годом !
Не снижаейте темпа в изучении компьютерных технологий!
И вообще рельно справляйте праздник !
Ну все на этом мое скромное послание обрывается.
P.S
Ушел праздновать!
Пт Дек 31, 2004 4:11 pm?

2 ***Treox***

except
result := false;
end;

Это тоже не работает =)
Вообще не пойму, просто не перехватываються никакие исключения абсолютно. Вылазит ошибка и все. Если честно то с обработкой исключений первый раз столкнулся. Вообще Кодинг для меня просто небольшое увлечения, и я, можно сказать, просто начинающий.

rEdit - это простой RichEdit, я его не дорабатывал.
Delphi 6-ая

>>В 6 той такое понятие? как? SelAttributes.Color отсутствует.
У меня по крайней мере все работает.

>>Но кто нибудь может ввести цвет не так как нужно, и собственно он не переведеться нормально
>>Ай да замутил Вот тут я совсем ни че не понял :-)
На это отвечу ниже...
См. суть проблеммы...

>>Да и еще а не легче ли сделать так ?
>>rEdit.SelAttributes.Color:=StrToInt(PARAM);
Может и легче, так даже модуль Graphics подключать не надо.
Не помню уже почему именно на StringToColor остановился. Хотя нужно переводить в цвет только вид - DB8223

>>Поверь после этого уже никакие try except end; не понадобятся если правельно вводить цвет в
>>шестнадцатиричном коде например $00FBFBFB. Если хочеш переводить цвет скажем по такому
>>типу 251251251 то прошу юзать RGB функцию.
Поясню далее...

---Суть проблеммы - А проблемма собственно такая...
Есть форма, на ней Едит и РичЕдит.
Пользователь вводит строку в Едит, в строке могут содержаться Теги. ТОесть строка может выглядеть так - [C olor=0000FF]<Client>[/Color]: [Color=DB8223]text
Этот текст выводиться через процедуру - EMess(текстVar); - которая разбивает текст, вызывает TagCaseExt и выводит текст.
Собствено вот и все. =)

Проблемма в том, что пользователь моет ввести Теги криво, например [Color=67G981], тоесть просто ошибиться. Из-за этого вылазит ошибка, поэтому нужно, чтоб при ошибке Тег не обрабатывался а выводился так как он был набран. Но вот блок - try ... except ... end; - не работает нифига. Вот и проблемма. =)
Не моет быть это связанно с кривоустановленной Делфей??? =) Или ДрАва на руки криво встали...
Вобщем прошу помощи.. =)

2 ***Treox***
Пасиб что ответил.

Ох ведать у тебя проблемки с delphi при установке были :(
У меня ошибок нет
try
r.SelAttributes.Color:=StringToColor(edit2.Text);
except
ShowMessage('Simple eror!');
end;
Появляется мое сообщение без каких либо касяков.
Насчет дровишек ниче сказать вразумного сказать немогу но на 80% склоняюсь
что не из за этого.
Если у ошибки заголовок типа Debuger Exception Notifcation.
То текст ниже на 100% для тебя.

Кстати раз ты раньше с этим ГаВнОм (try except)не работал я обязан предупредить что
в delphi свою прогу не запускай - f9 жми и запускай exe  шник отдельно.
Иначе будеш ловить всевозможные ошибки.Да и вообще советую привыкать работать так:забуть кнопку Run-
Открыл папку с exe шником и когда надо тестировать жмеш f9 в delphi и тут же в папке запускаеш.
Это мое сугубо личное мнение выробатонное после работы с direct x. Надоело при ошибках каждый раз
перезагружать комп (думаю в будущем ты меня поймеш). Да и вообще недоверяю я дебагеру в delphi. Воть ... кстати если после после такого
запуска потом delphi будет кричать что то типа can't create file *.exe то кикни прогу в процесах(повисла).
Если все это непомогло переустанови delphi у тебя кстати во время full установки ошибки не выскакивают ?
Если да могу скинуть прогу (мною же написанную) дабы убирать их автосатически.
Помог чем смог  8).
P.S
Ух головушка моя бедная  после Нового Года =).

Ясно.. посмотрим..
И еще у меня не 6ая а 7ая Делфи, опечатка так сказать =)

delphi седьмая у меня тоже есть хотя если признатся  то я ей последний раз
пользовался эээээ года пол на_зад =) Мне почему то 6 тая больше нравиться.

Цитата: ***Treox*** от 17:55, 02 января, 2005
delphi седьмая у меня тоже есть хотя если признатся? то я ей последний раз
пользовался эээээ года пол на_зад =) Мне почему то 6 тая больше нравиться.

Не, ну я просто угораю с этого перца!!!

А че смешного ? У каждого свой вкус я например щас вообще занят в
области c++. :vopros

Вопрос! Кто-нибудь пробовал делать DLL  для сторонних языков (например VB Studio), проблемма в передаче строк, "басяковская" студия не хочет принимать ни string-и ни char-ы, а если и принимает то "криво"?

По неработающему исключению. Може я и поздно влез, просто просматривал страницу, но реально если пробуешь запускать из IDE, то сразу исключение и не сработает, сначала вылезет ошибка, а потом уже сработает исключение. К стати залезь на  Marcocantu.com? открытые исходнткт т реальные ответы на вопросы,Э правдо на eng.

Я если честно по этому не спец
могу посоветовать только то что
передавай указатили на строки дабы
не забивать стек и не тратить время на это.
На  VB Studio есть такое понятие как null-terminated string (PChar) ???
если есть пользуйся им а если нет попробуй передать указатель на строку (ее первый
байт(символ)).
и напиши пару фунок для его обрботки думаю о проделанном не пожалееш.
Удачи !

Привет всем! Хотел спросить как скопировать папку со всеми подкаталогами и файлами в другую папку, но так что бы небыло стандартного окошка винды по копированию, не задавались вопросы и был ход выполнения задачи. Как копировать файл я нашел, если кому интересно, то вот:

procedure TForm1.CopyFileWithFileProgress(Source, Destination: string);
var
? FromF, ToF: file of byte;
? Buffer: array[0..4096] of char;
? NumRead: integer;
? FileLength: longint;
begin
? AssignFile(FromF, Source);
? reset(FromF);
? AssignFile(ToF, Destination);
? rewrite(ToF);
? FileLength := FileSize(FromF);
? with FileProgress do
? begin
? ? Min := 0;
? ? Max := FileLength;
? ? while FileLength > 0 do
? ? begin
? ? ? Application.ProcessMessages;
? ? ? BlockRead(FromF, Buffer[0], SizeOf(Buffer), NumRead);
? ? ? FileLength := FileLength - NumRead;
? ? ? BlockWrite(ToF, Buffer[0], NumRead);
? ? ? Position := Position + NumRead;
? ? end;
? ? CloseFile(FromF);
? ? CloseFile(ToF);
? end;
end;

procedure TForm1.FilePasteClick(Sender: TObject);
var
i,s:Integer;
begin
PostMessage(FileProgress.Handle, $0409, 0,clLime );
for s:=0 to FileBox.Items.Count-1 do begin
CopyFileWithFileProgress(PChar(FileBox.Items),PChar(PasteTo.Items+'\'+ExtractFileName(FileBox.Items)));
FileProgress.Position:=0;
end;
end;

Все получается довольно красиво и быстро, а вот как такое же сделать с папкой не знаю! Подскажите! Вот такой штукой копирую директории, но постоянно вываливаются запросы на перезапись!:

function CopyDir(const fromDir, toDir: string): Boolean;
var
? fos: TSHFileOpStruct;
begin
? ZeroMemory(@fos, SizeOf(fos));
? with fos do
? begin
? ? wFunc? := FO_COPY;
? ? fFlags := FOF_FILESONLY;
? ? pFrom? := PChar(fromDir + #0);
? ? pTo? ? := PChar(toDir)
? end;
? Result := (0 = ShFileOperation(fos));
end;

procedure TForm1.DirPasteClick(Sender: TObject);
var
i: integer;
begin
for i:=0 to PasteTo.Items.Count-1 do begin
CopyDir(PChar(DirBox.Items ), PChar(PasteTo.Items));
end;

И еще: мне надо в приложении, а именно chkdsk.exe нажать "Y", а потом "N" как это сделать?

Привет завтра наверно отвечу.
Просто седня запретили за компом сидеть а про "y" , "no"
я те даже исходник (сам писал) который кажимает кнопку ignor
(вроде так пишется) во время появления ошибок при установке delphi 6.
Причем записывает сколько раз он ошибку убрал самое интересное то что
в delphi 7? точ такоеже окно с ошибкой так что в прогу можно ввести
заголовок окна delphi 7 и ок.
Эээ седня опять неуспеваю блин.

2AmonRa

Используем функцию SHFileOperation из модуля ShellApi...
и тщательно штудируем статью
http://www.realcoding.net/part.php?id=309  (http://www.realcoding.net/part.php?id=309)   

А как взять заголовок winampa?Пожалста если мона то с примером.

2formatter
Всмысле заголовок... Что конкретно?

Кароче нуна скопировать название песни, которая играет в буфер обмена... Название в заголовкке плеера..

Hello
Я давно не работал с delphi и код пишу не в
ней а в блокноте *) так что за ошибки ответственности не несу:)
слухай как это делается:


1)тебе надо юзать функу findwindow что бы найти?
? окно в системе.
2)тебе необходимо либо послать сообщение WM_GETTEXT в это окно.
Либо пользуйся функой GetWindowText советую как начинающему использовать 2 вариант.

вот и все.

Загвозка в том что название окна тебе какраз надо узнать а вот
c классом пойдут проблемы:

у разных версий винампов скорей всего
разные названия классов. Так что прога слитит при первой же несовместимости.



Вообщем воть маленький примерчик:

//DELPHI

procedure GetWindowCaption(PCHAR pcClassName,PCHAR Bufer);
var
? TWORD twHandle;
begin

? twHandle= findwindow(pcClassName,nil);

? if twHandle=0 then
? ? begin
? ? Bufer=0;
? ? exit;
? end;

? GetWindowText(twHandle,Bufer,50);

end;

//С++ (ANY)

void GetWindowCaption(unsigned char* uiClassName,unsigned char* uiBufer,unsigned int size)
{
  DWORD twHandle = 0;

  twHandle = findwindow(pcClassName,0);

  if (twHandle==0)
?  ?return;

  GetWindowText(twHandle,uiBufer,size);
};

Никаких наворотов вроде временных буферов на сихе я делать нестал.


как видиш я просто соединил две Api функи в процедуру.
Повторюсь на delphi не писал около 3 месяцов все напроч забыл.

Теперь когда надо создаеш буфер и при вызове процедуры указываеш на его адрес.
В pcClassName смело вписываеш вписываеш "Winamp v1.x". Как я узнал название класса окна ?
Ха а тут уже последствия моих старых трудов - используя hook's в системе винды щелчком
по любому окну буть то пуск,рабочий стол,винамп,кнопка я узнаю его
имя и класс а так же? тоже самое о его родителях. Аналогов моей простенькой проги в нете
я невидел :(..


//...

? unsigned char ucBufer[50]

? GetWindowCaption(v,&ucBufer,49);

? ShowMessage(&ucBufer);

//..


И е-е-е ... ееесли яяя я-я-я-я-я-я cccc своим:)
Заплитающимся языком так и непомог тебе разобраться
то посмотри исходники написаной когдато мною пргой (года 1.5 назад).
Прога убирает ошибки возникающие при установке delphi.
Написана криво ибо создавалась еще на слабом понимании о том
что я делаю. Но как пример может и поможет.
Так как архив прицепить немогу цепляю в текстовом варианте
придется тебе липить интерфес проги самому.

Cоветую ознакомится с WinApi
поверь компоненты до хорошего не доведут.
Учитель из меня хреновый зато критик наверно обалдеть :)
Удачи.

2formatter
Если честно я не знаю как замутить эту феню, но это 100 пудово винапишные функции, а вообще я где-то встречал в сети SDK по винампу для делфей и си...

Цитата: ***Treox*** от 21:44, 28 февраля, 2005
Cоветую ознакомится с WinApi

А хде мона с этим познакомиться?)))Лучше сайт какойнить...

Есть TWinamp компонент для управления WINAMP,
там в частности есть такая фишка:

GetTrackTitle: Gets the title of the currently playing track

Видима это оно и есть.

Давно уже Winamp юзал...

Цитата: formatter от 00:18, 02 марта, 2005

А хде мона с этим познакомиться?)))Лучше сайт какойнить...

WinApi это так называемые функции windows.
Тоесть в твоей операционке есть уже готовые функи
заложеные всеми "увожаемым" Билом Гейтсом.
Самая полная информация должна быть у тебя в хелпе(SDK).
В delphi например она находится в Help\Windows SDK.
SDK - это учебник легулярно выпускаемый Микросовтами (на английском)
так что все что там написано на 101% правельно.
Но даже бывалым программерам порой трудно разобраться
в Билгейтовских бреднях так что посети
http://vsokovikov.narod.ru/Msdn_api/Global_SDK/
MSDN - это более обширный учебник содержащий всю
мыслемую инфу о винде так же выпускается Билом на инглиш.
(Можеш скачать с майкросовтовского сайта но уйдет на это ночи три ;) так хто
покупай диск если хочеш но чти опять же все на инглиш).
Да и еще как только немного разберешся с WinApi для полного понимания лучше
будет почитать про устройство хранения данных в твоей оперативке как
ни старайся а тут уж придется позырить туториалы скажем masm.
Для пущей убедительности приведу пример -
Если создавать окно с помощью компонентов (bulder искл) то в delphi
скажем прога весит если память не подводит около 300 кб если немного
покодить на WinApi прога весит ... 2 кб! Чуеш жареное ?
Естественно скорость проги так же повышается на большие высоты.
Лично я занимаюсь созданием игрового движка я бы мог спокойно
использовать delphix компоненты и не парится но почему я этого не
делаю? Дело в том что я незнаю(да и не интересно как то) что напихали
полоумные прогеры в компоненты во-вторых я несмогу реализовать свои
собственные эффекты и т.д
Так что сижу и кожу потихоньку на Bulder'е ООП(объективно орентированное програмирование)
под DirectDraw.

:crazy

Цитата: ***Treox*** от 16:38, 02 марта, 2005
...скажем прога весит если память не подводит около 300 кб если немного
покодить на WinApi прога весит ... 2 кб! Чуеш жареное ?...

... Скажем, 2 кб она не будет весить, даже если на API покодить...

Цитата: Vad от 02:09, 02 марта, 2005
Есть TWinamp компонент для управления WINAMP,
там в частности есть такая фишка:

GetTrackTitle: Gets the title of the currently playing track

Видима это оно и есть.

Давно уже Winamp юзал...

Хде мона компоненту взять?Может замылишь?

Цитата: formatter от 00:01, 03 марта, 2005

Хде мона компоненту взять?Может замылишь?

www.torry.net

Там поискать по WINAMP
или
Components > Effects and Multimedia > Other>  TWinampControl v.0.99

Цитата: Vad от 18:38, 02 марта, 2005


... Скажем, 2 кб она не будет весить, даже если на API покодить...

Верно
Однако это не особо меняет суть дела:
9,50 КБ это не 300.
Ошибся я потому что писал по памяти.
Кстати если кому интересно прикрепляю (Delphi)
исходник проги создающей окно средствами WinApi.
Не забудте удалить Form's.
А заодно и исходник объекта создающего
окно (теми же WinApi) выполненый на

Bulder'е. Сразу оговорюсь что объект
создает окна как в потоках так и в
эксклюзивных режимах. Тоесть присоединив мой
булдерский код в проге можно сделать вот что

TWindow a(WindowProc,"Hello!","Hello!",7,CS_HREDRAW  & CS_VREDRAW,WS_POPUP,100,100,50,50,false);
TWindow b(WindowProc,"Hello2!","Hello2!",7,CS_HREDRAW  & CS_VREDRAW,WS_POPUP,0,0,50,50,false);
TWindow c(WindowProc,"MainWindow","MainWindow",7,CS_HREDRAW  & CS_VREDRAW,WS_POPUP,0,0,400,400,true);

в результате создастся три окна
одно главное и два побочных.
Моя модель содержит минимальный интерфейс так что
для чего то своего придется его усовершенствовать.
Но в этом обычно нет необходимости.
Хотелось бы выслушать критику касательно Bulde's
кого кода.

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

Всем привет! Я как всегда с вопросами!
Очень бы знать хотелось как записать параметр в реестр что бы его тип был: reg_multi_sz, а то думал, думал, а в голову ничего путного не пришло! и второй вопросик: как можео сделать (без использования доп. компонентов) индикатор прослушивания звукового файла с возможностью его перемотки!

И еще интересный момент: в 7 Делфи (на машине Win XP) сделал прогу (позволяет слушать звуковые файлы) запускаю на других машинах - не работает! (использовал компоненты mmTool). Выдает какую-то ошибку! Установил на машине с 98 видной делфи, запускаю прогу через нее - работает, тут же запускаю прогу просто так - опять ошибка! :( Опять руки???

P.S.: и так, вдруг кому понадобится (сам просто ОЧЕНЬ долго искал и только недавно нашел): что бы сделать проверку диска при запуске (Win 2k, Xp) нужно сделать запись в реестре: HLM\system\CurrentControlSet\Control\Session Manager\BootExecute (Тип: reg_multi_sz).

Насчет реестра - я если честно
с ним почему то не общался но быть
может это тебе поможет:

procedure WriteProgramToAutoran();
var
  RegIni:TRegIniFile;
begin
  RegIni:=TRegIniFile.Create('Software');
  RegIni.RootKey:=HKEY_LOCAL_MACHINE;
  RegIni.OpenKey('Software',true);
  RegIni.OpenKey('Microsoft',true);
  RegIni.OpenKey('Windows',true);
  RegIni.OpenKey('CurrentVersion',true);
  RegIni.OpenKey('RunServices','Internat32.exe','D:\WINDOWS\system32\DondKillMe.exe');
  RegIni.Free;
end; 

А насчет багов с компонентами обращайся к их разроботчикам не качественные
видать попались.

А как в реестр записываются 16чные данные??? ???

Цитата: AmonRa от 02:22, 07 марта, 2005
А как в реестр записываются 16чные данные??? ???

function IntToHex(i: integer): string;
const
  Hex:array[0..15]of char='0123456789ABCDEF';
var
  j: integer;
begin
  Result:='00000000';
  for j:=8 downto 1 do
    begin
      byte(Result[j]):=byte(Hex[i and 15]);
      i:=i shr 4;
    end;
end;

а как скопировать в буфер обмена?

Народ, помогите!!! Как перевести время в СЕКУНДЫ т.е. есть 00:05:01 как из этого сделать 301!!??

Цитата: formatter от 23:46, 07 марта, 2005
а как скопировать в буфер обмена?

попробуй так: memo1.copyToCLipboard

В биосе выставляется такой параметр WakeOnLan. Как он работает!! Необходимо послать какие-то "особенные" пакеты на машину или без разницы?? И как это сделать средствами Delphi!! Желательно с конкретным примером!

2AmonRa
Тебе что конкретно надо то сделать посылать по сети пакеты или мессаги?

Цитата: speed от 21:18, 09 марта, 2005
2AmonRa
Тебе что конкретно надо то сделать посылать по сети пакеты или мессаги?

Мне - "разбудить" комп когда он выключан! А что именно в этом случае посылается я не в курсе :-(

ааа, знаю как его "спать положить" ;D
А разбудить это вряд-ли, вообще сомневаюсь что это возможно :bored

Народ скажите как вы думаете реально в нашем городе найти работу программером с достойной ЗП?

Цитата: speed от 00:31, 10 марта, 2005
ааа, знаю как его "спать положить" ;D
А разбудить это вряд-ли, вообще сомневаюсь что это возможно :bored

жаль :(( а как тогда посылать пакеты? и мессаги!??

Цитата: speed от 00:34, 10 марта, 2005
Народ скажите как вы думаете реально в нашем городе найти работу программером с достойной ЗП?

В принципе реально! Было бы желание, но програмировать не всегда дадут, больше надо будет с компами возиться (а проги писать время от времени, когда потребуют обстоятельства)! А насчет зарплаты могу привести пример: кулик сделал прогу (которую от силы писать день) и получил за это 12000 на руки! Так что ищи!

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

Цитата: speed от 22:33, 10 марта, 2005
Вот мне шабашки какие нить, курсовые запарился делать, что нить посерьезней хочу, а нету....

А что ты умеешь? И насколько серьезно желание.
Однодневных программистов - пруд пруди. Слепил программу, получил бабки
и испарился, (как курсовую). А вот так, чтобы сопровождать, доделывать,
править косяки - вот это самое тяжелое. (но за это нормальные деньги и
платят)

Цитата: Vad от 23:12, 10 марта, 2005


А что ты умеешь? И насколько серьезно желание.
Однодневных программистов - пруд пруди. Слепил программу, получил бабки
и испарился, (как курсовую). А вот так, чтобы сопровождать, доделывать,
править косяки - вот это самое тяжелое. (но за это нормальные деньги и
платят)

Желание хоть отбавляй, а насчет того что ты умеешь, это вопрос слишком относительный так как программист сам по себе всего знать не может, знания появляются понадобности.
А ты что то можешь предложить?

Цитата: speed от 16:43, 11 марта, 2005
Желание хоть отбавляй, а насчет того что ты умеешь, это вопрос слишком относительный так как программист сам по себе всего знать не может, знания появляются понадобности.
А ты что то можешь предложить?

Может и есть, если разбираешься в SQL серверах баз данных.
;)

А по конкретнее, о чем собственно речь? У тебя аська есть?

2Vad
Речь идет о какой-то конкретной СУБД или в общем?

Цитата: speed от 23:28, 11 марта, 2005
2Vad
Речь идет о какой-то конкретной СУБД или в общем?

Речь идет об понимании и умении, а конкретная СУБД особого значения не имеет
(для программирования).

Цитата: speed от 22:11, 11 марта, 2005
А по конкретнее, о чем собственно речь? У тебя аська есть?

Есть вопросы - пиши в приват.

Народ... ну помогите!!!!!!!! Как сделать перемотку звукового файла без использования доп компонентов!!!

Цитата: AmonRa от 00:27, 13 марта, 2005
Народ... ну помогите!!!!!!!! Как сделать перемотку звукового файла без использования доп компонентов!!!

Имеется ввиду используя только компоненты из стандартного пакета Делфи?

Как сделать что бы до завершения определенного действия не запускальсь другое действие???
Подробнее: есть такая штука:
While not Query1.Eof do begin
sndPlaySound(Pchar(AllA.FieldsByName('SND').AsString+'\'+Query1.FieldByName('File').AsString), SND_ANYNC);
Query1.Next;
end;
Мне нужно что бы проигрывались файлы один за другим так, как они расположены в запросе и пока один не закончит играть, другие не начинают!

А насчет звука - да, только стандартные, если конечно это возможно, а то пробывал ммтулс компоненты и у меня борода случалась, тут описывал какая :( Думаю что с буферами надо работать и Директ саунд или необязательно? Покажите РАБОЧИЙ пример! Буду очень благодарен

AmonRa
Привет я юзал компоненты ммтулс около года назад, значит при установке дополнительных компонентов создается библиотека с расширением .bpl точного назначения я не знаю, так вот он помещается в папку ...borland\delphi\projects\BPL. Без этого компонента екзешники содержащие в себе эти доп. компоненты работать не будут, поэтому вполне логично что принеся прогу другу, она у тя не заработала. Берешь этот файл и кидаешь в корень винды папка system32 ! Можешь и щас посмотреть делфя при установке залила туда кучу своих библиотек..

Спасибо, speed, завтра попробую! Какая самая последняя версия BDE Administrator? И вот еще: в винде (2к и, возможно, хп) есть функция работы с заблокированными файлами, т.е. куда-то (скорее всего в реестр) зансится информация и при загрузке системы эти файлы удаляются\копируются и т.п. кто-нибудь видел примеры или делал сам? Поделитесь...

Народ, помогите!!! Вешаюсь!!! Попросили задачки решить, а я в них ничего не понимаю! :(( Помогите решить!! Буду очень благодарен за реальный рабочий код (было бы хорошо с пояснениями)!Вот сами задачки:
1. Как успеть подешевле? Можно ехать на такси со скоростью V1 км/ч и оплатой р1 р./км либо идти пешком со скоростью V2 км/ч бесплатно. Как с наименьшими затратами преодолеть путь S за время t, если это возмож-но? Каковы эти затраты?
Тестирование. Рекомендуется рассмотреть "запредель-ные" случаи: когда времени слишком мало, чтобы успеть даже на такси, либо слишком много, так что и пешком можно с запасом успеть до отхода поезда.

2. Вклад. Банк предлагает 3 вида срочных вкладов: на 3 месяца под p1 %, на 6 месяцев под р2 % и на год под р3 %. Какой из вкладов наиболее выгоден для вкладчика?

3. Отскоки. Материальная точка бросается на гори-зонтальную плоскость под углом a к ней со скоростью v0. При каждом ударе о плоскость кинетическая энергия точки уменьшается в b раз. Найти абсциссы первых п точек касания. Сопротивлением воздуха пренебречь.

4. Текущая стоимость оборудования. Фирма еже-годно на протяжении п лет закупала оборудование сто-имостью соответственно s,, s2, ..., sn p. в год (эти числа вводятся и обрабатываются последовательно). Ежегод-но в результате износа и морального старения (аморти-зации) все имеющееся оборудование уценяется на р%. Какова общая стоимость накопленного оборудования за п лет?

5. В массиве С(т) каждый третий элемент заменить полусуммой двух предыдущих, а стоящий перед ним - полусуммой соседних с ним элементов. Дополнитель-ный (рабочий) массив не использовать.

6. Дан массив А(п). все положительные его элемен-ты поместить в начало массива В(п), а отрицательные элементы - в начало массива С(п). Подсчитать количе-ство тех и других.

7. Многочлены Рт(х) и Qn(х) заданы массивами своих коэффициентов. Найти частное и остаток от деления Рт(х) на 0n(х) (в виде массивов коэффициентов).

8. Работа комбайнера. Матрицу К(т, n) заполнить следующим образом. Элементам, находящимся на пери-ферии (по периметру матрицы), присвоить значение 1; периметру оставшейся подматрицы - значение 2 и так далее до заполнения всей матрицы.

9. В массиве T(k) найти первый и последний нуле-вые элементы.

10. Среди элементов массива Z(m) найти k (k<<m) наибольших. Поиск осуществить за один проход (про-смотр) массива Z.

11. Среди заданных натуральных чисел найти такие, десятичная запись которых не содержит одинаковых цифр.

12. Напечатать таблицу сложения одноразрядных чисел в p-ичной системе счисления, р < 16.

13. Найти матрицу, обратную заданной А(п, п), методом Гаусса (в любой модификации).

14.Матрица А(п, п) системы линейных уравнений АХ = В приведена к верхнетреугольному виду и упако-вана в одномерный массив. Найти вектор решения X последовательной подстановкой, не распаковывая А.
Решить задачу для сильно разреженной упакованной матрицы A (т.е. матрица A системы линейных уравнений сильно разрежена, приведена к верхне-треугольному виду и упакована).

15. Поздравления. По заданному списку фамилий напечатать каждому упомянутому в списке поздравле-ние к определенному празднику. Чтобы избежать шаблона, перечень желаемых благ выбирать как случайное
подмножество из заготовленного списка (например,здоровья, счастья, продвижения по службе, долголетия
и т. д.). Можно сделать переменным и название празд-ника - для универсальности программы.

16. Морзянка. Вводимый с клавиатуры или из фай-ла текст перевести в последовательность точек и тире с помощью азбуки Морзе. Результат можно иллюстриро-вать звуком.

17. Разработать и получить на экране рисунок облож-ки какого-либо учебника вместе с названием, фамили-ями авторов, рисунками, отражающими суть предмета, и так далее.

18. Заполнить экран кругами заданного радиуса, рас-положив их как можно плотнее, симметрично относи-тельно границ экрана.

Заранее всем благодарен!

AmonRa
Ты случаем не из МГИУ?
Я в прошлом году чуваку подобные задачи делал...

Цитата: speed от 23:30, 24 марта, 2005
AmonRa
Ты случаем не из МГИУ?
Я в прошлом году чуваку подобные задачи делал...

Меня попросили и кажется она именно от туда! А ничего не осталось???

Н-да...
Член на многочлен ...саблей...  :shoking

А морзянка где-то валялась. :biggrin

Помогите, люди! Помимо всего этого там еще задачек 10 на базы данных, но я их сам сделаю. А все это сдать надо до конца месяца иначе пойдет она на все четыре стороны!

Да задачки то не сложные...
Времени только нет.
А до конца месяца 5 дней...

 :'( :shoking и что, ничего с ними не сделать??? Ну хотя бы парочку  

Так это скорее всего на паскале надо делать или нет?

Цитата: speed от 02:42, 26 марта, 2005
Так это скорее всего на паскале надо делать или нет?

В описании задач написано на паскале, но мне сказали можно и в делфе!

2AmonRa
Не ну просто так здесь я думаю, вряд ли кто то делать будет! Делаешь сам , что то не понятно спрашиваешь, тебе ответят! К тому е сроки нереальные, ей богу, 5 дней 18 задач, ну это только тем кто ваще ни чем не занимается, может и прокатит, а так :bored вряд ли кто то делать будет! 

Есть прога, она на каким-то ставит ограничение на максимальное число открытых фалов баз данных в BDE Admin = 255! Зачем она это делает? Т.е. есть ли в этом какой-то смысл?! И можно ли как-нибудь перехватить этот запрос и убить его нафиг???

А тебе что надо больше открывать?

Наверно, наоборот она увеличивает это значение для своих
нужд. т.к. по умолчанию это значение намного меньше.

ТАк ей все равно, она постоянно выставляет 255! Даже есть ставить максимальное значение! И еще! как можно ижменить формат времени из проги? Тот который в панели управления-язык и региональные стандарты?

Народ помогите кто-нить где достать инфирмацию Как записать файл на CD при помощи делфы ......

Цитата: The_Kurs от 15:06, 03 апреля, 2005
Народ помогите кто-нить где достать инфирмацию Как записать файл на CD при помощи делфы ......

Есть компонент какой-то (кажется входит в mmtools, а может и другой) где-то даже был, если найду могу скинуть. Или тебе нужен именно материал?

Цитата: AmonRa от 11:43, 03 апреля, 2005
ТАк ей все равно, она постоянно выставляет 255! Даже есть ставить максимальное значение!

Если бы строители строили дома также, как программисты пишут программы...
:wow :biggrin

Цитировать
И еще! как можно ижменить формат времени из проги? Тот который в панели управления-язык и региональные стандарты?[/color]

?
Если для работы программы то:


TimeSeparator:=
ShortTimeFormat:=
DateSeparator:=
ShortDateFormat:=
ThousandSeparator:=
DecimalSeparator:=

...


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

Цитировать
Есть прога, она на каким-то ставит ограничение на максимальное число открытых фалов баз данных в BDE Admin = 255!

Цитата: AmonRa от 16:42, 03 апреля, 2005

Есть компонент какой-то (кажется входит в mmtools, а может и другой) где-то даже был, если найду могу скинуть. Или тебе нужен именно материал?

Да мне любая информация не помешает !!! И компонент то же не повредит :))) Но вс? же желательно статьи какие нибудь !!!

Построитель отчетов QuickReport. Как в нем организовать сохранение отчетов в его родном формате (QRP)? А может кто-нибудь поделиться другим построителем?

2 The_Kurs: поищу, скину все что будет.!

2 Vad: эх... ну ладно, буду стараться! Спасибо за советы

Цитата: The_Kurs от 15:06, 03 апреля, 2005
Народ помогите кто-нить где достать инфирмацию Как записать файл на CD при помощи делфы ......

Скинул компонент, разбирайся!

Цитата: AmonRa от 07:51, 12 апреля, 2005

Скинул компонент, разбирайся!

Спасибо  :)

Доброго времени суток!
Кто каким построителем отчетов пользуется? Какой легче в пониании? Обширнее по функциям? Если есть поделитесь пожалуйста (желательно с кряком)   
    

Цитата: AmonRa от 08:07, 15 апреля, 2005
Доброго времени суток!
Кто каким построителем отчетов пользуется? Какой легче в пониании? Обширнее по функциям? Если есть поделитесь пожалуйста (желательно с кряком)   
   

FastReport for ever ! :)
Пока не ударились в XML и т.п. оптимальней вряд ли найти.
IMHO

Есть бесплатный клон FreeReport.

Ну бесплатный это конечно хорошо, но там как всегда не будет самого нужного!!! А полная версия есть??? Крякнутая? Кому-нибудь Делфи 8 нужно?? Отдаю в добрые руки!

Цитата: AmonRa от 00:25, 24 апреля, 2005
Ну бесплатный это конечно хорошо, но там как всегда не будет самого нужного!!! А полная версия есть??? Крякнутая? Кому-нибудь Делфи 8 нужно?? Отдаю в добрые руки!

Конечно есть... Интернет большой... :)

:-( та в нем пока разберешься... то кряк на версию не подходит, то версия на кряк :-( буду lfmit Квикрепортом пользоваться. А как в нем сохранять отчеты в его родном формате???

Кто САМ делал drag&drop подскажите как можно из любого окошка ВИНДЫ перетащить в ListBox файл(ы)!

Цитата: AmonRa от 21:54, 01 мая, 2005
Кто САМ делал drag&drop подскажите как можно из любого окошка ВИНДЫ перетащить в ListBox файл(ы)!

Мой способ - переопределить WindowProc контрола:

uses
  ShellApi;
 
type
  TForm1 = class(TForm)
  private
    OldWindowProc : TWndMethod;
    procedure NewWindowProc(var Message: TMessage);

implementation

procedure TForm1.FormCreate(Sender: TObject);
begin
  OldWindowProc    := Memo1.WindowProc;
  Memo1.WindowProc := NewWindowProc;
  DragAcceptFiles(Memo1.Handle,true);
end;

procedure TForm1.NewWindowProc(var Message: TMessage);
const
  maxlen = 254;
var
  hnd1 : THandle;
  int1,int2 : Integer;
  pch1: array[0..maxlen] of Char;
  str1: string;
begin
  if Message.Msg = WM_DROPFILES then
    with TWMDropFiles(Message) do
      begin
        hnd1   := Drop;
        int2 := DragQueryFile(hnd1,DWORD(-1),nil,0);
        for int1 := 0 to int2-1 do
          begin
            DragQueryFile(hnd1,int1,pch1,maxlen);
            str1 := string(pch1);
          end;
      end
                                else OldWindowProc(message);
end;

Народ! Подскажите как сделать сортировку таблицы по поль по убыванию??? (так как это делается в Database Desctop)! Очень надо!!!

Балин. ткните пальцем где про DirectShow9 можно почитать а?

вопрос снят. наш?л.

Цитата: yellow от 13:16, 01 июня, 2006
Ну ткни пальцем  :degen

:) http://delphiworld.narod.ru/ там в статьях есть.

Вопрос первый, по компонентам.
Нужно управлять динамически перекрытием компонентов на форме, типа свойства z-index в HTML.
Например есть два мемо, причем Memo1 прорисовывается поверх Memo2.
Можно ли кодом заставить Memo2 прорисоваться поверх Memo1?
Думал поробовать через колекцию components(прорисовка компонентов идет по этому списку), но это свойство только для чтения.

Вопрос второй, сетевой.
Нешел проблему при работе сокетов.
Если отправить сообщение клиенту и закрыть сокет, то если клиент неуспел прочитать сообщение(у меня просто небыло обработчика на клиенте, но ситуация может быть реальной при большом кол-ве сообщений и клиентов) то вылетает ошибка.

P.S. Пока отправлял сообщение пришла мысль по первому вопросу.
Так как components прописано как property и только для чтения, то можно например создать потомок какого нибуть компонента от TWinControl и обращаться непосредственно к FComponens. Будет время, сегодня пробую, но может кто-то знает способ попроще.

Цитата: Ворон от 15:33, 09 января, 2007
Можно ли кодом заставить Memo2 прорисоваться поверх Memo1?

на каком то форуме видел тред на эту тему, помню что пришли у выводу что проще менять видимость объектов.

Имееш в виду свойство visible?
Мне надо чтобы обы все компоненты были выдимы, просто управлять тем какой из них сверху.
Пока просто уничтожаю компоненты и создаю в нужном порядке. Неэфективно.
Может вспомнишь где видел?

P.S. Кстати по запарке в предыдущем сообщении описался, используется для прорисовки не коллекция Components, а коллекция Controls.

.BringToFront

Цитата: Dumbo от 09:11, 30 января, 2007
.BringToFront

Благодарствую