Hi,
ich wollte rein interessehalber einfach mal gucken was passiert wenn ich eine
TCP-Verbindung zu einem Webserver aufbaue und ihm ein http-Request schicke (um etwas darüber zu lernen). Also einfach mal losgelegt (in meinem Fall Google misbraucht):
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
if client.Connect then
begin
//etwas nutzlos
if client.Connected then
Memo1.Lines.Add('Connected')
else
Memo1.Lines.Add('Disconnected.');
Client.Sendln('HEAD /index.html HTTP/1.1');
Client.Sendln('Host: www.google.de');
Client.Sendln('');
//einfach dreimal lesen
Client.Receiveln;
Client.Receiveln;
Client.Receiveln;
end;
end;
procedure TForm1.clientReceive(Sender: TObject; Buf: PAnsiChar;
var DataLen: Integer);
begin
//leerzeile
Memo1.Lines.Add('');
//Und schreiben was in Buf steht
Memo1.Lines.Add(String(Buf));
end;
Und (
oh Wunder
) Google antwortet.
Nur leider irgentwie komisch, ss sieht schon aus wie ein http-header, aber kommt mehrfach an.
Hier ein Screenshot der Ausgabe.
Ich nehme mal an, dass meine Verwendung von receiveln nicht artgerecht ist. Falls nichts mehr vom Server gesendet wird lockt es auch das ganze Programm, was sehr unschön ist. Kann mich jemand aufklären, was ich falsch mache (ich gehe mal davon aus, dass Google keinen Müll sendet
)?
Danke schonmal,
Roman