WebBrowser, kod źródłowy strony,

0

Witam serdecznie

Mam dwa komponenty: WebBrowser (Tryb Edycji) oraz SynMemo. Kiedy chce pobrać kod źródłowy z WeBrosera do SynMemo to dostaje:
user image

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

0

PS. Chodzi o to że obcina mi spacje na początku !

1 użytkowników online, w tym zalogowanych: 0, gości: 1