diff --git a/mdl/m_io_sockets.pas b/mdl/m_io_sockets.pas index 05a5514..93c4a4d 100644 --- a/mdl/m_io_sockets.pas +++ b/mdl/m_io_sockets.pas @@ -556,8 +556,8 @@ Begin Exit; End; - Data := Ord (Not Block); - Result := ioctlSocket (FSocketHandle, FIONBIO, Data); + Data := Ord(Not Block); + Result := ioctlSocket(FSocketHandle, LongInt(FIONBIO), @Data); End; {$ENDIF} diff --git a/mdl/m_menubox.pas b/mdl/m_menubox.pas index 3409617..c574421 100644 --- a/mdl/m_menubox.pas +++ b/mdl/m_menubox.pas @@ -261,7 +261,7 @@ Begin LastBarPos := 0; StatusProc := NIL; SearchProc := NIL; - SearchProc := DefListBoxSearch; + SearchProc := @DefListBoxSearch; SearchX := 0; SearchY := 0; SearchA := 0; diff --git a/mdl/m_pipe_windows.pas b/mdl/m_pipe_windows.pas index 7f4fb47..368d975 100644 --- a/mdl/m_pipe_windows.pas +++ b/mdl/m_pipe_windows.pas @@ -57,6 +57,7 @@ Var Avail : LongWord; Begin Result := False; + Temp := 0; If PipeHandle = -1 Then Exit; diff --git a/mdl/m_tcp_client.pas b/mdl/m_tcp_client.pas index f15cbfc..ef8ac93 100644 --- a/mdl/m_tcp_client.pas +++ b/mdl/m_tcp_client.pas @@ -68,7 +68,7 @@ Begin If Client.FSocketHandle = -1 Then Exit; - WriteLn ('DEBUG SENT ' + Str); +// WriteLn ('DEBUG SENT ' + Str); Client.PurgeInputData(1); @@ -91,7 +91,7 @@ Begin ResponseType := strS2I(Copy(ResponseStr, 1, 3)); Result := ResponseType; - WriteLn ('DEBUG RECV ' + ResponseStr); +// WriteLn ('DEBUG RECV ' + ResponseStr); If ResponseStr[4] = '-' Then Begin {$IFDEF USESTRINGLIST}