Delphi Forum

Mesela order.json daki ilk "ask" içindeki price ve size bilgisini bir dizi değişkene aktarmak istiyorum.
order.json daki ilk "bid" içindeki price ve size bilgisini bir dizi değişkene aktarmak istiyorum.

json.rar
s.a.
Json çıktıları ektedir.

order.json

{
"ask": [
{
"price": "0.046002",
"size": "0.088"
},
{
"price": "0.046800",
"size": "0.200"
}
],
"bid": [
{
"price": "0.046001",
"size": "0.005"
},
{
"price": "0.046000",
"size": "0.200"
}
]
}




balance.json ...

Hocam çok teşekkür ederim. Hata mesajı almıyorum. fakat " veri ile ne yapılmak isteniyor" kısmınıda bir örnek verebilirmisin? mesela alınan verileri memo1 yazdırabilirmiyiz. delphi konusunda yeniyim. Allah razı olsun çok işime yarıyacak inşAllah.

Kullandığım sürüm XE8

Ticker bilgilerini alabiliyorum. Çünkü Ticker bilgilerine ulaşmak için Publickey ve Secretkey e ihitiyaç yok.
Fakat balance bilgilerime ulaşmak için publickey ve secretkey i kullanmam gerek. sitede hesabımda bana ait olan keyler yazıyor. Ama bunları nasıl kullanacağımı ...

Json ile Hitbtc.com adresindeki hesabımdaki verileri okumak istioyrum. ama bir türlü yapamıyorum.

procedure TForm1.Button1Click(Sender: TObject);
begin
URL:= TIdHTTP.Create(nil);
try
jsonoutput:=URL.Get('https://api.hitbtc.com/api/2/public/ticker');
jsonaray:=TJSONObject.ParseJSONValue ...

sa. Arkadaşlar delphide acemiyim. belki cok saçma bir sorudur. ama ben yapamadım.

pagecontrolde yaklaşık 20 tane sayfa oluştturdum. her bir sayfada edit yerleri var ve sadece 200 den küçük sayıları kabul etmesini istiyorum. bunu ilk sayfada ki edit1 de oluşturdum. diğer sayfalarada bu editi ...

s.a arkadaşlar. sorunum söyle. Form2 diye bir form açtım ve burada comboboxlar var. pagecontrol ile 10 tane sayfada form2 yi gösteriyorum. buraya kadar bir sorunum yok.
form1 e koymuş olduğum memo ya yine form1 deki buton ile pagecontroldeki 10 sayfamındaki comboboxlardaki bilgileri aktarmak ...

Pic tarafında lcd ekran var ve gelen veriyi ekranda görüyorum. Pic tarafında mikrobasic kullanıyorum. eğer gelen veri "10" ise step motoru 1 adım sag döndür şeklinde koşıul kullanıyorum. "11" gönderdiğimde motor dönmüyor zaten. bu yüzden pice gelen veri kesinlikle dogru.

Pc ye gelen veri eğer 0 ...

Yardımcı olan arkadaşlardan ALLAH razı olsun. ALLAH ilminizi arttırsın...

S.a arkadaşlar 2 sorum olacak.

1.)yapmış oldugum picli step motor sürücü devreme hazırlamış oldugum arayüz programından veriyi apdcomport bileşenini kullanarak gönderiyorum. Göndermiş oldugum veriler pic tarafından eeproma kaydediliyor. buraya kadar bir sorunum yok.

Comportdan mesela '10' verisini ...

var
Form1: TForm1;
I: Integer;
say:integer;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
say:=0;
end;

procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
say:=0;
repeat
inc(I);
label1.caption ...

Göndermiş oldugun buttonla ilgili örnek için teşekkür ederim. Fakat dediğiniz gibi yaptım ama butona tıklayınca "ı" değişkeni 1 arttırılıyor ve öyle kalıyor. ben buton basılı kaldığı sürece incerement işlemini yapmasını istiyorum.
Mousedown dediğiniz gibi basıl kaldığı sürece çalışmıyor. bendemi ...

tşk ederim Mesut. Fakat,
button.mousedown, button.mouseup..vb olaylar hep butona tıklamayla bir arttırım yapıyor. Ben butona bastığım anda sayım başlayacak, tıklamayı bıraktığımda duracak şekilde istiyorum.

S.a arkadaşlar.
Butonla ilgili bir problemim var yardımcı olursanız sevinirim.

Butona basıldığı müddetce label1.caption' un değeri 1 artacak . bırakıldığında duracak. bunu butonla yapmam gerek .updown kullanmıyacağım.
şimdiden teşekkür ederim.

Coreldrawda çizilmiş bir şeklin plt uzantılı dosyasını memo da açarak gerekli kısımlarını kesip dizilere aktarıp sonrada bu koordinatları PİC mikrodenetleyicisine göndermeyi başardım. Bu koordinatları step motorlara göndererek hareket sağlıyorum. Ama dxf formatını notepadle açtığımda hiçbirşey ...