Google drive xml

[Altıner]

Merhabalar.

Google drive'da xml var buradan (tcmb.gov.tr/kurlar/) kur bilgisini aldığım gibi nasıl nasıl? alabilirim
Google drive'da Örnek: https://drive.google.com/file/d/kurlar.xml adında yükleme yapamadığımdan verileri çekemiyorum

Google drive'da isimlendirme bu şekilde oluyor
https://drive.google.com/file/d/****/view?usp=sharing

Örnek:

procedure TMainForm.ButtonDovizClick(Sender: TObject);
var
  XMLNode: IXMLNode;
  Dolar, Euro: Boolean;
  Buying, Selling, Currency: String;
begin
  TButton(Sender).BeginUpdate;
  XMLDocument.LoadFromFile('https://www.tcmb.gov.tr/kurlar/today.xml');
  XMLDocument.Active := True;
  XMLNode := XMLDocument.DocumentElement.ChildNodes.FindNode('Currency');
  try
    while XMLNode <> Nil do
    begin
      Euro := SameText(XMLNode.ChildNodes['CurrencyName'].Text, 'EURO');
      Dolar := SameText(XMLNode.ChildNodes['CurrencyName'].Text, 'US DOLLAR');
      if Euro then
      begin
        Currency := XMLNode.ChildNodes['Isim'].Text;
        Buying := XMLNode.ChildNodes['ForexBuying'].Text;
        Selling := XMLNode.ChildNodes['ForexSelling'].Text;
        LabelEuro.Text := Currency + ': ' + Buying + ' - ' + Selling;
      end;
      if Dolar then
      begin
        Currency := XMLNode.ChildNodes['Isim'].Text;
        Buying := XMLNode.ChildNodes['ForexBuying'].Text;
        Selling := XMLNode.ChildNodes['ForexSelling'].Text;
        LabelDolar.Text := Currency + ': ' + Buying + ' - ' + Selling;
        PanelCurrency.BringToFront;
        PanelCurrency.Visible := True;
      end;
      XMLNode := XMLNode.NextSibling;
    end;
  finally
    Active := False;
    TButton(Sender).EndUpdate;
  end;
end;

[ss1907]

(16-12-2022, Saat: 13:18)Altıner Adlı Kullanıcıdan Alıntı: Merhabalar.

Google drive'da xml var buradan (tcmb.gov.tr/kurlar/) kur bilgisini aldığım gibi nasıl nasıl alabilirim?
Google drive'da Örnek: https://drive.google.com/file/d/kurlar.xml adında yükleme yapamadığımdan verileri çekemiyorum?

Google drive'da isimlendirme bu şekilde oluyor
https://drive.google.com/file/d/****/view?usp=sharing

Örnek:

procedure TMainForm.ButtonDovizClick(Sender: TObject);
var
  XMLNode: IXMLNode;
  Dolar, Euro: Boolean;
  Buying, Selling, Currency: String;
begin
  TButton(Sender).BeginUpdate;
  XMLDocument.LoadFromFile('https://www.tcmb.gov.tr/kurlar/today.xml');
  XMLDocument.Active := True;
  XMLNode := XMLDocument.DocumentElement.ChildNodes.FindNode('Currency');
  try
    while XMLNode <> Nil do
    begin
      Euro := SameText(XMLNode.ChildNodes['CurrencyName'].Text, 'EURO');
      Dolar := SameText(XMLNode.ChildNodes['CurrencyName'].Text, 'US DOLLAR');
      if Euro then
      begin
        Currency := XMLNode.ChildNodes['Isim'].Text;
        Buying := XMLNode.ChildNodes['ForexBuying'].Text;
        Selling := XMLNode.ChildNodes['ForexSelling'].Text;
        LabelEuro.Text := Currency + ': ' + Buying + ' - ' + Selling;
      end;
      if Dolar then
      begin
        Currency := XMLNode.ChildNodes['Isim'].Text;
        Buying := XMLNode.ChildNodes['ForexBuying'].Text;
        Selling := XMLNode.ChildNodes['ForexSelling'].Text;
        LabelDolar.Text := Currency + ': ' + Buying + ' - ' + Selling;
        PanelCurrency.BringToFront;
        PanelCurrency.Visible := True;
      end;
      XMLNode := XMLNode.NextSibling;
    end;
  finally
    Active := False;
    TButton(Sender).EndUpdate;
  end;
end;

Selam, Örnek bir çalışma linki https://github.com/siroz1907/GetTcmbExchange

[Altıner]

Merhaba, @ss1907 Siz sorumu bayağı yanlış anlamışsınız.

Ben döviz bilgilerini alamıyorum diye soru sormadım soruyu Google drive'da olan xml'den verileri nasıl? alırım diye sordum.
Paylaştığım kod örnektir.

[engerex]

Eğer WebDAV kullanabilirseniz düzenleme dahi yapabilirsiniz.

[mrmarman]

Google OAuth2.0 konusunu (bir google kullanıcı hesabı giriş kabul) inceleme imkanınız/zamanınız olursa Drive API ile bunu ve daha fazlasını (düzenleme, kopya, sil, döküman pdf text dönüşüm vs. dahil) yapabilirsiniz.

Google ön başlığı olan tüm kaynaklara erişim imkanı dahi bulursunuz.

[Altıner]

@mrmarman Hocam dün saatlerce Google firebase database konusunda araştırma yaptım.

Sizin Google OAuth2.0 konusunu paylaşımlarınızıda okudum hatta denedim fakat yapamadım.
Bana şimdilik sadece Google drive'da  bulunan bir xml klasöründeki verilere ulaşmak yeterli. Delphi Community kullanıyorum siz daha iyi bilirsiniz bir çok özelliği diğer delphilere göre kısıtlı...

---

WebDAV'a @engerex baktım ama bir şey anlamadım.

[mrmarman]

Bu durumda nasıl ki bir web browser ile dosyalara erişiyorsunuz, webbrowser vb benzeri ile dom ile erişim yapmak durumundasınız.

Bir de fmx yakasındasınız ki webbrowser dom desteği burada yok, daha klasik mshtml unitinden yardımla bir çözüm arayacaksınız gibi duruyor

[ss1907]

(17-12-2022, Saat: 02:40)Altıner Adlı Kullanıcıdan Alıntı: Merhaba, @ss1907 Siz sorumu bayağı yanlış anlamışsınız.

Ben döviz bilgilerini alamıyorum diye soru sormadım soruyu Google drive'da olan xml'den verileri nasıl? alırım diye sordum.
Paylaştığım kod örnektir.

Merhaba, ben paylaşımınızdan dirve içindeki XML dosyasına eriştiğinizi fakat XML' i nasıl pars edip okuyabileceği soruyorsunuz diye anladım. Yanlış anlamışım.

Delphi örnek uygulamaları klasörü içinde twitter, dropbox gibi ortamların apilerini kullanarak verilmiş örnekler var. Bunları inceleyebilirsiniz.