|
Kendi Sitenizde Altınkaynak Döviz Kurlarını Yayınlamak İçin:
Yeni
tasarım ve yeni sistemde XML dosyalarının konumları ve adresleri aşağıdaki gibi
olmuştur: Mevcut Parselarınızda kullandığınız XML dosyalarının adreslerini yeni
adresleri ile değiştirerek herhangi bir kesintiye uğramaksızın saniyelik verileri
alabilirsiniz.
Döviz bilgileri için
doviz.xml : http://xml.altinkaynak.com.tr/doviz.xml
doviz.xsl : http://xml.altinkaynak.com.tr/doviz.xsl
Parakende altın fiyatları için
altin.xml : http://xml.altinkaynak.com.tr/altin.xml
altin.xsl : http://xml.altinkaynak.com.tr/altin.xsl
Döviz kurları ve Toptan altın fiyatları için
altinkaynak.xml içinde bulunan toptan altın kurlarına
HH (Has Altın)
B (22 Ayar Eski Bilezik)
A (Ata Cumhuriyet)
kodlarından ulaşabilirsiniz
altinkaynak.xml : http://xml.altinkaynak.com.tr/altinkaynak.xml
altinkaynak.xsl : http://xml.altinkaynak.com.tr/altinkaynak.xsl
İlk olarak Altınkaynak web sitesinden anlık
döviz kurlarını yayınlıyacaklar için örnekler:
ASP
<%
Function getXML(sourceFile)
dim styleFile
dim source, style
styleFile = Server.MapPath("doviz.xsl")
Dim xmlhttp
Set xmlhttp = Server.CreateObject("MSXML2.ServerXMLHTTP")
xmlhttp.Open "GET", sourceFile, false
xmlhttp.Send
set source = xmlhttp.ResponseXML
If source.parseError.errorCode <> 0 Then
Response.write "Altınkaynak XML yüklenemedi! Hata: " & source.parseError.reason
Response.end
End If
set style = Server.CreateObject("MSXML2.DOMDocument")
style.async = false
style.load(styleFile)
If style.parseError.errorCode <> 0 Then
Response.write "XSL Stil dosyası yüklenemedi! Hata: " & style.parseError.reason
Response.end
End If
Response.Write source.transformNode(style)
set style = nothing
set source = nothing
set xmlhttp = nothing
End Function
%>
Bu fonksiyon XML dosyasını parse edip, XSL stilini uygular. Oluşan sonucu aşağıdaki
kod ile istediğiniz yere yerleştirin.
<%= getXML("http://xml.altinkaynak.com.tr/doviz.xml") %>
ASP.NET
Aşağıdaki kodu kullanarak altınkaynak2.aspx dosyasını bir
DATASET e doldurabilirsiniz.
try
{
DataSet ds = new
DataSet();
ds.ReadXml("http://xml.altinkaynak.com.tr/doviz.xml");
KurList.DataSource = ds.Tables[0]; // Kur List Adında bir DataList’e Doldurduk
KurList.DataBind();
ds.Dispose();
}
catch (Exception Ex)
{
Response.Write("Bir hata oluştu");
}
PHP
<?
$file = "http://xml.altinkaynak.com/doviz.xml";
function startElement($parser, $name, $attrs)
{
global $ShwText;
if($name == 'DOVIZ') $ShwText .= "<tr>";
}
function endElement($parser, $name)
{
global $ShwText;
if($name == 'DOVIZ') $ShwText .= "</tr>";
}
function characterData($parser, $data)
{
global $ShwText;
if($data != '') $ShwText .= "<td>".$data."</td>";
}
$ShwText = "<table>";
$xml_parser = xml_parser_create();
xml_parser_set_option($xml_parser, XML_OPTION_CASE_FOLDING, true);
xml_set_element_handler($xml_parser, "startElement", "endElement");
xml_set_character_data_handler($xml_parser, "characterData");
if (!($fp = fopen($file, "r")))
{
die("AltınKaynak XML yüklenemedi. ");
$ShwText = "";
}
while ($data = fread($fp, 4096)) {
if (!xml_parse($xml_parser, $data, feof($fp))) {
die(sprintf("XML Yüklenme hatası : %s at line %d",
xml_error_string(xml_get_error_code($xml_parser)),
xml_get_current_line_number($xml_parser)));
}
}
xml_parser_free($xml_parser);
if( $ShwText != '') $ShwText .= "</table>";
echo $ShwText;
?>
Altınkaynak olarak son teknolojileri
yakından takip ederek sizlere sorunsuz ve kusursuz hizmet vermeyi amaçlamaktayız.
|