WebBrowserdaki Bilgiyi XML olarak Kaydetmek

[F.Atagun]

S.A.
Forumda neredeyse tüm Xml makalelerini okudum ama bir türlü bulamadım.
WebBrowserda görülen XML veriyi, XML olarak nasıl kaydedebilirim.

@mussimsek hocam HTML olarak aktarmış ama XMLParse ederken sorun çıkıyor


Teşekkürler

[F.Atagun]

ClientDataSet1.SaveToFile('c:\deneme.xml);

Şeklinde attı ama

<?xml version="1.0" standalone="yes"?> <DATAPACKET Version="2.0">
yerine
<?xml version="1.0" encoding="iso-8859-9"?>

Yazmam gerekecek. Datasete nasıl müdahale edebilirim de bunu değiştirebilirim ?

[F.Atagun]

Biraz Uzun bir yol oldu ama aşağıdaki şekilde sorunumu çözdüm.
Webpagedeki HTML kodunu @mussimsek hocamın kodu ile memoya aktardım, sonrada memodaki bilgiyi xml olarak kaydettim.

Kod: Tümünü seç

function WB_HTML_Kod_Al(WebBrowser: TWebBrowser; ACode: TStrings): Boolean;  // Uses -->  AktifX eklenecek     
    var      // @Mussimsek Hocaya 11.11.2003 de göndermiş olduğu kod için teşekkür ederim
    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;

Kod: Tümünü seç

procedure TForm113.Button9Click(Sender: TObject);
begin
    WB_HTML_Kod_Al(Webbrowser1, Memo1.Lines);     
    Memo1.Lines.SaveToFile('c:\deneme.xml');    
end;

[F.Atagun]

Ayrıca güzel bir kaynak

http://www.example-code.com/delphi/htmlToXml_simple.asp