ELDOS HTTPSCLIENT mit UTF8

[wschrabi]

Hallo
ich nutze Eldos HTTPSClient Demo (Eldos ver 16 noch gekauft for /n Migration) und funktioniert gut. doch eine Seite hat russ. Zeichen drin. die Website ist UTF8 codiert.
zb
Изучение геометрии в 10-11 классах. Книга для учителя

doch die Datahandling in HTTPSCLIENT DEMO routine hat das hier drin:

Delphi-Quellcode:

procedure TForm1.HttpsClientData(Sender: TObject; Buffer: Pointer;
  Size: Integer);
var S : {$ifndef SB_UNICODE_VCL}string{$else}AnsiString{$endif};
begin
  SetLength(S, Size);
  Move(Buffer^, S[1], Size);
  MMLog.Text := MMLog.Text + S;
  Application.ProcessMessages;
end;

doch in mein MMLOG Memo sehe ich den russ Text als:
Изучение геометрии в 10-11 кла��ах. Книга дл� учител�

Wenn ich S als string definiere geht ganz nix mehr.
Was kann ich machen,da mit auch der russ. Text richtig im MemoLog drin ist.
DANKE

[DeddyH]

Ganz spontan würde ich es mit einem UTF8-kodierten StringStream oder direkt mit TEncoding.UTF8.GetString versuchen.

[wschrabi]

Kannst mir bitte zeigen wie das geht? Example?
DANKE

[DeddyH]

Ungetestet:

Delphi-Quellcode:

procedure TForm1.HttpsClientData(Sender: TObject; Buffer: Pointer;
  Size: Integer);
var
  Data: TBytes;
begin
  SetLength(Data, Size);
  Move(Buffer^, Data[Low(Data)], Size);
  ShowMessage(TEncoding.UTF8.GetString(Data));
end;

[wschrabi]

danke und wie kann ich es ins memo schreiben? Ich bräuchte es im mmlog.

[wschrabi]

ich hab so gemacht, DANKE HAT SUPER GEKLAPPT !

Delphi-Quellcode:

procedure TForm1.HttpsClientData(Sender: TObject; Buffer: Pointer;
  Size: Integer);
var
  Data: TBytes;
begin
  SetLength(Data, Size);
  Move(Buffer^, Data[Low(Data)], Size);
  mmlog.Text:=mmlog.Text + TEncoding.UTF8.GetString(Data);
  Application.ProcessMessages;
end;

[haentschman]

Moin...:P

Delphi-Quellcode:

Application.ProcessMessages;

...nur wenn es nicht anders geht. Ein mmlog.Refresh sollte auch reichen. :zwinker:

[wschrabi]

Herlichen DANK: :-D