1:

NMHttp1:= TNMHttp.create(owner);                    

1:
2:
3:
4:
5:
6:
7:
8:

// You need a TMemo, a TButton und a NMHTTP 
// Man braucht ein TMemo, einen TButton und eine TNMHTTP 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  NMHTTP1.Get('www.swissdelphicenter.ch'); 
  memo1.Text := NMHTTP1.Body 
end;                    

1:

NMHTTP1.Get('www.delphi-forum.de');                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, NMHttp, StdCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  NMHttp1: TNMHttp;
begin
NMHttp1 := TNMHttp.Create(nil);
NMHTTP1.Get('www.e-bay.de');
memo1.Text:=NMHttp1.Body;
end;

end.                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

procedure TForm1.Button1Click(Sender: TObject); 
var 

 NMHttp1: TNMHttp; 

begin 

 NMHttp1 := TNMHttp.Create(self);  {dadurch wird es (glaub ich) zum bestandteil der Form (Form ist eigentümer)}
 NMHTTP1.Get('www.e-bay.de');  
 memo1.Text:=NMHttp1.Body; 
 nmhttp1.free;

end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:

function GetHTTPString(const Url: string): string;
var
  NetHandle: HINTERNET;
  UrlHandle: HINTERNET;
  Buffer: array[0..1024] of Char;
  BytesRead: dWord;
begin
  Result := '';
  NetHandle := InternetOpen(INETNAME, INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);

  if Assigned(NetHandle) then 
  begin
    UrlHandle := InternetOpenUrl(NetHandle, PChar(Url), nil, 0, INTERNET_FLAG_RELOAD, 0);

    if Assigned(UrlHandle) then
      { UrlHandle valid? Proceed with download }
    begin
      FillChar(Buffer, SizeOf(Buffer), 0);
      repeat
        Result := Result + Buffer;
        FillChar(Buffer, SizeOf(Buffer), 0);
        InternetReadFile(UrlHandle, @Buffer, SizeOf(Buffer), BytesRead);
      until BytesRead = 0;
      InternetCloseHandle(UrlHandle);
    end
    else
      { UrlHandle is not valid. Raise an exception. }
    InternetCloseHandle(NetHandle);
  end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:

function DownloadFile(const Url: string;Target:String; sd:string): bool;
var
  NetHandle: HINTERNET;
  UrlHandle: HINTERNET;
  Buffer: array[0..1024] of Char;
  BytesRead: dWord;
  TargetFile:File;
  dwBufLen, dwIndex: DWord;
  Buf: Pointer;
  fsize,GotData,Position:real;
  Temp,Code:Integer;
begin
  ProcessMessages(WINDOW);
  NetHandle := InternetOpen(INETNAME, INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
  ProcessMessages(WINDOW);
  UpdateWindow(WINDOW);
  if Assigned(NetHandle) then
  begin

    ProcessMessages(WINDOW);
    UrlHandle := InternetOpenUrl(NetHandle, PChar(Url), nil, 0, INTERNET_FLAG_RELOAD, 0);
    ProcessMessages(WINDOW);
    UpdateWindow(WINDOW);

    if Assigned(UrlHandle) then begin
      AssignFile(TargetFile, Target);
      Rewrite(TargetFile, 1);
      dwIndex  := 0;
      dwBufLen:=1024;
      GotData:=0;
      GetMem(Buf, dwBufLen);

      HttpQueryInfo(UrlHandle, HTTP_QUERY_CONTENT_LENGTH,
                              Buf, dwBufLen, dwIndex);
      val(StrPas(Buf),Temp,Code);
      fSize:=Temp;
      SendMessage(Progress, PBM_SETPOS, round(GotData), 0);


      repeat

       If EndDownload then begin
         InternetCloseHandle(UrlHandle);
         InternetCloseHandle(NetHandle);
         CloseFile(TargetFile);
         DeleteFile(PChar(Target));
         result:=false;
         Exit;
       end;

       ProcessMessages(WINDOW);
       InternetReadFile(UrlHandle, @Buffer, SizeOf(Buffer), BytesRead);
       UpdateWindow(WINDOW);
       BlockWrite(TargetFile, Buffer, BytesRead);

       GotData:=GotData+BytesRead;
       Position:=PROGRESSMAX / fsize * GotData;
       SendMessage(Progress, PBM_SETPOS, round(Position), 0);

      until BytesRead = 0;

      CloseFile(TargetFile);
      ShellExecute(hInstance, 'open', PChar(Target), PChar(sd), nil, SW_ShowNormal);

      InternetCloseHandle(UrlHandle);
      result:=true;

    end else begin
      result:=false;
      MessageBox(WINDOW,CONNECTIONERROR,ERRORCAPTION,MB_APPLMODAL OR MB_ICONERROR OR MB_OK);
    end;
      InternetCloseHandle(NetHandle);
  end
  else begin
    MessageBox(WINDOW,CONNECTIONERROR,ERRORCAPTION,MB_APPLMODAL OR MB_ICONERROR OR MB_OK);
    result:=false;
  end;
end;                    

1:

NetHandle := InternetOpen(INETNAME, INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);