Francois
> In a TWSocket you have access to the low level socket ahndle using
> TWSocket
> Handle property. You can issue winsock API function call using that
> handle.
So the following code should work!?
WSocket_SetSockOpt does not throw an exception but returns -1.
What kind of error is this?
Any errors I would expect are in the 100xx or 110xx range.
procedure SetToS(aTWSocket: TWSocket; aToS: Byte);
var
Len: Integer;
Result: Integer;
begin
try
Len := 1;
Result := WSocket_SetSockOpt(aTWSocket.Handle, IPPROTO_IP, IP_TOS,
@aToS, Len);
if Result = 0 then
Log('ToS set')
else
Log('ToS not set: Errorcode ' + IntToStr(Result));
except
on E: Exception do
Log('ToS not set: ' + E.Message);
end;
end;
Stefan Paege
elektronik-labor CARLS GmbH & Co. KG
Bergweg 6
48485 Neuenkirchen
GERMANY
Telefon: +49 (0) 5973 / 9497-23
Telefax: +49 (0) 5973 / 9497-19
E-Mail: pa...@el-carls.de
Internet: www.el-carls.de
Kommanditgesellschaft: Sitz Neuenkirchen, Registergericht Steinfurt HRA 3310
Persönlich haftende Gesellschafterin: elektronik-labor CARLS,
Beteiligungsgesellschaft mbH, Sitz Neuenkirchen, Registergericht Steinfurt
HRB 4175
Geschäftsführer: Irmgard Carls, Joachim Schulte, Helmut Schiffelholz
--
To unsubscribe or change your settings for TWSocket mailing list
please goto http://lists.elists.org/cgi-bin/mailman/listinfo/twsocket
Visit our website at http://www.overbyte.be
