Fórum Ajuda Dúvida criação de servidor Rest ? #506645
08/01/2015
0
Amigos,
Fiz a criação de um servidor Rest, acompanhando o curso Curso de Multicamadas com Delphi e DataSnap - Guinther Pauli, fiz todos os passos ensinados, é após a execução me gerava um erro “Socket Error #10054” dei uma analisada é fiz a troca da DsPort do DSHTTPWebDispatcher1 para a mesma porta que estava usando no meu servidor 8080. No Internet Explorer gera o mesmo erro, no Chrome não gera erro é a função ReserveString que já vem no projeto funciona, mais a nova função que fiz só funciona usando o Server Function Invoker. Alguém sabe o que poderia ser?
Agradeço
//código do ServerMethodsUnit1
//código da página
Fiz a criação de um servidor Rest, acompanhando o curso Curso de Multicamadas com Delphi e DataSnap - Guinther Pauli, fiz todos os passos ensinados, é após a execução me gerava um erro “Socket Error #10054” dei uma analisada é fiz a troca da DsPort do DSHTTPWebDispatcher1 para a mesma porta que estava usando no meu servidor 8080. No Internet Explorer gera o mesmo erro, no Chrome não gera erro é a função ReserveString que já vem no projeto funciona, mais a nova função que fiz só funciona usando o Server Function Invoker. Alguém sabe o que poderia ser?
Agradeço
//código do ServerMethodsUnit1
unit ServerMethodsUnit1;
interface
uses System.SysUtils, System.Classes, Datasnap.DSServer, Datasnap.DSAuth;
type
TServerMethods1 = class(TDSServerModule)
private
{ Private declarations }
public
{ Public declarations }
function EchoString(Value: string): string;
function ReverseString(Value: string): string;
function GetDateTime():string;
end;
implementation
{$R *.dfm}
uses System.StrUtils;
function TServerMethods1.EchoString(Value: string): string;
begin
Result := Value;
end;
function TServerMethods1.GetDateTime: string;
begin
Result := DateTimeToStr(now);
end;
function TServerMethods1.ReverseString(Value: string): string;
begin
Result := System.StrUtils.ReverseString(Value);
end;
end.
//código da página
<!-- !DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd" -->
<html>
<head>
<title>Retorna data do servidor
</title>
<link rel="stylesheet" type="text/css" href="css/main.css" />
<script type="text/javascript" src="js/base64.js"></script>
<script type="text/javascript" src="js/json2.js"></script>
<script type="text/javascript" src="js/serverfunctionexecutor.js"></script>
<script type="text/javascript" src="js/connection.js"></script>
<script type="text/javascript" src="<#serverfunctionsjs>"></script>
<script type="text/javascript">
function serverMethods()
{
return new <#classname>(connectionInfo);
}
function onGetDataTimeClick()
{
var valueField = document.getElementById('valueField');
var s = serverMethods().GetDateTime(valueField.value);
valueField.value = s.result;
}
</script>
</head>
<body onload="onLoad()">
<h1>DateTime Datasnap Server
</h1>
<table>
<tr>
<td><input id="valueField" class="loginField" /></td>
<td><button onclick="javascript:onGetDataTimeClick();">GetDataServidor
</button></td>
</tr>
</table>
</body>
</html>
Itamar Souza
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)