E-LAB Computers
 

Neuer WizNet-Treiber Befehlsübersicht

pvs-deck
PowerUser
Avatar
Geschlecht:
Alter: 55
Beiträge: 1344
Dabei seit: 02 / 2009
Betreff:

Neuer WizNet-Treiber Befehlsübersicht

 ·  Gepostet: 05.12.2010 - 10:52 Uhr  ·  #1
Hallo Miparo.

ich teste gerade den WizNet Treiber mit meinem Board.

Gibt es eine komplette Befehlsübersicht oder einen Vergleich zwischen den Namen von C <-> AVRco?

Ich brauche zwar keine komplette Anleitung, da ich mir das meiste vom C-Code abschauen kann aber eine Befehlsübersicht wäre nützlich! Lesbare Uses habe ich auch nicht gesehen (oder übersehen).

Gruß
Thorsten
rh
Administrator
Avatar
Geschlecht:
Herkunft: Germany
Alter: 26
Homepage: e-lab.de
Beiträge: 5558
Dabei seit: 03 / 2002
Betreff:

Re: Neuer WizNet-Treiber Befehlsübersicht

 ·  Gepostet: 05.12.2010 - 17:49 Uhr  ·  #2
Hallo Thorsten,

die Unit Headers befinden sich im Klartext in der IDE.
uWzTINA ist die Basis Unit.

rolf
Anhänge an diesem Beitrag
Neuer WizNet-Treiber Befehlsübersicht
Dateiname: 2010-12-05_174513.jpg
Dateigröße: 22.37 KB
Titel:
Heruntergeladen: 373
Neuer WizNet-Treiber Befehlsübersicht
Dateiname: 2010-12-05_174546.jpg
Dateigröße: 19.77 KB
Titel:
Heruntergeladen: 354
pvs-deck
PowerUser
Avatar
Geschlecht:
Alter: 55
Beiträge: 1344
Dabei seit: 02 / 2009
Betreff:

Re: Neuer WizNet-Treiber Befehlsübersicht

 ·  Gepostet: 05.12.2010 - 18:48 Uhr  ·  #3
Hallo Rolf.
Zitat geschrieben von rh

Hallo Thorsten,

die Unit Headers befinden sich im Klartext in der IDE.
uWzTINA ist die Basis Unit.

rolf

Hört sich toll an, gibt es aber bei mir nach dem letzten Update nicht?!

Du hast ja deutlich mehr Auswahl! Mache ich was falsch?
Oder muss ich da noch was aktivieren?

Gruß
Thorsten
Anhänge an diesem Beitrag
MeineInfo
Dateiname: InfoAvrCOCompUnit.JPG
Dateigröße: 13.65 KB
Titel: MeineInfo
Information: MeineInfo
Heruntergeladen: 335
mc-electronic
Benutzer
Avatar
Geschlecht: keine Angabe
Herkunft: Sauerland NRW
Beiträge: 372
Dabei seit: 03 / 2008
Betreff:

Re: Neuer WizNet-Treiber Befehlsübersicht

 ·  Gepostet: 05.12.2010 - 21:03 Uhr  ·  #4
Ja, hm, bei mir ist auch nur die uWzTina.PCU vorhanden, mehr nicht..
miparo
Mod
Avatar
Geschlecht:
Herkunft: Germany
Alter: 60
Beiträge: 1020
Dabei seit: 09 / 2007
Betreff:

Re: Neuer WizNet-Treiber Befehlsübersicht

 ·  Gepostet: 06.12.2010 - 00:44 Uhr  ·  #5
HI,
bis auf den Init Teil ist alles wie beim wzKernel.

Dann wie gehabt. SocketHandle erzeugen usw.
SNTP und DNS erledigen das selber.


Code

  wzReset;
  wzTina_Stop;
  wzsetIPAddr(LocalIP, Mask);
  wzsetGatewayAddr(Gateway);
  wzsetHWAddr(MacAddr);
  wzsetTimeOut(3000);
  wzsetRetryCount(3);

  IF not wzTina_Init then
    Writeln(serout, 'wzTINA Init Error');
    loop
      BeepOut(100, 1);
      mDelay(500);
    endloop;
  endif;

  wzTINASetPriority( TinaPrioHigh);
  wzTINA_Start;   // now we can start the wzJobhandler
  Writeln(serout, 'wzTINA start..');
  mDelay(2000);                              // Wait for Switch/Hub to see Phy !




Code


type

  TwzStatus        = (wzsNoErrors, wzsInvalidHandle, wzsInitFailed, wzsNotInitialized,
  wzsSockClosed, wzsBufferParam, wzsSendFailed, wzsTimeOutErr,
  wzsListenFailed, wzsSockConnected, wzsSockListen, wzsSockCloseWait,
  wzsSockClosing, wzsSockUDP, wzsSockRaw, wzsSockMAC, wzsSockInit);

  TwzPacketReceive = Record
                       PeerIP           : tIPaddr;
                       PeerPort         : Word;    // Big Endian  !!
                       BufferPtr        : Pointer;
                       BufferLen        : Word;
                     end;

  TwzSocketNDAck   = (NoDelayedAck, DelayedAck);

  TwzBroadcast     = (NoBroadcast, Broadcast);
  TwzSocketProtocol = (CLOSED, protTCP, protUDP, protxUDP, protIPRAW, protMACRAW);
  TwzxUDPAKNPort   = (xAKNLocalPort, xAKNRemotePort);

  TwzSocket        = Record
                       Protocol         : TwzSocketProtocol;
                       DelayAck         : TwzSocketNDAck;
                       // DynTimeOut    :TwzNDTimeOut;  // not use
                       Broadcast        : TwzBroadcast;
                       LocalPort        : Word;
                       RemoteHost       : tIPaddr;
                       RemotePort       : Word;
                       TimeOut          : LongWord;
                       RetryCount       : Byte;
                       AKNPort          : TwzxUDPAKNPort;
                       IPProtocol       : Byte;
                       TypeOfService    : Byte;        // 1460
                       MaxSegSize       : Word;
                       Multicasting     : Boolean;     // New
                       PeerTryToDisconnect: Boolean;
                       SocketClosed     : Boolean;
                       PacketRecInfo    : TwzPacketReceive;
                       ErrorState       : TwzStatus;
                       SocketState      : Byte;
                     end;
  tSocketHandle    = Pointer to TwzSocket;

  TTinaPriority    = (TinaPrioMedium, TinaPrioLow, TinaPrioHigh, TinaPrioVeryHigh,
  TinaPrioVeryLow, TinaPrioAuto, TinaPrioSuspend, TinaPrioResume);

  TwzMainInit      = Record
                       Gateway          : tIPaddr;
                       SubnetMask       : tIPaddr;
                       HWAddress        : TMacAddr;
                       IPAddress        : tIPaddr;
                       TimeOut          : Word;
                       RetryCount       : Byte;
                       ResponsePing     : Boolean;
                       Prio             : TTinaPriority;
                     end;

// Init des W5100

Function  wzTINA_Init : Boolean;
Procedure wzTINA_Start;
Procedure wzTINA_Stop;
Procedure wzTINASetPriority(prio : TTinaPriority);

Procedure wzSetIPAddr(IPAddr, Mask : tIPaddr);
procedure wzSetHWAddr(MacAddr : TMacAddr);
Procedure wzSetGatewayAddr(IPAddr : tIPaddr);
Procedure wzSetRetryCount(Retry : Byte);
Procedure wzSetTimeOut(RetryTimeout : Word);
Procedure wzReset;

//Schnittstelle zum Hauptprogramm / Sockets
Function wzCreateSocket : tSocketHandle;
Procedure wzFreeSocket(SocketPtr : tSocketHandle);

Function wzConnect(SocketPtr : tSocketHandle) : Boolean;
Function wzDisConnect(SocketPtr : tSocketHandle) : boolean;
Function wzListen(SocketPtr : tSocketHandle) : Boolean;

Function wzInitSocket(SocketPtr : tSocketHandle) : Boolean;
//Procedure InitSocket(Sock : TTinaSocketNum; CompleteInit : Boolean);
Function wzReInitSocket(SocketPtr : tSocketHandle) : Boolean;
Function wzSendBuffer(SocketPtr : tSocketHandle; Buffer : Pointer; Len : Word) : Boolean;
Function wzReceiveBuffer(SocketPtr : tSocketHandle) : Word;
Function wzClientConnected(SocketPtr : tSocketHandle) : Boolean;
Function wzAcceptConnection(SocketPtr : tSocketHandle; YesNo : Boolean) : Boolean;
Function wzResumeReceive(SocketPtr : tSocketHandle) : Boolean;
Function wzPacketReceived(SocketPtr : tSocketHandle) : Boolean;
Function wzGetLastError(SocketPtr : tSocketHandle) : TwzStatus;
Function wzGetSocketState(SocketPtr : tSocketHandle) : TwzStatus;

// zum testen - später loeschen
Procedure wzGetIPAddress( IP : Pointer to TIpAddr);
Procedure wzGetGWAddress( IP : Pointer to TIpAddr);
Procedure wzGetMACAddress( MAC : Pointer to TMACAddr);

Procedure wzJobHandler;



Der berichtigte TCP Teil kommt am WE.

Gruß
miparo
rh
Administrator
Avatar
Geschlecht:
Herkunft: Germany
Alter: 26
Homepage: e-lab.de
Beiträge: 5558
Dabei seit: 03 / 2002
Betreff:

Re: Neuer WizNet-Treiber Befehlsübersicht

 ·  Gepostet: 06.12.2010 - 14:26 Uhr  ·  #6
@all,

Ihr habt recht, diese Files sind erst im nächsten Update enthalten...

rolf
Anhänge an diesem Beitrag
Unit uWzTINA;
{$WG-}
{$PCU}
{$W- Warnings}

||| Wiznet W5100 IP-Stack Core Driver with OIS
||| 4 independend Socket Version
||| Version : 1.00.0 Beta
||| Date : 01.10.2010
||| Copyright : (C)2003-2010 E-LAB Computers Germany
||| Udo Purwin / Thorsten Rohlfing
{*
SPI Speed 8-Bit 2-Bit on Mega128 16MHz
UDP Loop-Back 30kB/s 270kB/s
TCP Loop-Back
UDP * 42kB/s on xMega 32MHz , 8MHz SPI
*}

interface
// global part
{$IDATA}
{--------------------------------------------------------------}
{ Const Declarations }
Const
wzTINAVer : Byte = 100;
//StructConst
// xUDPAkn : Word = $A55A;

{--------------------------------------------------------------}
{ Type Declarations }
type

TwzStatus = (wzsNoErrors, wzsInvalidHandle, wzsInitFailed, wzsNotInitialized,
wzsSockClosed, wzsBufferParam, wzsSendFailed, wzsTimeOutErr,
wzsListenFailed, wzsSockConnected, wzsSockListen, wzsSockCloseWait,
wzsSockClosing, wzsSockUDP, wzsSockRaw, wzsSockMAC, wzSockInit);

TwzPacketReceive = Record
PeerIP : tIPaddr;
PeerPort : Word; // Big Endian !!
BufferPtr : Pointer;
BufferLen : Word;
end;


// TwzSocketSWS = (NoSillyWindow, SillyWindow); // not use
TwzSocketNDAck = (NoDelayedAck, DelayedAck);
// TwzNDTimeOut = (NoDynamicTimeOut, DynamicTimeOut);
TwzBroadcast = (NoBroadcast, Broadcast);
TwzSocketProtocol = (CLOSED, protTCP, protUDP, protxUDP, protIPRAW, protMACRAW);
TwzxUDPAKNPort = (xAKNLocalPort, xAKNRemotePort);

TwzSocket = Record
Protocol : TwzSocketProtocol;
DelayAck : TwzSocketNDAck;
// DynTimeOut :TwzNDTimeOut; // not use
Broadcast : TwzBroadcast;
Dateiname: uWzTINA.txt
Dateigröße: 5.48 KB
Titel:
Heruntergeladen: 245
Unit uWzTnDNS;

interface
uses uWzTINA;
{$PCU}
{$SL ON}
{$W- Warnings}

///////////////////////////////////////////////////////////////////////////
//// Modul : IP-Helper
/// DNS-Modul for W5100A IP-Stack Core
/// Domain-Query
/// Version : 1.00 Production
/// Date : 12.09.2003
/// Copyright : (C)2010 E-LAB Computers Germany
/// Thorsten Rohlfing

// global partuses WzKernel;
//{$IDATA}
//{$RAMpage TCP_IP}
{--------------------------------------------------------------}


{ Const Declarations }
const
DNSVer : Byte = 100;

{--------------------------------------------------------------}
{ Type Declarations }
type

{--------------------------------------------------------------}
{ Var Declarations }
var{--------------------------------------------------------------}

{ functions }
procedure wzSetDNSserver(IPAddr : tIPaddr);
Function wzDNSQueryHost(Buffer : Pointer; BuffLen : Word; Hostname : Pointer to String; var Result_IP : tIPaddr) : Boolean;

implementation
Dateiname: uWzTnDNS.txt
Dateigröße: 1.04 KB
Titel:
Heruntergeladen: 267
{$PCU}
{$W- Warnings}
{$SL ON}
Unit uWzTnSNTP;
/////////////////////////////////////////////////////////////////////////////
// Modul : SNTP //
// Beschreibung : Network Time //
// Autor : (C)2010 E-LAB Computers / Thorsten Rohlfing //
// Version : 1.00 Beta //
// Datum : 20.11.2010 //
/////////////////////////////////////////////////////////////////////////////

interface
// global part

uses uWzTina;
{--------------------------------------------------------------}
{ Const Declarations }
const
SNTPVer : Byte = 100;

structconst
// Germany ! Can be changed bu the application
TimeZoneBias : word = 0; // hours
TimeZoneBiasM : Byte = 0; // minutes

{--------------------------------------------------------------}
{ Type Declarations }
type
tDayOfWeek = (dwSunday, dwMonday, dwTuesday, dwWednesday, dwThursday, dwFriday, dwSaturday);
tDateTime = record
dayofWeek : tDayOfWeek;
year : word;
month : Byte;
day : Byte;
hour : Byte;
minute : Byte;
second : Byte;
UnixEpoche : Longword;
end;

{--------------------------------------------------------------}
{ Var Declarations }
var

{--------------------------------------------------------------}
{ functions }
//
procedure wzSetSNTPserver(IPAddr : tIPaddr);
Function wzSNTPQueryDateTime(Buffer : Pointer; BuffLen : Word; var DateTime : tDateTime) : Boolean;

implementation
Dateiname: uWzTnSNTP.txt
Dateigröße: 1.87 KB
Titel:
Heruntergeladen: 263
pvs-deck
PowerUser
Avatar
Geschlecht:
Alter: 55
Beiträge: 1344
Dabei seit: 02 / 2009
Betreff:

Re: Neuer WizNet-Treiber Befehlsübersicht

 ·  Gepostet: 19.12.2010 - 19:45 Uhr  ·  #7
Hallo Miparo.

Zitat geschrieben von miparo

Der berichtigte TCP Teil kommt am WE.

:D
Wie sieht es aus? Fertig?

Gruß
Thorsten
pvs-deck
PowerUser
Avatar
Geschlecht:
Alter: 55
Beiträge: 1344
Dabei seit: 02 / 2009
Betreff:

Re: Neuer WizNet-Treiber Befehlsübersicht

 ·  Gepostet: 22.12.2010 - 21:19 Uhr  ·  #8
Hallo Miparo,
Hallo Rolf,
Zitat geschrieben von miparo

Der berichtigte TCP Teil kommt am WE.

Für welches Jahr war dieses "WE" = Wochenende gemeint?

gruß
Thorsten
Gewählte Zitate für Mehrfachzitierung:   0

Registrierte in diesem Thema

Aktuell kein registrierter in diesem Bereich

Die Statistik zeigt, wer in den letzten 5 Minuten online war. Erneuerung alle 90 Sekunden.