you can use an instance of TWebBrowser to parse and select plugin text from html code.
see this sample
uses
MSHTML,
SHDocVw,
ActiveX;
function GetPlainText(Const Html: string): string;
var
DummyWebBrowser: TWebBrowser;
Document : IHtmlDocument2;
DummyVar : Variant;
begin
Result := '';
DummyWebBrowser := TWebBrowser.Create(nil);
try
DummyWebBrowser.Navigate('about:blank');
Document := DummyWebBrowser.Document as IHtmlDocument2;
if (Assigned(Document)) then
begin
DummyVar := VarArrayCreate([0, 0], varVariant);
DummyVar[0] := Html;
Document.Write(PSafeArray(TVarData(DummyVar).VArray));
Document.Close;
Result :=(Document.body as IHTMLBodyElement).createTextRange.text;
end;
finally
DummyWebBrowser.Free;
end;
end;
source
share