xml deveri okuma veritanına yazma

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
Kullanıcı avatarı
selman
Üye
Mesajlar: 664
Kayıt: 04 Ara 2003 12:06
Konum: İzmir

xml deveri okuma veritanına yazma

Mesaj gönderen selman » 21 May 2012 08:35

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

Kullanıcı avatarı
SimaWB
Üye
Mesajlar: 1313
Kayıt: 07 May 2009 09:42
Konum: İstanbul
İletişim:

Re: xml deveri okuma veritanına yazma

Mesaj gönderen SimaWB » 21 May 2012 04:06

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.
There's no place like 127.0.0.1

Cevapla