Здравствуйте, жители Королевства! Столкнулся с такой задачей: нужно создать систему распределенных вычислений. Это должно быть клиент-серверное приложение, в котором серверные части одинаковые и расположены на сотне разных компьютеров (под win). Клиентская часть посылает команду одновременно всем серверам, те производят независимые расчеты и уведомляют клиента о готовности. Расчеты - это вызов математических функций, алгоритм одинаковый, входные данные - разные. Собственно вопрос: какую техник ...

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

Здравствуйте жители королевства! Подскажите пожалуйста, какой тип поля бд mysql надо выбрать, что хранить в нем фото? Заранее благодарен... ...

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

Здравствуйте! Помогите, пожалуйста, разобраться с проблемой: WinXP, Delphi7 Возникла необходимость генерации QR-кодов из текстового файла с помощью программы QRCodeGUI. Процедура выглядит так: procedure createQRCode(); var qrcodePath: String; str: String; SI: TStartupInfo; PI: TProcessInformation; workDir: String; fileName: String; begin if(openD.Execute=true) then begin workDir:=ExtractFileDir(Application.ExeName); fileName:=ExtractFileName(openD.FileName); ...

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

Добрый день! Прошу помощи:) Я не могу настроить правильно событие onResize формы. Дано: Форма с параметром alClient, на форме лежит TImage. В TImage что-то рисую. Мне нужно использовать всю клиентскую область для отрисовки, проблема в том,что если рисование происходит в событии onCreate Формы, то используется область маленькая Image (до ресайза). Если я рисую в onResize, с настроенным Image, то рисование происходит 2(!!!) раза, а нужно чтоб один. Вот простенький код для примера: [Code] pro ...

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

Доброго времени суток, всем! Для утилиты sqlite3.exe составляю файлик с командами типо такого:

code:
 .open "C:/db/newBD";
.separator ";"
.import rec.tmp dtSetsTemp
 

Всё работает, если его запускать из far'а или с помощью бадника со строчкой

code:
sqlite3.exe < command

Но из программы не могу его запустить, пробовал

code:
 WinExec(PChar(S), SW_ShowNormal);

и

code:
 ShellExecute(Handle, 'Open', PChar(SQLName), Pchar(S), nil, SW_HIDE); 

В чё ...

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

Доброго времени суток, всем! Для утилиты sqlite3.exe составляю файлик с командами типо такого:

code:
 .open "C:/db/newBD";
.separator ";"
.import rec.tmp dtSetsTemp
 

Всё работает, если его запускать из far'а или с помощью бадника со строчкой

code:
sqlite3.exe < command

Но из программы не могу его запустить, пробовал

code:
 WinExec(PChar(S), SW_ShowNormal);

и

code:
 ShellExecute(Handle, 'Open', PChar(SQLName), Pchar(S), nil, SW_HIDE); 

В чё ...

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

Консоль, DOS, раскладка Добрый день. Уже почти заборол отслеживание смены клавиатуры. Осталась работа с консолью. Дело в том, что в консоли определение раскладки клавиатуры не работает: GetKeyboardLayout(GetWindowThreadProcessId(GetForegroundWindow, nil)) Само событие смены я ловлю, а вот определить язык не получается. Вопрос, как определить: 1. Что окно с определенным хендлом - консоль 2. Раскладку клавиатуры в этой консоли Спасибо. ...

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

Здравствуйте. Я ньюб:) Пытаюсь разобраться с ООП по книге В.Фаронова "Turbo Pascal.Наиболее полное руководство", наверняка, многие знают классическую задачу о перемещении геометрических фигур-объектов. Данную задачу для TP я перевожу в Delphi 7. Тут у меня возникла проблема. У меня два Юнита, один основная программа - "OOPBasics", другой юнит с реализацией классов -"MyObjs". код юнита "OOPBasics" [Code] unit OOPBasics; interface uses Windows, Messages, SysUtils, Variants, Classes, Gra ...

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

Добрый день! Есть ли способ для создания вариантных полей в объектах (объявляемых с помощью ключевого слова object)? Пример:

code:

type
  TVectorRecord = record
    x, y, z: single;
  end;
  TVector = object
  public
    case boolean of            // ожидаемая форма записи
      true: (x, y, z: single);
      false: v: TVectorRecord;
    end;
  end;

В данном случае требуется, чтобы объект имел поля x, y, z и v. ...

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

Добрый вечер всем! Как прикрепить картинку я не понял, поэтому приложу ссылку изображения по которому буду задавать вопрос http://gyazo.com/a047d7b9a1d6154b8ad6c2e2f4a83d50.png Как у TPageControl можно найти координаты вкладки, не самого окна вкладки, а именно той только части где написан Caption вкладки, что бы можно было как на скрине сделать его редактирования путем создания на той области TEdit? ...

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

Здравствуйте, не ругайтесь пожалуйста. Знаю, что тема заезжена, и на форуме уже обсуждалась, но решения я не могу найти уже давно... Все банально, асинхронный режим, на концах портов древние как динозавры "Филины" (это модемы такие). В общем сама проблема в том, что хромает прием с этих самых модемов. При приеме пакет приходит частями 1й 8 байт, 2й 30. Бывает и так, что прием хаотичен и не потдаётся ни каким объяснения. Пробовал ставить таймауты, кучу форумов по этому поводу облазил. Результата ...

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

Есть цикл FOR, внутри которого вызывается моя процедура. Могу ли я из своей продцедуры выполнить тоже самое что выполняет Break? Тоесть чтобы вызов моей продцедуры выполнил свой код и прекратил бы работу цикла (так же как прекращает процедура Break). Не хочется писать тёхтажные выражения типа:

code:
for n:=1 to 100 do
    if n=15 then
      begin
      MyProcedure(n);
      Break;
      end;

Хочется чтобы моя продцедура выполнившись сама делала Break, и код сократился бы до: ...

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

Добрый день! Не прояснит ли кто алгоритмический вопрос? Мне надо найти кодовые слова с расстоянием Хемминга не менее заданного. Прямой перебор со сравнением уже найденных слов с текущим значением счётчика очень долог - по мере накопления слов время оценки растёт экспоненциально и слова в пространстве целых чисел расположены неравномерно. Есть ли алгоритм поиска кодовых слов с заданным расстоянием помимо перебора? ...

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

В программе необходимо создать окно в потоке: [Code]type TParentWindowThread=class(TThread) private WinClass: WndClassEx; Msg: TMsg; function parentWndProc(hWindow: HWND; Msg: UINT; wParam: wParam; lParam: lParam): LRESULT; stdcall; export; procedure CreateParentWnd; public Wnd: HWND; protected procedure Execute; override; end; ... implementation function TParentWindowThread.parentWndProc(h ...

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

Доброго времени суток, столкнулся с задачей выборки и импорта данных из Interbase в MySQL. Предполагается, что IBS база локальная, а SQL удаленная. Подскажите плиз алгоритм действий... Как бы сравнить количество записей в одной и другой базе не сложно, а вот импортирование со всеми связями и блоб полями меня вводит в ступор, учитывая, что таблица в базе далеко не одна... (((( может как-то можно по минимуму сократить код? Есть какие-нибудь штатные функции для импорта? Заранее спасибо. Приму люб ...

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

Задача - быстро написать snmp-сервер. Чем больше мучаю яндекс, тем больше тумана по поводу написания snmp-сервера (я в этом чайник). Есть только очень небольшой опыт написания сервера на базе TServerSocket. Пытался на его базе открыть соединение с snmp-клиентом - как понял нужно другое. Help. ...

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

Всем доброго времени суток. Нужен совет, надеюсь получить его от вас. С друзьями энтузиастами решили создать программу с "с самым минимальным ИИ". Но в основном это программа объединяющая функции нескольких, такие как распознание лица по камере, распознание голоса, голосовое управление устройством и т.д. Автоматический поиск самой программой ответа на вопрос в ресурсах заведомо доверенных в интернете, математические операции, так же голосовыми командами и много многое другое. Сама идея конеч ...

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

Камрады, добрый день, прошу помощи. Проблема : Имеется множество таблиц базы данных Paradox в файлах *.dbf с произвольной структурой таблиц ( наборами полей ). В текстовых полях таблиц записан русский текст в кодировке либо Win ANSI, либо UTF8. Необходимо иметь возможность просмотра структуры таблиц и записанных текстовых данных. Для этого состряпал простейшее приложение в Delphi 7, которое приводится в любом учебнике по Delphi : Кинул на форму компоненты Table1: TTable; DBGrid ...

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

Здравствуйте Уважаемые жители королевства, поздравляю всех с прошедшими праздниками. Подскажите пожалуйста программа использует IBEvents. Все работало прекрасно пока АСУшники в пятницу перед новым годом не решили перейти на другую подсеть. На сервере (windows 2003) был адрес 169.254....., они добавили второй адрес 172.16....... Теперь после регистрации эвента программа виснет. Без эвентов работает нормально. Я в сетях не силен, подскажите пожалуйста что делать. ...

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

доброе время суток. есть два варианта записи:

code:

type
  TMD5Digest = record
    case Integer of
      0: (
        A: LongInt;
        B: LongInt;
        C: LongInt;
        D: LongInt
        );
      1: (
        V: array [0..15] of Byte
        );
  end;

[Quote] type TMD5Digest = record case Mode: Integer of 0: ( A: LongInt; B: LongInt; C: LongInt; D: LongInt ); 1: ( V: array [0..15] of B ...

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