[Oberon] AosTCPServices on WinAos
parnete at aladata.it
Wed Aug 13 18:37:19 CEST 2003
Felix Friedrich wrote:
> Nevertheless I have a patch for the reported problem.
> In Module Win32.AosTCP.Mod replace the method Connection.Accept by the
> following (the first line had been misssing):
> PROCEDURE Accept*( VAR client: Connection; VAR res: LONGINT );
> VAR resi: INTEGER;
> IF client=NIL THEN NEW(client) END;
> AosWinsock.Accept( c, client.c, resi );
> IF resi = 0 THEN res := Ok ELSE res := unknown END;
> IF trace THEN
> AosOut.Enter; AosOut.String( "AosTCP.Accept :" );
> AosOut.String( "(" ); AosOut.Int( res, 1 );
> AosOut.String( ")" ); AosOut.Exit
> END Accept;
> With the modified method, your module compiles and runs without the
> TRAP. But I can't tell if the connections really run.
Thank you Felix.,
In fact, with the modified method it runs without TRAP, bat the
connection doesn't work. I didn't found a solution so far, but I will
turn back on it later.
More information about the Oberon