Datei herunterladen mit ClientSocket

**Nils_13**

Hi,

ich möchte eine Datei (zum Beispiel die index.html/php) mit einem ClientSocket runterladen. Welchen Befehl muss ich dafür verwenden ?
Socket.SendText('GET ./index.html'+#13#10); Liefert mir folgendes Ergebnis:

Zitat:

14:35:48 >> Verbindung aufgebaut
14:35:48 >> <!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML 2.0//EN">
14:35:48 >> <html><head>
14:35:48 >> <title>400 Bad Request</title>
14:35:48 >> </head><body>
14:35:48 >> <h1>Bad Request</h1>
14:35:48 >>

Your browser sent a request that this server could not understand.

14:35:48 >> </p>
14:35:48 >> <hr>
14:35:48 >> <address>Apache Server at 127.0.0.1 Port 80</address>
14:35:48 >> </body></html>

**marabu**

Hi,

das muss wohl etwas anders aussehen:

markieren

Code:

GET /index.html HTTP/1.1

Es fehlen auch noch ein paar HTTP Header - vor allem "Host", wenn du keinen absoluten URI angibst. Ganz genau geregelt ist das hier:

RFC 2616 :: Request

Bei der Analyse der Kommunikation kann dir das Plugin LiveHTTPheaders für FireFox helfen.

Grüße vom marabu

**Nils_13**

Habe das gerade mal an der DP durchgespielt und laut dem Addon müsste es so gehen:
Socket.SendText('GET /index.html HTTP/1.1'+#13#10+'Host: www.delphipraxis.net'+#13#10); Es kommt allerdings keine Antwort.

**marabu**

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

zusammenfalten · markieren

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

Zitat von Nils_13:

Habe das gerade mal an der DP durchgespielt und laut dem Addon müsste es so gehen:
Socket.SendText('GET /index.html HTTP/1.1'+#13#10+'Host: www.delphipraxis.net'+#13#10); Es kommt allerdings keine Antwort.

Du solltest dich mal mit dem HTTP-Protokoll beschäftigen.

Datei herunterladen mit ClientSocket

Datei herunterladen mit ClientSocket

Re: Datei herunterladen mit ClientSocket

Re: Datei herunterladen mit ClientSocket

Re: Datei herunterladen mit ClientSocket

Re: Datei herunterladen mit ClientSocket

Forumregeln

Nils_13 Registriert seit: 15. Nov 2004 2.647 Beiträge	#3 Re: Datei herunterladen mit ClientSocket 17. Mai 2008, 15:58 Habe das gerade mal an der DP durchgespielt und laut dem Addon müsste es so gehen: Socket.SendText('GET /index.html HTTP/1.1'+#13#10+'Host: www.delphipraxis.net'+#13#10); Es kommt allerdings keine Antwort.
	Zitat

Nuclear-Ping (Gast) n/a Beiträge	#5 Re: Datei herunterladen mit ClientSocket 17. Mai 2008, 17:20 Zitat von Nils_13: Habe das gerade mal an der DP durchgespielt und laut dem Addon müsste es so gehen: Socket.SendText('GET /index.html HTTP/1.1'+#13#10+'Host: www.delphipraxis.net'+#13#10); Es kommt allerdings keine Antwort. Du solltest dich mal mit dem HTTP-Protokoll beschäftigen.
	Zitat