Kontsa

public text v1 · immutable

#39940

·published 2006-02-04 12:22 UTC

procedure TForm1.NMHTTP1AboutToSend(Sender: TObject);
begin
NMHTTP1.SendHeader.Values['If-Modified-Since'] := 'Fri, 03 Feb 2006 13:40:13 GMT';
end;

procedure TForm1.NMHTTP1Success(Cmd: CmdType);

begin
if Cmd = CmdGET then
begin
memo1.Clear;
memo1.Lines.Add(NMHTTP1.Header)

end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
NMHTTP1.InputFileMode := TRUE;
  NMHTTP1.Get(Edit1.Text);
end;