Доброго времени суток! Есть XML-файл вот такого вида: [Code] Первый канал

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

Как обнулить текстовый файл, занятый другими приложениями ? Ожидание его закрытия у меня не работает, т.к. в него постоянно кто-нибудь пишет. Заранее благодарен. ...

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

Здравствуйте, Уважаемые жители Королевства. Подскажите, пожалуйста, как сделать НЕ модальную форму только поверх окон своей программы, а не поверх всех окон системы? (Delphi 10 Seattle). Облазил весь Интернет, но решения так нигде и не нашел. Пример. Имеем 3 формы - Form1, Form2, Form3. Form2 и Form3 создаются не при запуске приложения. Из Form1 вызываем Form2: [Code] procedure TForm1.Button1Click(Sender: TObject); begin Form2 := TForm2.Create(Application); Form2.ShowModal; en ...

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

Есть csv-файл, каждое поле которого находится в двойных кавычках, разделитель - точка с запятой. В полях допустимые символы двойных кавычек и точки с запятой. Возможно корректно считать такой csv-файл в StringList? Для примера: файл: "text1";"t;e;x;t;2";"t"e"x"t"3";"text4" нужно получить: text1 t;e;x;t;2 t"e"x"t"3 text4 ...

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

Здравствуйте! Редко регистрируюсь на форумах, потому, как умею пользоваться поиском и все проблемы кто-либо до меня уже успел поймать и получить ответ как это лечится. Но сейчас столкнулся с ситуацией, выхода из которой найти не могу. Коротко о проблеме: Embarcadero Delphi 2010, работаю с Ораклом, пишу небольшие пользовательские программки. Для подключения к БД использую компоненты ADO. Во время отладки одной программки при обращении к одной из таблиц БД внезапно вылетело сообщение: "Неопозн ...

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

Здравствуйте. Бьюсь уже не один день. Мне нужно перехватить сообщение WM_SYSCOMMAND. Делаю хук, но он не срабатывает. Делаю без длл, тк в моем случае это очень не желательно. var FuckEdrawHook: HHOOK; function FuckEdrawProc(nCode: Integer; WParam, LParam: Longint): Longint; stdcall; var Kill: boolean; begin Result := CallNextHookEx( 0, nCode, wParam, lParam); kill := False; //здесь стоит добавить проверку на принадлежность окна "целевому" процессу case P ...

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

При добавлении на любую форму проекта компонента TXPManifest, его действие распространяется на весь проект. Можно ли сделать так, чтобы TXPManifest действовал только в некоторых формах проекта? И ещё: TXPManifest работает с неприятным глюком: Компоненты приобретают цвет родительской формы, даже если установить для них ParentColor=False. Можно ли как-то это исправить? ...

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

Добрый день всем. В продолжение http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83214 , но тема чуть другая... Сделал запрос в асинхроне...все работает. Успевай только менять процедуру обработчика до Open, но... Запрос типа select TOP 10000 * FROM People - отрабатывает без проблем. Останавливается по кнопке в любой момент хоть в процессе "прогресса" до "комплита", хоть в момент когда вызван обработчик "комплита" (там есть соотвествующий кусок). После останова и перезапуска - без проблем ...

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

Добрый день. Подскажите пожалуйста в чем проблема, что то сам не могу сообразить. Вообщем задача заполнить несколько полей на Web-форме, сначала побывал передавая данные в метод value в нужный элемент на форме, но после того как все заполняется и нажимается кнопка отправить, начинается ругань на то что половина полей не заполнены, если набрать руками значение и нажать Tab то все подставляется красиво. Тогда решил попробовать выполнять вставку через буфер. Нахожу нужный мне объект, ставлю в нег ...

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

Здравствуйте. Мне необходимо отловить появление/скрытие окон SAS: 1. окно параметров безопасности, появляющееся при нажатии Ctrl+Alt+Del 2. окно блокировки Должно работать с пользовательскими правами, никаких служб. Может кто-нибудь подскажет как это можно сделать? ...

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

Доброго всем дня. Начал работать с UDP. И столкнулся вот с такой (простой вроде бы) проблемой. Есть 2 программы: клиент и сервер. Используются TidUDPClient и TidUDPServer. Настроены так: клиент - порт 5001 сервер - порт 5000 Вот обработчик приема данных на сервере: [Code]procedure TMainForm.UDPServerUDPRead(Sender: TObject; AData: TStream; ABinding: TIdSocketHandle); begin memo.Lines.Add('———————————————'); memo.Lines.Add(DateTimeToStr(now)); memo.Lines.Add('Отправитель: '+ABindi ...

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

Этот вопрос, как и некоторые другие, которые я задаю, носит теоретический характер, поскольку во-первых я столкнулся с ним, программируя на другом языке (Java), во-вторых, ровно с той же проблемой можно столкнуться и при программировании на Delphi, да и вообще, как я чувствую, на большом множестве языков программирования, а в третьих, я подозреваю, что данное нереализуемо, но хочу хотя бы понять, в чём недостаток моей идеи, что она не реализована практически нигде (известное мне исключение - в к ...

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

Вопрос носит, скорее, теоретический характер, так как я подозреваю, что такое, что я хочу, сделать нереально, но всё-таки хочу удостовериться. Вполне реальная ситуация: я хочу написать процедуру чтения текстового потока построчно. Для этого я беру TFileStream, создаю от него наследника TTextStream и реализую в нём function Readln:string; (а, возможно, и procedure Writeln(const Data:string); и даже function ReadInt:integer; и прочие Read**** и Write*** с очевидным функционалом). Всё работает. Вс ...

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

подскажите, пожалуйста при включенных темах заголовок формы убирается BorderIcons := []; LStyle := GetWindowLong(Handle, GWL_STYLE); LStyle := LStyle and (not WS_CAPTION) or WS_BORDER; SetWindowLong(Handle, GWL_STYLE, LStyle); а если темы отключить, то не отрабатывает ...

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

Здравствуйте. Не могу найти как решить проблему. Мне необходимо у моего окна переопределить действие нажатия на стандартную кнопку системного меню "Свернуть", так чтобы стандартные действия винды не выполнялись. Может кто-нибудь сталкивался с подобным? ...

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

Здравствуйте! MDI - приложение, на дочернем окне компонент Chart. В зависимости от количества параметров для которых необходимо строить графики загружается необходимое количество дочерних окон. У меня вопрос, возможно ли сохранять построенные графики с настройками для каждого Chart-а (не *.bmp) в файл, или может быть полностью все дочерние формы с chart-ами. Короче, что бы при желании можно было загрузить построенные ранее графики, с возможностью поработать с ними (прокрутка, масштаб, снятие коо ...

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

Здравствуйте! Вопрос касательно типа данных Variant. Создал функцию: [Code] function InfoData(ID_Code: Word; var ARec: TPlayerInfo; AData: Variant; const cWrite: boolean = False): Word; begin Result := 0; case ID_Code of .. Stat_Power: V := ARec.MF.Stats.Power; //(ARec.MF.Stats.Power - Массив записей в массиве) .. end; BasicType := VarType(V) and VarTypeMask; if BasicType <> (VarType(AData) and VarTypeMask) then try If cWrite then V := ADat ...

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

Привет всем. От скуки решил попробовать асинхронное выполнение запросов Д7, MS SQL, TADOQuery... Все получилось, но прогрессбар повел себя странно - торчал у правого края. Прологгировал сие безобразие... Вот что получилось... SELECT TOP 10000 * FROM MyTable 110,125 - это Progress и MaxProgress 215,230 230,245 245,260 260,275 275,290 290,305 305,320 ... и так далее в том же духе (разница = 15) 9995,10010 10000,10000 Что за фигня этот обработчик OnFetchProgress с его аргументами ...

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

Вопрос может сложный, а может мне кажется таким. Для программной авторизации на "одном" сайте я использую хеширование пароля (источник http://www.cyberforum.ru/blogs/178692/blog564.html) допустим, к примеру, пароль состоит из одного кириллического символа 'А', то хеш должен быть '87a06b19f2c69c317eb4fc207ecc10f7', так и есть, если использовать function md5UTF8 но при компиляции в 32 разрядное приложение, а если компильнуть в 64, то хеш не сходится! Я уже не знаю что делать. Мне нужно компильнуть ...

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

Всем добрый день. Пытаюсь вывести на принтер один (или несколько) пдф-файлов с помощью TPrinter. Все конструкции типа ShowMessage(Printer.Printers.Strings[Printer.printerIndex]); Printer.Printers.Count и даже printer.Title:='Title'; оканчиваются одинаково: access violation, хотя uses Printers и var printer : Tprinter; имеют место быть. Такое впечатление, что не могу подобраться к списку принтеров. Вопрос: Почему? ...

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