Questo è stato chiesto e risposto molte volte nei forum Embarcadero, con molti esempi di codice pubblicati. Cerca negli archivi.
L'essenza di esso è che si Navigate()
per l'URL desiderato e attendere l'evento OnDocumentComplete
al fuoco, poi QueryInterface()
la proprietà Document
per l'interfaccia IPersistStreamInit
e chiamare il suo metodo save()
. Creare un'istanza dell'oggetto TStream
, ad esempio TMemoryStream
, inserirla in un oggetto TStreamAdapter
e quindi passare l'adattatore a save()
. È quindi possibile caricare TStream
nello TMemo
secondo necessità.
fonte
2012-04-10 15:40:25
funziona. Grazie mille. – Leadri
Come possiamo farlo funzionare in modo REVERSE: SetWebBrowserHTML, re-iniettando di nuovo il codice estratto in precedenza su WebBrowser (o TEmbeddedWebBrowser). Immagino la seguente situazione: un componente memo ottiene il codice sorgente HTML con GetWebBrowserHTML, quindi l'utente apporta alcune modifiche al codice sorgente, quindi il codice sorgente modificato viene reimmesso in WebBrowser. Questo renderebbe un bel editor HTML con anteprima in tempo reale nel browser! – user1580348
Migliore: 'LStream: = TStringStream.Create ('', TEncoding.UTF8);' – user1580348