WinSock-Problem

[Salomon]

Hallo,
so wie ich das sehe hast du einiges doppelt in deinem Quellcode. Ich würde es mal so probieren:

Code:

Sock := Socket(AF_INET,SOCK_STREAM,0); 
  ZeroMemory(@SockAddr,SizeOf(TSockAddr)); 

  SockAddr.sin_family      := AF_INET; 
  SockAddr.sin_addr.S_addr := host; 
  SockAddr.sin_port        := 21;   
  
  if Connect(Sock,SockAddr,SizeOf(TSockAddr)) = 0 then 
  begin 
    recv(Sock,buf,Length(buf),0); 
    log.Items.Add(buf); 
  end 
  else 
  begin 
    Error := WSAGetLastError; 
    Form1.Caption := 'Es konnte keine Verbindung hergestellt werden: ' + IntToStr(Error); 
  end; 
  ShutDown(Sock,2); 
  WSACleanUp;

Ein gutes Tutorial zur Socket Programmierung findest du hier


Mfg Salomon