Lazarus™
Level-2
- Beiträge
- 434
- Reaktionspunkte
- 52
-> Hier kostenlos registrieren
Hallo,
ich mache gerade meine ersten Gehversuche mit LibNoDave und Ethernet.
Ich habe mir folgende Testroutine gemacht:
Und bei: aDaveInterface := DaveNewInterface(aDaveOsSerialType, 'IF1', 15, daveProtoISOTCP, daveSpeed187k);
gibt es schon einen Runtime - Error. Diese Routinen habe ich aus dem Beispiel übernommen.
Verstehe ich das falsch ??? Oder gibt es einen echten logischen Fehler in meinem Hirn ??
ich mache gerade meine ersten Gehversuche mit LibNoDave und Ethernet.
Ich habe mir folgende Testroutine gemacht:
Code:
procedure TfrmMain.Button1Click(Sender: TObject);
var aDaveInterface: pdaveInterface;
aDaveConnection: pdaveConnection;
aDaveOsSerialType: _daveOSserialType;
Buffer: Array[0..1024] of Byte;
begin
aDaveOsSerialType.rfd := OpenSocket(102, '10.10.0.200');
aDaveOsSerialType.wfd := aDaveOsSerialType.rfd;
if (aDaveOsSerialType.rfd > 0) then begin
aDaveInterface := DaveNewInterface(aDaveOsSerialType, 'IF1', 15, daveProtoISOTCP, daveSpeed187k);
aDaveInterface^.Timeout := 5000000;
if (daveInitAdapter(aDaveInterface) = 0) then begin
aDaveConnection := daveNewConnection(aDaveInterface, 2, 0, 2);
if (daveConnectPLC(aDaveConnection) = 0) then begin
daveReadBytes(aDaveConnection, daveDB, 5, 0, 200, @Buffer);
daveDisconnectPLC(aDaveConnection);
end;
daveDisconnectAdapter(aDaveInterface);
end;
end;
end;
Und bei: aDaveInterface := DaveNewInterface(aDaveOsSerialType, 'IF1', 15, daveProtoISOTCP, daveSpeed187k);
gibt es schon einen Runtime - Error. Diese Routinen habe ich aus dem Beispiel übernommen.
Verstehe ich das falsch ??? Oder gibt es einen echten logischen Fehler in meinem Hirn ??