Problem mit TServerSocket

**Bornemaxx**

Hallo an alle, die hier fleißig ihr Wissen teilen.
Ich hoffe, ich kann davon profitieren

Meine Suche war leider erfolglos, ich weiß aber auch nicht sor richtig, wonach ich suchen soll.
Am besten ich erkläre dazu mal mein Problem:
Ich habe ein Programm, welches Daten für einen Browser zur Verfügung stellt. Das hat bisher auch ganz gut funktioniert, leider wird der HTML-Inhalt im aktuellen Firefox oder Opera als Quelltext angezeigt. Mit dem IE oder einer älteren Firefox funktioniert es. In einem kleinen Testprogramm nutze ich dafür ein Memo-Feld, in das ich den HTML-Text schreibe. Dieser sieht momentan so aus:

markieren

Code:

			<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="de-de" lang="de-de" >

<head>

  <meta http-equiv="content-type" content="text/html; charset=utf-8" />

<title>Administration</title>

</head>

<body>

<h1>Administration</h1>

</body>

</html>

Das Senden des Textes erledige ich mittels

markieren

Delphi-Quellcode:

			  index:=Tstringlist.create;

  index.Clear;

  index.AddStrings(memo1.lines);

  Socket.SendText(index.Text);

  Socket.Close;

Der Umweg über die Stringliste ist drin, weil es im "richtigen" Programm nur diese gibt.
Der IE zeigt danach erwartungsgemäß das fett geschriebene Wort "Administration", der Firefox und Opera zeigen leider exakt den Text wie er im Memofeld steht. Mit einer älteren Version (genaue Version nicht bekannt) hat es aber funktioniert.
Das HTML-Schnipsel wird bei "http://validator.w3.org/check" als gültig erkannt.

Was kann ich noch tun ???

Vielen Dank schon mal im Voraus.

Viele Grüße Mirko

**Sir Rufo**

Wenn du schon groß verkündest, dass du charset=utf-8 hast, und dann aber einen ( Delphi-Referenz durchsuchen

TCustomWinSocket.SendText) AnsiString versendest (der je nach Delphi-Version von einem AnsiString oder UnicodeString (UTF-16) gebildet wird) dann ist das Verhalten beim IE darauf zurückzuführen, dass der dir milde lächelnd diesen Fauxpas verzeiht. Denn du verschickst definitiv nichts als UTF-8 kodiertes.

Die anderen verhalten sich streng nach den Regeln

**mjustin**

Zitat:

Was kann ich noch tun ???

Den Unterschied zwischen HTML und HTTP verstehen

Das HTML mag gültig sein, aber der Browser sendet einen HTTP GET Request und erwartet eine HTTP Response. Diese besteht nicht nur aus dem HTML als 'Fracht', sondern kann (bzw. - je nachdem muss ...) auch Header enthalten:

What HTTP response headers are required

Wenn der Server dem Browser (Client) nicht mitteilt um welchen Content-Type es sich handelt, kann der Browser ihn einfach als "application/octet-stream" darstellen. (

https://tools.ietf.org/html/rfc7231#section-3.1.1.5)

**Mavarik**

Warum nimmst Du nicht einfache eine THttpServer Komponente?

**Bornemaxx**

Vielen Dank für die schnellen Antworten.
@Sir Rufo:
Die ganzen Formatierungsgeschichten habe ich jetzt erst reingenommen, weil ich gehofft hatte, dass es damit funtkioniert.
@Mavarik:
Die THttpServer Komponente kann ich nicht finden, könnte am Delphi 5 liegen

Der Tip von mjustin passt am besten ! Man muss eben den kompletten HTTP-Verkehr nachahmen. Wobei komplett schon wieder übertrieben ist. Es reicht, wenn man die Statusmeldung "HTTP/1.1 200 OK" als ersten String schickt. Auf den Rest kann man - zumindest in meiner Testanwendung - verzichten.

Also Danke noch mal und viele Grüße

Mirko

Problem mit TServerSocket

Problem mit TServerSocket

AW: Problem mit TServerSocket

AW: Problem mit TServerSocket

AW: Problem mit TServerSocket

AW: Problem mit TServerSocket

Forumregeln

Mavarik Registriert seit: 9. Feb 2006 Ort: Stolberg (Rhld) 4.142 Beiträge Delphi 10.3 Rio	#4 AW: Problem mit TServerSocket 19. Jan 2016, 11:46 Warum nimmst Du nicht einfache eine THttpServer Komponente? Frank Lauter Embarcadero MVP •FDK das Firemonkey-Development-Kit • Mein Blog • Schulungen für FMX •Mein YouTube Channel • Wiki unserer Delphifrühstück Usergroup
	Zitat