Exception handling not yet in place in initialization sections.
Possible exceptions in finalization sections.
initialization
begin
{$IFDEF ONCEWINSOCK}
if not InitSocketInterface(DLLStackName) then
begin
e := ESynapseError.Create('Error loading Socket interface (' + DLLStackName + ')!');
e.ErrorCode := 0;
e.ErrorMessage := 'Error loading Socket interface (' + DLLStackName + ')!';
raise e;
end;
synsock.WSAStartup(WinsockLevel, WsaDataOnce);
{$ENDIF}
end;
finalization
begin
{$IFDEF ONCEWINSOCK}
synsock.WSACleanup;
DestroySocketInterface;
{$ENDIF}
end;