Gethtml in einem Delphi Thread?

[Luckie]

Delphi-Quellcode:

procedure TMyThread.Execute; 
begin 
  inherited; 
  SendMessage(FMemoHandle, WM_SETTEXT, 0, Integer(@GetHTML(FUrl)[1])); 
end;

Warum so umständlich? Warum übergibst du nicht eine Variable vom Typ TStrings, dann kannst du es in ein TMemo, ein TRichEdit oder in eine TStringListe laden, je nach belieben wie du willst.

Desweiteren greifst du auf ein VCL Kontroll außerhalb einer Synchronize Methode zu, was potentiel gefährlich ist. Nicht umsonst schreibt der Assistent in jede neue TThread Unit:

Delphi-Quellcode:

{ Important: Methods and properties of objects in VCL or CLX can only be used
  in a method called using Synchronize, for example,

      Synchronize(UpdateCaption);

  and UpdateCaption could look like,

    procedure TTest.UpdateCaption;
    begin
      Form1.Caption := 'Updated in a thread';
    end; }