RusFAQ.ru: Программирование на Delphi
| Информационный Канал Subscribe.Ru |
RusFAQ.ru: Программирование на C++ Builder / Delphi
Выпуск № 193
от 26.07.2003, 02:20
| Администратор: Имя: Калашников О.А. URL: Информационный ресурс ICQ: 68951340 Россия, Москва |
О рассылке: Задано вопросов: 805 Отправлено ответов: 1467 Активность: 182.2 %
|
| Список экспертов, ответы которых опубликованы в данном выпуске |
| Byter Статус: Опытный Общий рейтинг: 125.9 [Подробней >>] |
ART_43 Статус: Доверительный Общий рейтинг: 123.84 [Подробней >>] |
baldr Статус: Профессиональный Общий рейтинг: 112.05 URL: Сайт об ОС DOS. Всем, кто любит эту ОС! [Подробней >>] |
| URiS Статус: Опытный Общий рейтинг: 140.96 URL: Бесплатный любительский софт, игры [Подробней >>] |
Bob Johnson Статус: Профессиональный Общий рейтинг: 151.99 URL: Программирование [Подробней >>] |
| Краткий перечень вопросов |
Вопрос № 792. Здравствуйте, уважаемые эксперты !!! Вот делаю программу для смены обоев Рабочего стола. И вот возни... (ответов: 5)
Вопрос № 793. Здравствуйте, уважаемые эксперты, еще раз ! 1) Как можно узнать сколько раз в TMemo встречается слов... (ответов: 4)
Вопрос № 794. Спрашивал вопрос по определению адреса функции... Вот написал обычную прогу, получающую хэндл DLL. (... (ответов: 2)
Вопрос № 795. хайте! нужен компонент Delphi 5,6 типа TMemo "для подсветки синтаксиса", надеюсь, понимает... (ответов: 1)
Вопросов: 4, ответов: 12
| Вопрос № 792 |
Здравствуйте, уважаемые эксперты !!!
Вот делаю программу для смены обоев Рабочего
стола. И вот возникли некоторые трудности.
1) Я ищу графические файлы FindFirst, FindNext,
но когда достигнут конец каталога, то все
"останавливается" :-). Как мне перейти опять в
начало этого же каталога ???
2) Есть две кнопки "Открыть" и "Следующая".
Я использую кнопку "Окрыть" для выбора будущей картинки
Рабочего стола. Как мне продолжить поиск, например, тем же
FindNextом, именно с этой текущей (выбранной) картинки ?
3) Через Инспектор объектов в Image можно загружать
файлы *.jpg, а в run-time этого делать нельзя - выдается
ошибка, типа формат такой неизвестен. Почему ?
Всем заранее большое спасибо. С уважением SATAN aka NAPALM.
Вопрос отправлен: 21.07.2003, 11:29
Отправитель: SATAN aka NAPALM
[Следующий вопрос >>] [Список вопросов]
Отвечает Byter
Доброе время суток, SATAN aka NAPALM!
1)FindFirst(Path,Attr,F);
Где Path - путь к этому каталогу.
2)Сохраняй переменную F, а потом когда надо будет начать поиск с этого файла, используй сохраненную переменную.
3)У меня в Дельфи 6 все работает нормально.
Image1.Picture.LoadFromFile(fl);
А у тебя какая Дельфя ?
Ответ отправлен: 21.07.2003, 16:05
Отправитель: Byter
Отвечает ART_43
Доброе время суток, SATAN aka NAPALM!
1) FindFirst
2) FindFirst, FindNext до нужного файла, или хранить SearchRec
Ответ отправлен: 21.07.2003, 16:41
Отправитель: ART_43
Отвечает baldr
Доброе время суток, SATAN aka NAPALM!
1. Есть функция FindClose - ею, по идее, надо всегда пользоваться после поиска - она освобождает ресурсы, отведенные под поиск.
3. Delphi не использует функции перекодирования jpg - ищи сторонние компоненты или пиши сам. ;)
Ответ отправлен: 21.07.2003, 17:28
Отправитель: baldr
Отвечает URiS
Приветствую Вас, SATAN aka NAPALM!
1) Надо чтобы, переменная поиска была глобальной.
2) См. пункт 1.
3) JPG не грузит! Нужно BMP. Для JPG - сторонние, например, 1stClass.
*EMan1.4 © Bob Johnson | Expert: URiS (newff.narod.ru)
Ответ отправлен: 21.07.2003, 19:00
Отправитель: URiS
Отвечает Bob Johnson
Добрый день, SATAN aka NAPALM!
2. Только самому, пропуская все файлы до указанного.
3. Используй TJPEJImage.
* EMan1.5: ---===*** The hell we've created ourselves ***===---
Ответ отправлен: 21.07.2003, 19:56
Отправитель: Bob Johnson
| Вопрос № 793 |
Здравствуйте, уважаемые эксперты, еще раз !
1) Как можно узнать сколько раз в TMemo встречается
слово, например, "RusFAQ" ? Подскажите хотя бы
какие операторы юзать :).
2) Вот фильтрую базу данных таким образом:
Query1.SQL.Add('SELECT * FROM BaseURLBase.db');
Query1.SQL.Add('WHERE Code <= 15');
А как мне потом отобразить все записи базы, т.е.
что-то наподобие Table1.Filtered:=False ???
3) Я слышал как-то картинки в файл ресурсов записывают,
а потом их динамически грузят. Если это правда, то как
это хоть делается ???
Всем заранее большое спасибо. С уважением SATAN aka NAPALM.
Вопрос отправлен: 21.07.2003, 11:30
Отправитель: SATAN aka NAPALM
[Следующий вопрос >>] [Список вопросов]
Отвечает ART_43
Доброе время суток, SATAN aka NAPALM!
1) Pos.
2) Query1.SQL.Add('SELECT * FROM BaseURLBase.db');
Ответ отправлен: 21.07.2003, 16:42
Отправитель: ART_43
Отвечает baldr
Доброе время суток, SATAN aka NAPALM!
1. Самый геморройный способ поиска подстроки - это в Паскале. :( Используй функцию Pos. Можно еще указателями, но лучше делай с помощью Pos.
3. Что-то типа imageList, кажется, было - можно в него картинки засунуть и потом доставать.
Ответ отправлен: 21.07.2003, 18:04
Отправитель: baldr
Отвечает URiS
Добрый день, SATAN aka NAPALM!
1) Так:
for i:=1 to memo1.lines.count do
If Pos('rusfaq',memo1.lines.strings[i])>0 then
n:=n+1;
В итоге n=количество rusfaq в Memo1.
*EMan1.4 © Bob Johnson | Expert: URiS (newff.narod.ru)
Ответ отправлен: 21.07.2003, 19:00
Отправитель: URiS
Отвечает Bob Johnson
Приветствую Вас, SATAN aka NAPALM!
1. Через функцию Pos (последовательно вызывать несколько раз) или напиши свою функцию.
2. Query1.SQL.Text = 'select * from BaseURLBase.db';
3. TResourceStream *rs = new TResourceStream (0, 1, RT_RCDATA);
TJPEGImage *jp = new TJPEGImage;
jp->LoadFromStream (rs);
i1->Picture->Assign (jp);
delete rs;
delete jp;
----------
в rc файл:
1 RCDATA "..GFXlogo.jpg"
2 RCDATA "..GFXAbout.jpg"
* EMan1.5: ---===*** The hell we've created ourselves ***===---
Ответ отправлен: 21.07.2003, 19:56
Отправитель: Bob Johnson
| Вопрос № 794 |
Спрашивал вопрос по определению адреса функции...
Вот написал обычную прогу, получающую хэндл DLL. (Использовал ф-ию GetProcAddress спасибо Бобу Джонсону :))
--------------------------------------------------------------------------------------------------------
procedure TForm1.FormCreate(Sender: TObject);
var handle: THandle;
filename:string;
start:procedure;
begin
filename:='D:DelphiDelphi5Projectsproject2.dll';
handle:=loadlibrary(pchar(filename));
if handle<>0 then begin
@start:=GetProcAddress(handle,'start');
if @start<>nil then else showmessage('Не удалось выполнить процедуру.');
end else exit;
end;
--------------------------------------------------------------------------------------------------------
А вот как теперь этот адрес ф-ии, в DLL вывести на экран, через тот же ShowMessage?
Заранее благодарю, maDByte
mailto: pcgamer@mail.ru
WWW: www.team-x.ru
Вопрос отправлен: 21.07.2003, 13:10
Отправитель: maDByte
[Следующий вопрос >>] [Список вопросов]
Отвечает ART_43
Добрый день, maDByte!
ShowMessage(IntToHex(Integer(@start),8));
Ответ отправлен: 21.07.2003, 16:44
Отправитель: ART_43
Отвечает Bob Johnson
Здравствуйте, maDByte!
Попробуй так:
ShowMessage (IntToStr (integer (@start)));
* EMan1.5: ---===*** The hell we've created ourselves ***===---
Ответ отправлен: 22.07.2003, 00:28
Отправитель: Bob Johnson
| Вопрос № 795 |
хайте!
нужен компонент Delphi 5,6 типа TMemo "для подсветки синтаксиса",
надеюсь, понимаете, о чём я. Или как для этого
использовать richedit?
Вопрос отправлен: 22.07.2003, 11:55
Отправитель: Zensor_ (zasm@mail.ru)
[Следующий вопрос >>] [Список вопросов]
Отвечает Bob Johnson
Добрый день, Zensor_!
Попробуй поискать на http://www.torry.net.
> Или как для этого использовать richedit?
RichEdit, оказывается, до предела неудобный, тормознутый и вообще отстойный контрол win32. При подстветке синтаксиса видимо нужно plain text редактировать - это уже проще - так что можешь попробовать написать сам его полностью, но лучше поищи на torry.
* EMan1.5: ---===*** The hell we've created ourselves ***===---
Ответ отправлен: 23.07.2003, 01:02
Отправитель: Bob Johnson
|
Форма отправки вопроса |
Мы рекомендуем открывать рассылку в программе Internet Explorer 5.0+ или отправлять вопросы с сайта по адресу: http://rusfaq.ru/cgi-bin/Message.cgi.
(C) 2002-2003 Команда RusFAQ.ru.
| Вопрос и дополнение |
Ваш вопрос:
Приложение (если необходимо):
Получить ответов:
| Выбор рассылки |
| Программисту Assembler (33) C / C++ (24) Perl (4) Builder / Delphi (20) Pascal (22) Basic / VBA (11) Java / JavaScript (11) PHP (9) Криптография (8) WinAPI (12) |
Пользователю Windows 95/98/Me (46) Windows NT/2000/XP (41) "Железо" (36) Поиск информации (24) |
Администратору Windows NT/2000/XP (23) Linux / Unix (10) |
Юристу Гражданское право (11) Семейное право (6) Трудовое право (9) КоАП (5) |
Отправить вопрос всем экспертам выбранной рассылки.
Проект экспертов RusFAQ.ru | Фотоальбом | Virus.RusFAQ.ru | Администрирование
Профессиональная WEB-Студия B.I.T.
| http://subscribe.ru/
E-mail: ask@subscribe.ru |
Отписаться
Убрать рекламу |
| В избранное | ||
