126 Reply by vovka3003

(4 replies, posted in Script)

RZ-007 wrote:

А кто нибудь пытался это сделать через TWebBrowser в MVD...???

А зачем? Там же есть rest-API, можно все обычными HTTP-запросами без браузера сделать.

Go to forum: Script

127 Reply by vovka3003

(6 replies, posted in Script)

В Selenium-e я с этим боролся удаляя на странице все target-ы ссылок в цикле.

Go to forum: Script

128 Reply by vovka3003

(14 replies, posted in Russian)

У меня не добавляется...
В любом случае при повторном нажалии на кнопку пикера вываливается ошибка.
А какая глобальная задача вообще?

Go to forum: Russian

129 Reply by vovka3003

(14 replies, posted in Russian)

Ну или так:

 Form1.DateTimePicker1.MinDate := Date;
 Form1.DateTimePicker1.MaxDate := Date+0.9999884260;

Компонет через жопу работает...

Go to forum: Russian

130 Reply by vovka3003

(14 replies, posted in Russian)

В компоненте...

Go to forum: Russian

131 Reply by vovka3003

(14 replies, posted in Russian)

А формат даты какой?

Go to forum: Russian

132 Reply by vovka3003

(14 replies, posted in Russian)

У меня все работает...

procedure Form1_OnShow (Sender: TObject; Action: string);
  var D:TDateTime;
begin
 D:= Now;
 Form1.DateTimePicker1.MinDate := Date;
 Form1.DateTimePicker1.MaxDate := D;
end;

Go to forum: Russian

133 Reply by vovka3003

(14 replies, posted in Russian)

Это еще один глюк, с которым придется жить.
Работать будет только при явном приведении к типу:

...var D:TDateTime;
begin
 D:= Now;
 Form1.DateTimePicker1.MaxDate := D;
...

Go to forum: Russian

134 Reply by vovka3003

(1 replies, posted in Russian)

Создайте числовую переменную, при каждой итерации таймера проверяйте ее значение и если меньше 3х - увеличивайте, если 3 - закрывайте форму.

Go to forum: Russian

135 Reply by vovka3003

(3 replies, posted in General)

How to store data in txt file.. 

procedure Test;
var SL:TStringList;
    i:integer;
begin
    SL:=TStringList.Create;
    SL.Add('<html><head></head><body><table border="1" cellpadding="5" cellspacing="0">');
        for i:=0 to 9 do
        Sl.Add('<tr>  <td>#'+IntToStr(i+1)+'</td>  <td>AnyData...'+IntToStr(i+11)+'</td> </tr>');
    SL.Add('</table> </body></html>');
    SL.SaveToFile('1.html');
    OpenFile('1.html');
end;

Go to forum: General

136 Reply by vovka3003

(5 replies, posted in Script)

madbit71 wrote:

wow...great...
...and how can i intercept the user action when he clicks the button?
For example, if you click on the AAA button it will activate a script, if you click on the BBB button it will activate another script...and so on...Thanks

procedure AAA;
begin
  ShowMessage('AAA');
end;

procedure BBB;
begin
    ShowMessage('BBB');
end;

procedure CCC;
begin
  ShowMessage('CCC');
end;

procedure BnClick(Sender:TToolButton);
begin
   case Sender.Caption of
       'AAA' : AAA;
       'BBB' : BBB;
       'CCC' : CCC;
   end;
end;

var
    toolbar : Ttoolbar ;
    bn : TToolbutton ;
    bn_caps : array of String ;
    i : Integer ;
begin
    toolbar := Ttoolbar.Create(Form1) ;
    toolbar.Parent := Form1.Panel1 ;
    toolbar.showcaptions := true;
    toolbar.Autosize := True ;
    bn_caps := ['AAA','BBB','CCC'] ;
    For i := Length(bn_caps) - 1 DownTo 0 DO
    Begin
        with ttoolbutton.create(Form1) do
        begin
            parent   := toolbar;
            Autosize := True ;
            caption  := bn_caps[i] ;
            OnClick := @BnClick;
        end;
    End;
end.

Go to forum: Script

137 Reply by vovka3003

(5 replies, posted in Script)

prahousefamily wrote:

..

How to Show Caption In Toolbutton ?
...

var
    toolbar : Ttoolbar ;
    bn : TToolbutton ;
    bn_caps : array of String ;
    i : Integer ;
begin
    toolbar := Ttoolbar.Create(Form1) ;
    toolbar.Parent := Form1.Panel1 ;
    toolbar.showcaptions := true;
    toolbar.Autosize := True ;
    bn_caps := ['AAA','BBB','CCC','DDDDDDDDDD'] ;
    For i := Length(bn_caps) - 1 DownTo 0 DO
    Begin
        with ttoolbutton.create(Form1) do
        begin
            parent   := toolbar;
            Autosize := True ;
            //width    := 100 ;   // ?
            caption  := bn_caps[i] ;
        end;
    End;
end.

Go to forum: Script

138 Reply by vovka3003

(4 replies, posted in Russian)

Vickus wrote:

..если не сложно прикрепите тестовый проектик для наглядности.

и ключ от квартиры, где девки лежат готовые к употреблению...

Go to forum: Russian

139 Reply by vovka3003

(3 replies, posted in Russian)

k245 wrote:

Охотник куда-то потерялся....

Походу из нашего региона. Забыл, что охота временно запрещена)

Go to forum: Russian

140 Reply by vovka3003

(5 replies, posted in General)

Забей на HEX, сохраняй и восстанавливай десятичное (оно же и есть TColor)

Form1.Edit1.Text := IntToStr(cDialog.Color);
Form1.Edit1.Color := StrToInt(Form1.Edit1.Text);

111

Go to forum: General

141 Reply by vovka3003

(2 replies, posted in Script)

Можно ещё подергать опции:

WinHttpReq.Option(4,13056);
WinHttpReq.Option(6,1);
WinHttpReq.Option(12,1);

Go to forum: Script

142 Reply by vovka3003

(12 replies, posted in Script)

И тут наблюдается XYZ-problem...
Какая глобальная задача вообще..?

Go to forum: Script

143 Reply by vovka3003

(12 replies, posted in Script)

prahousefamily wrote:

Thank You vovka3003 For Code Example Use 'javascrip' Method

But not

.....

i will input integer [0]  result  String  ✔️"app_name" Not  ❌ "Test"
i will input integer [1]  result  String  ✔️"app_date"   Not  ❌ "2022-01-01"
i will input integer [2]  result  String  ✔️"app_date"   Not  ❌ "12:30:40t"

OR 

i will input string  ['app_name']  result  Integer  ✔️ 0 
i will input string  ['app_date']    result  Integer  ✔️1 
i will input string  ['app_time']    result  Integer  ✔️2

How To use Class Or Method result ???

Ничего не понял, но очень интересно...

Go to forum: Script

144 Reply by vovka3003

(14 replies, posted in Russian)

https://i.imgur.com/OPtsyQY.png

Go to forum: Russian

145 Reply by vovka3003

(12 replies, posted in Script)

const raw_json =
 '{ ' +
  '    "result": { ' +
  '        "app_name": "Test", ' +
  '        "app_date": "2022-01-01", ' +
  '        "app_time": "12:30:40" ' +
  '    } ' +
  '} ';

procedure Form1_Button1_OnClick (Sender: TObject; var Cancel: boolean);
var sc,j : variant;
begin
 sc:=CreateOleObject('ScriptControl');
 sc.Language := 'JavaScript';
 j := sc.Eval('('+raw_json+')');
 
 ShowMessage(j.result.app_name);
 ShowMessage(j.result.app_date);
 ShowMessage(j.result.app_time);
 
 sc := 0;
end;

Go to forum: Script

146 Reply by vovka3003

(9 replies, posted in Russian)

Можно попробовать обратиться в "битву экстрасенсов". Они [экстрасенсы] могут увидеть скрытый код, и если у них есть навыки программирования - дать четкий ответ или даже астральным способом ["по удаленке"] подправить там что-нибудь...

P.S. Когда уже люди научатся правильные вопросы задавать..?

Go to forum: Russian

147 Reply by vovka3003

(22 replies, posted in Russian)

DriveSoft wrote:

But perhaps I gonna make a web version, but at this stage is just an idea.

Было б зашибись.

Go to forum: Russian

148 Reply by vovka3003

(22 replies, posted in Russian)

pha1984 wrote:

..У кого можно купить лицензию..

Можете сказать как хакнуть?

Так вы купить лицензию хотите или хакнуть..? hmm

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

Go to forum: Russian

149 Reply by vovka3003

(89 replies, posted in Russian)

k245 wrote:

vovka3003, вот можешь ты интригу создать )))

Я просто увидел "проблему XY" в вопросе, посему уточняю...

Go to forum: Russian

150 Reply by vovka3003

(22 replies, posted in Russian)

Судя по всему, кроме самого автора лицензии никто не продает..). Я только хаковый способ "продления" знаю, сам лицензию не приобретал.

Go to forum: Russian