как послать http-запрос?

[Johnson]

Здравствуйте, уважаемые!
Дано: есть программа без формы (код прямо в .dpr файле, .pas нету).
Подскажите, как послать http-запрос серверу (желательно методом POST, но если это "ректально", то пойдёт и простой, методом GET)?

Заранее благодарен!

[Usov]

так же как и с формой, только компоненты не кладешь на форму а создаешь динамически.
в uses объяви idHttp и вот пример:

function GetHTTP(AURL: String; AParams: TStringList, AGet: Boolean = True): String;
var
  idHTTP: TidHTTP;
begin
  idHTTP := TidHTTP.Create;
  try 
    if AGet then
       Result := idHTTP.Get(AURL)
    else
       Result := idHTTP.Post(AURL, Aparams);
  except
  end;
  idHTTP.Free;
end;

код писал без проверки в делфи.

[Johnson]

уже разобрался, как динамически создавать компоненты из прошлого вопроса) Но всеравно спасибо за старания!