Overbyte ICS wie benutzt man TSslHTTPRest für Get-Requests mit Akzenten

[DieDolly]

Ich möchte gerne vom delphieigenen http rest zu Overbyte ICS SslHTTPRest wechseln. Ich brauche das für einfache Get-Requests. Es wird was an den Server gesendet und ich bekomme eine Antwort.

Aber wie benutzt man diese Komponente? Alle SSL-DLL-Dateien liegen direkt neben der Exe-Datei. Der Text in der Textdatei auf dem Server enthält Akzente. Die kommen nicht an.

Delphi-Quellcode:

 // SslHttpRest1 liegt auf der Form

const
 Zero: byte = 0;
var
 DataStream: TMemoryStream;
begin

 DataStream := TMemoryStream.Create;

 SslHttpRest1.URL := textdatei auf dem server;
 SslHttpRest1.Accept := 'text/plain';

 DataStream.Clear;
 SslHttpRest1.RcvdStream := DataStream;
 try
  SslHttpRest1.Get;

  DataStream.Write(Zero, 1);
  Caption := string(PAnsiChar(DataStream.Memory)); // statt "é" kommt nur "Müll" an. Alle anderen Buchstaben sind korrekt.
 except
  on E: Exception do
   Caption := 'Failed. ' + E.ClassName + ': ' + E.Message;
 end;

 DataStream.Free;
end;

[himitsu]

Der "Müll" sieht nicht zufällig wie UTF-8 aus?

Nja, im HTTP-Header und im html/xml sollte ja eindeutig drin stehen, wie man die Ausgabe zu interpretieren hat.
OK, html/xml weiß ich jetzt nicht, da jemand vergessen hat zu sagen, was überhaupt für Daten (Format) empfangen werden.

TStringStream
TEncoding
oder sonstwas

[DieDolly]

Delphi ist nur ein Hobby, ich kenne mich mit sowas alles überhaupt nicht aus. Ich habe leider auch nicht verstanden, was du meinst.
Der Code oben ist direkt aus dem HTTP ICS-Beispiel.
Es werden ganz normale Textdaten empfangen. 0-9 a-zA-Z Punkte, Striche, Akzente.

Ich habe gerade einfach mal rumgetestet.
DataStream := TStringStream.Create(s, TEncoding.UTF8);
s: string ist nur ein dummy der nicht benutzt wird.

Und unten dann
Caption := DataStream.DataString;

Und DataStream.Seek(0, soBeginning); statt DataStream.Write(Zero, 1);

Das funktioniert. Aber ist das so richtig?

Meine fertige Klasse aus Verschiedenen Quellen zusammengebastelt

Delphi-Quellcode:

unit Unit2;

interface

uses System.Classes, System.SysUtils, OverbyteIcsSslHttpRest;

type
 TSSLHTTP = class(TSslHttpRest)
 private
  s: string; // dummy string for TStringStream
 public
  ResponseContent: TStringStream;
  ResponseString: string;

  procedure Get(const AURL: string);

  constructor Create;
  destructor Destroy; override;
 end;

implementation

constructor TSSLHTTP.Create;
begin
 inherited Create(nil);

 Timeout := 10; // ICS default: 30 seconds
 Accept := 'text/plain';

 ResponseContent := TStringStream.Create(s, TEncoding.UTF8);
end;

destructor TSSLHTTP.Destroy;
begin
 inherited Destroy;

 ResponseContent.Free;
end;

procedure TSSLHTTP.Get(const AURL: string);
begin
 URL := AURL;
 ResponseContent.Clear;
 RcvdStream := ResponseContent;
 try
  inherited Get;
  ResponseContent.Seek(0, soBeginning);
 except
  // on E: Exception do
  // Caption := 'Failed. ' + E.ClassName + ': ' + E.Message;
 end;
end;

end.