Die Unit winsock ist nicht gerade reichlich gefüllt, vom Kommentar abgesehen:
Delphi-Quelltext
1: 2: 3:
| unit winsock; {$define winsock} {$i pmwsock.pas} |
und in der Unit pmwsock findet sich die Deklaration:
Delphi-Quelltext
1: 2:
| Function accept(s:TSocket; addr: PSockAddr; var addrlen : Longint) : TSocket; cdecl; external 'PMWSock' name 'accept'; |
Die Anzahl der Parameter scheint zu stimmen, insofern ist die Fehlermeldung schon einmal wahrscheinlich falsch. Vielleicht stimmen die Typen nicht?! Scheint aber auch nicht zuzutreffen, p ist vom Typ pointer. Hm... Fehlermeldung im sog. Bugtrucker eröffnen? Warum sollte die Version 1.0 perfekt sein? Oder im Lazarusforum nachfragen?
Edit: Das wird ja immer verrückter, dort finden sich sogar drei gleichnamige Deklarationen (wie ist so etwas möglich??):
Delphi-Quelltext
1: 2: 3: 4: 5: 6:
| Function accept(s: TSocket; Var addr; Var addrlen: LongInt): TSocket; cdecl; external 'PMWSock' name 'accept'; Function accept(s:TSocket; addr: PSockAddr; addrlen : PLongint) : TSocket; cdecl; external 'PMWSock' name 'accept'; Function accept(s:TSocket; addr: PSockAddr; var addrlen : Longint) : TSocket; cdecl; external 'PMWSock' name 'accept'; |