Gastro-MIS GmbH

 

Hallo zusammen,

ich habe ein Problem beim Umsetzen der LAN-TSE.

Die Initialisierung läuft noch fehlerfrei durch, sobald ich dann aber die die TSE-auswählen will bekommen ich den Fehler WORM_ERROR_CONNECTION_FAILED

Setup des TSE speichers läuft auch nut lokal. Bei Setup mit LAN-init erhalte ich den Fehler WORM_ERROR_NETWORK.

Hier der code dazu:

 

type
  TWormSerialNumberList = record
    amount: Integer;
    serialNumbers: TBytes;
  end;

Worm_LANTSE_Select = function(context: worm_context; serialNumber: TBytes; serialNubmerLength: Integer): WormError; cdecl;
Worm_LANTSE_ListConnected_TSE = function(context: worm_context; toSkip: Integer; var TSES: TWormSerialNumberList): WormError; cdecl;

procedure TWormAccess.SelectTSE();
var i: WormError;
  snList: TWormSerialNumberList;
  sn: TBytes;
begin
  i := LANTSE_ListConnected_TSE(FContext, 0, snList);
  if i <> WORM_ERROR_NOERROR then
    raise Exception.Create('Fehler beim Ermitteln der angeschlossenen TSEs');
  if snList.amount = 0 then
    raise Exception.Create('Fehler keine TSE angeschlossen');
  sn := snList.serialNumbers;
  i := LANTSE_Select(FContext, sn, Length(sn));
  if i <> WORM_ERROR_NOERROR then
    raise Exception.Create('Fehler beim wählen der TSE');
....

Kennt jemand einen Weg um die LAN-TSE in Delphi ohne diese Fehler anzusprechen?

Hallo Herr Traxler,
darf ich nachfragen, wie Sie dieses Problem erfolgreich gelöst haben?

Habe das gleiche Problem im VB.NET.