Программа без оболочки/формы/GUI

[aqwapaq]

Привет всем!
Есть код который создает форму и кнопку. В обработчике кнопки стоит процедура посылки post запроса на сервер (вид процедуры- не суть).
Что выполняется при запуске файла:
1. Создается форма (с кнопкой)
2. Ожидается нажатие на кнопке или закрытие программы

Что надо:
1. После запуска файла немедленно выполнить процедуру
2. Ожидать завершения процедуры
3. Выход

PS. программа не должна создавать форму и другие GUI элементы
(т.е взаимодействие с пользователем не нужно)

Вот код:

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdCustomTransparentProxy, IdSocks, IdHTTP, IdBaseComponent,
  IdComponent, IdTCPConnection, IdTCPClient, StdCtrls;

type
  TForm2 = class(TForm)
    Button1: TButton;
    IdHTTP1: TIdHTTP;
    procedure Button1Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;
    response :TStringList;
    POSTData: TStringList;

implementation

{$R *.dfm}
   
procedure TForm2.Button1Click(Sender: TObject);
begin
POSTData := TStringList.create;
POSTData.add('modem_log_st_poe=&hang_up_st_poe=Disconnect&message=');
IdHTTP1.Post('http://192.168.0.1/Status.htm/st_poe.cgi' ,POSTData);
end;

end.

[Aristarh Dark]

Сделай консольное приложение например.

[Stilet]

Сделай GUI но проставь не показывать главную форму в проекте.
Поиском по форуму найдеш примеры реализации отключения показа формы.

[aqwapaq]

Создал VCL. Удалил форму.
Почему не работает так составленный код?

program Phttp5435;

uses
Forms, IdHTTP,IdComponent,SysUtils, IdBaseComponent;

{$R *.res}
var
POSTData: TStringList;
begin
POSTData := TStringList.create;
POSTData.add('modem_log_st_poe=&hang_up_st_poe=Disconnect&message=');
IdHTTP1.Post('http://192.168.0.1/Status.htm/st_poe.cgi' ,POSTData);
end;
end.

2. Создал консольное приложение
Тоже не работает:

program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils, IdHTTP,IdComponent;

var
POSTData: TStringList;

begin
try
{$R *.res}

POSTData := TStringList.create;
POSTData.add('modem_log_st_poe=&hang_up_st_poe=Disconnect&message=');
IdHTTP1.Post('http://192.168.0.1/Status.htm/st_poe.cgi' ,POSTData);


except
on E:Exception do
Writeln(E.Classname, ': ', E.Message);
end;
end.

[Stilet]

Создал VCL. Удалил форму.

Зачем??? Просто скрой ее
Вот смотри:

1. Создается форма (с кнопкой)

в проекте пропиши Application.ShowMainForm:=false;

1. После запуска файла немедленно выполнить процедуру

Это в событии OnCreate (форма не покажется)

2. Ожидать завершения процедуры

Это лучше ловить событие предоставляемое Indy если таковое есть, и если ты ждеш ответа

3. Выход

Ну тут сам уж догадаешся...

И еще: Ожидать завершения процедуры - это что значит?

[aqwapaq]

Спасибо.
Попытаюсь.
Отпишусь.
=)