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
xml deveri okuma veritanına yazma
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
Re: xml deveri okuma veritanına yazma
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:
Bence çok daha kullanışlı yolları vardır ama dediğim gibi benim ilk aklıma gelen bu oldu.
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;
There's no place like 127.0.0.1