Всем привет. Помогите написать простенький парсер, не могу получить href в финале. Выдергивает все что Li, потом внутри в h3, а потом в A. [code] vTags := WebBrowser1.OleObject.Document.getElementsByTagName('Li'); n1:=vTags.Length; if n1>0 then begin for i1:=0 to n1-1 do begin vTags1 := vTags.item(i1).getElementsByTagName('H3'); n2:=vTags1.Length; if n2>0 then begin ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83023

Здравствуйте! клиент-серверное приложение. Можно ли выделить в отдельный сервис только соединение с БД, а все запросы останутся в приложении-клиенте? Я пробовал решить с помощью Мидас, но не смог увидеть из клиента само соединение ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83022

Здравствуйте! Необходимо в Next Grid выделить текст в ячейке достался мне тут в наследство проект с таким компонентом как NextGrid В Целом все не так плохо, но тут ленивые пользователи взбунтовались и не желают самостоятельно удалять текст в редактируемой ячейке, а желают чтоб при входе в состояние редактирования он автоматически весь выделялся и уважаемые господа сразу могли начинать печатать свои важные данные. Ковыряюсь уже достаточно долго и не нашёл подходящего функционола... максиму ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83020

доброе время суток имеется тип TSettings - настройки программы. следующий код использую для сохранения/чтения настроек в реестре [Code] type PSettings = ^TSettings; TSettings = packed record a: Byte; b: Boolean; c: Boolean; d: Boolean; e: Boolean; f: Byte; g: Boolean; end; var Key: HKEY; Size: Cardinal; Settings: TSettings; begin //запись RegCreateKeyEx(HKEY_CURRENT_USER, PChar(Format('%s\%s', [{программа}, {версия}])), 0, nil, ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83019

доброе время суток нашёл на просторах инета код для получения списка запущенных процессов. код работает. смущают несколько пунктов (хотельсб бы понять): 1. SystemInformationLength:= $1000 - почему именно 1000? 2. NtQuerySystemInformation(5, SystemInformation... - почему именно 5? 3. repeat ... until false - к чему относится false? 4. может что ешё не правильно написано? спасибо! [Code] type UNICODE_STRING = packed record Length, MaximumLength: WORD; Bu ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83014

Привет всем. Столкнулся с проблемой... Нужны инструменты для внесения/изменения данных в БД. В принципе БД обслуживается сайтом на asp.net (написан на C#), в котором для авторизации используются таблицы MemberShipXXXX. Но сам в этом asp.net не силен, да и не моя "грядка". Делаю пока авторизацию по логину с проверкой ролей, но хотелось бы и пароль привлечь к авторизации... Нарыл как в дельфовой программе проверять авторизацию (PasswordFormat int Password format (0=Plaintext, 1=Hashed, 2=Encryp ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83013

Добрый день, жители королевства. Очень прошу, помогите решить задачу. В процедуре ss1 : TstringList - создается и заполняется выше в программе При каждом нажатии клавиши подбирает похожие слова из ss1 в ListBox1. работает с начала стоки. Теперь надо что бы поиск работал с любого места в тексте TRichEdit (желание пользователя). В RichEdit -'Би' пробел..след слово пользователь вспомнил и начинает вводить после Би след букву [Code] procedure TFrmMemoEdit.meEditChange(Sender: T ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83015

Доброго времени суток, уважаемые жители Королевства. Подскажите, в какую сторону копать иль, может, какой-то готовый механизм существует, да я не там ищу? Мне нужно сделать интерактивное управление ветками дерева, но не классического от рута с расширением в глубину, а такого, в котором на входе может быть несколько узлов, затем они, например, разветвляются, некоторые узлы сходятся в один или несколько узлов, затем это дело опять расширяется, сходится и т.д. На выходе этого безобразия один узел ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83011

Здравствуйте. Обнаружил странный глюк в своём приложении. Для связи с устройством использую протокол UDP реализованный через WinSock (как в статье http://www.delphikingdom.com/asp/viewitem.asp?catalogid=1021). Обнаружилось, что если среда разработки (RAD Studio XE7) не запущена, то связь жутко тормозит. На ПК на которых среда разработки не установлена всё работает нормально. Кто-нибудь сталкивался с подобным? ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83010

Здравствуйте, жители Королевства Делфи. Беда у меня такая: На работе (Win Server 2003) и дома (Win XP) установлен FireBird 2.5.1.23651. База Данных за много лет набрала более 3 ГБ. На работе всё работает месяцами без перезагрузок и без мороки. По вечера забираю копию БД (BackUp за предыдущюю ночь) домой на доработки программ. Дома вот уже месяцев 5-6 мучает такая бяка: Как только не обращаешься к БД минут 15-20, FireBird "замирает". Попытка перезапустить его из FireBird Server Ma ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83009

Доброго времени суток! Если кто знает подскажите, люди, или направьте на правильный путь. Есть программа, написанная на Delphi, которая загружает ежедневно таблицу в базу DB2(в этой таблице сидят новые данные, но есть и данные, которые есть в прошлой базе). У меня есть команда ShellExecute (0, 'open', 'db2cmd.exe', PChar('db2 connect to prostoi&db2 LOAD FROM '+a+' OF IXF MODIFIED BY FORCEIN MESSAGES '+sob+' REPLACE INTO E_LAYER.'+fName1+' COPY NO INDEXING MODE AUTOSELECT&exit'),nil, SW_SHOW ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83008

Доброго времени суток, Скажите, пожалуйста, можно ли в метод передать в качестве параметра TNotifyEvent и повлиять на его внешнее значение? Например: procedure TMyClass.Change(Event: TNotifyEvent); begin Event := MyChangeProc; end; Если я вызываю метод Change() таким образом, begin ... Change(TEdit(Control).OnChange); ... end; то реально TEdit(Control).OnChange не содерит метод MyChangeProc после выхода из Change(). Как решить проблему? P.S. 1) описывать к ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83007

Доброго времени суток! Есть задача: из приложения, написанного на делфи, отправить запрос на страницу http://www.fedresurs.ru/companies, в запросе должны содержаться параметры для фильтра поиска компаний. в результате этого запроса нужно получить страницу со списком отфильтрованных компаний. делаю это следующим образом: [Code]var LoginInfo: TStringList; Response: TStringStream; data: TIdMultiPartFormDataStream; Pos_VIEWSTATE_b, Pos_VIEWSTATE_e, pos_EVENTVALIDATION_b, pos_EVENTVALIDATI ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83006

Делаю: bmp := TBitmap.Create; bmp.LoadFromFile('1.bmp'); // ч/б картинка с белым фоном bmp..PixelFormat := pf1Bit; bmp.SaveToFile('2.bmp'); // здесь фон у картинки красный!!! вроде что-то с палитрой, как её изменить, чтобы у рисунка оставался фон белый ? ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83004

добрый всем. Снова о COM портах. По множеству примеров написал код по асинхронной посылке/отправки команд в порт. Непоняток вылезло много, но главная сейчас непонятка с WaitCommEvent, данная функция на событие EV_RXFLAG срабатывает ровно два раза. После первого срабатывания я выполняю все нужные действия, возвращаюсь к WaitCommEvent и бац, снова сработало событие. Код ниже, буду очень признателен за умное наставление. Спасибо. [Code] //ф-ция открытия порта Function OpenPort(NCOM:string; Flag: ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83001

Lock time out (BDE, PaRADOX). Прошу прощения за некую некромантию, но если кто когда-нибудь сталкивался с этой ошибкой, прошу сообщить когда она возникала и как с нею разобрались. А если кто знает какие процедуры DBI это исключение вызывают и при каких условиях, то было бы совсем хорошо эту информацию получить. Впервые за долгие годы программа стала иногда, но непозволительно часто выдавать сообщение об этой ошибке и пока не могу понять почему. Яндекс и гугл проштудировал, но информации получи ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83000

Люди добрые помогите решить проблему. Есть сервер на Indy 9 idHTTPServer Замучили левые соединения. Т е есть событие OnConnect но нет для этого соединения события OnDisconnect В итоге сервер работает, но со временем копятся эти соединения. По умолчанию сам Indy почему то не удаляет такие коннекты, хотя вроде как в настройках стоит TerminateWait=5000 По идее я так понимаю что если появляются такие коннекты , то через 5 сек неактивности этого соединения оно должно быть уничтожено. Но такого не ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=82999

Добрый день! Нужно написать программу, которая копирует файл. Файл всегда один и тот же, лежит в одном и том же месте, копируется всегда в одно и то же место. Цель: чтоб пользователь не открывал разные папки, а просто нажал на кнопочку. Было вот что. Есть текстовый файл, из которого считываются папки "откуда" и "куда": C:\Program Files\папка с программой\\dir1.dom1.dom.by\IFS\SOFT\PU_TXTПри нажатии кнопки "копировать" файл database.sdf (больше 10МБ) должен быть скопирован из C:\Program Files\ ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=82998

Добрый день господа! Имеется проблема. есть некая IP железка. Подключаюсь к ней через TIdTelnet; задача - как отследить завершение выполнения команды посланной посимвольно по телнету?

code:
 
procedure tltgstat.sendcommand;
var i:integer;
begin
if telnet.Connected=false then exit;
for i:=1 to length(s) do telnet.SendCh(s[i]);
if telnet.Connected=false then exit;
//executed:=false;
telnet.SendCh(#13); вот здесь собственно запуск на выполнение
end;

если выход из процедур ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=82992

Здравствуйте, уважаемые жители королевства! Не могу найти решение своей проблемы. Вот, с мольбой - к вам. Задача состоит в получении "живого" изображения размером 500x500 пикселей, сформированного из отсчетов АЦП. АЦП - на плате PCI, т.е. функции и процедуры библиотечные. Проблема состоит в том, что не могу получить большую скорость вывода. В соответствии с документацией должно выводиться пять "кадров" такого размера в секунду. Если делать в потоке за один проход 250000 отсчетов, а потом выв ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=82991