Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Cas Terazi Veri gönderimi Delphi sürüm sorunu
#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


Bu Konudaki Yorumlar
Cas Terazi Veri gönderimi Delphi sürüm sorunu - Yazar: KUNTAY - 09-06-2021, Saat: 19:19
Cas Terazi Veri gönderimi Delphi sürüm sorunu - Yazar: SimaWB - 09-06-2021, Saat: 21:34
Cvp: Cas Terazi Veri gönderimi Delphi sürüm sorunu - Yazar: KUNTAY - 10-06-2021, Saat: 20:10

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  WSDL dosyasını import ederek web servise veri gönderme. KUNTAY 2 102 26-07-2021, Saat: 16:44
Son Yorum: Abdullah ILGAZ
  Delphi ile cmd komut göndermek ve yanıt almak yhackup 22 14.052 21-07-2021, Saat: 23:29
Son Yorum: pro_imaj
  TRestRequest Sorunu mcb 1 164 17-07-2021, Saat: 23:25
Son Yorum: klavye
  kayıt sorunu info@guzelceker.com 9 672 05-07-2021, Saat: 09:36
Son Yorum: ozcanm
  Gold SMS rest json gönderme sorunu varyemez 4 406 28-06-2021, Saat: 13:49
Son Yorum: varyemez



Konuyu Okuyanlar: 1 Ziyaretçi