TCP/IP-Telegrammverkehr mit Anlagensteuerung/SPS

[Nico B.]

Hallo zusammen,

ich habe leider keine Ahnung, ob ich hier das richtige Unterforum erwischt habe, da ich auch nicht so richtig Themen zu ähnlichen Problemen hier gefunden habe. Also falls es nicht passt, wäre ich froh, wenn ihr den Thread einfach ins passende Unterforum verschieben könntet.

Nun aber zu meinem Problem.
Ich möchte gern eine Deplhi-Anwendung schreiben, die mit einer Anlagensteuerung/SPS per TCP/IP-Telegramm Daten austauschen kann. Falls es dazu irgendwelche Tutorials oder ähnliches gibt, wäre ich sehr begeistert, wenn ihr mir einen Tipp geben könntet, wo ich die finde. Oder wenigstens nach was ich suchen muss…

Vielen Dank schon mal.
Nico

[sirius]

Ein Tutorial kenne ich nicht (außer die üblichen TCP / Socket Tuts). Aber das was du vor hast, dürfte nicht all zu schwer sein.

Du brauchst einen TCP-Client (da gibt es ja einige) und fängst mal an eine Verbindung aufzubauen. Meist kannst du auch gleich den Status o.ä. abfragen.


Hier mal ein Grundgerüst zum rumspielen:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, scktcomp, StdCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    Edit1: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
    FClient:TClientSocket;
    procedure ClientRead(Sender:TObject; Socket: TCustomWinSocket);
    procedure ClientError(Sender:TObject; Socket: TCustomWinSocket;
      ErrorEvent: TErrorEvent; var ErrorCode: Integer);
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ClientError(Sender: TObject; Socket: TCustomWinSocket;
  ErrorEvent: TErrorEvent; var ErrorCode: Integer);
begin
  showmessage(syserrormessage(Errorcode));
end;

procedure TForm1.ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  memo1.Lines.add(socket.ReceiveText);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Fclient:=TClientSocket.Create(self);
  FClient.Address:='127.0.0.1';
  FClient.Port:=5000;
  FClient.ClientType:=ctNonBlocking;
  FClient.OnRead:=ClientRead;
  FClient.OnError:=ClientError;
  FClient.Open;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  FClient.Socket.SendText(Edit1.text);
end;

end.

[DeddyH]

Crosspost Entwickler-Ecke

[Medium]

Die wichtigere Frage ist, welche SPS du da hast, und welche Protokolle sie an ihren Schnittstellen unterstützt. Man kann sich dann ggf. einen ganzen Batzen Arbeit ersparen, wenn man z.B. die libnodave DLL einsetzt (im Fall von Siemens SPSen). Bevor man anfängt ein möglicherweise sehr umfangreiches Protokoll selber zu implementieren, würde ich zunächst danach schauen.

[Nico B.]

Hallo zusammen,
danke schon mal für die vielen Antworten.
Ich werde mich jetzt also an libnodave versuchen.
Dafür habe ich zuerst libnodave 0.8.5 runtergeladen.
Leider scheitere ich schon wieder an der Installation des Packages unter Delphi 2006.
In der Anleitung aus dem Download heißt es:
1. Select Component - Install in tehe Delphi-menu
2. Select Add... button
3. Select Browse
4. Select NoDave Component.pas
5. Select OK
Bei 4. hakt es schon, da hier nur BPL-Dateien ausgewählt werden können.
Eine solche Datei gibt es aber leider im gesamten Download nicht.
Was muss ich tun?

[Medium]

Da ist die Beschreibung etwas blödelig. Man kann nur Packages installieren, keine einzelnen pas Files. Im Zweifel musst du selbst ein Projekt anlegen und die nötigen Dateien hinzufügen und das ganze als Package (bpl) kompilieren, wenn dem Download nicht schon eine Projektdatei beiliegt mit der dies erzeugt wird.

Was mich gerade nur irritiert ist, dass ich, als ich die libnodave vor ca. 2 Jahren das letzte mal runter geladen haben, keine VCL Komponenten dabei hatte. Das war einfach nur eine DLL und eine PAS mit den Wrappern. Ich hatte zur Vereinfachung dann nachher noch eine Komponente eines Users im SPS Forum gefunden, aber die war separat. Ich muss mir die noch mal ansehen glaub ich

[Nico B.]

Ich bekomme das einfach nicht hin.
Ich erstelle ein neues Projekt:
Datei > Neu > Package - Delphi für Win32
Das speichere ich als Package1.bdsproj

Nun füge ich die Datei nadavecomponent.pas dem Projekt hinzu.
Speichern.
Package1 compilieren
Package1 erzeugen....

Aber nirgendwo entsteht eine BPL-Datei.

[Nico B.]

Okay, ich glaub jetzt hab ich´s geschafft.
Ich habe hier
http://engbarth.es/?page_id=165
eine Version von LibNoDave heruntergeladen, die speziell für Delphi 2009/2010/XE/XE2 angepasst wurde. Darin habe ich nun ein Package-Projekt gefunden, das ich installieren konnte.

[schöni]

Die BPL Datei steht standardmäßig in /Projects/Bpl

[divBy0]

Hallo,
schön, dass du meine Seite gefunden hast.
Du musst nicht unbedingt LibNoDave nutzen um Daten mit einer S7 auszutauschen, du kannst auch die Indy-Komponenten nutzen, da die S7 auch TCP und UDP kann. Dazu einfach eine Verbindung in der S7 projektieren, entweder über NetPro oder eine offene Industrial-Ethernet-Verbindung mit dem Open-Communication-Wizard und den entsprechenden TConnect-, TDisconnect-, TSend-, TReceive-, usw. -Funktionen.

Die S7 ist im einfachsten Fall der Server und die Anwendung der Client, so müssen Daten nicht immer erst angefragt werden.