Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Cas Terazi Veri gönderimi Delphi sürüm sorunu
#1
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
Faydalanılmayan bilgi, harcanmayan ve hiç kimseye hayrı dokunmayan define gibidir.

Hz. Muhammed (sav.)
Cevapla
#2
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.
There's no place like 127.0.0.1
WWW
Cevapla
#3
(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.
Cevapla
#4
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.
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:
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
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;
Faydalanılmayan bilgi, harcanmayan ve hiç kimseye hayrı dokunmayan define gibidir.

Hz. Muhammed (sav.)
Cevapla
#5
(10-06-2021, Saat: 20:10)KUNTAY Adlı Kullanıcıdan Alıntı: 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.
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:
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
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;

Sevgili Kuntay, Bahsettiğin sorunla bende aylardır uğraşıyorum. Acaba bir çözüme varabildiniz mi?
Cevapla


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  delphi 10.4 ve fastrport varyemez 1 32 1 saat önce
Son Yorum: nguzeller
  WebBrowser ile Forma Veri Gönderme ve Sorgulama adnansirca 4 283 20-10-2021, Saat: 22:14
Son Yorum: adnansirca
  DLL Formdan Veri Alma tuna 1 189 14-10-2021, Saat: 13:42
Son Yorum: mrmarman
  Delphi'de Class Kullanımı Jakarta2 1 161 28-09-2021, Saat: 11:38
Son Yorum: Tuğrul HELVACI
  Veri Tabanı Dosya Önizleme gonulali 3 205 24-09-2021, Saat: 09:26
Son Yorum: COMMANDX



Konuyu Okuyanlar: 1 Ziyaretçi