PLC ye Libnodave ile bağlanamama

[serdar]

Merhaba arkadaşlar 
3 gündür uğraştığım bir sorunum var
libnodave bileşeni ile plc s7-300 e bağlanmaya çalışıyorum.

https://sourceforge.net/projects/libnodave/  
Adresinde bulunan son surum bileşeni yukledim.
İndirdiğim klasor içersinde ornek bir exe vermişler. Bu exe çalısıyor sorun yok.
Birde ornek kaynak kodu paylaşmışlar. Derliyorum fakat  bir turlu bağlanmıyor.

Elinde çalışan kod, ornek uygulma yada anlayan arkadaşlardan yardım rica ediyorum

[enigma]

(31-01-2022, Saat: 10:56)serdar Adlı Kullanıcıdan Alıntı: Merhaba arkadaşlar 
3 gündür uğraştığım bir sorunum var
libnodave bileşeni ile plc s7-300 e bağlanmaya çalışıyorum.

https://sourceforge.net/projects/libnodave/  
Adresinde bulunan son surum bileşeni yukledim.
İndirdiğim klasor içersinde ornek bir exe vermişler. Bu exe çalısıyor sorun yok.
Birde ornek kaynak kodu paylaşmışlar. Derliyorum fakat  bir turlu bağlanmıyor.

Elinde çalışan kod, ornek uygulma yada anlayan arkadaşlardan yardım rica ediyorum

Siemens serisi PLC'ler ile haberleşmek için http://www.traeger.de sitesine bir göz atın derim.
https://www.traeger.de/downloads/softwaretools-download

[AlpDmr]

Konu ile ilgili çok alakam yok ama https://www.youtube.com/watch?v=6bsml8zG7z0 bağlantısını bir kontrol edin isterseniz detaylı bir anlatım var.

[serdar]

Arkadaşlar alternatif çözüm önerileriniz için teşekkür ederim
Libnodave ile ilgili sorunuda çözdüm. Kullanmayı düşünenler için açıklayayım.
Bileşeni install etmeden önce "nodavecomponent.pas" dosyasını açıyoruz ve aşağıdaki satırları değiştiriyoruz.

procedure TNoDave.DoConnect(OnlyIntf: Boolean = False);
var
 //Address: String;
 //Speed: PChar;
 Address: AnsiString;
 Speed: PwideChar;
begin
 If not FActive then
 begin
 ......

Uzun uğraşlar sonunda sorunun buradan kaynaklandığını buldum. 
Delphi 10.4 ve 11 de denendi çalışıyor.

[enigma]

(01-02-2022, Saat: 08:09)serdar Adlı Kullanıcıdan Alıntı: Arkadaşlar alternatif çözüm önerileriniz için teşekkür ederim
Libnodave ile ilgili sorunuda çözdüm. Kullanmayı düşünenler için açıklayayım.
Bileşeni install etmeden önce "nodavecomponent.pas" dosyasını açıyoruz ve aşağıdaki satırları değiştiriyoruz.

procedure TNoDave.DoConnect(OnlyIntf: Boolean = False);
var
 //Address: String;
 //Speed: PChar;
 Address: AnsiString;
 Speed: PwideChar;
begin
 If not FActive then
 begin
 ......

Uzun uğraşlar sonunda sorunun buradan kaynaklandığını buldum. 
Delphi 10.4 ve 11 de denendi çalışıyor.

5 sene kadar önce bir projede Siemens 1200 serisi PLC ile haberleşme gereksinimi doğmuştu. Projeyi yaptıran firma o zaman Trager.de firmasından 3000 € verip bu komponenti satın almıştı. Siz epey ucuza kapatmışsınız

[akiyazilim]

(01-02-2022, Saat: 08:09)serdar Adlı Kullanıcıdan Alıntı: Arkadaşlar alternatif çözüm önerileriniz için teşekkür ederim
Libnodave ile ilgili sorunuda çözdüm. Kullanmayı düşünenler için açıklayayım.
Bileşeni install etmeden önce "nodavecomponent.pas" dosyasını açıyoruz ve aşağıdaki satırları değiştiriyoruz.

procedure TNoDave.DoConnect(OnlyIntf: Boolean = False);
var
 //Address: String;
 //Speed: PChar;
 Address: AnsiString;
 Speed: PwideChar;
begin
 If not FActive then
 begin
 ......

Uzun uğraşlar sonunda sorunun buradan kaynaklandığını buldum. 
Delphi 10.4 ve 11 de denendi çalışıyor.

---

RadStudio 10.3.3 kuramadım. bendemi sıkıntı var?
Teşekkürler

[enigma]

Herkese merhaba.
Merak edip Nodave komponentini indirdim ama demo.exe 'yi çalıştırmak istediğimde LibNoDave.dll bulunamadı diyor. Bu dll 'i nereden bulacağız ?

[shooterman]

(21-05-2022, Saat: 16:38)enigma Adlı Kullanıcıdan Alıntı: Herkese merhaba.
Merak edip Nodave komponentini indirdim ama demo.exe 'yi çalıştırmak istediğimde LibNoDave.dll bulunamadı diyor. Bu dll 'i nereden bulacağız ?

nodave componentinin krulumunda birlikte gelen bir DLL dosyasıdır. ilgili klasörde bulabilirsiniz.

[ermanispir@gmail.com]

(01-02-2022, Saat: 08:09)serdar Adlı Kullanıcıdan Alıntı: Arkadaşlar alternatif çözüm önerileriniz için teşekkür ederim
Libnodave ile ilgili sorunuda çözdüm. Kullanmayı düşünenler için açıklayayım.
Bileşeni install etmeden önce "nodavecomponent.pas" dosyasını açıyoruz ve aşağıdaki satırları değiştiriyoruz.

procedure TNoDave.DoConnect(OnlyIntf: Boolean = False);
var
 //Address: String;
 //Speed: PChar;
 Address: AnsiString;
 Speed: PwideChar;
begin
 If not FActive then
 begin
 ......

Uzun uğraşlar sonunda sorunun buradan kaynaklandığını buldum. 
Delphi 10.4 ve 11 de denendi çalışıyor.

usta merhaba, ben bu komponenti bir türlü kuramıyorum, birkaç yerden indirdim hep hata veriyor, sende varsa bana gönderebilir misin ?

[serdar]

(04-11-2023, Saat: 09:08)ermanispir@gmail.com Adlı Kullanıcıdan Alıntı:

(01-02-2022, Saat: 08:09)serdar Adlı Kullanıcıdan Alıntı: Arkadaşlar alternatif çözüm önerileriniz için teşekkür ederim
Libnodave ile ilgili sorunuda çözdüm. Kullanmayı düşünenler için açıklayayım.
Bileşeni install etmeden önce "nodavecomponent.pas" dosyasını açıyoruz ve aşağıdaki satırları değiştiriyoruz.

procedure TNoDave.DoConnect(OnlyIntf: Boolean = False);
var
 //Address: String;
 //Speed: PChar;
 Address: AnsiString;
 Speed: PwideChar;
begin
 If not FActive then
 begin
 ......

Uzun uğraşlar sonunda sorunun buradan kaynaklandığını buldum. 
Delphi 10.4 ve 11 de denendi çalışıyor.

usta merhaba, ben bu komponenti bir türlü kuramıyorum, birkaç yerden indirdim hep hata veriyor, sende varsa bana gönderebilir misin ?

Merhaba
içindeki libnodave.dll dosyasını system32 ve windows dizinine atarsın.Klasoru library path' e eklersin