C++ tan Delphi ye Çevrim

[SimaWB]

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)

[erkankurtaga]

(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ı.

[SimaWB]

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ı.

[erkankurtaga]

(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.

[veteran]

(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;