ORTOL

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

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

В 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;

Ваша зарплата зависит от того как больше на вас зарабатывает компания.
А то как вы больше даёте заработать компании зависит от того как больше вы знаете,
умеете, на сколько ценны ... Короче - работайте над собой.

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

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

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

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

Ну если на пальцах, посмотри фильмы как там работают.
Социальная сеть
Джобс: Империя соблазна

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

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

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

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

delphi idtcpclient idtcpserver example

Если нету информации на Русском поищи на Английском, если не знаешь Английский воспользуйся переводчиком ...

Здравствуйте.
Во первых всё можно сделать на много проще и без 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.

Функция ... (для типа данной строки ...)

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;

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

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

И что вообще загоняет в тоску то это то что вы перешагнув этот барьер занимаетесь программированием.

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

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

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

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

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

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

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

Здравствуйте.

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

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

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

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

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

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;

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

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 ...

А как добиться этого результат в редакторе то боюсь этот вопрос к разработчика ...

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

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