Tässä olis toimiva tiedoston vastaanotto rutiini HTTP-palvelimilta...



procedure DownloadFile(strHost, strRemoteFileName, strLocalFileName: string;

 ClientSocket: TClientSocket);

var

  intReturnCode: Integer;

  s: string;

  szBuffer: array[0..128] of Char;

  FileOut: TFileStream;

begin

  if strRemoteFileName[1]  '/' then

    strRemoteFileName := '/' + strRemoteFileName;



  FileOut := TFileStream.Create(strLocalFileName, fmCreate);

  try

    with ClientSocket do

    begin

      Host := strHost;

      ClientType := ctBlocking;

      Port := 80;



      try

        Open;

        {send query}

        s := 'GET ' + strRemoteFileName + '   HTTP/1.0'#13#10 +

             'Host: ' + strHost + #13#10#13#10;

        intReturnCode := Socket.SendBuf(Pointer(s)^, Length(s));



        if intReturnCode > 0 then

        begin

          {receive the answer}

          { iterate until no more data }

          while (intReturnCode > 0) do

          begin

            { clear buffer before each iteration }

            FillChar(szBuffer, SizeOf(szBuffer), 0);



            { try to receive some data }

            intReturnCode := Socket.ReceiveBuf(szBuffer, SizeOf(szBuffer));



            { if received a some data, then add this data to the result string }

            if intReturnCode > 0 then

              FileOut.Write(szBuffer, intReturnCode);

          end

        end

        else

          MessageDlg('No answer from server', mtError, [mbOk], 0);



        Close;

      except

        MessageDlg('No connection', mtError, [mbOk], 0);

      end;

    end;

  finally

    FileOut.Free

  end;

end;