Текущий архив: 2003.01.30;
Скачать: CL | DM;

Вниз

Текст из WebBrowser в Memo   Найти похожие ветки 

← →
Info   (2003-01-21 00:51) [0]

Вопрос в сабже. Помогите, плиз!

---

← →
int64 ©   (2003-01-21 01:03) [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.Button1Click(Sender: TObject);
var Strings: TStrings;
begin
Strings:=Memo1.Lines;
SaveDocToStrings(WebBrowser1.Document, Strings);
end;

---

Страницы: 1 вся ветка

Текущий архив: 2003.01.30;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.013 c