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'; |
