Консольное программа delphi? В программирование пока не слишком силён, обучаюсь.Пишу первую консольную программу, помогите кто чем может,каким кусочком кода или какую нибудь информацию чтобы доделать программу. Не знаю как сделать чтобы выполнилось всё по порядку,а потом вернулось к началу программы.program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils,
IdHTTP,
IdComponent,
classes;
В начало хотел вставить рандомное выпадает время в секундах отсчитывает время,
а потом как время заканчивается начинается дальше выполняться программа. Не знаю как таймер замутить в консоли
var
IdHTTP1: TIdHTTP;
s: String;
POSTData: TStringList;
begin
IdHTTP1:= TIdHTTP.Create(nil);
s:=idhttp1.Get('http://mysite/get.php?bot_id=paramet'); // беру параметр POST Данных
begin
POSTData := TStringList.Create;
IdHTTP1:= TIdHTTP.Create(nil);
idhttp1.HandleRedirects:=true;
idhttp1.Request.UserAgent:='Mozilla/123123.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.0.10) Gecko/2009042316 Firefox/3.0.10';
//IdHTTP1:= IdHTTP;
try
{$R *.res}
POSTData.add('utilizador='+'МОЙЛОГИН');
POSTData.add('password='+'ПАРОЛЬ');
POSTData.add('&loginSub='+'Вход');
IdHTTP1.Post('http://www.Браузерная игра' ,POSTData);
finally
POSTData.Free;
IdHTTP1.Free;
sleep(10000);
// после sleep нужно отправить POST данные которые полученые были в начале программы
// Пробовал сам сделать не получалось.
sleep(10000);
Выходим игры // Выход знаю как здесь
После того как вышли,чтобы программа обратно вернулась в начало программы к таймеру и начала опять отсчёт
end;
end;
end.
Консольное программа delphi? В программирование пока не слишком силён, обучаюсь.Пишу первую консольную программу, помогите кто чем может,каким кусочком кода или какую нибудь информацию чтобы доделать программу. Не знаю как сделать чтобы выполнилось всё по порядку,а потом вернулось к началу программы.program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils,
IdHTTP,
IdComponent,
classes;
В начало хотел вставить рандомное выпадает время в секундах отсчитывает время,
а потом как время заканчивается начинается дальше выполняться программа. Не знаю как таймер замутить в консоли
var
IdHTTP1: TIdHTTP;
s: String;
POSTData: TStringList;
begin
IdHTTP1:= TIdHTTP.Create(nil);
s:=idhttp1.Get('http://mysite/get.php?bot_id=paramet'); // беру параметр POST Данных
begin
POSTData := TStringList.Create;
IdHTTP1:= TIdHTTP.Create(nil);
idhttp1.HandleRedirects:=true;
idhttp1.Request.UserAgent:='Mozilla/123123.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.0.10) Gecko/2009042316 Firefox/3.0.10';
//IdHTTP1:= IdHTTP;
try
{$R *.res}
POSTData.add('utilizador='+'МОЙЛОГИН');
POSTData.add('password='+'ПАРОЛЬ');
POSTData.add('&loginSub='+'Вход');
IdHTTP1.Post('http://www.Браузерная игра' ,POSTData);
finally
POSTData.Free;
IdHTTP1.Free;
sleep(10000);
// после sleep нужно отправить POST данные которые полученые были в начале программы
// Пробовал сам сделать не получалось.
sleep(10000);
Выходим игры // Выход знаю как здесь
После того как вышли,чтобы программа обратно вернулась в начало программы к таймеру и начала опять отсчёт
end;
end;
end.
{$APPTYPE CONSOLE}
uses
SysUtils,
IdHTTP,
IdComponent,
classes;
В начало хотел вставить рандомное выпадает время в секундах отсчитывает время,
а потом как время заканчивается начинается дальше выполняться программа. Не знаю как таймер замутить в консоли
var
IdHTTP1: TIdHTTP;
s: String;
POSTData: TStringList;
begin
IdHTTP1:= TIdHTTP.Create(nil);
s:=idhttp1.Get('http://mysite/get.php?bot_id=paramet'); // беру параметр POST Данных
begin
POSTData := TStringList.Create;
IdHTTP1:= TIdHTTP.Create(nil);
idhttp1.HandleRedirects:=true;
idhttp1.Request.UserAgent:='Mozilla/123123.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.0.10) Gecko/2009042316 Firefox/3.0.10';
//IdHTTP1:= IdHTTP;
try
{$R *.res}
POSTData.add('utilizador='+'МОЙЛОГИН');
POSTData.add('password='+'ПАРОЛЬ');
POSTData.add('&loginSub='+'Вход');
IdHTTP1.Post('http://www.Браузерная игра' ,POSTData);
finally
POSTData.Free;
IdHTTP1.Free;
sleep(10000);
// после sleep нужно отправить POST данные которые полученые были в начале программы
// Пробовал сам сделать не получалось.
sleep(10000);
Выходим игры // Выход знаю как здесь
После того как вышли,чтобы программа обратно вернулась в начало программы к таймеру и начала опять отсчёт
end;
end;
end.
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Интересные статьи из справочника
Поможем написать учебную работу
Отвечай на вопросы, зарабатывай баллы и трать их на призы.
Подробнее
Подробнее
Для решения вашей задачи с таймером в консольном приложении Delphi, вам потребуется использовать библиотеку Windows API для работы с временем.
Вот пример кода, который поможет вам добавить таймер в вашу программу:
program Project2;{$APPTYPE CONSOLE}
uses
SysUtils, Windows;
var
StartTime, EndTime: TDateTime;
ElapsedTime: Cardinal;
Countdown: Integer;
begin
while True do
begin
// Генерируем случайное время для отсчета
Countdown := Random(10) + 5; // Задаем от 5 до 15 секунд
Writeln('Начало отсчета');
StartTime := Now;
repeat
EndTime := Now;
ElapsedTime := Round((EndTime - StartTime) * SecsPerDay);
Writeln('Прошло времени: ', ElapsedTime, ' секунд');
Sleep(1000); // Задержка в 1 секунду
until ElapsedTime >= Countdown;
Writeln('Отсчет завершен');
// Здесь вы можете добавить код для отправки POST запроса и выполнения других действий
// Обнуляем время
StartTime := 0;
EndTime := 0;
ElapsedTime := 0;
end;
end.
Этот код представляет собой бесконечный цикл, который генерирует случайное время для отсчета, считает прошедшее время и выполняет действия по истечении времени. После этого программа возвращается к началу цикла и начинает новый отсчет.
Надеюсь, этот код поможет вам реализовать функционал таймера в вашей консольной программе. Если у вас возникнут дополнительные вопросы или проблемы, не стесняйтесь обращаться. Удачи в изучении программирования!