Search options (Page 11 of 15)

По всей видимости это работает только при наличии реальных данных (записанных в БД)

Странно конечно, но дело ваше... Был готов представить решение (не бесплатно конечно, т.к. массу времени трачу на изучение и заготовки скелетов решений и сами решения). Ну, раз такое дело - успехов в поисках...

Улыбнуло... Так многозначительно...
То, что вы называете "основными нюансами" - семечки, которые щелкаются в 5-6 строк кода.
А нюансы это:
1. Обучить браузер вводить данные на странице.
2. Ограничение таких пользователей (одновременно желающих открыть страничку) до того, как регистратор "ляжет"..?
3. Как вы планируете подключаться к регистраторам у которых нет внешнего IP-адреса (а только облачный ID).?
4. Под разные линейки регистраторов скрипт ввода данных в браузере будет выглядеть по-разному. Также может упасть ранее работающий скрипт, если на регистраторе обновилась прошивка а с ней изменилась и веб-морда.
5. Встроенный в программе TWebBrowser не имеет нужных методов для работы со страницами. Внешний (com-объект "InternetExplorer.Application") работает глючно и с ошибками. Встраивается в форму через одно место...
6. Не каждый IE-браузер на каждом из компьютеров корректно откроется. Может и не запуститься вовсе (например с ошибкой плагина "не удается проверить издателя").
И ещё с десяток других (нюансов).

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

ip например можно "открыть в эксплорере", но ввод в поля "другой программы" - это уже отдельная история. Тем более на странице авторизации можно пересечься c ActiveX-компонентом, который просто не даст вам это сделать.

А что запрещает использовать родной софт от регистраторов..?

Аналогично

Доброва, доброва...))

Судя по следующему содержимому вопроса - "напишите скрипт" (а не "помогите")...

Что есть "обычные данные"..?

Где открывался? Куда вводился..?

Как-то более связно выразив мысли наверное, ибо части вопроса между собой не вяжутся...

В конкретном случае понятно, что это текстовик в UTF8.

    
function ClearBOM(FileName:string):boolean;
var s,sr:string;
    FS:TFileStream;
    MS:TMemoryStream;
    i:integer;
    res:boolean;
    bom:array [0..2] of byte;
begin
try
    result:=false;
    FS:=TFileStream.Create(FileName,fmOpenRead);
    if FS.Size < 3 then
    begin
        result := true;
        exit;
    end;
    SetLength(sr,3);
    for i:=0 to 2 do
    begin
        FS.Position:=i;
        FS.Read(s,1);
        sr[i+1]:=s;
    end;
    res := (sr[1] = chr($EF)) and
           (sr[2] = chr($BB)) and
           (sr[3] = chr($BF));
    if res then
        begin
           MS:=TMemoryStream.Create;
           MS.CopyFrom(FS,FS.Size-3);
           FS.Free;
           FS:=nil;
           MS.SaveToFile(FileName);
        end;
    result := true;
finally
    if MS <> nil then MS.Free;
    if FS <> nil then FS.Free;

end;
end; 

Согласен... Это возможно...

Методом написания скрипта (примерная логика ниже):

1. Так как для TControl объектов в форме программой не объявлено свойство Enabled, обход в цикле становится проблематичным, посему рекомендую для компактности кода уложить требуемые для закрытия к редактированию компоненты внутри TPanel и управлять ее свойством Enabled.

2. В событии OnChange DateTimePicker-а по условию "if not Application.User.is_admin then" {пользователь "не админ"} переключайте свойство Enabled панели (Form1.Panel1.Enabled := not Form1.DateTimePicker1.Checked;) {"включена" = "не установлен флаг"}

3. Для срабатывания скрипта управления доступностью, при появлении формы добавьте дополнительный вызов его в событии OnShow:
Form1_DateTimePicker1_OnChange(Form1.DateTimePicker1);

Вроде ничего не упустил... k245, проверьте плз, все правильно описал по теме "как это реализовать"?

Дайте ваш бинарник и куда его нужно прочитать.

Ну, тогда желательно прикладывать пример проекта со скриптом.