Обсуждение программирования на Delphi в конференции ru.delphi
Re: Ищу компонент для записи картинок на DVD
From: "Burlakov V." <bva [@] dd.vaz.tlt.ru>
Hello, Alex!
AK> И что сей компонент должен делать?
запись картинок ввиде слайд-шоу на DVD диск, для последующего просмотра в
бытовом проигрывателе
AK> Если то, о чем я подумал - юзай NeroAPI
спасибо, посмотрю
================
Burlakov Vjacheslav
E-mail : buva [@] dd.vaz.tlt.ru
* Origin: GenDR News Server (2:5020/400)
огpаничить pазмеp папки
|========/ ПpиветЪ, Rouslan... \========|
RI>>> Скажите PLS как огpаничить pазмеp папки. Скажем я напишу пpогpамму
RI>>> котоpая
RI>>> постоянно будет висеть в памяти и пpовеpять сколько весит папка. Как
RI>>> только pазмеp ее пpевысит заданную.. oops, вот здесь я и не знаю
RI>>> что можно сделать... как быть-то? не могу-же я удалять какие-либо
RI>>> файлы, это негативно. Подскажи, всезнающий All?
RI> В смысле?
Вопрос в чем состоит? Hе дать папке "распухнуть" больше заданного размера?
|========\ BCNU, Alex Kocharin. /========|
* Origin: AK-Station (2:5012/2.470)
эквивалентность
|========/ ПpиветЪ, Konstantin... \========|
KV> (Form1.Components[2] as TLabel)
KV> и
KV> TLabel(Form1.Components[2])
1-я делает проверку - является ли 2-й компонент лейблом. Вторая нет.
KV> Если есть, то какая и как лучше писать?
Hужна скорость и есть прямые руки - 2-е. Если нет - то 1-е.
Говорят, в случае 2, если не то подсунуть, оно может и диск отформатировать. :)
Кстати, 1-е эквивалентно:
if form1.components[1] is tlabel then tlabel(form1.components[2]:=<и далее по
тексту>;
|========\ BCNU, Alex Kocharin. /========|
* Origin: AK-Station (2:5012/2.470)
огpаничить pазмеp папки
From: "Anatoly Podgoretsky" <anatoly [@] podgoretsky.com>
Hello, Rouslan!
You wrote to Kaigorodov Anthony on Thu, 08 Sep 2005 05:49:21 +0400:
RI> Или может, если папка начала весить больше то пpосто блокиpовать запись
в нее,
За что такое злодеяние по отношению к пользователю
RI> выводить сообщение и юзеp сам допpет что надо почистить
Только это и этого достаточно, как например отключение системы безопасности
или получения критических обновлений, постоянно напоминать, что почисть
папку зараза
С уважением!
Анатолий Подгорецкий
* Origin: Demos online service (2:5020/400)
test
From: "Nikolay Cizganov" <sna-gem [@] r66.ru>
test
С уважением, Сызганов Hиколай.
sna-gem [@] r66.ru
* Origin: Gamma NNTP server Moscow Russia (2:5020/400)
Re: записать сцену OpenGL в AVI
From: "Slava Antonov" <deadbeef [@] so.yandex.ru>
Hello Dmitry Troitsky, you wrote:
> посоветуйте: имеется собственный компонент, на котором динамически
> изображается 3D сцена (OpenGL). Hадо этот фильм записать в avi-файл. Какие
> могут быть варианты? Чем вообще можно создавать avi-шки из Delphi?
Тем же, чем и в других языках - DirectShow
--
Всего хорошего, Слава.
deadbeef.narod.ru
* Origin: (http://news.cca.usart.ru/) USURT's FidoNET<-> (2:5080/1003 [@] fidonet)
Re: JPEG
From: "Slava Antonov" <deadbeef [@] so.yandex.ru>
Hello Vitaliy Leschenko, you wrote:
> Как можно загpузить jpeg-файл не используя VCL?
Использовать сторонние классы, коих полно.
--
Всего хорошего, Слава.
deadbeef.narod.ru
* Origin: (http://news.cca.usart.ru/) USURT's FidoNET<-> (2:5080/1003 [@] fidonet)
огpаничить pазмеp папки
|========/ ПpиветЪ, Anatoly... \========|
AP> Только это и этого достаточно, как например отключение системы
AP> безопасности или получения критических обновлений, постоянно
AP> напоминать,
AP> что почисть папку зараза
Гы... натравить программу на папку виндовс и при >1кб это выдавать. :)
|========\ BCNU, Alex Kocharin. /========|
* Origin: AK-Station (2:5012/2.470)
Re: TServersocket & TClientSocket
From: Alexander Tomilov <asteroid [@] perm.ru>
Хаю ду ю ду Anatoly Podgoretsky?
Смотрю и вижу, как ты печатаешь умные вещи и дай-ка, думаю,
тоже что-нибудь напечатаю:
AP> Client/ServerSocket - delphi7\bin\dclsockets70.bpl
AP> Quick Report - delphi7\bin\dclqrt70.bpl
AP> TeeChart = delphi7\Bin\dcltqr70.bpl
Еще прикол с TColorGrid (со вкладки Samples в 5-ке) - юнит (ColorGrd)
остался, а компонент снесли, хотя в 5-ой Delphi борланд сам юзал
данный компонент.
--
Странно, а у меня сидюк читается только с одной стороны
Alexander Tomilov E-mail: asteroid (at) perm (dot) raid (dot) ru
Форум не обо всем, но многом: sforum.hut1.ru/forum/
* Origin: Asteroid Software (2:5020/400)
Дюймы или Миллиметры ? - Как узнать региональные устновки
--=+-==================================--
-=+= Я вас категорически приветсвую, aleXander!
Среда, Август 24 2033, aleXander Olegovich Fedorov писал для All:
aF> Hа компе может быть по умолчанию установлены единицы в миллиметрах или
aF> дюймах (в региональных установках Windows). Как узнать какие единицы в
aF> винде стоят по умолчанию?
Delphi имеет функцию GetLocaleInfo, которая позволяет получать различную информацию о локальных настройках, таких как системный язык, символ валюты, количество десятичных знаков и т.д.
Далее приведена функция, которая возвращает значение в зависимости от параметра "flag":
function TForm1.GetLocaleInformation(Flag: Integer): string;
var
pcLCA: array [0..20] of Char;
begin
if GetLocaleInfo(LOCALE_SYSTEM_DEFAULT, Flag, pcLCA, 19) <= 0 then
pcLCA[0] := #0;
Result := pcLCA;
end;
Пример использования функции:
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(GetLocaleInformation(LOCALE_SENGLANGUAGE));
end;
"Flag" может содержать следующее значение (если посмотреть в Windows.pas):
LOCALE_NOUSEROVERRIDE { do not use user overrides }
LOCALE_USE_CP_ACP { use the system ACP }
LOCALE_ILANGUAGE { language id }
LOCALE_SLANGUAGE { localized name of language }
LOCALE_SENGLANGUAGE { English name of language }
LOCALE_SABBREVLANGNAME { abbreviated language name }
LOCALE_SNATIVELANGNAME { native name of language }
LOCALE_ICOUNTRY { country code }
LOCALE_SCOUNTRY { localized name of country }
LOCALE_SENGCOUNTRY { English name of country }
LOCALE_SABBREVCTRYNAME { abbreviated country name }
LOCALE_SNATIVECTRYNAME { native name of country }
LOCALE_IDEFAULTLANGUAGE { default language id }
LOCALE_IDEFAULTCOUNTRY { default country code }
LOCALE_IDEFAULTCODEPAGE { default oem code page }
LOCALE_IDEFAULTANSICODEPAGE { default ansi code page }
LOCALE_IDEFAULTMACCODEPAGE { default mac code page }
LOCALE_SLIST { list item separator }
LOCALE_IMEASURE { 0 = metric, 1 = US }
^^^^^^^^^^^^^^^ это твоё
LOCALE_SDECIMAL { decimal separator }
LOCALE_STHOUSAND { thousand separator }
LOCALE_SGROUPING { digit grouping }
LOCALE_IDIGITS { number of fractional digits }
LOCALE_ILZERO { leading zeros for decimal }
LOCALE_INEGNUMBER { negative number mode }
LOCALE_SNATIVEDIGITS { native ascii 0-9 }
LOCALE_SCURRENCY { local monetary symbol }
LOCALE_SINTLSYMBOL { intl monetary symbol }
LOCALE_SMONDECIMALSEP { monetary decimal separator }
LOCALE_SMONTHOUSANDSEP { monetary thousand separator }
LOCALE_SMONGROUPING { monetary grouping }
LOCALE_ICURRDIGITS { # local monetary digits }
LOCALE_IINTLCURRDIGITS { # intl monetary digits }
LOCALE_ICURRENCY { positive currency mode }
LOCALE_INEGCURR { negative currency mode }
LOCALE_SDATE { date separator }
LOCALE_STIME { time separator }
LOCALE_SSHORTDATE { short date format string }
LOCALE_SLONGDATE { long date format string }
LOCALE_STIMEFORMAT { time format string }
LOCALE_IDATE { short date format ordering }
LOCALE_ILDATE { long date format ordering }
LOCALE_ITIME { time format specifier }
LOCALE_ITIMEMARKPOSN { time marker position }
LOCALE_ICENTURY { century format specifier (short date) }
LOCALE_ITLZERO { leading zeros in time field }
LOCALE_IDAYLZERO { leading zeros in day field (short date) }
LOCALE_IMONLZERO { leading zeros in month field (short date) }
LOCALE_S1159 { AM designator }
LOCALE_S2359 { PM designator }
LOCALE_ICALENDARTYPE { type of calendar specifier }
LOCALE_IOPTIONALCALENDAR { additional calendar types specifier }
LOCALE_IFIRSTDAYOFWEEK { first day of week specifier }
LOCALE_IFIRSTWEEKOFYEAR { first week of year specifier }
LOCALE_SDAYNAME1 { long name for Monday }
LOCALE_SDAYNAME2 { long name for Tuesday }
LOCALE_SDAYNAME3 { long name for Wednesday }
LOCALE_SDAYNAME4 { long name for Thursday }
LOCALE_SDAYNAME5 { long name for Friday }
LOCALE_SDAYNAME6 { long name for Saturday }
LOCALE_SDAYNAME7 { long name for Sunday }
LOCALE_SABBREVDAYNAME1 { abbreviated name for Monday }
LOCALE_SABBREVDAYNAME2 { abbreviated name for Tuesday }
LOCALE_SABBREVDAYNAME3 { abbreviated name for Wednesday }
LOCALE_SABBREVDAYNAME4 { abbreviated name for Thursday }
LOCALE_SABBREVDAYNAME5 { abbreviated name for Friday }
LOCALE_SABBREVDAYNAME6 { abbreviated name for Saturday }
LOCALE_SABBREVDAYNAME7 { abbreviated name for Sunday }
LOCALE_SMONTHNAME1 { long name for January }
LOCALE_SMONTHNAME2 { long name for February }
LOCALE_SMONTHNAME3 { long name for March }
LOCALE_SMONTHNAME4 { long name for April }
LOCALE_SMONTHNAME5 { long name for May }
LOCALE_SMONTHNAME6 { long name for June }
LOCALE_SMONTHNAME7 { long name for July }
LOCALE_SMONTHNAME8 { long name for August }
LOCALE_SMONTHNAME9 { long name for September }
LOCALE_SMONTHNAME10 { long name for October }
LOCALE_SMONTHNAME11 { long name for November }
LOCALE_SMONTHNAME12 { long name for December }
LOCALE_SMONTHNAME13 { long name for 13th month (if exists) }
LOCALE_SABBREVMONTHNAME1 { abbreviated name for January }
LOCALE_SABBREVMONTHNAME2 { abbreviated name for February }
LOCALE_SABBREVMONTHNAME3 { abbreviated name for March }
LOCALE_SABBREVMONTHNAME4 { abbreviated name for April }
LOCALE_SABBREVMONTHNAME5 { abbreviated name for May }
LOCALE_SABBREVMONTHNAME6 { abbreviated name for June }
LOCALE_SABBREVMONTHNAME7 { abbreviated name for July }
LOCALE_SABBREVMONTHNAME8 { abbreviated name for August }
LOCALE_SABBREVMONTHNAME9 { abbreviated name for September }
LOCALE_SABBREVMONTHNAME10 { abbreviated name for October }
LOCALE_SABBREVMONTHNAME11 { abbreviated name for November }
LOCALE_SABBREVMONTHNAME12 { abbreviated name for December }
LOCALE_SABBREVMONTHNAME13 { abbreviated name for 13th month (if exists) }
LOCALE_SPOSITIVESIGN { positive sign }
LOCALE_SNEGATIVESIGN { negative sign }
LOCALE_IPOSSIGNPOSN { positive sign position }
LOCALE_INEGSIGNPOSN { negative sign position }
LOCALE_IPOSSYMPRECEDES { mon sym precedes pos amt }
LOCALE_IPOSSEPBYSPACE { mon sym sep by space from pos amt }
LOCALE_INEGSYMPRECEDES { mon sym precedes neg amt }
LOCALE_INEGSEPBYSPACE { mon sym sep by space from neg amt }
LOCALE_FONTSIGNATURE { font signature }
LOCALE_SISO639LANGNAME { ISO abbreviated language name }
LOCALE_SISO3166CTRYNAME { ISO abbreviated country name }
Взято с DELPHI WORLD, проверял на днях недели.
Я с вами категорически прощаюсь. _Alex_.
,---||]|||||||+---. ,---------Четверг, Сентябрь 08 2005, 19:50.
* Origin: Press anykey to continue or any other key to exit. (2:5012/40.8)