UrlDownloadToFile - Problem

[Chewie]

Oder du implementierst den GET-Aufruf selber mit einem normalen ClientSocket (bzw. mit der Socket-API).

[moritz]

Naja, dann werde ich es wohl mit Indy machen Außer irgendwer findet noch ein Lösung...

[Chewie]

Du suchst dir das RFC für HTTP raus, erstellst eine TCP-Verbindung zum Server und sendest zunächst die Header-Daten. Dann führst du einen GET-Befehl aus, in dem die angeforderte Seite steht, anschließend speicherst du das, was du empfängst, in einer Datei.
Ist natürlich komplizierter als eine fertige Lösung, zumal du dich zusätzlich erst noch mit dem HTTP-Protokoll vertraut machen musst (sofern du das nicht schon vorher wusstest).

[moritz]

Ok, ich hab das ganze mal versucht. Aber ich bekomme keine Antwort. Was mache ich falsch?
(Ich habe eine Variable Client vom Typ TClientSocket)

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Client:=TCLientSocket.Create(Form1);
    Client.OnConnect:=OnSocketConnect;
    Client.OnError:=OnSocketError;
    Client.OnDisconnect:=OnSocketDisconnect;
  Client.OnRead:=OnSocketRead;
  Client.Port:=80;
  Client.Host:='google.de';
  Client.Open;
end;

procedure TForm1.OnSocketConnect(Sender: TObject; Socket: TCustomWinSocket);
begin
  showmessage('Erfolgreich verbunden');
end;

procedure TForm1.OnSocketDisconnect(Sender: TObject; Socket: TCustomWinSocket);
begin
  showmessage('Verbindung wurde getrennt');
end;

procedure TForm1.OnSocketRead(Sender: TObject; Socket: TCustomWinSocket);
begin
  showmessage('Folgender Text wurde empfangen');
  showmessage(Socket.ReceiveText);
end;

procedure TForm1.Button1Click(Sender: TObject);
 begin
  showmessage('GET /index.html HTTP/1.1'+#13#10+'Host: google.de');
  Client.Socket.SendText('GET /index.html HTTP/1.1'+#13#10+'Host: google.de');
end;

procedure TForm1.OnSocketError(Sender: TObject; Socket: TCustomWinSocket; ErrorEvent: TErrorEvent; var ErrorCode: Integer);
begin
  showmessage('Ein Fehler ist aufgetreten');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  if Client.Active then showmessage('Client ist aktiv');
end;

Onz,

[Chewie]

Ich kenn mich leider nicht genug mit dem HTTP-Protokoll aus, um dir das zu sagen, abber ich kann dir folgenden Tipp geben:

Besorg dir Putty, mit dem erstellst du eine Verbindung zum Server und kannst dann mal die Befehle per Hand eingeben (und die Rückmeldungen lesen). So kriegst du raus, welche Angaben (evtl. noch den HTTP-Header) du noch mitschicken musst. Wenn du alles zusammen hast, kannst du die Befehle in dein Programm einfügen.

[moritz]

Hmm...Putty geht bei mir komsicherweise nicht. Er verbindet nicht.