Witam serdecznie
Mam dwa komponenty: WebBrowser (Tryb Edycji) oraz SynMemo. Kiedy chce pobrać kod źródłowy z WeBrosera do SynMemo to dostaje:
Pobieram tak:
Memo1.Lines.text := (WebBrowser1.OleObject.Document.documentElement.innerHTML);
Co jest nie tak ??
Próbowałem już nawet takim kodem
function WB_GetHTMLCode(WebBrowser: TWebBrowser; ACode: TStrings): Boolean;
var
ps: IPersistStreamInit;
ss: TStringStream;
sa: IStream;
s: string;
begin
ps := WebBrowser.Document as IPersistStreamInit;
s := '';
ss := TStringStream.Create(s);
try
sa := TStreamAdapter.Create(ss, soReference) as IStream;
Result := Succeeded(ps.Save(sa, True));
if Result then ACode.Add(ss.Datastring);
finally
ss.Free;
end;
end;
I nadal to samo :(
Mam skompilowany programik który poprawnie wyświetla kod ale nie mam jego źródeł. Tak samo z gotowcem z serwisu -- edytor WYSING na tej kontrolce - był gdzieś na forum dzieję się to samo :(
Bardzo prosze o pomoc :)
Pozdrawiam i z góry dziękuje