1、  IdHTTP1.URL.URLEncode(‘’)
在使用的时候,提示protocol字段为空,不知如何处理
2、如何以post的方式传递数据。急急急急急

解决方案 »

  1.   

    procedure TFrmMain.Timer1Timer(Sender: TObject);
    var
      sf: TFileStream;
      rs: TStringStream;
    begin
      Timer1.Enabled := false;
      rs := TStringStream.Create('');
      try
        if FileExists(SendFilename) then
        try
          sf := TFileStream.Create(SendFilename, fmOpenRead);
          try
            sf.Position := 0;
            IdHTTP.Post(URL, sf, rs);
            MemLog.Lines.Clear;
            MemLog.Lines.Add(rs.DataString);
          except
            ShowMsg('Socket error!');
          end;
        finally
          sf.Free;
        end
        else
          ShowMsg('Send file not exists!');
      finally
        rs.Free;
        Timer1.Enabled := true;
      end;
    end;
      

  2.   

    url=http://localhost:8899
    sf为你要传的数据,
    rs为http回传给你的数据