Entwickler-Ecke :: Thema anzeigen - TcpServer/TcpClient und das unbeantwortete GET

Sentinel85 - Do 27.03.08 02:16
Titel: TcpServer/TcpClient und das unbeantwortete GET

Hallo zusammen,
also ich habe mich mal etwas mit der Kommunikation zwischen Browser und Server beschäftigen wollen.
Ich habe also die TcpClient und TcpServer Komponente von Delphi genommen und wollte eine GET Anfragen machen (wie sie bei jedem Seitenaufruf der Browser macht). Leider bekomme ich keine Antwort vom Server...

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

//------------------------------------------------------------------------------------------ 
TcpServer.RemotePort := '80'; 
TcpServer.Active := true; 
TcpClient.RemoteHost := 'de.wikipedia.org'; 
document := '/wiki/Walhall'; 
TcpClient.RemotePort := '80'; 
try 
if TcpClient.connect then 
TcpClient.sendln('GET' + ' ' + document + ' ' + 'HTTP/1.0' + #13#10#13#10); 
finally 
TcpClient.disconnect; 
//------------------------------------------------------------------------------------------ 
.TcpServerAccept 
s := ClientSocket.receiveln; 
while s <> '' do 
begin 
memo.Lines.add(s); 
s := ClientSocket.receiveln; 
end; 
//------------------------------------------------------------------------------------------

Hoffe mal das da wer weiter helfen kann - danke!
Gruß Sentinel

Moderiert von Narses: Delphi-Tags hinzugefügt

Sentinel85 - Do 27.03.08 21:39

Habe mich nochmal auf die Suche gemacht, diesen Artikel von Narses gefunden
http://www.delphi-library.de/topic_TClientSocket+und+TServerSocket+fehlen+seit+D7_64438.html
und den TClientSocket reaktiviert um es mit dem nochmal zu probieren...

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:

edhost.text:de.wikipedia.org
eddoc.text:/wiki/Hauptseite

procedure .btsendClick(Sender: TObject);
begin
  ClientSocket.Port := 80;
  ClientSocket.Host := edhost.text;
  ClientSocket.Open;
end;

procedure .ClientSocketConnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  //ClientSocket.Socket.SendText('GET' + ' ' + eddoc.text + ' ' + 'HTTP/1.0'); //keine Antwort
  //ClientSocket.Socket.SendText('GET' + ' ' + eddoc.text + ' ' + 'HTTP/1.0' + #13#10#13#10); //Antwort siehe unten
  //ClientSocket.Socket.SendText('GET' + ' ' + eddoc.text + ' ' + 'HTTP/1.1'); //keine Antwort
  //ClientSocket.Socket.SendText('GET' + ' ' + eddoc.text + ' ' + 'HTTP/1.1' + #13#10#13#10); //Antwort siehe unten
  //ClientSocket.Socket.SendText('POST' + ' ' + eddoc.text + ' ' + 'HTTP/1.0'); //keine Antwort
  //ClientSocket.Socket.SendText('POST' + ' ' + eddoc.text + ' ' + 'HTTP/1.0' + #13#10#13#10); //Antwort siehe unten
  //ClientSocket.Socket.SendText('POST' + ' ' + eddoc.text + ' ' + 'HTTP/1.1'); //keine Antwort
  //ClientSocket.Socket.SendText('POST' + ' ' + eddoc.text + ' ' + 'HTTP/1.1' + #13#10#13#10); //Antwort siehe unten
end;

procedure .ClientSocketRead(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  mequellcode.Lines.Add(ClientSocket.Socket.ReceiveText);
end;

Antwort ist:
HTTP/1.0 400 Bad Request
Server: squid/2.6.STABLE18
Date: Thu, 27 Mar 2008 19:30:09 GMT
Content-Type: text/html
Content-Length: 50107
Expires: Thu, 27 Mar 2008 19:30:09 GMT
X-Squid-Error: ERR_INVALID_REQ 0
X-Cache: MISS from knsq2.knams.wikimedia.org
X-Cache-Lookup: NONE from knsq2.knams.wikimedia.org:80
Via: 1.0 knsq2.knams.wikimedia.org:80 (squid/2.6.STABLE18)
Proxy-Connection: close

und eine Multilingual_error_messages
http://meta.wikimedia.org/wiki/Multilingual_error_messages

Aber warum?

Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!