E-İrsaliye Entegrasyon QNB Finansbank

[ahmet6513]

(02-06-2023, Saat: 23:21)RAD Coder Adlı Kullanıcıdan Alıntı: Thread içinde yer alan aşağıdaki satırı Syncronize etmeniz gerekiyor. Bununla ilgili bir hata alıyor olabilirsiniz.

Anaf.Memo3.Lines.Add(RESTResponse.Content);

Şöyle düzeltin.

  var
    RestRequest: TRESTRequest := TRESTRequest.Create(AnaF);
 var
   RestResponse: TRESTResponse := TRESTResponse.Create(AnaF);
 RestRequest.ExecuteAsync(
   procedure
   begin
     GonderResp := cyberCONN.belgeGonderExt(Gonder);
     TThread.Synchronize(Nil,
       procedure
       begin
         AnaF.Memo3.Lines.Add(RestResponse.Content);
       end);
   end, True, True,
   procedure(Error: TObject)
   begin
     AnaF.Memo3.Lines.Add(Exception(Error).Message);
   end);

bu ExecuteAsync  cevabının beklenmesinin bir yolu var mıdır ? WaitFor da bekliyor ama 2 nci işleme geçmiyor bu sefer de

döngü içersinde birden fazla gönderim yapmam gerekiyor cevap gelmesini beklemeyince program tekrar tekrar gönderim yapıyor
bu sefer invalid pointer hatası na düşüyor

[RAD Coder]

(14-07-2023, Saat: 12:28)ahmet6513 Adlı Kullanıcıdan Alıntı:

(02-06-2023, Saat: 23:21)RAD Coder Adlı Kullanıcıdan Alıntı: Thread içinde yer alan aşağıdaki satırı Syncronize etmeniz gerekiyor. Bununla ilgili bir hata alıyor olabilirsiniz.

Anaf.Memo3.Lines.Add(RESTResponse.Content);

Şöyle düzeltin.

  var
    RestRequest: TRESTRequest := TRESTRequest.Create(AnaF);
 var
   RestResponse: TRESTResponse := TRESTResponse.Create(AnaF);
 RestRequest.ExecuteAsync(
   procedure
   begin
     GonderResp := cyberCONN.belgeGonderExt(Gonder);
     TThread.Synchronize(Nil,
       procedure
       begin
         AnaF.Memo3.Lines.Add(RestResponse.Content);
       end);
   end, True, True,
   procedure(Error: TObject)
   begin
     AnaF.Memo3.Lines.Add(Exception(Error).Message);
   end);

bu ExecuteAsync  cevabının beklenmesinin bir yolu var mıdır ? WaitFor da bekliyor ama 2 nci işleme geçmiyor bu sefer de

döngü içersinde birden fazla gönderim yapmam gerekiyor cevap gelmesini beklemeyince program tekrar tekrar gönderim yapıyor
bu sefer invalid pointer hatası na düşüyor

ExecuteAsync içerisinde, sırası ile yapmak istediğiniz işlemleri aşağıdaki gibi senkronize (UI erişimi olan işlemleriniz için) edin.

 TThread.Synchronize(TThread.CurrentThread,
   procedure
   begin

   end);
Tüm senkronize işlemleri sırası ile bitmeden,  ExecuteAsync  sonlanmayacaktır. Böylece ExecuteAsync metoduna bağlı tüm işlemleriniz sırası ile gerçekleşecektir.

[Misc-2]

QNB ile Logo Bulut ERP uygulamalarının bulut servisleri ile entegrasyonu var mıdır? haricen yapılmış dahi olsa. 
Farklı sektörlerde sevkiyat, kantar vb. cihazlarla yapıldığından bu tarz çözümü olan varsa yazsın

Logo Bulut ERP ile ilgili bilgiye buradan ulaşabilirsiniz.

[mkysoft]

Logo kendisi ozel entegrator oldugu icin muhtemelen oraya yonlendiriyordur. Bulut olmayan versiyonlarinda farkli entegratorler calisma destegi vardi 3 yil once, son durumu bilmiyorum.

[ahmet6513]

teknik olarak zaten bulutun bir apisi yok ise bunun yapmak mümkün değil yada veri tabanı erişimi bunu hiç vermezler.
bu bilgileri olmadan entegasyon yapılamaz zaten