Делаю многопоточный парсер текста. Обрабатываются большие объёмы текста, поэтому задача сделать его максимально производительным ! Правила, что извлекать, задаются регулярными выражениями. Первое что пришло в голову это заранее компилировать выражения, при старте парсера: RegEx1:=TPerlRegEx.Create; Regex1.RegEx := 'Player: (.*)'; Regex1.Compile; ... while do begin ... Regex1.Match... ... Regex2.Match... ... end Я сделал синтетический тест, где в цикле тупо и ...

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

Продолжение вопросов 82413 и 82484 В общем попробовал использовать проецируемый файл. Всё получилось нормально, но вспомнил, что программа может не работать под обычным пользователем. Тут я обнаружил, что в определённый момент таймер не работает, т.е. я терял окно. Перешёл на мульти-медиа таймер и всё пошло нормально. Окно отлично ловится. [Code] Set ActMod = TCSActiveModule Set It = CreateObject("PTCS_Server.TCS") If It Is Nothing Then Call TCSApp.ShowErrorMessag ...

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

Здравствуйте! Delphi XE5, MS Office 2010. Не работает такой код [Code] ... uses ComObj, Excel2010; ... procedure TForm4.Button1Click(Sender: TObject); var XLApp, XLBook, XLSheet, XLRng : OleVariant; begin XLApp := CreateOleObject('Excel.Application'); XLApp.Visible:=true; XLBook := XLApp.WorkBooks.Add; XLSheet := XLBook.ActiveSheet; XLRng := XLSheet.Range['A1:A1']; XLRng.HorizontalAlignment := -4108; // OK - число найдено на просторах инета XLRng.HorizontalAl ...

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

Как передать данные двухмерного массива в функцию? Когда массив одномерный - всё довольно просто.

code:
Function Odnomer(P:array of Integer):String;
begin
...
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Odnomer([1,2,3,4]);
end;

Но мне надо передать двухмерный массив. Я делаю так: [Code]type TMassiv = array of array of Integer; Function Dvuhmer(P:TMassiv):String; begin ... end; procedure TForm1.FormCreate(Sender: TObject); begin Dvuhmer([[1,1111],[2 ...

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

Всем доброго времени суток. Операционка - Win 8.1, приложение определяет её как 6.2 (Win 8), а не 6.3 (Win 8.1). Создал файл манифеста: [Code].manifest

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

Есть ли в Delphi более быстрый способ чтения большого количества пикселей с экрана чем GetPixel? Задача - поймать момент когда на экране появится пиксель определённого цвета. Если написать простенькую програмку: [Code]var x,y,dc:Integer; begin dc:=GetDC(0); for x:=1 to 1280 do for y:=1 to 1024 do begin if GetPixel(dc,x,y)=1 then begin MessageDlg(Format('Найден в координатах: x=%d, y=%d',[x,y]), mtInformation, [mbOk], 0); Exit; end; end;[/Co ...

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

Здравствуйте. Написала маленькую программку для выключения компьютера через нное время и вставила ее в Автозагрузку так: [HKEY_CURRENT_USER\Software\Microsoft\ Windows\CurrentVersion\Run] - ... (т.е. не в прямой меню Пуск). Теперь программка не может найти текстовый файл, которым пользуется для статистики. (Лежит в папке с программной). Путь программно указываю, путь не указываю - все одно. Пока запускалась из меню Пуск - Автозагрузка все было нормально. Из реестра - не видит текстового фа ...

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

Всем доброго времени суток. Подскажите, если кто встречался с подобной ситуацией: Пишется CGI модуль для IIS сервера. На клиентской стороне формируется POST запрос с несколькими текстовыми полями и одним загружаемым на сервер файлом. На серверной стороне обрабатывается в TWebModule в Action. Проблема в том, что в TWebRequest я вижу сформированный на клиенте POST запрос (поле Content и RawContent), но в Unicode представлении, включая ту часть, которая относится к передаче файла (а это рисунок ...

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

Есть основная программа, которая переодически запускает вспомогательные программы. Вспомогательные программы производят вычисления и либо автоматически закрываются после вычисления даже не появившись на экране (если всё нормально), либо выдают пользователю специальную форму с вариантами действий. Причём формы появляются в определённых местах по краям экрана. Проблема в том, что если в данный момент пользователь основной программы набирает какой-то текст (как правило утнувшись в клавиатуру), то п ...

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

Процесс Excel не зависает в процессах после добавления нового листа в существующий файл. Создание: После этого не удаляется процесс

code:
 
  FWorkbook := FApplication.Workbooks.Add(ATemplateFileName, DefaultLCID);
  FSheet    := Nil;

Удаление

code:
 
    FSheet       := Nil;    
    FWorkbook    := Nil;
    If FApplication <> Nil Then
        FApplication.Quit;
    FApplication := Nil;

...

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

Здравствуйте! В программе использую простой бегунок процесса, который сделан в виде примитивной формы (не модальной) и появляется поверх всех окон путём create в момент начала процесса. Чтобы избежать случайного нажатия кнопок на других формах, в Delphi 2007 использовал следующий код: //сделать enabled=false для всех форм (кроме основной) в момент начала работы бегунка for i := 0 to Screen.FormCount-1 do begin if (Screen.Forms[i]<>Form1) then //Form1 - основная форма программ ...

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

Здравствуйте, Господа. Возникла у меня потребность научить одну из своих маленьких програмок почту отправлять. Сперва я сунулся к indy и ее компоненту TIdSmtp. Письма пошли, но с крокозяблами, вместо человеческого текста. Попробовал я разобраться, как это дело исправить и влез в такую трясину, что ну его нафиг... В конце концов, нашел в сети спецификацию smtp и попробовал решить проблему с помощью TClientSocket. Но, видимо, Что-то я делаю неправильно потому, что собственно обмена данными не прои ...

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

Доброго всем времени суток. Обращаюсь за помощью к специалистам. Проблема в следующем: есть один DBCrosstab, справа от него я питаюсь рисовать Crosstаb с такою же высотою строк - все вроде получаеться, но когда я пытаюсь изменить высоту заглавия Crosstаb, то высота строк выщитывается от прежней высоты заглавия. Вот сам код скрипта на паскале - подскажите, пожалуйста, как сделать, что бы строки отображались нужным образом - высоту строк DBCrosstab я записываю в массив, а потом из него задаю вы ...

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

Здравствуйте! Прошу Вашей помощи в следующем вопросе: не получается программно создать Lookup поле. Запрос заранее неизвестен, и номер поля, к которому надо прикручивать Lookup тоже Эксперимент на EhLib v6.2. Связка C:TADOConnectionProviderEh, A:TADODriverDataEh, M:TMemTableEh, Ds:TDataSource, D:TDBGridEh Для LOkup создан A1:TAdoQuery sql: select StreetID,StreetName from Streets Пытаюсь сделать так: A.SelectSQL:='select CountryID,CountryName,CStreetID,StreetID,StreetName from ...

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

добрый день!Как с помощью Делфи сохранить (и считать) файл в базе firebird? догадываюсь,что в BLOB, но не нашел пока примеров ...

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

Здравствуйте. Столкнулся с проблемой - не могу импортировать в exe файл множество файлов(общим размером 3 гб)- пишет ошибку [DCC Error] E2161 Error: RLINK32: Out of memory!. Попытался создать res файл сторонними программами типа Restorator или Resource.Builder - однако тоже пишут Out of memory. В то же время у меня есть древний cd диск на котором записан exe файл размером 600 мб - анализ показал что написан он на visual basic 6 в 2004 лохматом году и внутри различные учебные материалы. Так в ...

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

Доброго дня, уважаемые ГУРУ! Подскажите пожалуйста решение проблемы: Делаю фрейм, на котором расположены AdoQuery-DataSource-DBGrid. Отображается информация по произвольным запросам, структура которых заранее неизвестна, в т.ч. количество полей, таблиц и т.д. Задача - реализация фильтра по аналогии с MS Excel. Не вижу простого пути по заполнению CheckListBox. Его надо заполнить уникальными данными из выбранного столбца с учетом примененных фильтров по другим столбцам (CheckListBox откры ...

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

Добрый день. Имеется некая программа, которая работает нормально, но после выполнения ей определенных действий любой клик на лобом контроле программы, даже на заголовке, вызывает "Access violation at address 00000000. Read of address 00000000." Если можно, задайте хотя бы направления, куда окоп рыть :( ...

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

Доброго времени суток, уважаемые жители Королевства! Подскажите пожалуйста, как в "Lazarus" произвести резервное копирование базы данных "Test - (имя базы)" MySQL. Есть компонент MySQL51Connection1... Заранее благодарен! ...

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

Добрый день! Вопрос по ООП. Допустим у меня есть класс C1, который имеет два метода M1 и M2:

code:

C1 = class
  function M1: string;
  function M2: string;
end;

в реализации M1 вызывает M2:

code:

function C1.M1(): string;
  begin
    Resul := Self.M2();
  end;

function C1.M2(): string;
  begin
    Resul := 'C1 class';
  end;

Далее я создаю класс C2 - наследника от C1: [Code] C2 = class( C1 ) function M1: string; function M2: string; end ...

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