Hello,
I tried to test socket feature on Solaris 10 / FPC2.4.4. I got 10009 error
(Bad file number). Does anyone know how to solve? I will appreciate your
help.
Code is as below.
var
Sock: TTCPBlockSocket;
S: String;
begin
Sock := TTCPBlockSocket.Create;
Sock.CreateSocket;
Sock.EnableReuse(true);
Sock.SetLinger(true, 10000);
Sock.Bind('0.0.0.0', '12345');
if Sock.LastError <> 0 then
begin
S := 'Error: ' + Sock.LastErrorDesc
+ ' (' + IntToStr(Sock.LastError) + ')';
FreeAndNil(Sock);
end
else
Sock.Listen;
end;
Best regards,
------------------------------------------------------------------------------
"Accelerate Dev Cycles with Automated Cross-Browser Testing - For FREE
Instantly run your Selenium tests across 300+ browser/OS combos.
Get unparalleled scalability from the best Selenium testing platform available
Simple to use. Nothing to install. Get started now for free."
http://p.sf.net/sfu/SauceLabs
_______________________________________________
synalist-public mailing list
synalist-public@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/synalist-public
