Webden Bir Alandan Veri Çekmek

[crypto]

Selamlar,
Bu verileri api üzerinden yapsak, api de ücretiz zateni daha sağlıklı olmaz mı? Bu şekilde nasıl yaparız.

https://api.binance.com/api/v1/ticker/pr...ol=BTCUSDT

[mrmarman]

@crypto ;  daha kolayına hayır deme lüksümüz var mı ? 

* Tecrübeyle sabittir, bilgi için yazıyorum; API'ler genellikle abonelik / üyelik / erişim için auth bunun için de key oluşturma vb. altyapı ister ki bu site istisna olmuş, teşekkürler bilgi için...

* Ayrıca soru  sorulurken eklenen aşağıdaki ifade beni bu varsayalına sevketti :

Alıntı:Hiç api kullanmadan (Çünkü safya üyeliksiz girişe açık ve veriler açıkta duruyor) resimde koyduğum alandaki veriyi çekemez miyiz (Delphi 7 kullanıyorum)?

Son söz : 
Altyapınızı API'ler öncelikli kurmakta fayda var. Diğer yandan PARSE işlemine aşinalık da kazanmak lazım. Sayenizde bu başlık altında her ikisi de var oldu  

[SimaWB]

O zaman ben de API kullanımını örneklendireyim de tam olsun
Soruda XRP istenildiği için kullanacağımız link:
https://api.binance.com/api/v1/ticker/pr...bol=XRPBTC

Tools -> REST Debugger'ı açıp URL kısmına yukarıdaki linki yazıp Send Request'i tıklıyoruz.
Cevap geldikten sonra Copy Components'i seçip formumuza kopyaladığımız bileşenleri yapıştırıyoruz ve:

procedure TForm1.Button1Click(Sender: TObject);
var
 price: String;
begin
 RESTRequest1.Execute;
 if (RESTResponse1.StatusCode = 200) and  RESTResponse1.GetSimpleValue('price', price) then
   ShowMessage(price);
end;

[akissoftware]

(06-06-2020, Saat: 23:53)SimaWB Adlı Kullanıcıdan Alıntı: O zaman ben de API kullanımını örneklendireyim de tam olsun
Soruda XRP istenildiği için kullanacağımız link:
https://api.binance.com/api/v1/ticker/pr...bol=XRPBTC

Tools -> REST Debugger'ı açıp URL kısmına yukarıdaki linki yazıp Send Request'i tıklıyoruz.
Cevap geldikten sonra Copy Components'i seçip formumuza kopyaladığımız bileşenleri yapıştırıyoruz ve:

procedure TForm1.Button1Click(Sender: TObject);
var
 price: String;
begin
 RESTRequest1.Execute;
 if (RESTResponse1.StatusCode = 200) and  RESTResponse1.GetSimpleValue('price', price) then
   ShowMessage(price);
end;

Peki üstadım "https://api.binance.com/api/v3/ticker/24hr" bu adresten örnek veriyorum  "WAVESBTC" symbolünün "highPrice" ve "lovPrice" değerlerini nasıl alabiliriz?Delphi7 uyumlu da ayrıca sorsam neyi değiştirmem gerekir?

[SimaWB]

O zaman yukarıda @mrmarman belirttiği Indy ve OpenSSL'i araştırmalısınız.

Not: Yeni versiyon Delphi ısrarla tavsiye ederim.(Ücretsiz versiyonu var)

[mrmarman]

@akissoftware

PHP'de Explode işlemlerini biliyor olmalısınız. İlk mesajınızda bu şekilde bir izlenimim oldu. Keza "Ben bunu php ile kolayca yapıyordum. " demişsiniz. Belkide direkt veriyi alıyorsunuz ama PHP'ye hakimseniz o kısmınız ile ilgileniyoruz... 

* Delphi yakasında, Internet üzerinden ( IdHttp vb. ile url'sini vererek GET ile ) çektiğiniz bu veriyi string değişken altına alabiliyorsunuz zaten. 

* Delphi'de POS, COPY, DELETE vb. string komutlarına aşina olmanız lazım, değilseniz dahi PHP benzeri :
* Delphican içinde arama yaptım açık olarak ifade edilmiş @SimaWB 'in bu cevabını inceleyin. Explode için ne varsa aynen bu özellik TStringlist'in DelimitedText özelliğinde de var. Siz sadece ayraçları hedefinize ulaşana kadar algoritmik bir sıra ile yenileyeceksiniz o kadar.

  Şimdi PHP ile Explode işlemini yapın, aynı algoritmayı TStringList'e uyarlayacaksınız.

Başarılar.

[mrmarman]

@akissoftware özel mesaj ile sormanıza lüzum yok, buradan daha özel cevap da yazabiliriz... Merak eden herkese faydası olsun...

* Delphi 7 konusunda sıkıntı yaşamışlar. Bu nedenle  WinInet üzerinden herhangi bir VCL kullanmadan web sorgu ve parse örneğidir. 

* Bu şekilde tüm olası alternatif Web Sorgu örneklerini de bir başlıkta toplamış olduk... 

Uses WinInet;

Type TDegerler = Record
  highPrice, lowPrice : String;
End;

function ETHBTC: TDegerler;
Const
  Url = 'https://api.binance.com/api/v3/ticker/24hr?symbol=ETHBTC';
var
  aStream       : TStringStream;
  hService      : HINTERNET;
  hSession      : HINTERNET;
  lpBuffer      : array[0..1023] of Byte;
  dwBytesRead   : DWORD;
  dwBytesAvail  : DWORD;
  dwTimeOut     : DWORD;
  Sessionname   : String;
  aResponse     : String;
  aSrc, aTemp   : String;
begin
  Result := Default( TDegerler );
// Browse Url Section
  Sessionname       := 'ARMAN_Session_' + DateTimeToStr(now);
  hSession          := InternetOpen( PWideChar(Sessionname), INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0 );
  if not Assigned(hSession) then Exit;
  try
    hService := InternetOpenUrl(hSession, PChar(Url), nil, 0, INTERNET_FLAG_RELOAD, 0);
    if hService = nil then
      Exit;

    aStream := TStringStream.Create;
    try
      dwTimeOut := 60000; // a minute
      InternetSetOption(hService, INTERNET_OPTION_RECEIVE_TIMEOUT, @dwTimeOut, SizeOf(dwTimeOut));
      if InternetQueryDataAvailable(hService, dwBytesAvail, 0, 0) then
        while ( InternetReadFile(hService, @lpBuffer[0], SizeOf(lpBuffer), dwBytesRead) )
          and ( dwBytesRead <> 0 )
            do aStream.WriteBuffer(lpBuffer[0], dwBytesRead);

      aStream.Position := 0;
      aResponse := aStream.DataString;
    finally
      InternetCloseHandle(hService);
      aStream.Free;
    end;
  finally
    InternetCloseHandle(hSession);
  end;

  if pos('{"code":', aResponse) = 1 then Exit; // Error occurs...

// Parse Section
  aTemp := aResponse;
  aSrc  := '"lowPrice":"';
  if Pos(aSrc, aTemp) > 0 then begin
    System.Delete(aTemp, 1, Pos(aSrc, aTemp) + Length(aSrc)-1 );
    Result.lowPrice   := Copy( aTemp, 1, Pos('"', aTemp ) -1 );
  end;

  aTemp := aResponse;
  aSrc  := '"highPrice":"';
  if Pos(aSrc, aTemp) > 0 then begin
    System.Delete(aTemp, 1, Pos(aSrc, aTemp) + Length(aSrc)-1 );
    Result.highPrice  := Copy( aTemp, 1, Pos('"', aTemp ) -1 );
  end;
end;

Kullanımı :

procedure TForm1.Button1Click(Sender: TObject);
var
  aDegerler : TDegerler;
begin
  aDegerler := ETHBTC;
  Showmessage( 'Low : ' + aDegerler.lowPrice + '  High : ' + aDegerler.highPrice );
end;

[engerex]

@mrmarman Birde al sat olsa ne iyi olur . ?

[mkysoft]

Bankalar API destegi saglamaya basladi, islem yaptirmaya basladirlar mi emin degilim. BirAPI sitesinden takip edebilirsiniz.

[engerex]

@mrmarman  merhaba,
İlk örnek veri ekranına ulaşılamadı uyarısı veriyor.
İkinci örneğiniz pasif olan çalıştı. Ancak sadece tek değer döndürüyor. Sizin örnekte iki değer dönmesi gerekiyor.
Acaba sayfalar mı güncellendi?

Aynı yöntemle görüntüdeki MA(7), EMA(25), KDJ gibi verilerin değerlerini de alabilir miyiz?