Recent

Author Topic: Help needed  (Read 2163 times)

manjunath

  • New member
  • *
  • Posts: 9
Help needed
« on: January 15, 2017, 09:07:26 pm »
I need help for the following code. It is displaying a blank page.
Code: Pascal  [Select][+][-]
  1. program trysocket;
  2. uses
  3.         sockets,sysutils,winsock;
  4. var
  5.         serverMessage : String;
  6.         clientMessage : array[0..19999] of char;
  7.         headerString : String;
  8.         ServerAddr : TInetSockAddr;
  9.         ClientAddr : TInetSockAddr;
  10.         ClientSocket : LongInt;
  11.         ServerSocket : LongInt;
  12.         ClientAddrSize : LongInt;
  13.         count : LongInt;
  14.         msglen : integer;
  15. procedure PrintError(Const Msg :String);
  16. begin
  17.         Writeln(Msg,SocketError);
  18.         Halt(100);
  19. end;   
  20. begin
  21.         ServerSocket := fpSocket(AF_INET,SOCK_STREAM,0);
  22.         if ServerSocket = SOCKET_ERROR then
  23.                 PrintError('Server Socket Error : ');
  24.         ServerAddr.sin_family := AF_INET;
  25.         ServerAddr.sin_port := htons(9090);
  26.         if fpBind(ServerSocket,@ServerAddr,SizeOf(ServerAddr)) = SOCKET_ERROR then
  27.                 PrintError('Server Bind Error : ');
  28.         if fpListen(ServerSocket,1) = SOCKET_ERROR then
  29.                 PrintError('Server Listen Error : ');
  30.         Writeln('Waiting for connection from client');                 
  31.                 ClientAddrSize := SizeOf(ClientAddr);
  32.                 ClientSocket := fpAccept(ServerSocket,@ClientAddr,@ClientAddrSize);    
  33.                 if ClientSocket = SOCKET_ERROR then
  34.                         PrintError('Client Socket Accept Error : ');
  35.  
  36.                 Writeln('Client Socket Created ',ClientSocket);
  37.                 count := fprecv(ClientSocket,@clientMessage,20000,0);
  38.                 Writeln(clientMessage);
  39.                 if (count <> SOCKET_ERROR) And (count > 0) then
  40.                 begin
  41.                         serverMessage := 'HTTP/1.1 200 OK' +#13+#10;
  42.                         serverMessage := serverMessage + 'Date: Mon, 16 Jan 2017 01:00:53 GMT' + #13+#10;
  43. //                      serverMessage := serverMessage + 'Server: MyServer (Win64)' + slinebreak;
  44. //                      serverMessage := serverMessage + 'Last-Modified: Wed 22 Jul 2009 19:15:56 GMT'+slinebreak;
  45.                         serverMessage := serverMessage + 'Content-Length: 71'+#13+#10;
  46.                         serverMessage := serverMessage + 'Content-Type: text/html'+#13+#10;
  47.                         serverMessage := serverMessage + 'Connection: Closed'+#13+#10;
  48.                         serverMessage := serverMessage + '<html><title>Main Page</title><body><h1>Hello World!</h1></body></html>';
  49.                         msglen := Length(serverMessage);
  50. //                      Writeln(serverMessage);
  51.                         Writeln(msglen);
  52.                         fpSend(ClientSocket,@serverMessage,msglen,0);          
  53.                 end;   
  54.  
  55.                 CloseSocket(ClientSocket);
  56.  
  57. end.
  58.  

rvk

  • Hero Member
  • *****
  • Posts: 6111
Re: Help needed
« Reply #1 on: January 15, 2017, 09:52:00 pm »

 

TinyPortal © 2005-2018