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

Выпуск № 1043
от 23.01.2008, 17:30

Вопрос № 119.026

Здраствуйте. Я достал себе компонент BComPort и незнаю как сделать так, чтобы при поступлении звонка мой модем 1.снимал трубку. 2.обменялся данными. Т.е. я не знаю как заставить модем снять трубку. Хотя я вижу как в буффер порта записывается строка "RING".

Отправлен: 17.01.2008, 17:31 Вопрос задал: Alex L (статус: 1-ый класс) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Примак Руслан Николаевич Здравствуйте, Alex L! Вам в цикле нужно ожидать это самый RING и как только Вы его получите, отправить команду модему на поднятие трубки ATH.

Ответ отправил: Примак Руслан Николаевич (статус: 4-ый класс) Ответ отправлен: 17.01.2008, 18:58 Оценка за ответ: 5

Вопрос № 119.057

Привет эксперты! пишу прогу связанную с БД Paradox. При добавлении записи в БД происходит проверка на наличие записи с таким же именем и заполненность всех полей ввода и выпадающих списков. Нужно модифицировать код так, что бы из поля ввода Edit2 отбрасывались все лишние пробелы до и после текста, иначе можно легко добавить запись содержащую один пробел (одни пробелы) или 'текст'+' '. Помогите пожалуйста решить эту проблему. Приложение: procedure TForm1.Button2Click(Sender: TObject); begin if DBLookupComboBox1.text<>'' then begin Table1.SetKey; try Table1.FieldByName('Genre').AsString:=DBLookupComboBox1.Text; if not Table1.GotoKey then raise EDataBaseError.create(''); if Edit2.Text=Table2.FieldByName('Name').AsString then MessageDlg('invalid name', mtError, [mbOk], 0) else begin if ((edit2.text<>'') and (DBLookupComboBox1.text<>'') and (combobox1.text<>'') and (combobox2.text<>'')) then begin Table1Qtty.Value:= Table1Qtty.Value+1; Table1.Post; Table2.Insert; Table2.FieldByName('Name').AsString := Edit2.Text; Table2.FieldByName('Genre').AsString := DBLookupComboBox1.Text; Table2.FieldByName('Autors').AsString := Edit3.Text; Table2.FieldByName('Home').AsString := Edit4.Text; Table2.FieldByName('Available').AsString := Combobox1.Text; Table2.FieldByName('Mark').AsString := Combobox2.Text; Table2.Post; end else MessageDlg('Set empty fields', mtError, [mbOk], 0); end; except on EDataBaseError do begin MessageDlg('Ïðîâåðüòå âñå ïàðàìåòðû', mtError, [mbOk], 0); end; end; end; end;

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

Отвечает: Esi Здравствуйте, Павлов Иван Евгеньевич! Есть такая функция trim, которая уберёт начальные и конечные пробелы. Edit2.text:=trim(edit2.text);

Ответ отправил: Esi (статус: 3-ий класс) Ответ отправлен: 18.01.2008, 06:12 Оценка за ответ: 4 Комментарий оценки: Краткий и вполне адекватный ответ. затрагивает только суть вопроса

Вопрос № 119.138

Доброго времени! Вопрос такого плана: рисуется новый компонент порожденный скажем от TLabel (не суть впринципе) Одно из свойств компонента является классом с 3 пропертями типа boolean. Сообственно проблема при кидании компонента на форму все замечательно,но (НО!) в object инспекторе это свойство не разворачивается, т.е. +ик присутствует при нажатии меняется на "-" но свойств этого класса не видно. (надо по типу как сделан TFont) когда его разворачиваешь и сворачиваешь в object инспекторе. программно (т.е. через код) я нормально до них могу достучатся и получить их. но хотелось бы все таки в object инспекторе их увидеть. вот только как? в Хелпе конечно куча всего написанно но чегото нифига не получается:(

Отправлен: 18.01.2008, 10:41 Вопрос задал: BlackRaider (статус: 2-ой класс) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Лукьяненко Алексей Валериевич Здравствуйте, BlackRaider! Для того, чтобы свойство-класс можно было использовать в Инспекторе объектов, он должет наследоваться от класса TPersistent или его потомков (например, TFont). При этом свойства, которые Вы хотите, чтобы были видны в Инспекторе, должны быть объявлены как Published.

Ответ отправил: Лукьяненко Алексей Валериевич (статус: 10-ый класс) Ответ отправлен: 18.01.2008, 10:53 Оценка за ответ: 5 Комментарий оценки: Спасибо огромное! Про published понятно. а вот что класс надо было унаследовать от TPersistent....

Вопрос № 119.158

Здравствуйте уважаемые эксперты! Как написать прогу которая мониторит в своем окне файли, которые грузит браузер вместе с веб-страницей! Чтобы можна было в любой момент отменить загрузку отдельного файла, указав его. Прога не должна быть прокси! Дайте, пожалуйста, ссылку с такими исходниками или доками, где это подробно описано.

Отправлен: 18.01.2008, 11:59 Вопрос задал: SAshA20 (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Selya Здравствуйте, SAshA20! Могу предложить монторить папку, куда браузер сохраняет странички с файлами. В архивчике статья и пример на эту тему: http://slil.ru/25372226

Ответ отправил: Selya (статус: 4-ый класс) Ответ отправлен: 18.01.2008, 13:31 Оценка за ответ: 3 Комментарий оценки: Selya, спасибо за ответ! Но мне нужно мониторить и контролировать загрузку файлов, которые грузит (или будет грузить)браузер в даный момент времени, а не мониторить файлы, которые уже загружены в какую то папку! Или может быть я не правильно понял Вас? Обясните, пожалуйста!

Вопрос № 119.166

Здравствуйте господа эксперты. Вроде пустяк, но я никак не могу врубится, что нужно сделать. В приложении имеется две формы. Главная форма работает на основном мониторе, а вспомогательная на втором мониторе в режиме просмотра Dual view. Необходимо сворачивать главную форму на первом мониторе, не сворачивая при этом вторую форму. Стандартный метод этого не позволяет, делать перую форму невидимой не выход (проблема с возвратом её на место, недопустимо чтобы вторичная форма исчезала с экрана ни на секунду, второй монитор стоит в другом месте).

Отправлен: 18.01.2008, 12:37 Вопрос задал: Genia007 (статус: 4-ый класс) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 15)

Отвечает: Лукьяненко Алексей Валериевич Здравствуйте, Genia007! Вы можете сделать так: 1 форма, главная, при ее создании указываете Application.ShowMainForm := False; и при этом открываете вторую форму 2 форма открывается на первом мониторе в немодальном режиме 3 форме открывается на втором мониторе тоже в немодальном режиме. Приложение: procedure TForm1.FormCreate(Sender: TObject); begin Application.ShowMainForm := False; Form2 := TForm2.Create(Application); Form3 := TForm3.Create(Application); form2.show; form3.show; end;

Ответ отправил: Лукьяненко Алексей Валериевич (статус: 10-ый класс) Ответ отправлен: 18.01.2008, 12:53 Оценка за ответ: 4 Комментарий оценки: Спасибо, но это тоже не выход из положения, главная форма нужна для редактирования содержания второй.

Отвечает: Зиновьев Дмитрий Владимирович Здравствуйте, Genia007! Могу предложить обе формы сделать дочерними к некоторой абстрактной главной форме (на которой ничего нет, и которая ничего не отображает)... А иначе, на сколько я понимаю, мало шансов на успех... так как операции с главной формой = опреациям с приложением... Свернуть - так свернуть приложение... Закрыть - так выйти из программы. и т.п.

Ответ отправил: Зиновьев Дмитрий Владимирович (статус: 9-ый класс) Ответ отправлен: 18.01.2008, 14:08 Оценка за ответ: 5 Комментарий оценки: Спасибо за ответ. Это я уже понял, но остаётся надежда на успех именно с главной формой.

Вопрос № 119.200

Здравствуйте! Я в Delphi новичёк помогите написать программу. Например на форме имеется ComboBox, Edit1, Edit2, Edit3 (Edit' ов может быть больше). При загрузке файла имеюшего опеделённую структуру(структура в приложении) надо чтоб в ComboBox загружались все Weapon которые имеются в файле (их может быть сколько угодно штук), причем чтоб бралось именно название Wepon' а, а слово Weapon не отображалось. А в Edit' ах отображалось то шо относится к Weapon' у выбраному в ComboBox, шоб бралось значение которое стоит после знака =. Например в Edit1 отображалось то что относится к PrimaryDamage после знака=, в Edit2 отображалось то что относится к PrimaryDamageRadius после знака =, и т.д Приложение: ;------------------------------------------------------------------------------ Weapon MissileWeaponAir PrimaryDamage = 50.0 PrimaryDamageRadius = 5.0 ScatterRadiusVsInfantry = 10.0 ;When this weapon is used against infantry, it can randomly miss by as much as this distance. AttackRange = 320.0 DamageType = EXPLOSION ; ignored for projectile weapons DeathType = EXPLODED WeaponSpeed = 600 ; ignored for projectile weapons ProjectileDetonationFX = WeaponFX_RocketBuggyMissileDetonation ProjectileObject = PatriotMissile ProjectileExhaust = MissileExhaust RadiusDamageAffects = ALLIES ENEMIES NEUTRALS DelayBetweenShots = 1000 ; time between shots, msec ClipSize = 1 ; how many shots in a Clip (0 == infinite) ; You have to have a clip size as a missile weapon ClipReloadTime = 2000 ; how long to reload a Clip, msec AutoReloadsClip = Yes FireSound = HumveeWeaponTOW ProjectileDetonationFX = WeaponFX_RocketBuggyMissileDetonation AntiAirborneVehicle = Yes AntiAirborneInfantry = No AntiGround = No ; note, these only apply to units that aren't the explicit target ; (ie, units that just happen to "get in the way"... projectiles ProjectileCollidesWith = STRUCTURES End ;------------------------------------------------------------------------------ Weapon RangerRifle PrimaryDamage = 5.0 PrimaryDamageRadius = 0.0 ; 0 primary radius means "hits only intended victim" AttackRange = 100.0 DamageType = SMALL_ARMS DeathType = NORMAL WeaponSpeed = 999999.0 ; dist/sec (huge value == effectively instant) ProjectileObject = NONE FireFX = WeaponFX_GenericMachineGunFire VeterancyFireFX = HEROIC WeaponFX_GenericMachineGunFireWithRedTracers FireSound = RangerWeapon RadiusDamageAffects = ALLIES ENEMIES NEUTRALS DelayBetweenShots = 100 ; time between shots, msec ClipSize = 3 ; how many shots in a Clip (0 == infinite) ClipReloadTime = 700 ; how long to reload a Clip, msec WeaponBonus = DRONE_SPOTTING RATE_OF_FIRE 200% WeaponBonus = DRONE_SPOTTING RANGE 200% WeaponBonus = DRONE_SPOTTING DAMAGE 200% End ;------------------------------------------------------------------------------ Weapon CRangerRifle PrimaryDamage = 5.0 PrimaryDamageRadius = 0.0 ; 0 primary radius means "hits only intended victim" AttackRange = 999999.0 DamageType = SMALL_ARMS DeathType = NORMAL WeaponSpeed = 999999.0 ; dist/sec (huge value == effectively instant) ProjectileObject = NONE FireFX = WeaponFX_GenericMachineGunFire VeterancyFireFX = HEROIC WeaponFX_GenericMachineGunFireWithRedTracers FireSound = RangerWeapon RadiusDamageAffects = ALLIES ENEMIES NEUTRALS DelayBetweenShots = 100 ; time between shots, msec ClipSize = 3 ; how many shots in a Clip (0 == infinite) ClipReloadTime = 700 ; how long to reload a Clip, msec WeaponBonus = DRONE_SPOTTING RATE_OF_FIRE 200% WeaponBonus = DRONE_SPOTTING RANGE 200% WeaponBonus = DRONE_SPOTTING DAMAGE 200% End

Отправлен: 18.01.2008, 16:25 Вопрос задал: DenGame (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Евсюков Виталий Евгеньевич Здравствуйте, DenGame! Обе проблемы решаются одинаково: пробежавшись по строчкам файла (тебе, как новичку, рекомендую использовать объект TStringList), ищем в каждой слово ключевое слово, при нахождении копируем название оружия от позиции нахождения+длина ключевого слова, при желании можно добавить обрезку пробелов. Куски для парсинга см. в приложении. Я ввел две константы, в реальном же случае нужен массив параметров. Если где ошибся, поправьте. Приложение: procedure parseFile(sFName : String); const word1='Weapon', word2 = 'PrimaryDamage ='; var SL : TStrings; s: string; i, p : Integer; begin SL := TStringList.Create; SL.LoadFromFile(sFName); for i:=0 to SL.Count -1 do begin s := SL.strings[i]; p := pos(s, word1); if p<>-1 then begin combobox1.items.add(trim(copy(s, p+length(word1)+1, length(s)-p+1)); continue; end; p := pos(s, word2); if p=-1 then continue; edit1.text := trim(copy(s, p+length(word2)+1, length(s)-p+1)); end; --------- I Aear can ve na Mar

Ответ отправил: Евсюков Виталий Евгеньевич (статус: 3-ий класс) Ответ отправлен: 19.01.2008, 16:59 Оценка за ответ: 4 Комментарий оценки: Хотелось бы узнать про массив параметров. Можна ссылки на документацию, примеры.

© 2001-2007, Портал RusFAQ.ru, Россия, Москва. Авторское право: ООО "Мастер-Эксперт Про" Техподдержка портала, тел.: +7 (926) 535-23-31 Хостинг: "Московский хостер" Поддержка: "Московский дизайнер" Авторские права | Реклама на портале Версия системы: 4.70 от 17.01.2008
RusFAQ.ru | MosHoster.ru | MosDesigner.ru | RusIRC.ru Kalashnikoff.ru | RadioLeader.ru | RusFUCK.ru