Member 3892343 Ответов: 0

Delphi post parameters to ASP.NET (localhost)


Я код сделал этот код в Delphi
procedure TForm10.Button1Click(Sender: TObject);
  var
  Response: TStringStream;
  Params: TStringList;
begin
Params := TStringList.Create;
try
  Params.Add('long=' + edit1.Text);
  Params.Add('lat=' + edit2.Text);
  Response := TStringStream.Create('');
  try
     IdHTTP1.Post('http://localhost:1645/default', Params, Response);
     memo1.Text := Response.DataString;
  except
   on E: Exception do
   begin
    showmessage('Error: ' + E.Message);
   end;
  end;

finally
  Params.Free;
  Response.Free;
end;

end;


чтобы отправить параметры на веб-сайт в asp.net (googlemaps, который принимает long и lat в качестве параметров )

вот код asp
с#
public partial class YourFirstGoogleMap : System.Web.UI.Page
{
    public string v;
    public string c;
    protected void Page_Load(object sender, EventArgs e)
    {

      v = Request.QueryString["long"];
        if (v != null)
        {
            Response.Write("param is ");
            Response.Write(v);
        }

        c = Request.QueryString["lat"];
        if (c != null)
        {
            Response.Write("param is ");
            Response.Write(c);
        }


    }
}


и javascript
<script type ="text/javascript">
    function InitializeMap() 
    {
        var latlng = new google.maps.LatLng(<%=v%>, <%=c%>);
        var myOptions = {
            zoom: 3,
            center: latlng,
            mapTypeId: google.maps.MapTypeId.ROADMAP
        };
        var map = new google.maps.Map(document.getElementById("map"), myOptions);
    }
    window.onload = InitializeMap;

</script>



Кто-нибудь поможет?

Что я уже пробовал:

Я запускаю его в IIS localhost, когда я вручную набираю long и lat asp google maps работает, но когда я пишу из приложения delphi, ничего не происходит.

0 Ответов