Sample Code Compiled

[djr171]

Can someone please compile the following because I have a really old version of Delphi and send it to djroast@tesco.net ...

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Psock, NMHttp, ComCtrls, ExtCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
HTTP: TNMHTTP;
Memo1: TMemo;
SB: TStatusBar;
Timer1: TTimer;
procedure Button1Click(Sender: TObject);
procedure HTTPSuccess(Cmd: CmdType);
procedure HTTPFailure(Cmd: CmdType);
procedure HTTPConnect(Sender: TObject);
procedure HTTPConnectionFailed(Sender: TObject);
procedure HTTPDisconnect(Sender: TObject);
procedure HTTPHostResolved(Sender: TComponent);
procedure HTTPPacketRecvd(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
HTTP.Get('http://satpix.nottingham.ac.uk/satpix/latest/jpg/d2.jpg');
end;

procedure TForm1.HTTPSuccess(Cmd: CmdType);
begin
Memo1.Lines.Add('File''s done');
end;

procedure TForm1.HTTPFailure(Cmd: CmdType);
begin
Memo1.Lines.Add('Failure');
end;

procedure TForm1.HTTPConnect(Sender: TObject);
begin
Memo1.Lines.Add('Connected');
end;

procedure TForm1.HTTPConnectionFailed(Sender: TObject);
begin
Memo1.Lines.Add('Connection Failed!');
end;

procedure TForm1.HTTPDisconnect(Sender: TObject);
begin
Memo1.Lines.Add('Disconnected');
end;

procedure TForm1.HTTPHostResolved(Sender: TComponent);
begin
Memo1.Lines.Add('Host Resolved');
end;

procedure TForm1.HTTPPacketRecvd(Sender: TObject);
var B : Integer;
begin
B:=HTTP.BytesRecvd;
If B <> 0 then
SB.SimpleText:='Packed received. Size: ' + IntToStr(B)+' bytes out of '+IntToStr(HTTP.BytesTotal)+' transferred';
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
HTTP.Get('http://satpix.nottingham.ac.uk/satpix/latest/jpg/d2.jpg');
end;

end.

[MrBaseball34]

If you have "really old" version of Delphi, how did you know
about the TNMHTTP component and its properties?

[djr171]

Another user of delphipages.com gave me it.