TCP/IP-Telegrammverkehr mit Anlagensteuerung/SPS

[Nico B.]

Hallo Leute,
also erst mal... Ich find´s ja total klasse, hier so gut informierte Leute erwischt zu haben. Da sollte es ja kein Problem mein bisl Kleinkram zu lösen.

Ich für meinen Teil hab (nachdem ich zunächst ein wenig mit sirius Quellcode experimentiert habe und mir anschließend das libnodave-Beispiel angeschaut habe) auch langsam das Gefühl das libnodave schon ein wenig zu weit geht.
Ich will nicht auf Datenbausteine einer SPS zugreifen.
Mir reicht schon ein einfacher TCP/IP-Telegrammverkehr.

Mein Frage ist nun, wenn ich mit dem Quellcode von sirius weitermache, komme ich dann auch zum Ziel?
Mit TClientSocket und TServerSocket kann ich ja verschiedene Daten senden.

Könnt ihr mal sagen, ob das funktionieren würde?

Codebeispiel für das Versenden eines Telegramms von Delphi zur SPS:

Code:

FClient:=TClientSocket.Create(self);
try
  FClient.Adress:='0.8.1.5'; //IP der SPS
  FClient.Port:=5000;        //Port über den kommuniziert werden soll
  FClient.ClientType:=ctNonBlocking;
  FClient.Open;
  FClient.Socket.SendText('Hallo SPS');
finally
  FClient.Free;
end;

Codebeispiel für das Empfangen eines Telgramms von der SPS durch Delphi:

Code:

//Serververbindung herstellen
FServer:=TServerSocket.Create(self);
try
  FServer.Port:=5001;        //Port über den kommuniziert werden soll
  FServer.OnClientRead:=ServerRead;
  FServer.Open;
except
  FServer.Free;
end;

//Telgramm empfangen
procedure ServerRead(Sender: TObject; Socket: TCustomWinSocket);
begin
  Memo1.Lines.Add(Socket.ReceiveText);
end;

//TServerSocket vor Beenden im OnDestroy der Form freigeben
FServer.Free;

Vor allem bin ich mir ja unsicher, ob SendText die richtige Methode ist.
Vielleicht müsste/sollte ich besser SendStream oder SendBuf nehmen.
Wie ist eure Meinung dazu?

[Buddelfish]

Ich würde die per 'Close' noch explizit schließen. Aber grundsätzlich musst Du das Unit of Work Konzept hier nicht anwenden, d.h. Du schmeißt den Client auf dein Formular, öffnest ihn und wenn Du was schicken willst, schickst Du einfach. Wenn die Verbindung offen bleiben soll, dann würde ich mir über ein 'Keep Alive' Gedanken machen, d.h. der Client schickt an den Servcer 1x pro Sekunde (oder seltener) ein 'X' und der Server antwortet mit einem 'Y'. Kommt beim Client kein 'Y' stimmt was mit der Verbindung nicht und kommt nicht alle x Sekunden am Server kein 'X' stimmt auch was mit der Verbindung nicht. Beide können die Verbindung abbrechen und sich dann wieder verbinden.

Das mit dem 'X' und 'Y' ist nur exemplarisch, hier kann man noch eine laufende Nummer, Statusinformationen etc. reinpacken. Es soll halt nur kurz und in regelmäßigen Abständen passieren.

[Nico B.]

Okay, du meinst also so eine Art Watchdog.
Das würde ich auch definitiv implementieren.
Die Verbindung möchte ich über längere Zeit offen halten, da wäre so etwas sicher angebracht.

Jetzt frage ich mich aber noch, ob SendText wirklich das richtige ist bei der Kommunikation mit einer SPS...

[sirius]

1. Ich hoffe du hast keine 0815 IP genommen Und der Port ist auch entsprechend der Doku geändert wurden.

Ich habe noch nie mit einer SPS kommuniziert, aber mit verschiedenen anderen Geräten. Meistens weisen die Geräte auch ganz simple ASCII Protokolle auf, da ist ein SendText genug. Schreib doch mal ein bisschen vom Protokoll auf, was Du so senden musst.
Und wozu brauchst Du einen Server? Verbindet sich die SPS zurück?

[divBy0]

Warum nutzt du nicht die Indykomponenten?

Mit IdTCPClient.Socket.Write() kannst du einfach alles versenden was du brauchst, aber du musst dran denken, dass die Bytereihenfolge getauscht werden muss.

Bei der SPS gibt es kein Protokoll, du sendest einfach ein Array of Bytes mit deinen Inhalten. Die SPS empfängt und schreibt in die angegebenen Datenbausteine.

Einige Grundkenntnisse über die Datentypen in der SPS sollten vorhanden sein.