Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
C++ tan Delphi ye Çevrim
#11
TransactionInfo("DATE            : %02X/%02X/20%02X", pstTicket->bcdTicketDate[2], pstTicket->bcdTicketDate[1], pstTicket->bcdTicketDate[0]);
Bu kodu referans alırsak Delphi'de yapılması gereken
Tarih = Format('%02X/%02X/20%02X', [bcdTicketDate[2], bcdTicketDate[1], bcdTicketDate[0]])
Bu şekilde bir Tarih string'i elde edersiniz. (Ama daha önce de söylediğim gibi; bir önceki sorunuzda verdiğiniz verileri burada kullanınca hatalı tarih elde edersiniz)
There's no place like 127.0.0.1
WWW
Cevapla
#12
(09-06-2017, Saat: 16:28)SimaWB Adlı Kullanıcıdan Alıntı:
TransactionInfo("DATE            : %02X/%02X/20%02X", pstTicket->bcdTicketDate[2], pstTicket->bcdTicketDate[1], pstTicket->bcdTicketDate[0]);
Bu kodu referans alırsak Delphi'de yapılması gereken
Tarih = Format('%02X/%02X/20%02X', [bcdTicketDate[2], bcdTicketDate[1], bcdTicketDate[0]])
Bu şekilde bir Tarih string'i elde edersiniz. (Ama daha önce de söylediğim gibi; bir önceki sorunuzda verdiğiniz verileri burada kullanınca hatalı tarih elde edersiniz)

Evet dediğiniz gibi yanlış sonuç çıkıyor. C++ doğru çevriliyor. Delphi de hatalı.
Cevapla
#13
O zaman Delphi'de elde ettiğiniz bcdTicketDate ve bcdTicketTime değerleri hatalı.
Bence bu konudaki yorumlara diğer konu başlığından devam edin. Buradaki yazışmalar konu başlığından sapmaya başladı.
There's no place like 127.0.0.1
WWW
Cevapla
#14
(09-06-2017, Saat: 17:16)SimaWB Adlı Kullanıcıdan Alıntı: O zaman Delphi'de elde ettiğiniz bcdTicketDate ve bcdTicketTime değerleri hatalı.
Bence bu konudaki yorumlara diğer konu başlığından devam edin. Buradaki yazışmalar konu başlığından sapmaya başladı.

Haklısınız diğer konuda yakaldığım bu son nokta çok aşağılarda kaldı. Dikkatleri çekmesi olanaksızdı belki. O yüzden yeni konu açtım. Yöneticilerden bu iki konuyu birleştirmelerini rica ediyorum o zaman. İlginiz için teşekkürler. Ayrıca o dizileri delphide elde etmiyorum. Delphiye gelen bir JSON verisindeki iki dizi sadece bunlar ve çözmem gerekiyor. Yardımlarınızı bekliyorum.
Cevapla
#15
(09-06-2017, Saat: 09:50)erkankurtaga Adlı Kullanıcıdan Alıntı: Entegrasyonunu yaptığım EFT-POS yazılımındaki bcd çevrimi aşağıdaki şekilde;

void TransactionInfo( char * buffer, ...)
{
va_list args;
char tmp[512];
CString cs;

va_start(args, buffer);
vsprintf(tmp, buffer, args);
va_end(args);
cs = tmp;

m_listTransaction.AddString(cs);
}

TransactionInfo("DATE            : %02X/%02X/20%02X", pstTicket->bcdTicketDate[2], pstTicket->bcdTicketDate[1], pstTicket->bcdTicketDate[0]);
TransactionInfo("HOUR            : %02X:%02X:%02X" , pstTicket->bcdTicketTime[0], pstTicket->bcdTicketTime[1], pstTicket->bcdTicketTime[2]);

Yukarıdaki C++ kodunu delphiye nasıl çevirebiliriz ya da bu fonksiyonun yaptığı gibi bcd çevrimi yapabileceğimiz fonksiyonu nasıl yazabiliriz?


function TransactionInfo( const inFormatString : string; const inArguments : array of const ) : string; inline;
begin
  Result := Format( inFormatString, inArguments );
end;
.
Cevapla


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Delphi İle Shopify Entegrasyonu narkotik 1 109 13-02-2025, Saat: 14:48
Son Yorum: Hayati
Photo Delphi 12.2ilginç bir ide hatası tuna 0 81 12-02-2025, Saat: 11:22
Son Yorum: tuna
  Delphi için yapay zeka kod yardımcısı eklentisi csunguray 13 653 05-02-2025, Saat: 20:13
Son Yorum: mrmarman
  Delphi Ide hatası Bay_Y 6 244 04-02-2025, Saat: 10:56
Son Yorum: Bay_Y
  Delphi 7 kullanıcısı yeni versiyona başlamalımıyım kadir344 2 149 26-01-2025, Saat: 10:35
Son Yorum: enigma



Konuyu Okuyanlar: 1 Ziyaretçi