Отправа idhttp get без формы

[igrok111]

Можно ли? вот если в окне winapi создать компонент idhttp например, можно так? вот окно создаю на вин-апи:

program Project1; 

uses 
 Windows, 
 Messages; 

{$APPTYPE GUI} 

var hWindow : HWND; 
 WndClass : TWndClass; 
 msgMessage : TMSG; 
const 
 sClassName = 'HelloWorld'; 

procedure ShowMessage(Str : PCHAR); 
begin 
 MessageBox(0,Str,'Message',MB_OK); 
end; 

function HelloWordWndProc(Window: HWnd; AMessage, WParam, 
 LParam: Longint): Longint; stdcall; export; 
var 
 AMsg : TMessage; 
 hdcHDC : HDC; 
 PaintStruct : TPaintStruct; 
 Rect : TRect; 
begin 
 AMsg.Msg := AMessage; 
 AMsg.WParam := WParam; 
 AMsg.LParam := LParam; 
 AMsg.Result := 0; 
 case AMessage of 
 WM_PAINT : begin 
 hdcHDC := BeginPaint(Window,PaintStruct); 
 GetClientRect(Window,Rect); 
 DrawText(hdcHDC,'Hello World!', -1,Rect, 
 DT_SINGLELINE or DT_CENTER or DT_VCENTER); 
 EndPaint(Window,PaintStruct); 
 end; 
 WM_DESTROY : PostQuitMessage(0); 
 else 
 HelloWordWndProc := DefWindowProc(Window, AMessage, WParam, LParam); 
 Exit; 
 end; 
 Result := AMsg.Result 
end; 

begin 
WndClass.style := CS_HREDRAW or CS_VREDRAW; 
WndClass.lpfnWndProc := @HelloWordWndProc; 
WndClass.cbClsExtra := 0; 
WndClass.cbWndExtra := 0; 
WndClass.hInstance := hInstance; 
WndClass.hIcon := LoadIcon(0,{IDI_APPLICATION}IDI_INFORMATION); 
WndClass.hCursor := LoadCursor(0,IDC_ARROW); 
WndClass.hbrBackground := HBRUSH(GetStockObject(WHITE_BRUSH)); 
//WndClass.hbrBackground := HBRUSH(WHITE_BRUSH); 
WndClass.lpszMenuName := nil; 
WndClass.lpszClassName := sClassName; 

if RegisterClass(WndClass) <> 0 then 
 begin 
 hWindow := CreateWindow(sClassName, 'Program N 1', 
 WS_OVERLAPPEDWINDOW, 
 CW_USEDEFAULT,CW_USEDEFAULT, 
 CW_USEDEFAULT,CW_USEDEFAULT, 
 0,0, 
 hInstance,nil); 
 if hWindow <> 0 then 
 begin 
 ShowWindow(hWindow, CmdShow); 
 UpdateWindow(hWindow); 
 while GetMessage(msgMessage,0,0,0) do 
 begin 
 TranslateMessage(msgMessage); 
 DispatchMessage(msgMessage); 
 end; 
 Halt(msgMessage.wParam); 
 end 
 else 
 MessageBox(0,'Cannot create window','Error',MB_OK); 
 end 
 else 
 MessageBox(0,'Cannot register class','Error',MB_OK); 
end.

Так как отправить idhttp запрос без Forms в uses?

[Alex2009]

в uses idHTTP а дальше думаю разберешься.

[igrok111]

Сообщение от Alex2009

в uses idHTTP а дальше думаю разберешься.

не разберусь, уже пробывал. удалял формс, добавлял айди-хттп. Сначало ошибку выдает: Undeclared identifier: 'TForm'. Потом я удалил строчку:TForm1 = class(TForm). Ошибка теперь: Declaration of tform1 missing or incorrect class Просто компонент idhttp надо на форму кидать, я только так пока умею. Как без этого обойтись?
вот дальше что писать?

program Project2;

uses
  IdHTTP;

{$R *.res}

begin

end.

[igrok111]

короче понял, но теперь ошибка:

program Project2;
uses
  IdHTTP;
var
    idhttp1:  TIdHTTP;
{$R *.res}
begin
idhttp1.Create(nil);
idhttp1.HandleRedirects:=True;
idhttp1.Get('http://google.ru');
idhttp1.Free;
end.

вылетает с:

[Человек_Борща]

ууу, вам не кодить надо, а книги читать.

idHTTP1:=TidHTTP.Create(nil);
так правильно надо создавать этот класс

[igrok111]

Сообщение от Человек_Борща

ууу, вам не кодить надо, а книги читать.

idHTTP1:=TidHTTP.Create(nil);
так правильно надо создавать этот класс

еще вопрос. после выполнения кода программа сразу же закрываеться(из процесов исчезает). Как сделать что б не выходила?

[Пепел Феникса]

Сообщение от igrok111

еще вопрос. после выполнения кода программа сразу же закрываеться(из процесов исчезает). Как сделать что б не выходила?

прописать это в коде как не странно.

программа делает то что вы написали, а не то что хотите.

[igrok111]

Сообщение от Пепел Феникса

прописать это в коде как не странно.

программа делает то что вы написали, а не то что хотите.

что прописать-то? я только начал без формы писать, ничего не шарю)))

[evg_m]

что прописать-то?

что программе НАДО делать после того как она сделала все прописанное в ней.
begin
idhttp1:=Tidhttp.Create(nil);
idhttp1.HandleRedirects:=True;
idhttp1.Get('http://google.ru');
idhttp1.Free;
end.

Для форм это обычно показывать некую форму и ждать пока пользователь ее закроет.

 ShowWindow(hWindow, CmdShow); 
 UpdateWindow(hWindow); 
 while GetMessage(msgMessage,0,0,0) do

[Кольша]

program Project2;
uses
  IdHTTP,dialogs;
var
    idhttp1:  TIdHTTP;
{$R *.res}
begin
idhttp1:=Tidhttp.Create(nil);
idhttp1.HandleRedirects:=True;
idhttp1.Get('http://google.ru');
idhttp1.Free;
while true do
showmessage('Я не закрывающееся программа');
end.