xml deveri okuma veritanına yazma

[selman]

selamun aleykum
Arkadaşar herkese iyi çalışmalar
Benim yapmak istediğim şey
http://www.goldpara.com/anasayfa_fiyatlar_ust.asp
buradan döviz kurlarını çekip mysql veritabanında oluşturdğum tabloya aktarmak istiyorum. nasıl yapabilirim
yardımcı olursanız sevinirim
iyi çalışmalar

[SimaWB]

Forumda HTML Parse şeklinde aratırsanız bu konuda birçok örnek/tavsiye bulabilirsiniz.
Benim ilk aklıma gelen TWebBrowser kullanmak oldu. OnDocumentComplete olayında aşağıdaki örnekle Alış/Satış değerlerine ulaşabilirsin:

Kod: Tümünü seç

var
  I: Integer;
  aTable, DIVs: OleVariant;
  Ad, Alis, Satis: string;
begin
  aTable := WebBrowser1.OleObject.Document.all.tags('TABLE').item(0);
  for i := 1 to (aTable.Rows.Length - 1) do
  begin
    DIVs := aTable.Rows.Item(i).Cells.Item(0).all.tags('DIV');
    if DIVs.Length > 0 then
      Ad := DIVs.Item(0).innerHTML
    else
      Ad := aTable.Rows.Item(i).Cells.Item(0).innerHTML;

    DIVs := aTable.Rows.Item(i).Cells.Item(1).all.tags('DIV');
    if DIVs.Length > 0 then
      Alis := DIVs.Item(0).innerHTML
    else
      Alis := aTable.Rows.Item(i).Cells.Item(1).innerHTML;

    DIVs := aTable.Rows.Item(i).Cells.Item(2).all.tags('DIV');
    if DIVs.Length > 0 then
      Satis := DIVs.Item(0).innerHTML
    else
      Satis := aTable.Rows.Item(i).Cells.Item(2).innerHTML;
  end;

Bence çok daha kullanışlı yolları vardır ama dediğim gibi benim ilk aklıma gelen bu oldu.