Changeset 84 for branches/DirectWeb/UTCPServer.pas

Timestamp:

Dec 16, 2009, 12:46:51 PM (15 years ago)

Author:

george

Message:

• Opraveno: Načítání XML konfigurace.

File:

• branches/DirectWeb/UTCPServer.pas (modified) (1 diff)

branches/DirectWeb/UTCPServer.pas

@@ -79 +79 @@
       CreateSocket;
       SetLinger(True, 10);
+      WriteLn(Address + ':' + IntToStr(Port));
       Bind(Address, IntToStr(Port));
-      If LastError <> 0 then raise Exception.Create('Socket bind error');
+      WriteLn(LastError);
+      if LastError <> 0 then raise Exception.Create('Socket bind error');
       Listen;
-      If LastError <> 0 then raise Exception.Create('Socket listen error');
+      if LastError <> 0 then raise Exception.Create('Socket listen error');
       AcceptThread := TAcceptThread.Create(True);
       AcceptThread.Parent := Self;