Datei herunterladen mit ClientSocket

[marabu]

Warum auch - du hast ja dem Server auch nicht gemeldet, dass deine Anfrage vollständig übermittelt wurde.

Delphi-Quellcode:

const
  HOST_NAME = 'www.delphipraxis.net';

procedure TDemoForm.Button1Click(Sender: TObject);
begin
  Memo.Clear;
  with ClientSocket do
  begin
    //ClientType := ctNonBlocking;
    Host := HOST_NAME;
    Service := 'http';
    Open;
    Write;
  end;
end;

procedure TDemoForm.ClientSocketWrite(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  Socket.SendText('GET / HTTP/1.1' + sLineBreak);
  Socket.SendText('Host: ' + HOST_NAME + sLineBreak);
  Socket.SendText(sLineBreak);
end;

procedure TDemoForm.ClientSocketRead(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  Memo.Lines.Text := Memo.Text + Socket.ReceiveText;
end;

Freundliche Grüße