Delphi Can

Orjinalini görmek için tıklayınız: Cas Terazi Veri gönderimi Delphi sürüm sorunu
Şu anda (Arşiv) modunu görüntülemektesiniz. Orjinal Sürümü Görüntüle internal link
Cas Terazilere veri gönderip almak için bir dll dosyası var ve aynı zamanda bir Delphi 2005 de yapılmış örneği var. 

Bu örneği Delphi 10.3 sürümünde çalıştırdığım zaman sorunsuz çalışıyor fakat terazi ile iletişim kurmuyor. 
Bu arada iletişimi IP üzerinden sağlıyor. 

Aynı programı denemek için Delphi 2007 kurdum bilgisayara onda açınca program terazi ile iletişim kuruyor. 

Delphi 10.3 sürümünde sorunsuz çalışıyor bağlantı kur dediğimde teraziye bağlanamadı diyor bir hata da olmayınca neyi kontrol edeceğimi bilemedim. 

Sizce bu sorun neyden kaynaklanıyordur dostlar. 

İncelemek isteyen arkadaşlar için aynı zamanda bu SDK yada ihtiyacı olan arkadaşlar için linki bırakıyorum. 

https://panel.casturkey.com/images/uploa...090316.zip
Delphi 2007 ile 10.3 arasındaki en ciddi fark, Delphi 2009'la birlikte gelen unicode desteği.
Çok büyük ihtimalle sorununuz bundan kaynaklanıyordur.
(09-06-2021, Saat: 21:34)SimaWB Adlı Kullanıcıdan Alıntı: [ -> ]Delphi 2007 ile 10.3 arasındaki en ciddi fark, Delphi 2009'la birlikte gelen unicode desteği.
Çok büyük ihtimalle sorununuz bundan kaynaklanıyordur.

Benimde başıma gelmişti. D7 ile RS232 üzerinden sorunsuz olarak veri gönderebilirken Delphi XE ile aynı kod hata verdirmişti. Sebebini bulmak için haberleştiği port'tan dinleme yapınca unicode'tan kaynaklandığını anladım. Eğer gönderdiğiniz veriler 255 byte'ı geçmiyorsa değişkenlerinizi ansi String olarak tanımlayın. Yada D7 ile deneyin.
SimaWB nin de dediği gibi Unicode dan olduğu kesin daha öncede buna benzer başka bir projede başıma gelmişti yine aynı durum söz konusu. 

Biraz uğraştım unicode problemini aşabilirmiyim diye nafile.  Aşağıda bağlantı için kodlar var string değişkenleri ansistring olarak değiştirdim sonuç alamadım.
PChar da PWideChar olarak denedim yine sonuç alamadım. 

Bu code formun create durumunda çalışıyor.
Kod:
var
 ret: Integer;
 version: TVersion;
 versionString: String;
begin
// Create Link Dlls
 ret := SetCommLibrary(1, 'CASTCPIP.DLL');
 ret := AddInterpreter(100, 5000, 'CLInterpreter.dll');
 ret := AddInterpreter(DF_SCALE_TYPE_LP, DF_SCALE_16, 'LPInterpreter.dll');

 version.btModule := 3;
    GetLibraryInfo(@version, '');
 versionString := Format('- %s Version %d.%d [%02d-%02d-%-02d]',
                         [DF_NAME_LIBTCPIP,
                          version.btMainVer,
                          version.btSubVer,
                          version.btModifyYear,
                          version.btModifyMonth,
                          version.btModifyDay] );
 self.AddStatus(versionString);




end;


Buda Teraziye bağlan butonunun kodu:
Kod:
var
 ret: Integer;
 IP: String;
begin
//  CL Connect
 ret := InitCommLib();
 IP := Edit1.Text;
 ret := Connect(PChar(IP), -1);

 if (ret = 0) then
   self.AddStatus('- Fail Connect')
 else
   self.AddStatus('- Success Connect');
end;

Buda InitCommLib Fonksiyonu
Kod:
function TForm1.InitCommLib(): Integer;
var
 res: Integer;
begin
    res := AddProcConnection(DF_COMMTYPE_TCPIP,    // Communication type
                               PChar(Edit1.Text),              // IP
                               StrToInt(Edit2.Text),                // Port
                               DF_SCALE_TYPE_LP,                      // Scale Type
                               DF_SCALE_CL5000,                             // Scale Model
                               StrToInt(Edit3.Text),                // Timeout
                               StrToInt(Edit4.Text),                // Retry count
                               DF_DATA_PLU_V02,                              // Data type
                               @OnDataReceived,                            // Receive proc
                               @OnNetworkState);                        // State proc

 result := res;
end;