ELDOS HTTPSCLIENT mit UTF8

[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...

Delphi-Quellcode:

Application.ProcessMessages;

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

[wschrabi]

Herlichen DANK: