imapcopy (1.04-1) imaptools.pas

--- imapcopy-1.04.orig/imaptools.pas
+++ imapcopy-1.04/imaptools.pas
@@ -239,8 +239,8 @@
   Addr.port   := ShortHostToNet (Port);
   {WriteLn ('IP: ',hostaddrtostr (Host.IPAddress));}
   Addr.addr   := HostToNet (LONGINT (Host.IPAddress));
-  aSocket := Socket(AF_INET,SOCK_STREAM,0);
-  IF NOT Sockets.Connect (aSocket,ADDR,SIZEOF(ADDR)) THEN
+  aSocket := fpSocket(AF_INET,SOCK_STREAM,0);
+  IF -1 = Sockets.fpconnect (aSocket,@ADDR,SIZEOF(ADDR)) THEN
   BEGIN
     Result := errno;
     IF errno = 0 THEN Result:= 1;
@@ -418,7 +418,7 @@
                  @FA);
   IF Err > 0 THEN
   BEGIN
-    ReadBufLen := Recv (ServSock, ReadBuf, SIZEOF(ReadBuf), 0);
+    ReadBufLen := fpRecv (ServSock, @ReadBuf, SIZEOF(ReadBuf), 0);
     IF ReadBufLen > 0 THEN
       Result := ReadAChar (C, 0)
     ELSE
@@ -521,7 +521,7 @@
 VAR P : INTEGER;
     S : STRING;
 BEGIN
-  Result := {$IFDEF Win32}WinSock.{$ENDIF}send (Socket, PChar(Txt)^, Length (Txt), 0);
+  Result := {$IFDEF Win32}WinSock.{$ENDIF}fpsend (Socket, PChar(Txt), Length (Txt), 0);
   IF Result = Length (Txt) THEN
     Result := 0;
   IF DebugCommands THEN