• Что нужно ввести в mode=login?

    ORTOL
    @ORTOL
    Delphi
    По сути нечего. так и остаётся Data.Add('mode=login'); (Режим логина).

    Как пользоваться HTTP Analyzer ом ? Запускаете его, там на верху в левой стороне должен быть Start
    нажимаете на него и отправляете свой запрос с браузера на сайт ... Вашу отправку должна перехватить
    эта программа HTTP Analyzer ... И далее внизу во вкладке Response Content смотрите что отправляется на сайт ... (У меня 7 версия этой программы) ...
    Ответ написан
    Комментировать
  • Как программно узнать длину видео в сек?

    ORTOL
    @ORTOL
    Delphi
    В Delphi есть компонент MediaPlayer из вкладки System ...
    Загрузите в него Видео/Аудио и смотрите на его длину в MediaPlayer1.Length ...

    Это самый простой способ ...

    function SecInTime(Sec:Integer):String;
    var
     H, M, S: Integer;
     Hs, Ms, Ss: String;
    begin
     H := sec div 3600;
     M := (sec - H * 3600) div 60;
     S := sec - H * 3600 - M * 60;
    
     Hs:=IntToStr(H);
     Ms:=IntToStr(M);
     Ss:=IntToStr(S);
    
     If (Length(IntToStr(H))=1) Then Hs:='0'+IntToStr(H);
     If (Length(IntToStr(M))=1) Then Ms:='0'+IntToStr(M);
     If (Length(IntToStr(S))=1) Then Ss:='0'+IntToStr(S);
    
     Result := Hs+':'+Ms+':'+Ss;
    end;


    procedure TForm1.Button1Click(Sender: TObject);
    var str: string;
    begin
     MediaPlayer1.FileName := 'C:\Todd Rundgren - Can We Still Be Friends (1978).mp4'; // Присваиваем имя файла ...
     MediaPlayer1.Open; // Открываем плеер ...
     str := IntToStr(MediaPlayer1.Length); // Присваиваем миле секунды в переменную str
     ShowMessage('Sec: '+(str)); // Показываем миле секунды ...
     str:=Copy(str,0,(Length(str)-3)); // Удаляем последние 3 символа из строки (это миле секунды) ...
     ShowMessage('Min: '+SecInTime(StrToInt(str))); // Нормальный показ времени ...
    end;
    Ответ написан
  • Как поднять себе зарплату?

    ORTOL
    @ORTOL
    Delphi
    Ваша зарплата зависит от того как больше на вас зарабатывает компания.
    А то как вы больше даёте заработать компании зависит от того как больше вы знаете,
    умеете, на сколько ценны ... Короче - работайте над собой.
    Ответ написан
  • Стоит ли заниматься поддержкой проектов на Delphi? Не тупиковый ли это вариант развития?

    ORTOL
    @ORTOL
    Delphi
    "Нет плохого языка программирования есть плохой программист"

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

    Что на счёт Delphi на нём можно написать всё что душе угодно ....
    Начиная от простых задач заканчивая сложными задачами.
    Для какого дела какой язык ЛУЧШЕ подходит ? Вопрос другой.

    И в завершение скажу ... Опять же, не важен ЯЗЫК программирования важен ОПЫТ программирования, ведь зная 1 язык хорошо (пусть будет Delphi) ты легко сможешь перейти и на другие языки, ведь по сути все они одинаковы ...
    Ответ написан
    5 комментариев
  • Как узнать номер телефона на андроид FMX Delphi?

    ORTOL
    @ORTOL
    Delphi
    Привет.
    Твой вопрос многое говорит об твоей IT квалификации. Я ещё с 8-9 того класса знаю что мобильный номер НЕ хранится в мобильном ... И не какая функция, процедура не способна её узнать ....
    Её ПРОСТО нет в телефоне ...

    Эта функция, которую ты скопировал ... Она показывает номер который был введён в настройки SIM карты или пользователем или оператором, если он не введён то разумеется функция возвращает пустой результат ...

    Ты не умеешь правильно мыслить и тем самым задавать вопросы ... (Научись сперва этому, потом переходи к программированию). Перед этим вопросом "Как узнать номер телефона на Android FMX Delphi ?" Проведи элементарный анализ, прочти про SIM карты и о том какую информацию он в себе хранит, содержит ли он мобильный номер и для какой страны .... Ты этого нечего не сделал и задаёшь тут таких вопросов на которые честно говоря и отвечать не хочется .... Пойми простую вещь ...

    Ты пытаешься написать программу, а программа работает на ОС а ОС находится на устройстве.
    Ты во первых должен знать элементарных вещей об устройстве потом об ОС и потом переходить к программированию .... А ты даже не знаешь где Моб номер хранится ....

    Вот тебе снимок экрана моего телефона ...
    2d99a0a6eb2745558ee80c24c199fc06.jpg
    Этот алгоритм у меня тоже вернул пустой результат, так как моя SIM карта тоже мой МОБ номер не содержит ... А вот IMEI код он показал, да и вообще он есть в любом телефоне почему бы и не показать ???

    Вот тебе ссылка на Японский сайт. Там показано что можно узнать по SIM карте. (Максимум).
    Delphi XE6でAndroidスマートフォンの電話番号などの端末情報を取得するには

    Если что пользуйся переводчиком ... Удачи ...
    Ответ написан
    1 комментарий
  • Как создать клиент-сервер для Андроид на Delphi xe10?

    ORTOL
    @ORTOL
    Delphi
    Привет.
    Во первых они там есть ... (ClientSocket и ServerSocket). Возможно они не установлены, в таком случае их надо установить ...

    Во вторых Перед тем как писать программы надо понимать как работает то или иное устройство. Android НЕ поддерживает этих компонентов ... В таком случае могу догадаться что там происходит у тебя на компьютере ... Ты наверняка создал НЕ Windows (VCL Forms Application) а FMX FireMonkey Application ... Вот и поэтому этих компонентов там нет ... Android их НЕ поддерживает.

    Надеюсь ты можешь отличить Компьютер от Сотового ... Эти компоненты (ClientSocket и ServerSocket)
    они для компьютеров, они работают по другим принципам ... И не как не могут работать на отличительных устройствах ... Эх, учиться и учиться тебе надо а не вопросы задавать ....

    На счёт (IdTCPClient и IdTCPServer) ... В интернете информации полно, следует УМЕТЬ пользоваться поисковиком ... А если ты думаешь что поисковик это одно поле ввода и всё, то в таком случае твой уровень знаний в компьютерах равен уровню знаний моей бабушки ... Очень похоже на это.
    Она кстати бывший программист ... (Fortran). :-)

    delphi idtcpclient idtcpserver example

    Если нету информации на Русском поищи на Английском, если не знаешь Английский воспользуйся переводчиком ...
    Ответ написан
    1 комментарий
  • Кто нибудь знает MultiResBitmap в Image Delphi?

    ORTOL
    @ORTOL
    Delphi
    Картинки меняются по следующему алгоритму ...
    procedure TForm1.Button1Click(Sender: TObject);
    begin
     Image1.Bitmap.Assign(Image1.MultiResBitmap.Items[1].Bitmap);
    end;

    Просто меняй на соответствующий индекс ... Индексы начинаются с нуля, один это следующая картинка.
    Ответ написан
    1 комментарий
  • Платит ли Яндекс или Маил.ру браузерам?

    ORTOL
    @ORTOL
    Delphi
    Да. И не только они, все ОС которые в наличие имеют те или иные браузеры при установке.
    Мобильные ОС к примеру. + ещё некоторые устройства в которых вшит браузер.
    Все они должны покупать лицензию на использование.
    на чем зарабатывают браузеры
    Ответ написан
    2 комментария
  • Как можно прочитать команду из файла txt и выполнить ее в командной строке с помощью delphi?

    ORTOL
    @ORTOL
    Delphi
    Здравствуйте.
    Во первых всё можно сделать на много проще и без Delphi, а именно с помощью BAT файла.
    Во вторых, если надо сделать именно так то вот код ...
    procedure TForm1.Button1Click(Sender: TObject);
    var txt:TStringList;
    begin
     If FileExists('command.txt') Then Begin
     txt := TStringList.Create;
     txt.LoadFromFile('command.txt');
     WinExec(PAnsiChar('cmd /c '+txt.Strings[0]), SW_HIDE);
     txt.Free;
     // txt.Strings[0] это означает что из тхт файла будет прочтена первая строка
     // если нужна вторая то 0 меняешь на 1 и так далее ...
     end else ShowMessage('Командный файл "'+'command.txt'+'" отсутствует');
    end;

    Пример содержания файла command.txt
    DEL | ERASE C:\file.txt&md c:\folder

    В данной строке заложено две команды, они разделены знаком "&".
    Первая команда это удаление файла "DEL | ERASE C:\file.txt".
    Потом идёт разделитель "&".
    Вторая команда "md c:\folder" Создать папку folder в диске C.

    Вот и всё. При запуске с диска С удаляется файл file.txt и там же создаётся папка folder.
    Ответ написан
    Комментировать
  • Запрос post, где формирует новые данные?

    ORTOL
    @ORTOL
    Delphi
    Функция ... (для типа данной строки ...)
    function GetValue(Str:string):String;
    var
     p1,p2:Integer;
    begin
     p1:=pos('value="',Str);
     p2:=pos('" name="',Str);
     Result:=Copy(Str,p1+7,(p2-p1)-7);
    end;


    Использование ...
    procedure TForm1.FormCreate(Sender: TObject);
    var
     s: String;
    begin
     s := '<input type="hidden" value="c4a1f3104786b3cb874aa622a344aa0543178e12" name="YII_CSRF_TOKEN">';
     Form1.Caption:=GetValue(s);
    end;
    Ответ написан
    Комментировать
  • Цикл выполнение memo по строкам?

    ORTOL
    @ORTOL
    Delphi
    Знаете, мне очень грустно стало ...
    Вот раньше, когда люди хотели чему то научится то они ЗАДАВАЛИ ВОПРОСЫ и получали на них
    ответы ... То есть они могли это делать (задавать вопросы) ...

    А вот сейчас я замечаю люди разучились УМЕНИЮ задавать вопросы,
    уметь выражать/донести свои мысли, так вот эта ситуация плачевная уже ...

    И что вообще загоняет в тоску то это то что вы перешагнув этот барьер занимаетесь программированием.
    Ответ написан
    2 комментария
  • Почему не загружают мою игру?

    ORTOL
    @ORTOL
    Delphi
    Значит так. Я не буду сюда писать банальную чепуху типа того что иконка паршивая
    или там у него фон розовый, я изложу свои мысли более обширно и эффективно ...

    Я так скажу ... Знаешь чему подобно твоё действие сейчас ??? Оно подобно тому что малыш с 3-его класса перепрыгнул в 10 класс ... И я объясню ... Что бы создавать игры, программы, сайты нужно быть в первую очередь ПРЕДПРИНИМАТЕЛЕМ а не программистом (как ты являешься) ...
    Нужно исключительно обладать знаниями предприимчивостью ... Если взять весь путь от создания проекта и получения денег в карман то доля работы программиста составляет 1/10 часть всего труда ...

    Объясню детально ... В идеале над проектом как минимум должны работать ...

    Программист, Дизайнер, HCI инженер, Инженер разработчик решений, Маркетолог, Психолог, и.т.д ... Перечислять можно в зависимости от проекта, игра это или программа ...

    Так вот, ну и у тебя разумеется нет финансов для организации всего этого ... Но, что тебе мешает стать каждым из них (частично) ??? Этот вопрос. Он главный и единственный.

    А чем занят ты ..... Оооооой ..... Отмучился он, написал и выложил ... Ещё и надежды у него были, наблюдать рост графика загрузок ... .... Даже и не мечтай !!! Не тот уровень компетентности у тебя ... И программирование тут совершенно не причём ... Дам совет.

    Забрось программирование на определённое время, читай ЛИТЕРАТУРУ, ФИЛОСОФИЮ ПРОГРАММИРОВАНИЯ ... Читай истории успешных проектов, через что они прошли, с какими проблемами сталкивались, (это кстати очень важно так как когда у тебя возникнут проблемы ты можешь запросто сломаться, а когда ты начитан и знаешь много чего то ты уже принимаешь проблему не как проблему а как препятствие которое нужно одолеть.) Кстати есть очень хорошая книга она правда старая и некоторые моменты не актуальны но для общей грамотности сойдёт.
    (Shareware. профессиональная разработка и продвижение программ) ссылка
    После прочтения подобных книг, все вопросы сами отпадут.
    На данном этапе ты пытаешь что то СОЗДАТЬ, но ты сначала СОЗДАЙ СЕБЯ, будь начитанным всесторонне, изучи все те сферы которые я привёл в примере выше ... Маркетинг, психология ...
    Лучше прочесть 5-10 книг чем задавать 5-10 тысяч вопросов.
    Сначала вооружись а потом действуй ...
    Ответ написан
    1 комментарий
  • Post запрос не удается?

    ORTOL
    @ORTOL
    Delphi
    Здравствуйте.

    LoginData.Add('__VIEWSTATE=/wEPDwUJLTI0MTE1Nzg3D2QWBAIBD2QWAgIHDw8WAh4HVmlzaWJsZWhkZAIDDw8WAh4EVGV4dGVkZGR2NFVBFeEeY71EBQHL03G6jJXuxQ==');
    LoginData.Add('__VIEWSTATEGENERATOR=261583EA');
    LoginData.Add('__EVENTVALIDATION=/wEWBAL/+amRAgLs0bLrBgLs0fbZDAKM54rGBnsveKYDayDMIAFMQZrF5+2kIAdA');

    Вот эти строчки мне НЕ нравятся ... Что то мне подсказывает что значения в них являются динамическими. Если вы пытаетесь зарегистрироваться только с помощью этого алгоритма то вы не правы. Обычно такие операции проводят в 2 счёта ...

    Счёт номер 1. Вы должны программно пройтись по ссылке страницы регистрации, тем самым записав в переменные динамические значения (сессии, токены, кукисы) и.т.д. короче та динамическая информация которая вам нужна для регистрации.

    Счёт номер 2. А уже потом выполнять выше стоящий код НО уже вписав туда значения переменных.
    Ответ написан
    Комментировать
  • Как переключаться между переменными в Delphi?

    ORTOL
    @ORTOL
    Delphi
    Здравствуйте.
    Так как у вас, с переменными не получится. Как сказал пользователь Владимир Мартьянов Владимир Мартьянов придётся создать массив. Вот вам пример добавления значения в цикле.

    procedure TForm1.Button1Click(Sender: TObject);
    var
     num: array  [0..100] of Integer;
     i: Integer;
    begin
     for i:=0 to 100 do num[i] := num[i] + 5;
    end;
    Ответ написан
    Комментировать
  • Delphi, возврат каретки в конце текста Memo

    ORTOL
    @ORTOL
    Delphi
    Вот написал функцию для вас ...

    function DelLastChar(s:string): string;
    begin
    delete(s, length(s), 1);
    result := s;
    end;

    Использование ...

    procedure TForm1.FormCreate(Sender: TObject);
    begin
    Memo1.Text:= DelLastChar(Memo1.Text);
    end;

    ---------------------------------------------------------------------------------
    Использовать её нужно при запуске программы ...
    Ну или после загрузки данных в Memo1 ...

    А как добиться этого результат в редакторе то боюсь этот вопрос к разработчика ...
    Ответ написан
    Комментировать
  • Delphi - Как заполнить поле ввода в WebBrowser1 из программы?

    ORTOL
    @ORTOL
    Delphi
    Если вам нужен конечный результат а не именно этот процесс выполнения то всё можно сделать
    на много проще ...

    procedure TForm1.Button1Click(Sender: TObject);
    begin
    WebBrowser1.Navigate( 'https://yandex.ru/search/?lr=10253&text='+Edit1.Text);
    end;

    b95b5fb6fe5441af979c9b8eedebce4d.jpg
    Ответ написан
    Комментировать
  • Как очистить историю у элемента webbrowser?

    ORTOL
    @ORTOL
    Delphi
    Вопрос сформулирован непонятно.

    Вы написали ... "... внутри браузера, а потом уходит." ...
    А как компьютер определяет что пользователь уходит ??? (если речь идёт о физическом уходе)
    И как он определяет нового пользователя ???

    Что бы физически не нажимать на кнопку используйте Button1.Enabled := False;

    По очистке истории в поисковике куча результатов ...
    www.cryer.co.uk/brian/delphi/twebbrowser/clear_his...
    Ответ написан