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


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Delphi - FDQuery - CxGrid cihankoca 3 103 Dün, Saat: 18:04
Son Yorum: yasard
  Delphi ile Hook (Kanca) atma örneği cinarbil 2 182 Dün, Saat: 09:42
Son Yorum: woywod
  WSDL TLS 1.3 Sorunu glagher 2 177 11-06-2021, Saat: 19:22
Son Yorum: mrmarman
  FormatSettings ayarları set etme sorunu Bay_Y 9 431 10-06-2021, Saat: 16:01
Son Yorum: Bay_Y
  Delphi Seri Haberleşme mstf42 9 577 07-06-2021, Saat: 13:49
Son Yorum: ugorkem



Konuyu Okuyanlar: 1 Ziyaretçi