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

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


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

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

Выпуск № 399
от 18.10.2004, 13:40

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


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

Boriss
Статус: Профессиональный
Общий рейтинг: 157.28
URL: Программирование на Паскале
[Подробней >>]
Василевский Александр
Статус: Опытный
Общий рейтинг: 116.39
[Подробней >>]
CJ
Статус: Профессиональный
Общий рейтинг: 118.31
URL: Персональный сайт Каратецкого Кирилла.
Телефон: +375297353706
[Подробней >>]
 
sir henry
Статус: Профессиональный
Общий рейтинг: 163.56
[Подробней >>]


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

Вопрос № 1851. Здравствуйте мои любимые эксперты! Подскажите как сделать прозрачность в своей программе используя с... (ответов: 4)
Вопрос № 1852. Приветствую всех! У меня такой вопрос: Как сделать вдельфях сканирование локальной сети. После скани... (ответов: 2)
Вопрос № 1853. Есть большое количество файлов с определенным расширением, например *.abc, расположенных в одной дир... (ответов: 3)
Вопрос № 1854. Здравствуйте, уважаемые Эксперты. 1. Подскажите, пожалуйста, как в Delphi 7 сделать так, чтобы в по... (ответов: 2)
Вопрос № 1855. Как сравнить время создания двух файлов (Дата+время)? Т.е. если file1.txt старше файла file2.txt - ... (ответов: 3)

Вопросов: 5, ответов: 14


 Вопрос № 1851

Здравствуйте мои любимые эксперты!
Подскажите как сделать прозрачность в своей программе используя стандартные процедуры Windows 2000XP



Вопрос отправлен: 13.10.2004, 13:49
Отправитель: ol (ivanitskiy_ol@rambler.ru)

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

Отвечает Boriss

Приветствую Вас, ol!
Ну ё! Уж много раз спрашивали: AlphaBlend (блин) b AlphaBlendValue

Ответ отправлен: 13.10.2004, 15:09
Отправитель: Boriss


Отвечает Василевский Александр

Здравствуйте, ol!
Если Вы имели ввиду вывод изображения, частично прозрачного, то обратите внимание на функции AlphaBlend и TransparentBlt.

Ответ отправлен: 13.10.2004, 15:59
Отправитель: Василевский Александр


Отвечает CJ

Добрый день, ol!
Form1.AlpahaBlend:=true;
Form1.AlphaBlendValue:=100; Вместо 100 любое значение от 0 до 255.

Ответ отправлен: 13.10.2004, 22:25
Отправитель: CJ


Отвечает sir henry

Доброе время суток, ol!
Вы сами то поняли, что сказали? Прозрачность можно сделать только форме, а не программе. :)
Для формы используйте ее свойство AlphaBlend:=0..255.

Ответ отправлен: 14.10.2004, 06:10
Отправитель: sir henry


 Вопрос № 1852

Приветствую всех!
У меня такой вопрос: Как сделать вдельфях сканирование локальной сети. После сканирования должны выдаваться ip всех компов, которые включены в сеть.
И ещё один небольшой вопрос: Как работать в дельфи с rar и zip архивом.



Вопрос отправлен: 14.10.2004, 12:53
Отправитель: Alexy

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

Отвечает Boriss

Приветствую Вас, Alexy!
1)http://avm88.narod.ru/programming/articles/a4.html -
Сайт Михайлишина Алексея. Программирование - Работа с локальной сетью в Delphi
http://delphi.vitpc.com/asp/nets.asp?ItemID=16 - Королевство Delphi
http://www.delphimaster.ru/articles/netmon/index.html - мониторинг сети
2)Воспользуйтесь библиотекой ExceedZip 3.0 (http://www.exceedsoft.com).
Или воспользуйтесь библиотекой компонентов ZipTV(www.zipTV.com)
UnRAR - DLL + Делфи - исходники для работы с ней:
ftp://www.rarsoft.com/rar/UnrarSrc.rar
ftp://www.rarsoft.com/rar/UnRARDLL.exe


Ответ отправлен: 14.10.2004, 18:36
Отправитель: Boriss


Отвечает sir henry

Здравствуйте, Alexy!
1. На www.torry.net куча компонентов для пингования. Можно скачать и скомбинировать для получения нужных свойств.
2. Для zip в состав Delphi входит специальная библиотека zlib.pas. Для rar надо с сайта www.rarsoft.com скачать специальную библиотеку.

Ответ отправлен: 15.10.2004, 09:08
Отправитель: sir henry


 Вопрос № 1853

Есть большое количество файлов с определенным расширением, например *.abc, расположенных в одной директории.
Как сделать, чтобы программа поочереди открывала каждый файл, выполняла определенную процедуру, закрывала файл и переходила к другому ???



Вопрос отправлен: 14.10.2004, 16:30
Отправитель: _ToxA_ (admin@ic-knk.ru)

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

Отвечает Boriss

Добрый день, _ToxA_!
По-дубовому это можно сделать с помощью FindFirst - FindNext
А OpenDialog - разрешает выбирать несколько файлов. Их имена заносятся в Files: TStrings - то есть массив имен. Ну и тогда действовать ...

Ответ отправлен: 14.10.2004, 18:17
Отправитель: Boriss


Отвечает sir henry

Добрый день, _ToxA_!
Организовать цикл с помощью функций FindFirst() и FindNext(). В шаблоне задать "*.adc". А вот способ открытия зависит от того, ято за файл и что Вы с ним делать собираетесь.

Ответ отправлен: 15.10.2004, 09:01
Отправитель: sir henry


Отвечает Василевский Александр

Добрый день, _ToxA_!
Выполняется это очень просто при помощи поиска файлов. Ищется первый файл. Если он найден - программа его обрабатывает. Затем ищется следующий файл - программа опять его обрабатываетю И т.д.
Если пользоваться функциями WinAPI, то следует обратить внимание на функции поиска файлов (FindFirstFile, FindNextFile, FindClose).

Ответ отправлен: 15.10.2004, 10:28
Отправитель: Василевский Александр


 Вопрос № 1854

Здравствуйте, уважаемые Эксперты.
1. Подскажите, пожалуйста, как в Delphi 7 сделать так, чтобы в поле редактирования ( например, Edit1 ) нельзя было вводить буквы и другие символы, а только цифры.
2. Как можно организовать включение и выключение режима "поверх остальных окон" для программы ? И можно ли сделать так, чтобы данную программу было видно поверх 3D игр ?
Спасибо.



Вопрос отправлен: 15.10.2004, 00:11
Отправитель: GeniusSoul

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

Отвечает Boriss

Доброе время суток, GeniusSoul!
1) Используйте TMaskEdit - там легко можно задать любой формат
2) FormStyle := fsStayOnTop;
А при играх .... Они тоже хитрые, разработчики. Так что простые приемы могут и не пройти

Ответ отправлен: 15.10.2004, 12:08
Отправитель: Boriss


Отвечает sir henry

Доброе время суток, GeniusSoul!
1. Проверять при вводе на предмет цифры. В событии OnKeyPress.
2. Для программы такого режима в природе не бывает, только для окна. Для окна подойдет такая процедура:
SetWindowPos(Handle,
HWND_TOPMOST,Left,Top,Width,Height,SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);


Ответ отправлен: 15.10.2004, 16:23
Отправитель: sir henry


 Вопрос № 1855

Как сравнить время создания двух файлов (Дата+время)? Т.е. если file1.txt старше файла file2.txt - выдать какое-нибудь сообщение...



Вопрос отправлен: 15.10.2004, 11:44
Отправитель: _ToxA_

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

Отвечает Boriss

Приветствую Вас, _ToxA_!
В модуле SysUtils для этого есть все:
тип TFileRec
функция function GetFileDate(var F: File): TDateTime;
функция function SetFileDate
функция function FileAge(const FileName: String): Integer;
процедура DecodeTime(Time: TDateTime;
var Hour, Min, Sec, MSec: Word);
процедура DecodeDate(Date: TDateTime;
var Year, Month, Day: Word);
функция function FileDateToDateTime ...

Ответ отправлен: 15.10.2004, 12:00
Отправитель: Boriss


Отвечает Василевский Александр

Приветствую Вас, _ToxA_!
Если Вы получили время создания файлов при помощи функции WinAPI GetFileTime, то у Вас есть две структуры FILETIME. В WinAPI сцществует функция сравнения времени двух файлов: CompareFileTime, которая возвращает -1, если первый файл старше, 0, если файлы созданы в одно время, и +1, если первый файл младше. По результатам этой функции и можно выполнять какие-либо действия.


Ответ отправлен: 15.10.2004, 12:50
Отправитель: Василевский Александр


Отвечает sir henry

Приветствую Вас, _ToxA_!
Функция FindFirst() содержит переменную типа TSearchRec одно из полей которой, Time, содержит упакованую дату и время файла. Эти поля разных файлов можно сравнивать.

Ответ отправлен: 15.10.2004, 16:11
Отправитель: sir henry



Форма отправки вопроса

Внимание!
Мы рекомендуем открывать рассылку в программе Internet Explorer 5.0+ или отправлять вопросы с сайта по адресу: http://rusfaq.ru/cgi-bin/Message.cgi.

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

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

Ваше имя:

Ваш e-mail:

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


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

Ваш вопрос:


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


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


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

Программисту
Assembler (26)
C / C++ (17)
Perl (8)
Builder / Delphi (17)
Pascal (20)
Basic / VBA (9)
Java / JavaScript (7)
PHP (19)
Криптография (8)
WinAPI (15)
Радиоэлектроника (15)
Пользователю
Windows 95/98/Me (44)
Windows NT/2000/XP (62)
"Железо" (37)
Поиск информации (20)
Администратору
Windows NT/2000/XP (37)
Linux / Unix (15)
Юристу
Гражданское право (7)
Семейное право (4)
Трудовое право (6)
КоАП (5)

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





http://subscribe.ru/
http://subscribe.ru/feedback/
Подписан адрес:
Код этой рассылки: comp.soft.prog.delphiplus
Отписаться

В избранное