Download Manager

[hboy]

verbinden geht so

Delphi-Quellcode:

procedure TForm1.downloadClick(Sender: TObject);
begin
  //memo1.Clear;
  //browse.Clear;
  cs.Service := 'http';
  cs.Host:= Edit1.Text;
  cs.Port:= 80;
  cs.ClientType := ctBlocking; //<-- ganz wichtig
  FData := '';
  //memo1.Lines.Add('Start Connection');
  cs.Active:= true;

end;