Servidor ajax delphi

[briast]

Hola Chris. Gracias por tu respuesta.
Efectivamente, cuando me dio el error busqué en google y vi lo comentas.
Desde sencha touch también se puede enviar la petición ajax para cross-domain:

Ext.Ajax.request({
    url: 'http://www.somedomain.com/some/awesome/url.php',
    withCredentials: true,
    useDefaultXhrHeader: false
});

El problema es que tampoco funciona contra mi servidor en Delphi.
Como bien dices, el servidor debería devolver la cabecera que indicas para permitirlo, pero lo que no sé hacer es como indicarle al servidor que lo devuelva, ya que el componente TIdHTTPServer no tiene ninguna propiedad (o al menos yo no la veo) para hacer eso.
¿Quizás debería yo enviarlo en la propia respuesta? No creo, porque supongo que eso será en la negociación inicial de la conexión ajax con el servidor.
En fin que no veo como implementarlo en Delphi con el TIdHTTPServer.
Un saludo

[[Chris]]

withCredentials no es para hacer peticiones de dominio cruzado. withCredentials es para enviar las credenciales (cookies) que tiene, por ejemplo "www.tu-sitio.com" a "www.otrositio.com" en una petición AJAX. Tú sabes que las cookies no pueden intercambiarce entre dominios. Esta variable funciona como un "workaround" para eso.

Sinceramente nunca he trabajado con TIdHTTPServer. Pero parece que tendrás que utilizar el evento OnCreatePostStream del componente. El evento antes dicho te proporciona una variable llamada AHeaders. Es ésta dónde manipulas los encabezados devueltos por la petición. Tal vez te funcione este código:

Código Delphi [-]
procedure TForm2.IdHTTPServer1CreatePostStream(AContext: TIdContext;
  AHeaders: TIdHeaderList; var VPostStream: TStream);
begin
    AHeaders.Values['Access-Control-Allow-Origin'] := '*';
end;

Saludos!

[briast]

Ok. Es lo que pone en la documentación de Sencha Touch 2.
De todas formas, ya he resuelto el problema de otra manera y es con una llamada:

Ext.util.JSONP.request(..)

Con esta llamada, el servidor responde perfectamente y me envía los datos en formato json que posteriormente puedo tratar.

Gracias por la ayuda.