Приветствую Вас, 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 архивом.
Приветствую Вас, 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, расположенных в одной директории. Как сделать, чтобы программа поочереди открывала каждый файл, выполняла определенную процедуру, закрывала файл и переходила к другому ???
Добрый день, _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 игр ? Спасибо.
Доброе время суток, 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 - выдать какое-нибудь сообщение...
Приветствую Вас, _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.