1 Reply by RZ-007

(6 replies, posted in Script)

Понял... Спасибочки ребят Огромное...(а тоб я на TWebBrowse и постарел бы)...

Go to forum: Script

2 Reply by RZ-007

(6 replies, posted in Script)

Благодарю Вас k245...у меня тяжело с общением на программном языке...
стараюсь черпать инфу на форуме и просторах интернета...
Я так понимаю ни кто с этим не сталкивался.....??? а если было,каким было решение...???

Go to forum: Script

3 Reply by RZ-007

(4 replies, posted in Script)

https://wappi.pro/faq
как я понял эта услуга платная, мой мизирный проект нестоит ежемесячно 700р в месяц...
от того и есть интерес... как открыть WhatsApp в Web браузере MVD для отправки сообщения может кто достиг этого...???
С Уважениям...

Go to forum: Script

4 Reply by RZ-007

(6 replies, posted in Script)

vovka3003 wrote:

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

приветствую vovka...а в MVD это возможно, если ДА то как...???

Я так понимаю: надо при открытии окна перехватить адрес, закрыть окно, и новый полученный адрес
открыть в браузере MVD правилильно...??? и как мне такой скрипт придумать...(с чего начать...???)

Go to forum: Script

5 Reply by RZ-007

(4 replies, posted in Script)

Спасибочки pavlenko.vladimir.v   как вариант хороший...!!!
А кто нибудь пытался это сделать через TWebBrowser в MVD...???

Go to forum: Script

6 Topic by RZ-007

(6 replies, posted in Script)

использую этот код:

var
    Web: TWebBrowser;


procedure Form1_OnShow (Sender: string; Action: string);
var
    reg : TRegistry;
begin
    // https://docs.microsoft.com/en-us/previous-versions/windows/internet-explorer/ie-developer/general-info/ee330730(v=vs.85)
    reg:= TRegistry.Create;
    try
        reg.Access := KEY_ALL_ACCESS;
        reg.RootKey:= HKEY_CURRENT_USER;
        if reg.OpenKey('Software\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION', True) then
        begin
            if not reg.ValueExists(ExtractFileName(Application.ExeName)) then
                reg.WriteInteger(ExtractFileName(Application.ExeName), 11000); // 10001 - IE10,  11000 - IE11  https://docs.microsoft.com/en-us/previous-versions/windows/internet-explorer/ie-developer/general-info/ee330730(v=vs.85)
        end;
        reg.CloseKey;
    finally
        reg.Free;
    end;

    Web := TWebBrowser.Create(Form1);
    TWinControl(Web).Parent := Form1.Panel1;
    Web.Align := alClient;
    Web.Width := Form1.Width;
    Web.Height := Form1.Height-50;
    Web.Silent := 1;
end;

но бывает при клике в браузере MVD вылазит новое окно...как поправить код, чтобы окно открывалось в самом браузере MVD...???
С Большим Уважением ....

Go to forum: Script

7 Topic by RZ-007

(4 replies, posted in Script)

Доброо времени суток!!!
Парсингом получаю информацию... вставляю её в Edit1.......

Ребят может кто подскает как из Edit1 отправить текст по клику на Button1 отправить себе на ватцап...???

Go to forum: Script

8 Reply by RZ-007

(89 replies, posted in Russian)

Конкретно требуется....когда нам звонят на мобильный телефон (андроид) мы видим номер звонящего клиента
-можно в ручную записать его в карточку клиента ...самый простой вариант
-!!!- А если вариант подключив мобильник к ПК получать номер атоматически ???

Go to forum: Russian

9 Reply by RZ-007

(89 replies, posted in Russian)

Доброго времени суток!!! 
Ребята подскажите....в МВД возможно ????
- подключаем свой мобильный телефон к ПК.
-Поступает звонок на мобильный телефон и мы номер сохраняем в своей программе МВД ???

Go to forum: Russian

10 Reply by RZ-007

(89 replies, posted in Russian)

ок!!!
СПАСИБОЧКИ...!!!

Go to forum: Russian

11 Reply by RZ-007

(89 replies, posted in Russian)

Вау... вопрос 2 закрыт...СПАСИБО!!!
вопрос №1
из программы я открыл tht фаил

procedure Form1_Button2_OnClick (Sender: TObject; var Cancel: boolean);
var TFOut : TFileStream;
begin
  TFOut := TFileStream.Create('3-Black.txt', fmCreate);
  TFOut.Free;
  OpenFile('3-Black.txt');
end ;

внёс коректировку в нём...(всем привет!!!) возможно ли после его сохранения (в последствие закрытия)сделать клик по Button3 для дальнейших действий???

Go to forum: Russian

12 Reply by RZ-007

(89 replies, posted in Russian)

УРА!!! РАБОТАЕТ!!!
СПАСИБО!!!
микро вопросики???
1)из программы я открыл tht фаил

procedure Form1_Button1_OnClick (Sender: TObject; var Cancel: boolean);
var TFOut : TFileStream;
begin
  TFOut := TFileStream.Create('3-Black.txt', fmCreate);
  TFOut.Free;
  OpenFile('3-Black.txt');
end ;

.внёс коректировку в нём...возможно ли после его сохранения (в последствие закрытия)сделать клик по Button2 для дальнейших действий???
2) я уже скопировал текст... он находится в буфере обмена...
подскажите скрипт для Button1 для вставки текста из буфера обмена в memo1...???

Go to forum: Russian

13 Reply by RZ-007

(89 replies, posted in Russian)

Всем приветики!!!
Кое что получилось...
Друзья!!! Помогите в мемо перевернуть текст:
На данный момент имею в мемо1..., такие дпнные:
1 25 31 13 21
12 29 35 0
13 15 35
А мне надо так:
21 13 31 25 1
0 35 29 12
35 15 13
Это возможно...??? пост №42

Go to forum: Russian

14 Reply by RZ-007

(89 replies, posted in Russian)

Здравсствуйте Дмитрий!!!
прилагаю фаил...пост №42

Go to forum: Russian

15 Reply by RZ-007

(89 replies, posted in Russian)

Здравсствуйте Дмитрий!!!
Подскажите пожайлуста, если это возможно...
как по клику на битон имея в txt-Блкноте№1 данные перенести в txt-Блкноте№2
только нужные числа с право на лево
более точнее вопрос выложил в рисунке...

Go to forum: Russian

16 Reply by RZ-007

(16 replies, posted in Russian)

Благодарю...ЭТО РАБОТАЕТ...!!!

Go to forum: Russian

17 Reply by RZ-007

(4 replies, posted in Russian)

Спасибочки...!!!

Go to forum: Russian

18 Reply by RZ-007

(16 replies, posted in Russian)

DriveSoft wrote:

К сожалению пока не ясно, нужно более подробное описание.
Что мешает просто вводить в базу с помощью одного компонента Edit числа в базу?

Делов том, что числа всеровно надо отображать в едиты...Я думал о базе,...но пока справляюсь едитами...
ОК... и всё таки...ВОПРОС:
У меня на форме 500-едитов...заполнены целыми числами от 0 до 36...!!!
собираюсь прописать такой скрипт: 

procedure Form1_Edit1_OnChange (Sender: string);
begin
    if Form1.Edit1.Text ='0'   then Form1.Edit1.Color:= clLime;
    if Form1.Edit1.Text ='1'   then Form1.Edit1.Color:= clRed;
    if Form1.Edit1.Text ='2'   then Form1.Edit1.Color:= clBlack;
    if Form1.Edit1.Text ='3'   then Form1.Edit1.Color:= clRed;
    if Form1.Edit1.Text ='4'   then Form1.Edit1.Color:= clBlack;
    if Form1.Edit1.Text ='5'   then Form1.Edit1.Color:= clRed;
    if Form1.Edit1.Text ='6'   then Form1.Edit1.Color:= clBlack;
    if Form1.Edit1.Text ='7'   then Form1.Edit1.Color:= clRed;
    if Form1.Edit1.Text ='8'   then Form1.Edit1.Color:= clBlack;
    if Form1.Edit1.Text ='9'   then Form1.Edit1.Color:= clRed;
    if Form1.Edit1.Text ='10'   then Form1.Edit1.Color:= clBlack;
    if Form1.Edit1.Text ='11'   then Form1.Edit1.Color:= clBlack;
    if Form1.Edit1.Text ='12'   then Form1.Edit1.Color:= clRed;
    if Form1.Edit1.Text ='13'   then Form1.Edit1.Color:= clBlack;
    if Form1.Edit1.Text ='14'   then Form1.Edit1.Color:= clRed;;
    if Form1.Edit1.Text ='15'   then Form1.Edit1.Color:= clBlack;
    if Form1.Edit1.Text ='16'   then Form1.Edit1.Color:= clRed;;
    if Form1.Edit1.Text ='17'   then Form1.Edit1.Color:= clBlack;
    if Form1.Edit1.Text ='18'   then Form1.Edit1.Color:= clRed;
    if Form1.Edit1.Text ='19'   then Form1.Edit1.Color:= clRed;
    if Form1.Edit1.Text ='20'   then Form1.Edit1.Color:= clBlack;
    if Form1.Edit1.Text ='21'   then Form1.Edit1.Color:= clRed;
    if Form1.Edit1.Text ='22'   then Form1.Edit1.Color:= clBlack;
    if Form1.Edit1.Text ='23'   then Form1.Edit1.Color:= clRed;
    if Form1.Edit1.Text ='24'   then Form1.Edit1.Color:= clBlack;
    if Form1.Edit1.Text ='25'   then Form1.Edit1.Color:= clRed;
    if Form1.Edit1.Text ='26'   then Form1.Edit1.Color:= clBlack;
    if Form1.Edit1.Text ='27'   then Form1.Edit1.Color:= clRed;
    if Form1.Edit1.Text ='28'   then Form1.Edit1.Color:= clBlack;
    if Form1.Edit1.Text ='29'   then Form1.Edit1.Color:= clBlack;
    if Form1.Edit1.Text ='30'   then Form1.Edit1.Color:= clRed;
    if Form1.Edit1.Text ='31'   then Form1.Edit1.Color:= clBlack;
    if Form1.Edit1.Text ='32'   then Form1.Edit1.Color:= clRed;
    if Form1.Edit1.Text ='33'   then Form1.Edit1.Color:= clBlack;
    if Form1.Edit1.Text ='34'   then Form1.Edit1.Color:= clRed;
    if Form1.Edit1.Text ='35'   then Form1.Edit1.Color:= clBlack;
    if Form1.Edit1.Text ='36'   then Form1.Edit1.Color:= clRed;
end;

я собираюсь прописывать этот скрипт для каждого едита...,
А ИХ ВСЕГО 500 шт.....Есть способ, как то упростить скрипт...???

Go to forum: Russian

19 Reply by RZ-007

(4 replies, posted in Russian)

Вааа...РАБОТАЕТ...СПАСИБОЧКИ...!!!
Form1 ЖЕЛЕЗНО СТОИТ В ПЕРЕДИ ВСЕХ....
НЕ принципиально, но интересно...другие  Form2, Form3 при их открытии  прячатся
за Form1......это можно исправить...???

Go to forum: Russian

20 Topic by RZ-007

(4 replies, posted in Russian)

Друзья...Доброго времени суток...!!!
Подскажите как...:
открываем браузер....открываем готовый проект (MVD)...
-при клике в браузере...проект (MVD) всегда оставался на переднем плане...????

Go to forum: Russian

21 Reply by RZ-007

(16 replies, posted in Russian)

Ок...есть сайты для игры в онлайн-рулетка...
Я пишу программку по збору выпавших чисел (от 0...до 36) для дальнейшей
статистики и аналитики с этими числами...
----------------------------------------------------------------------------------------------------------------
рисунок прилагается...
----------------------------------------------------------------------------------------------------------------

Думаю тут явно какая то ошибка в принципах проектирования, лучше расскажите, какая цель всего этого? Возможно есть более правильный способ.

если я в правельном направлении, тогда вопрос:
1.) так или иначе мне надо раскрасить едиты  ПОСТ №11 вопрос2...???
2.)  ПОСТ №11 вопрос1...???

Go to forum: Russian

22 Reply by RZ-007

(16 replies, posted in Russian)

Вау...ЭТО РАБОТАЕТ...спасибки...спасибки...спасибки...!!!
1.) Дмитрий..., возможно Ваш выше стоящий скрипт усовершенствовать...

RZ-007 пишет:
Доброго времени суток!!!
У меня на форме 500-едитов...заполнены целыми числами от 1 до 50...!!!
Как по клику на битон...подсчитать сколько едитов заполненно например числом: 7 
и отобразить в лабер...???

подсчитать сколько едитов заполненно например числом: 7  и отобразить в лабер
НО ПРИ УСЛОВИИ :
Конкретно перечислить в скрипте у каких имено едитов нужно производить расчёт...
В ИДЕАЛЕ БЫЛО БЫ: я хочу добавить несколько CheckBox, которые будут на форме 1
управлять едитоми...делать определённое количество едитов видемые или невидемые,
т.е.  делать расчёт у тех едитов, которы видны на форме 1...???
2.) У меня на форме 500-едитов...заполнены целыми числами от 1 до 50...!!!
собираюсь прописать такой скрипт:

procedure Form1_Edit1_OnChange (Sender: string);
begin
    if Form1.Edit1.Text ='0'   then Form1.Edit1.Color:= clLime;
    if Form1.Edit1.Text ='1'   then Form1.Edit1.Color:= clRed;
    if Form1.Edit1.Text ='2'   then Form1.Edit1.Color:= clBlack;
    if Form1.Edit1.Text ='3'   then Form1.Edit1.Color:= clRed;
    if Form1.Edit1.Text ='4'   then Form1.Edit1.Color:= clBlack;
    if Form1.Edit1.Text ='5'   then Form1.Edit1.Color:= clRed;
    if Form1.Edit1.Text ='6'   then Form1.Edit1.Color:= clBlack;
    if Form1.Edit1.Text ='7'   then Form1.Edit1.Color:= clRed;
    if Form1.Edit1.Text ='8'   then Form1.Edit1.Color:= clBlack;
    if Form1.Edit1.Text ='9'   then Form1.Edit1.Color:= clRed;
    if Form1.Edit1.Text ='10'   then Form1.Edit1.Color:= clBlack;
    if Form1.Edit1.Text ='11'   then Form1.Edit1.Color:= clBlack;
    if Form1.Edit1.Text ='12'   then Form1.Edit1.Color:= clRed;
    if Form1.Edit1.Text ='13'   then Form1.Edit1.Color:= clBlack;
    if Form1.Edit1.Text ='14'   then Form1.Edit1.Color:= clRed;;
    if Form1.Edit1.Text ='15'   then Form1.Edit1.Color:= clBlack;
    if Form1.Edit1.Text ='16'   then Form1.Edit1.Color:= clRed;;
    if Form1.Edit1.Text ='17'   then Form1.Edit1.Color:= clBlack;
    if Form1.Edit1.Text ='18'   then Form1.Edit1.Color:= clRed;
    if Form1.Edit1.Text ='19'   then Form1.Edit1.Color:= clRed;
    if Form1.Edit1.Text ='20'   then Form1.Edit1.Color:= clBlack;
    if Form1.Edit1.Text ='21'   then Form1.Edit1.Color:= clRed;
    if Form1.Edit1.Text ='22'   then Form1.Edit1.Color:= clBlack;
    if Form1.Edit1.Text ='23'   then Form1.Edit1.Color:= clRed;
    if Form1.Edit1.Text ='24'   then Form1.Edit1.Color:= clBlack;
    if Form1.Edit1.Text ='25'   then Form1.Edit1.Color:= clRed;
    if Form1.Edit1.Text ='26'   then Form1.Edit1.Color:= clBlack;
    if Form1.Edit1.Text ='27'   then Form1.Edit1.Color:= clRed;
    if Form1.Edit1.Text ='28'   then Form1.Edit1.Color:= clBlack;
    if Form1.Edit1.Text ='29'   then Form1.Edit1.Color:= clBlack;
    if Form1.Edit1.Text ='30'   then Form1.Edit1.Color:= clRed;
    if Form1.Edit1.Text ='31'   then Form1.Edit1.Color:= clBlack;
    if Form1.Edit1.Text ='32'   then Form1.Edit1.Color:= clRed;
    if Form1.Edit1.Text ='33'   then Form1.Edit1.Color:= clBlack;
    if Form1.Edit1.Text ='34'   then Form1.Edit1.Color:= clRed;
    if Form1.Edit1.Text ='35'   then Form1.Edit1.Color:= clBlack;
    if Form1.Edit1.Text ='36'   then Form1.Edit1.Color:= clRed;
end;

Вопрос: я собираюсь прописывать этот скрипт для каждого едита...,
А ИХ ВСЕГО 500 шт.....Есть способ, как то упростить скрипт...???

Go to forum: Russian

23 Reply by RZ-007

(16 replies, posted in Russian)

Доброго времени суток!!!
У меня на форме 500-едитов...заполнены целыми числами от 1 до 50...!!!
Как по клику на битон...подсчитать сколько едитов заполненно например числом: 7 
и отобразить в лабер...???

Go to forum: Russian

24 Topic by RZ-007

(1 replies, posted in Russian)

Доброго времени суток!!!
Как спарсить сайт...мы знаем...!!!...Благодаря  TWebBrowser...!!!
Но ситуация такова:
Когда на сайте жму кнопку <<БИТОН>> запускается  Adobe Flash Player...
Так вот именно из него нужно вытощить хоть какую-то информацию...!!!!!!!!
Дмитрий это возможно...??? (Увидеть хоть какойто HTML-код)
рис. прилагается....

Go to forum: Russian

25 Reply by RZ-007

(8 replies, posted in Russian)

Дмитрий здравствуйте!!!
У Вас ещё не поивилось чуть-чуть свободного времяни???
ПОСТ № 5.

Go to forum: Russian