/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Delphi

Выпуск № 793
от 27.04.2007, 23:05

Вопрос № 83.657

Подскажите пожалуйста, как перечислить в реестре ключи и их значения по определенной ветке. Сколько не искал находил перечисление только по всей КОРНЕВОЙ ветке. А вставлять условия на соответсвие искомому не хочется, уж больно гомоздко и медленно. Желательно пример. Заранее спасибо

Отправлен: 22.04.2007, 10:51 Вопрос задал: Bee.line (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Ерёмин Андрей Здравствуйте, Bee.line! Плохо искали :-) У TRegistry есть функции GetKeyNames() и GetValueNames(), которые делают соответственно листинг ключей и значений. Пример в приложении. Удачи! Приложение: var R: TRegistry; begin R:=TRegistry.Create; R.RootKey:=HKEY_LOCAL_MACHINE; R.OpenKey('SOFTWARE',False); R.GetKeyNames(Memo1.Lines); R.GetValueNames(Memo2.Lines); R.Free; --------- Нет правила без исключений. Правило без исключений - исключение из правил.

Ответ отправил: Ерёмин Андрей (статус: Профессор) Россия, Тула WWW: Программирование на Delphi. Помощь, советы, обмен опытом. ICQ: 286837644 ---- Ответ отправлен: 22.04.2007, 11:06

Отвечает: DimonSoft Что-то вроде этого? Приведённый мною пример читает все значения типа String из ветки HKEY_LOCAL_MACHINESoftwareMicrosoftWindowsCurrentVersion. Если добавить другие if'ы, то можно читать и числа (Integer) и другие типы. Принцип работы следующий. Создаём объект реестра (класс TRegistry). Указываем корневую ветвь (для примера HKEY_LOCAL_MACHINE). Проверяем существование указанной в Path ветви. Если такой ветви нет (что в нашем примере не есть хорошо :)), то оповещаем об этом пользователя, удаляем объект реестра и вылетаем из процедуры. В противном случае открываем нужную ветку (задаётся в Path; естесственно, что необязательно константа, может быть параметром процедуры или функции). В объект класса TStringList (заранее созданный) загружаем список всех параметров данной ветки. Затем в цикле перебираем и, в зависимости от типа очередного параметра, можем проигнорировать его или загрузить в соответствующую переменную. В приведённом примере загружаются только строковые параметры и осуществляется их вывод на экран (ShowMessage). <OffTop>Кстати, много интересной информации увидел: имя пользователя, организация, регистрационный ключ, название ОС и т.п.</OffTop>. После того, как повызверялись над несчастной веткой, удаляем объект TStringList-ового класса, закрываем открытую ветвь реестра и удаляем объект реестра. ************* Если надо проверить значения не только в Path'овой ветви, но и во всех вложенных, то нужно просто модифицировать упомянутый Вами код, перебирающий все ветки, задав в качестве отправной точки не корневую ветвь, а Path'овую. Если нужно именно это и возникнут трудности - пишите. Приложение: procedure TForm1.FormCreate(Sender: TObject); var R:TRegistry; ValueList:TStringList; i:Integer; DT:TRegDataType; X:ANSIString; const Path='SoftwareMicrosoftWindowsCurrentVersion'; begin R:=TRegistry.Create; R.RootKey:=HKEY_LOCAL_MACHINE; if not(R.KeyExists(Path)) then begin ShowMessage('Path doesn''t exist!!!'); R.Free; Exit; end; R.OpenKey(Path,False); ValueList:=TStringList.Create; R.GetValueNames(ValueList); for i:=0 to ValueList.Count-1 do begin DT:=R.GetDataType(ValueList[i]); if DT=rdString then begin X:=R.ReadString(ValueList[i]); ShowMessage(X); end; {if DT=<Something else> then <SomeOtherVar>:=R.Read<OtherType>(ValueList[i]);} end; ValueList.Free; R.CloseKey; R.Free; end;

Ответ отправил: DimonSoft (статус: 1-ый класс) Ответ отправлен: 22.04.2007, 11:32

Вопрос № 83.689

Здравствуйте. Есть вопрос. Хочу написать браузерную игру типа Дозоры.ру (http://dozory.ru). Так как знаю только делфи, работать буду на нём. Нужна литература, советы, статьи. Спасибо. Оценю щедро. З.Ы. Прошу не отвечать как в одной рассылке (не на этом сайте), что это не возможно. Я могу назвать несколько браузерных игр, написанных на делфи.

Отправлен: 22.04.2007, 15:16 Вопрос задал: Dende-Soft (статус: 3-ий класс) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 7)

Отвечает: Сарумян Здравствуйте, Dende-Soft! Не поверите так и хотелось написать что это не возможно. Но подумал (кстати понравилось) понял на что вы намекаете. Во первых Вам надо писать серверное приложение, которое будет работать с 80 портом. www.delphiworld.ru Посмотрите там. Есть кое что, но не на эту тему основано. Далее... Во вторых, смысл работы будет таков: Запущен Ваше серверное приложение. Игрок вводит адрес типа : www.coolgame.ru . Регистрацию DNS я опущу это долго. Смысл в том что Ваше приложение получает запрос с 80 порта и генерирует страницу и после уже передает игроку. Своего рода HTML-сервер по типу Apache. Ну вроде ясно обьяснил. Теперь рассказу почему и у меня и у остальных сразу правая мысль: "Такое не возможно". Правильнее трактовать "это тупо, сложно, много головной боли а толку потом может быть ноль". Обьясняю: Т.к. Вы собрались писать приложение на Delphi Вам понадобится сервер на базе Windows. Так же есть один нюанс. НИ ОДИН сервер не разрешает пользователям закачивать свои программные продукты. Только скрипты Java, C++, Perl ... Т.е. Вам необходим выделенный сервер, с прописанными адресами. Идеально настроенный. И с высокоскоростной линией доступа в интернет. В итоге имеем что Вам надо: 1) Купить мощный компьютер-сервер. Т.к. Windows платформа то простым за 30000р. не обойтись при большом кол-ве игроков. 2) Выделенную линию доступа в интернет. И разумеется свой домен. Домен не так уж и тяжело зарегистрировать (600р. в год). 3) Написать в первую очередь СЕРВЕРную часть приложения. P.S. Если что-то не понятно обращайтесь в личку разъясню что да как на сколько смогу. --------- Пришел, увидел, развернулся и ушел...

Ответ отправил: Сарумян (статус: 4-ый класс) Ответ отправлен: 22.04.2007, 15:31

Отвечает: CoolBick Здравствуйте, Dende-Soft! Ты наверно что-то путаешь! Скорее всего на делфи ты видел клиенты игр, написаных на html. php. java и т.д.

Ответ отправил: CoolBick (статус: 1-ый класс) Ответ отправлен: 23.04.2007, 09:16

Вопрос № 83.712

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

Отправлен: 22.04.2007, 18:27 Вопрос задал: Troyan (статус: 9-ый класс) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: sir henry Здравствуйте, Troyan! Вот небольшой примерчик. Работает. :) Приложение: {$APPTYPE CONSOLE} Program cclass; Uses Windows, Classes, SysUtils; Type {Этот класс загружает текст из файла и выводит его на экран} TFileText = class private fcontent: TStringList; //Здесь хранится текст из файла fname: shortstring; //Здесь хранится имя файла public constructor Create; //Создание объекта destructor Destroy; override; //Уничтожение объекта procedure Load(name: shortstring); //Загрузка текста из файла procedure Save; //Сохранение текста в файл procedure OutText; //Вывод загруженного текста на экран End; Var ft: TFileText; Constructor TFileText.Create; Begin Inherited; fcontent:=TStringList.Create; End; Destructor TFileText.Destroy; Begin fcontent.Free; Inherited; End; Procedure TFileText.Load(name: shortstring); Begin If FileExists(name) Then Begin fcontent.LoadFromFile(name); fname:=name; End Else MessageBox(0, PChar('Не найден файл: '+name),'Ошибка', MB_OK+MB_ICONSTOP); End; Procedure TFileText.Save; Begin fcontent.SaveToFile(fname); End; Procedure TFileText.OutText; Var i: integer; Begin If fcontent.count>0 Then For i:=0 To fcontent.Count-1 Do WriteLn(fcontent.strings[i]); End; Begin ft:=TFileText.Create; ft.Load('history.txt'); ft.OutText; ft.Destroy; End.

Ответ отправил: sir henry (статус: Академик) Россия, Красноярск ---- Ответ отправлен: 22.04.2007, 19:11 Оценка за ответ: 5 Комментарий оценки: Спасибо, вы описали методы. Но я ошибся в вопросе, мне нужны не методы, а свойства, т.е. чтобы при изменении переменной класса выполнялось действие

Отвечает: DimonSoft В приведённом примере полностью рабочий контрол, наследованный от TGraphicControl. Может быть, не хватает какого-нибудь модуля в uses или есть ещё какая-нибудь мелкая проблема, т.к. писал из головы, не в Delphi. Принцип объявления свойства следующий. В секции published зааписываем строку вида property <PropertyName>:<PropertyType> read <Variable> write <Procedure> default <Value>; PropertyName - имя свойства, отображаемое в Object Browser'е. PropertyType - тип свойства (например, TColor). <Variable> после read и <Procedure> после write - это просто пример. На самом деле как после read, так и после write может быть переменная или процедура. Важно то, что переменная или процедура после этих двух слов должная быть объявлена в секции private (для переменной) или protected (для процедуры). <Value> после default - значение по умолчанию, то значение, которое в ObjectBrowser будет отображаться неЖирным шрифтом, этот параметр можно использовать только с перечисляемыми типами, числами и символами (не строками), т.е. не всегда. Поясню работу контрола из приложения. При создании вызывается конструктор, в котором inherited Create(AOwner); вызывается конструктор TGraphicControl'а, который выполняет все необходимые действия, больше знать ничего не надо. Затем FBackColor:=clBtnFace; позволяет при создании контрола сразу установить значение свойства по умолчанию, в противном случае здесь будет clBlack (попробуйте убрать эту строку). Наследованный скрытый метод Paint содержит прорисовку. В данном случае реализована просто закраска контрола заданным в свойстве BackColor цветом. В деструкторе просто вызывается унаследованный от родителя деструктор. Опять же он выполняет всё необходимое, больше ничего знать не надо. Процедура SetBackColor, которая, кстати, была указана после write в описании свойства BackColor вызывается, когда программист на этапе дизайна или в runtime изменяет свойство BackColor. В runtime это выполняется, например, такой строкой: MyControl1.BackColor:=clGray; Поэтому задача программиста при описании этой процедуры выполнить необходимые действия для изменения свойства. В частности обновить, если это требуется, значение переменной, в которой хранится это свойство и из которой, кстати, оно читается (за это отвечает "read FBackColor"). Кроме того, т.к. изменение этого свойства должно влиять на внешний вид нашего контрола, мы должны принудительно перерисовать его путём вызова процедуры Paint. Если остались вопросы, пишите Dimon-Delphist [ [ [ @ ] ] ] mail.ru. Приложение: unit MyControl; interface uses SysUtils, Classes, Controls, Graphics; type TMyControl = class(TGraphicControl) private FBackColor:TColor; { Private declarations } protected procedure SetBackColor(Value:TColor); // procedure Paint; override; { Protected declarations } public constructor Create(AOwner:TComponent); override; destructor Destroy; override; { Public declarations } published property BackColor:TColor read FBackColor write SetBackColor default clBtnFace; { Published declarations } end; procedure Register; implementation procedure Register; begin RegisterComponents('DimonSoft', [TDSChart]); end; constructor TMyControl.Create(AOwner:TComponent); begin inherited Create(AOwner); FBackColor:=clBtnFace; end; destructor TMyControl.Destroy; begin inherited Destroy; end; procedure TMyControl.SetBackColor; begin if FBackColor=Value then Exit; FBackColor:=Value; Paint; end; procedure TMyControl.Paint; var Tmp:TBitmap; begin Tmp:=TBitmap.Create; Tmp.Width:=Self.Width; Tmp.Height:=Self.Height; Tmp.Canvas.FillRect(Tmp.Canvas.ClipRect)); Self.Canvas.Draw(0,0,Tmp); Tmp.Free; end; end.

Ответ отправил: DimonSoft (статус: 1-ый класс) Ответ отправлен: 22.04.2007, 21:23 Оценка за ответ: 5 Комментарий оценки: Спасибо, то что нужно!

Вопрос № 83.718

Здравствуйте! Помогите решить такую задачку на Delphi. Дано const maxN=30; type вещТип=record знак:boolean; мантисса, порядок:real; end; список=array[1..MaxN] of ВещТип; Опишите функцию MaxNeg(C) для нахождения минимального отрицательного числа из списка С Приложение: Дано const maxN=30; type вещТип=record знак:boolean; мантисса, порядок:real; end; список=array[1..MaxN] of ВещТип; Опишите функцию MaxNeg(C) для нахождения минимального отрицательного числа из списка С

Отправлен: 22.04.2007, 19:03 Вопрос задал: Милютин Сергей Александрович (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Gh0stik Здравствуйте, Милютин Сергей Александрович! Позволю предложить себе такой вариант, поскольку не указали какое конкретно поле мы проверяем на минимальность, то я взял поле мантисс (mantisa). И функция соответственно возвращает минимальное отрицательное среди мантисс, единственное функция не предусматривает вариант когда нет отрицательных. Вот сама функция: function MaxNeg(x:spisok):real; var k,n:integer; begin k:=1; while (x[k].znak) and (k<=maxN) do inc(k); n:=k; for k:=1 to maxN do with x[k] do begin if (not znak) and (mantisa < x[n].mantisa) then n:=k; end; Result:=x[n].mantisa; end; Для полноты также в приложение поместил полный код. Good Luck!!! Приложение: program Project1; {$APPTYPE CONSOLE} uses SysUtils; const maxN=30; type realTip=record znak:boolean; mantisa, p:real; end; spisok=array[1..MaxN] of realTip; function MaxNeg(x:spisok):real; var k,n:integer; begin k:=1; while (x[k].znak) and (k<=maxN) do inc(k); n:=k; for k:=1 to maxN do with x[k] do begin if (not znak) and (mantisa < x[n].mantisa) then n:=k; end; Result:=x[n].mantisa; end; var c:spisok; i,z:integer; begin for i:=1 to maxN do with c[i] do begin writeln('---Element ',i,'---'); write('znak=(0=''-''/1=''+'')');read(z); if z=1 then znak:=true else znak:=false; write('mantisa=');read(mantisa); write('p=');read(p); end; write(c[MaxNeg(c)].mantisa); end. --------- Господь Бог - это всего лишь сверхмощный генератор случайных чисел, в соответствии с которыми сочетаются события на Земле. Генератор случайных чисел - и только.

Ответ отправил: Gh0stik (статус: Профессионал) Украина, Славянск Организация: Славянский государственный педагогический университет (Кафедра алгебры) ICQ: 289363162 ---- Ответ отправлен: 22.04.2007, 19:45

Вопрос № 83.746

Доброго времени суток, всем экспертам! Использую модули Антона Григорьева: ExprDraw, ExprMake (модули здесь: http://www.delphikingdom.com/zip/expr.zip) для рисования математических формул на компоненте Image. Вопрос: как сделать на компоненте Image WordWrap т.е. многострочность как в Edit, RichEdit-ах например? Может есть другие более легкие решения для вывода математических формул на контролах? Большое спасибо за помощь и за то что Вы есть! Исходник в приложении: Приложение: unit Unit2; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExprDraw, ExprMake, ExtCtrls, ComCtrls; type TArticle=record Title:string; Samples:array of string; Desc:string end; type TFormGuide = class(TForm) Image: TImage; Button1: TButton; Edit1: TEdit; procedure Button1Click(Sender: TObject); private Arts:array of TArticle; Index:Integer; procedure MakePict; procedure Add(Tlt,D:string;Smpls:array of string); public { Public declarations } end; var FormGuide: TFormGuide; I:Integer; Expr:TExprClass; DY:Integer; Builder:TExprBuilder; MX:Integer; implementation procedure TFormGuide.Add; var I:Integer; begin SetLength(Arts,Length(Arts)+1); with Arts[High(Arts)] do begin Title:=Tlt; Desc:=D; SetLength(Samples,Length(Smpls)); for I:=Low(Smpls) to High(Smpls) do Samples[I]:=Smpls[I] end; end; {$R *.dfm} procedure TFormGuide.MakePict; begin with Image.Picture.Bitmap do begin Width:=537; Height:=81; Canvas.Brush.Style:=bsSolid; Canvas.Brush.Color:=FormGuide.Color; Canvas.FillRect(Rect(0,0,Width,Height)) end; DY:=5; MX:=0; Builder:=TExprBuilder.Create; for I:=0 to High(Arts[Index].Samples) do begin Expr:=BuildExpr(Edit1.Text); Expr.Color:=clBlack; Expr.Canvas:=Image.Picture.Bitmap.Canvas; Expr.Font.Size:=11; Expr.Draw(5,DY,ehLeft,evTop); Inc(DY,Expr.Height+5); if MX<Expr.Width then MX:=Expr.Width; Expr.Free; end; Builder.Free; if MX>Image.Width then I:=5; end; procedure TFormGuide.Button1Click(Sender: TObject); begin Add('','',['']); MakePict; end; end..

Отправлен: 22.04.2007, 21:48 Вопрос задал: Burgem (статус: 1-ый класс) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: PGM Здравствуйте, Burgem! К сожалению не знаком с теми компонетами, которые вы используете, но по существу, если надо выводить именно текст, могу посоветовать такой способ - в функции отрисовки (MakePict) использовать вызов API DrawText(Canvas.Handle, PChar(Edit1.Text), Length(Edit1.Text), ARect, DT_WORDBREAK); где ARect прямоугольник вывода, в который надо вписаться. Если же речь идет о переносе формул, особенно многострочных, то тут все будет не так тривиально и требует больших усилий. В общем случае, мне кажется, задача нетривиальна - например перенос дробей (с горизонтальной линией) с правильной разбивкой. Для частных же случаев линейной записи (многочленов, например) вполне можно использовать приведенный выше механизм.

Ответ отправил: PGM (статус: 5-ый класс) Ответ отправлен: 22.04.2007, 22:40

© 2001-2007, Портал RusFAQ.ru, Россия, Москва. Авторское право: ООО "Мастер-Эксперт Про" Email: support@rusfaq.ru, тел.: +7 (926) 535-23-31 Авторские права | Реклама на портале Версия системы: 4.51 (beta) от 27.04.2007