Форум: "Сети";
Текущий архив: 2002.11.11;
Скачать: [xml.tar.bz2];
ВнизTWebBrowser - Source Найти похожие ветки
← →
demisen (2002-09-13 17:42) [0]В TWebBrowser загружена страничка. Как получить HTML ?
← →
Ш-К (2002-09-13 18:06) [1]
uses ..., ActiveX;
function SaveDocToStrings(Doc: IDispatch; var AStrings: TStrings): HResult;
var
IpStream: IPersistStreamInit;
AStream: TMemoryStream;
begin
AStream := TMemoryStream.Create;
try
IpStream := doc as IPersistStreamInit;
if not Assigned(IpStream) then Result := S_FALSE else
if Succeeded(IpStream.save(TStreamadapter.Create(AStream), TRUE))
then begin
AStream.Seek(0, 0);
AStrings.LoadFromStream(AStream);
Result := S_OK;
end else Result := S_FALSE;
except
Result := S_FALSE;
end;
AStream.Free;
end;
procedure TForm1.Button5Click(Sender: TObject);
var Strings: TStrings;
begin
Strings:= Memo1.Lines;
SaveDocToStrings(WebBrowser1.Document, Strings);
end;
Заимствовано из TEmbeddedWB;
Страницы: 1 вся ветка
Форум: "Сети";
Текущий архив: 2002.11.11;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.009 c