[阅读: 669] 2017-04-04 14:24:28
Delphi WebBroker and jquery AJAX
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta content="text/html; charset=utf-8" http-equiv="content-type"/>
<meta name="viewport" content="width=device-width, initial-scale=1, maximum-scale=1, user-scalable=no">
<script src="../js/jquery.min.js"></script>
<script>
$(function(){
// This jquery function can get image src string from server and show image.
$.get("titlepic?imgNo=1", function(data,status){
$('#img1').attr("src", data);
}
);
})
</script>
<title> </title>
</head>
<body>
<div id="banner">
<img src="../1.jpg" / class="banner-img">
</div>
<div class="thumbnail">
<img id="img1" class="title-img" />
</div>
</body>
</html>
--------------------
WebBroker code:
procedure TWebModule1.WebModule1WebActionTitlepicAction(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
var
Id, PicName: string;
i: Integer;
begin
Id := Request.QueryFields.Values['ImgNo'];
i := 0;
TryStrToInt(Id, i);
case i of
0: PicName := '0.jpg';;
1: PicName := '2.jpg';
2: PicName := '3.jpg';
3: PicName := '4.jpg';
4: PicName := '5.jpg';
end;
Response.Content := FUploadImagePath + PicName;
end;
| -ICP -IDC -ISP |