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

Выпуск № 786
от 20.04.2007, 19:35

Вопрос № 82.586

Здравствуйте уважаемые!Помогите пожалуйста мне в следующем!На форме комбобокс в него в ручную заносятся некие название нужно 1.Если в списке комбобокса его нет оно должно добавиться; 2.При следующем запуске программы оно должно уже быть в списке.

Отправлен: 14.04.2007, 21:20 Вопрос задал: GAZOT (статус: Посетитель) Всего ответов: 4 Мини-форум вопроса >>> (сообщений: 2)

Отвечает: Крылов Александр Владимирович Здравствуйте, GAZOT! procedure TForm1.ComboBox1KeyPress(Sender: TObject; var Key: Char); var i:integer; begin // #13 - код клавиши Enter if key=#13 then //закончили ввод элемента хотим добавить в общий список for I := 0 to ComboBox1.Items.Count-1 do if ComboBox1.Text=ComboBox1.Items.Strings[i] then exit; //такой элемент уже есть в списке, выходим из процедуры без добавления в список ComboBox1.Items.Add(ComboBox1.Text); end; Для того, чтобы значения введенные ранее не исчезали при последующих запусках программы, их необходимо хранить в отдельном файле или базе данных

Ответ отправил: Крылов Александр Владимирович (статус: 3-ий класс) Ответ отправлен: 14.04.2007, 21:47

Отвечает: Bingo Здравствуйте, GAZOT! Для сохранения содержимого Combobox1 удобно использовать TIniFile. Будем считывать содержимое при запуске приложения, а записывать - при закрытии. Ниже пример: ----- var ini:tinifile; n,i:longint; procedure TForm2.FormCreate(Sender: TObject); begin combobox1.Items.Clear; ini:=tinifile.Create('C:item.txt'); n:=ini.ReadInteger('Combobox','Count',0); for i := 1 to n do combobox1.Items.Add(ini.ReadString('Combobox',inttostr(i),'')); end; procedure TForm2.FormDestroy(Sender: TObject); begin ini.WriteInteger('Combobox','Count',combobox1.Items.Count); for i := 1 to combobox1.Items.Count do ini.WriteString('Combobox',inttostr(i),combobox1.Items.Strings[i-1]); end; ----- Удачи! --------- C темным пивом в светлое будущее!

Ответ отправил: Bingo (статус: 3-ий класс) Ответ отправлен: 14.04.2007, 22:52

Отвечает: W@NDeReR Здравствуйте, GAZOT! Ответ на первый ваш вопрос Событие происходит по нажатию на кнопку: procedure TForm1.Button1Click(Sender: TObject); var i: integer; r: boolean; begin r:=False; for i:=0 to ComboBox1.Items.Count-1 do begin if comboBox1.Items.Strings[i]=Edit1.Text then r:=true; end; if r=true then exit; if r=False then ComboBox1.Items.Add(Edit1.Text); end; Ответ на второй ваш вопрос Необходимо добавить в раздел uses модуль iniFiles; Теперь по уничтожении формы ( onDestroy)(сохрание содержимого ComboBox1) написать следующий код: procedure TForm1.FormDestroy(Sender: TObject); var Save: TIniFile; t: integer; begin Save := TIniFile.Create(ExtractFilePath(ParamStr(0)) +'ComboBox.ini'); for t := 0 to ComboBox1.Items.Count - 1 do Save.WriteString('ComboBox1', 'Stroka' + IntToStr(t+1), ComboBox1.Items.Strings[t]); Save.Free; end; А затем по созданию формы (onCreate) (Загрузка содержимого ComboBox1) написать следующий код: procedure TForm1.FormCreate(Sender: TObject); var Load: TIniFile; names: TStringList; i: integer; begin Load := TIniFile.Create(ExtractFilePath(ParamStr(0)) +'ComboBox.ini'); names := TStringList.Create; Load.ReadSection('ComboBox1', names); for i := 0 to Names.Count - 1 do ComboBox1.Items.Add(Load.ReadString('ComboBox1', names.Strings[i], '')); names.Destroy; Load.Destroy; end; --------- Опыт — дитя мысли, а мысль — дитя действия. Нельзя учиться по книгам.

Ответ отправил: W@NDeReR (статус: 3-ий класс) Ответ отправлен: 15.04.2007, 10:25

Отвечает: chikanok Здравствуйте, GAZOT! Вот вам короткие и рабочие ответы. Приложение: //Процедура на KeyDown При нажатии Enter`a добавляется если ещё не сушествует procedure TForm1.ComboBox1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if key=13 then begin if combobox1.Items.IndexOf(Combobox1.Text)=-1 then combobox1.Items.Add(combobox1.Text); end; end; //Процедура на OnClose (Form). Сохраняется в файл находяшийся рядом с exe`шником procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin Combobox1.Items.SaveToFile(ExtractFilePath(ParamStr(0)) +'ComboBox.dat'); end; //Процедура на OnCreate (Form) Загрузка из файла procedure TForm1.FormCreate(Sender: TObject); begin Combobox1.Items.LoadFromFile(ExtractFilePath(ParamStr(0)) +'ComboBox.dat'); end; --------- Главное желание,а там разберёмся!

Ответ отправил: chikanok (статус: 3-ий класс) Ответ отправлен: 15.04.2007, 12:18 Оценка за ответ: 5

Вопрос № 82.590

Здраствуйте експерты. У меня такой вопрос: при подключении к интернету компьютеру каждый раз присваиваеться новый IP адрес, можно ли с помощью Delphi зафиксировать его? (или без Delphi). Всем спасибо за ответы.

Отправлен: 14.04.2007, 21:49 Вопрос задал: Иван Ивановввв (статус: Посетитель) Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Menand Здравствуйте, Иван Ивановввв! Непонятно, каким способом вы к Интернету подключаетесь.. от этого многое зависит. В любом случае это зависит исключительно от провайдера, сделать это с Delphi нельзя, как впрочем и с помощью любого другого языка программирования, ибо IP выдаётся сервером провайдера.

Ответ отправил: Menand (статус: 7-ой класс) Ответ отправлен: 14.04.2007, 22:31 Оценка за ответ: 5

Отвечает: Bingo Здравствуйте, Иван Ивановввв! То, что сменить адрес нельзя - больше подходит для того случая, когда доступ к интернету осуществляется через локальную сеть (там даются фиксированные адреса). Если же Вы простым образом через Dial-Up выходите в интернет, то работать со СВОИМ IP адресом МОЖНО, при условии, что он в данный момент не занят кем-то другим. Для Delphi я так толком ничего и не нашел, но могу рассказать, как осущестивить подобные настройки через XP. Для этого: 1. Открываем папочку "Сетевые подключения", например, через Пуск=>панель управления. 2. Выбираем соединение по умолчанию и жмем "Свойства". 3. Выбираем вкладку "Cеть". 4. Находим в списке "Протокол Интернета TCP/IP" и два раза щелкаем по нему. 5. Далее выбираем "Использовать следующий IP адрес" и указываем свой. НО! указать можно адрес в пределах, которые допустимы данному провайдеру инета. Полагаю, что эти настройки должны где-то храниться операционной системой в реестре. Попробуте задать вопрос в рассылку "Тонкости работы с реестром", если Вым действительно чем то помогут (подскажут ключик), то как это организовать через Delphi я расскажу. Удачи! --------- C темным пивом в светлое будущее!

Ответ отправил: Bingo (статус: 3-ий класс) Ответ отправлен: 14.04.2007, 23:15 Оценка за ответ: 5 Комментарий оценки: Спасибо большое, настройки я нашел, сейчас попробую поискать в реестре.

Отвечает: василий1 Здравствуйте, Иван Ивановввв! используйте ini файлы либо реестр

Ответ отправил: василий1 (статус: 3-ий класс) Ответ отправлен: 15.04.2007, 15:58

Вопрос № 82.653

Здраствуйте уважаемые эксперты. У меня возникла проблемма, нужно автоматизаровать раздачу IP адресов на компьютеры корпоративной сети. Как средствами Дельфи можно задать IP адресс, Первичный и вторичный ДНС, поменять имя компьютера и загнать его в домен. Спасибо за любую информацию, про IPи имя компьютера инфу я нашел но может вы предложете более красивое решение. Приложение: IP адрес unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} function ExecAndWait(FileName:String; Visibility:integer):integer; var zAppName:array[0..512] of char; zCurDir:array[0..255] of char; WorkDir:String; StartupInfo:TStartupInfo; ProcessInfo:TProcessInformation; Resultado: DWord; begin StrPCopy(zAppName,FileName); GetDir(0,WorkDir); StrPCopy(zCurDir,WorkDir); FillChar(StartupInfo,Sizeof(StartupInfo),#0); StartupInfo.cb := Sizeof(StartupInfo); StartupInfo.dwFlags := STARTF_USESHOWWINDOW; StartupInfo.wShowWindow := Visibility; if not CreateProcess(nil, zAppName, nil, nil, false, CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS, nil, nil, StartupInfo, ProcessInfo) then Result := -1 else begin WaitforSingleObject(ProcessInfo.hProcess,INFINITE); GetExitCodeProcess(ProcessInfo.hProcess,Resultado); Result := Resultado; end; end; procedure TForm1.Button1Click(Sender: TObject); begin ExecAndWait( 'netsh interface ip set address "'+ 'tcp'+'" '+ ' static '+'10.1.1.1'+ ' '+'255.0.0.0' +' '+'10.1.0.1'+' 1',sw_hide); end; procedure TForm1.Button2Click(Sender: TObject); begin ExecAndWait( 'netsh interface ip set address "'+ 'tcp'+'" '+'source=dhcp',sw_hide); end; end. Имя компа SetComputerName(PChar(Edit1.text));

Отправлен: 15.04.2007, 15:14 Вопрос задал: Jakoni (статус: 1-ый класс) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 11)

Отвечает: Gh0stik Здравствуйте, Jakoni! Вы выбрали верный подход к решению задачи через запуск соответствующей команды, но есть и еще один способ (причем этот способ позволяет настроить адреса если у Вас установлено более одной карты). Данные о настройках IP можно найти в реестре в такой ветке: HKEY_LOCAL_MACHINESYSTEMCurrentControlSetServicesTcpipParametersAdapters где ключе вида {XXXXXXXX-XXXX-XXXX-XXXX-XXXXXXXXXXXX} - идентификатор адаптера, если у вас две сетевые то у Вас должно быть да различный ключа. Далее в HKEY_LOCAL_MACHINESYSTEMCurrentControlSetServices TcpipParametersInterfaces{XXXXXXXX-XXXX-XXXX-XXXX-XXXXXXXXXXXX} Вы найдете настройки конкретного адаптера. В таких ключах: IPAddress - сам IP адрес SubnetMask - маска подсети NameServer - DNS сервер DefaultGateway - адрес шлюза. Достучаться до реестру при помощи кода можно таким образом: ......... s:='SoftwareMicrosoftWindowsCurrentVersionPoliciesExplorer'; Reg:=TRegistry.Create; reg.openkey(s,false); if reg.ValueExists(key) then begin ...... end; Reg.CloseKey; Reg.Free; ...... Только нужно дописать: uses Registry; Если будут вопросы обращайтесь. По поводу имени компьютера - Вы нашли наиболее оптимальный вариант - куда уже красивей.. :) Good Luck!!! --------- Господь Бог - это всего лишь сверхмощный генератор случайных чисел, в соответствии с которыми сочетаются события на Земле. Генератор случайных чисел - и только.

Ответ отправил: Gh0stik (статус: Профессионал) Украина, Славянск Организация: Славянский государственный педагогический университет (Кафедра алгебры) ICQ: 289363162 ---- Ответ отправлен: 15.04.2007, 15:47 Оценка за ответ: 3 Комментарий оценки: мне нужно унифицировать процесс, у каждого компьютера разные адаптеры, как я узнаю идентефикаторы

Вопрос № 82.685

Здравствуйте уважаемые эксперты!А не могли бы вы выложить коды клавишь всей клавиатуры?Заранее спасибо.

Отправлен: 15.04.2007, 18:59 Вопрос задал: GAZOT (статус: Посетитель) Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 2)

Отвечает: Gh0stik Здравствуйте, GAZOT! Вам будет проше скачать программу, которая показывает эти коды по ссылке. А вот ссылка и на саму таблицу кодов. Good Luck!!! --------- Господь Бог - это всего лишь сверхмощный генератор случайных чисел, в соответствии с которыми сочетаются события на Земле. Генератор случайных чисел - и только.

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

Отвечает: W@NDeReR Здравствуйте, GAZOT! Вот смотрите в приложении Приложение: Первый столбец-Клавиша Второй столбец- Десятичное число Третий столбец-Шестнадцатеричное число Четвертый столбец- Символическое имя Пятый столбец- Сравнение пофункции ord F1 112 $70 VK_F1 F2 113 $71 VK_F2 F3 114 $72 VK_F3 F4 115 $73 VK_F4 F5 116 $74 VK_F5 F6 117 $75 VK_F6 F7 118 $76 VK_F7 F8 119 $77 VK_F8 F9 120 $78 VK_F9 F10 121 $79 VK_F10 пробел 32 $20 VK_SPACE BackSpace 8 $8 VK_BACK Tab 9 $9 VK_TAB Enter 13 $0D VK_RETURN Shift 16 $10 VK_SHIFT Ctrl 17 $11 VK_CONTROL Alt 18 $12 VK_MENU CapsLock 20 $14 VK_CAPITAL Esc 27 $1B VK_ESCAPE Insert 45 $2D VK_INSERT PageUp 33 $21 VK_PRIOR PageDown 34 $22 VK_NEXT End 35 $23 VK_END Home 36 $24 VK_HOME 37 $25 VK_LEFT 38 $26 VK_UP 39 $27 VK_RIGHT 40 $28 VK_DOWN Delete 46 $2E VK_DELETE PrintScreen 44 $2C VK_SNAPSHOT ScrollLock 145 $91 VK_SCROLL Pause 19 $13 VK_PAUSE NumLock 144 $90 VK_NUMLOCK 0,) 48 $30 ord('0') 1 ! 49 $31 ord('1') 2 @ 50 $32 ord('2') 3 # 51 $33 ord('3') 4 $ 52 $34 ord('4') 5 % 53 $35 ord('5') 6 ^ 54 $36 ord('6') 7 & 55 $37 ord('7') 8 * 56 $38 ord('8') 9 ( 57 $39 ord('9') ` ~ 192 $C0 - _ 189 $BD = + 187 $BB [ { 219 $DB ] } 221 $DD ; : 186 $BA ' " 222 $DE | 220 $DC , < 188 $BC . > 190 $BE / ? 191 $BF a,A 65 $41 ord('A') b,B 66 $42 ord('B') c,C 67 $43 ord('C') d,D 68 $44 ord('D') e,E 69 $45 ord('E') f,F 70 $46 ord('F') g,G 71 $47 ord('G') h,H 72 $48 ord('H') i,I 73 $49 ord('I') j,J 74 $4A ord('J') k,K 75 $4B ord('K') l,L 76 $4C ord('L') m,M 77 $4D ord('M') n,N 78 $4E ord('N') o,O 79 $4F ord('O') p,P 80 $50 ord('P') q,Q 81 $51 ord('Q') r,R 82 $52 ord('R') s,S 83 $53 ord('S') t,T 84 $54 ord('T') u,U 85 $55 ord('U') v,V 86 $56 ord('V') w,W 87 $57 ord('W') x,X 88 $58 ord('X') y,Y 89 $59 ord('Y') z,Z 90 $5A ord('Z') На правой клавиатуре при выключенной NumLock 0 96 $60 VK_NUMPAD0 1 97 $61 VK_NUMPAD1 2 98 $62 VK_NUMPAD2 3 99 $63 VK_NUMPAD3 4 100 $64 VK_NUMPAD4 5 101 $65 VK_NUMPAD5 6 102 $66 VK_NUMPAD6 7 103 $67 VK_NUMPAD7 8 104 $68 VK_NUMPAD8 9 105 $69 VK_NUMPAD9 * 106 $6A VK_MULTIPLY + 107 $6B VK_ADD - 109 $6D VK_SUBTRACT . 110 $6E VK_DECIMAL / 111 $6F VK_DIVIDE --------- Опыт — дитя мысли, а мысль — дитя действия. Нельзя учиться по книгам.

Ответ отправил: W@NDeReR (статус: 3-ий класс) Ответ отправлен: 15.04.2007, 19:26 Оценка за ответ: 5

Отвечает: AlexanderObrjadin Здравствуйте, GAZOT! Обработайте KeyDown() или KeyPress(), результат сохраните и все

Ответ отправил: AlexanderObrjadin (статус: 1-ый класс) Ответ отправлен: 15.04.2007, 21:56

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