uses 
	sockets,windows;
procedure recv(psocket:pointer);stdcall;
var
	buffer:array[0..1024] of byte;
	socket:^longint;
	len:integer;
	remsg:pchar;
begin
	socket:=psocket;
	remsg:=pchar(@buffer);
	while true do begin
	len:=fprecv(socket^,@buffer,1024,0);
	if(len>0)then
		begin
			buffer[len]:=0;
			write('Received:');
			writeln(remsg);
		end;
	end;
end;
var
	server_addr: TInetSockAddr;
	locationSocket: longint;
	tid:longword;
	buf:array[0..2048] of char;
	i,port:integer;
	address:string;
begin
	locationSocket:=fpSocket(AF_INET, SOCK_STREAM, 0);
	writeln('Socket:',SocketError);
	writeln('Input address:');
	readln(address);
	writeln('Input port:');
	readln(port);	
	server_addr.sin_family:=AF_INET;
	server_addr.sin_port:=htons(port);
	server_addr.sin_addr:=StrtoNetAddr(address);
	writeln('Connect to server...');
	if fpconnect(locationSocket, @server_addr, sizeof(server_addr))=0 then begin
		CreateThread(nil,0,@recv,@locationSocket,0,tid);
		writeln('Connect successed!Now talking...');
		while true do begin
			i:=0;
			while not eoln do begin
				read(buf[i]);
				inc(i);
			end;
			readln;
			fpsend(locationSocket,@buf,i,0);
		end;
	end else
		writeln('Connect failed!Error code:',SocketError);
end.