Zuviel Werbung? - > Hier kostenlos beim SPS-Forum registrieren

Ergebnis 1 bis 2 von 2

Thema: libnodave 0.8.5 and Delphi XE4

  1. #1
    Registriert seit
    07.09.2016
    Beiträge
    2
    Danke
    0
    Erhielt 0 Danke für 0 Beiträge

    Unglücklich


    Zuviel Werbung?
    -> Hier kostenlos registrieren
    Hello all,

    I do try to read couple of bytes from Siemens S7-300 PLC with libnodave library. The hardware i use:
    CPU 315-2DP
    CP 343-1 Lean

    Software:
    Delphi XE4
    Libnodave 0.8.5
    Windows 7 x86

    I do not use TNoDaveComponent, just nodave.pas. Here is the fragment of my code:
    Code:
    var
    address : array[0..20] of ansichar;
    s : ansistring;
    i : integer;
    fds : _daveOSserialType;
    di : pdaveinterface;
    dc : pdaveconnection;
    
    begin
    s := '192.168.5.1';  //IP of PLC
    i := length(s);
    for i := 1 to length(s) do
      address[i-1] := s[i];
      address[length(s)] := #0;
    fds.rfd := openSocket(102, address);
    fds.wfd := fds.rfd;
    showmessage(inttostr(fds.rfd));
    di := davenewinterface(fds, 'IF1', 0, daveprotoISOTCP, 2);
    di^.timeout:=100;
    daveinitadapter(di);
    showmessage(inttostr(daveinitadapter(di)));
    dc := davenewconnection(di, 2, 0, 2);
    daveconnectPLC(dc);
    showmessage(inttostr(daveconnectPLC(dc)));
    As a result:
    fds = integer between 390-410; That one is ok.
    daveinitadapter(di) = 0; According documentation should be 0, so ok.
    daveconnectPLC(dc) = -1; According documentation should be 0, so i do not connect to PLC.

    I did change all char and pchar variables in nodave.pas to ansichar and pansichar.

    Anybody could point me out what am i doing wrong? I did try NoDaveDemo, supported with library and it works fine.

    Thank you in advance.
    Geändert von DeJure (07.09.2016 um 17:43 Uhr)
    Zitieren Zitieren Gelöst: libnodave 0.8.5 and Delphi XE4  

  2. "found it, 2x connection."


  3. #2
    DeJure ist offline Neuer Benutzer
    Themenstarter
    Registriert seit
    07.09.2016
    Beiträge
    2
    Danke
    0
    Erhielt 0 Danke für 0 Beiträge

    Standard


    Zuviel Werbung?
    -> Hier kostenlos registrieren
    found it, 2x connection.

Ähnliche Themen

  1. LibNoDave und Delphi XE (Problem?)
    Von Cliff im Forum Hochsprachen - OPC
    Antworten: 7
    Letzter Beitrag: 14.04.2011, 11:43
  2. Fehler in LibNoDave- Komponente (Delphi)?
    Von Cliff im Forum Hochsprachen - OPC
    Antworten: 1
    Letzter Beitrag: 09.07.2010, 11:03
  3. Libnodave Komponente in Delphi
    Von Snoopy123123 im Forum Hochsprachen - OPC
    Antworten: 3
    Letzter Beitrag: 24.03.2009, 19:59
  4. libnodave + delphi
    Von Praseodym im Forum Hochsprachen - OPC
    Antworten: 1
    Letzter Beitrag: 19.01.2007, 11:56
  5. Delphi 7 und Libnodave 0.8.1
    Von stricky im Forum Hochsprachen - OPC
    Antworten: 6
    Letzter Beitrag: 06.03.2006, 12:17

Stichworte

Lesezeichen

Berechtigungen

  • Neue Themen erstellen: Nein
  • Themen beantworten: Nein
  • Anhänge hochladen: Nein
  • Beiträge bearbeiten: Nein
  •