13-04-2019, Saat: 18:21
(Son Düzenleme: 13-04-2019, Saat: 22:01, Düzenleyen: SimaWB.
Sebep: örnek web sitesi ismi değiştirildi
)
Herkese merhaba,
web geliştiricisiyim ve windows üzerinde çalışan bir erp programından veri alıp php koduma aktarmam gerekiyor. Delphi öğrenmek için bu işi kendim geliştirmek istedim ve delphi' ye adım attım.
Bir kaç sorum olacak yanıtlarsanız çok sevinirim.
1 - Rest api için aşağıdaki kodu kullanıyorum.
blablabla.com' a verileri post edebiliyorum. ve dönüş değerini memoya yazdırabiliyorum.
Gelen veri json olduğunda json veriyi nasıl çözümleyebilirim?
2 - birde php den gelen verileri memo ya yazdırırken türkçe karakterlerde problem yaşıyorum. Bunu nasıl çözebilirim?
şimdiden çok teşekkür ederim.
Öğrendikçe bende forumdaki arkadaşlara yardımcı olmaya çalışıcam.
Herkese kolay gelsin.
web geliştiricisiyim ve windows üzerinde çalışan bir erp programından veri alıp php koduma aktarmam gerekiyor. Delphi öğrenmek için bu işi kendim geliştirmek istedim ve delphi' ye adım attım.
Bir kaç sorum olacak yanıtlarsanız çok sevinirim.
1 - Rest api için aşağıdaki kodu kullanıyorum.
procedure TFrmAna.Button1Click(Sender: TObject); var data: TIdMultiPartFormDataStream; response: String; begin data := TIdMultiPartFormDataStream.Create; try data.AddFormField('kod', 'kullanici_kodu'); data.AddFormField('sifre', UTF8Encode('isdaşdğpasğd')); IdHTTP1.HandleRedirects := True; IdHTTP1.ReadTimeout := 5000; IdHTTP1.Request.Accept := 'application/json'; IdHTTP1.Request.AcceptCharSet := 'UTF-8'; IdHTTP1.Request.AcceptLanguage := 'tr'; IdHTTP1.Request.ContentType := 'application/json'; response :=IdHTTP1.Post('http://blablabla.com/veri/deneme', data); finally data.Free; Memo1.Text := response; end; end;
blablabla.com' a verileri post edebiliyorum. ve dönüş değerini memoya yazdırabiliyorum.
Gelen veri json olduğunda json veriyi nasıl çözümleyebilirim?
2 - birde php den gelen verileri memo ya yazdırırken türkçe karakterlerde problem yaşıyorum. Bunu nasıl çözebilirim?
şimdiden çok teşekkür ederim.
Öğrendikçe bende forumdaki arkadaşlara yardımcı olmaya çalışıcam.
Herkese kolay gelsin.