Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Delphi para la web (https://www.clubdelphi.com/foros/forumdisplay.php?f=51)
-   -   Problemas al conectarme a DataSnap (https://www.clubdelphi.com/foros/showthread.php?t=95089)

Albescdi 23-02-2021 21:35:38

Problemas al conectarme a DataSnap
 
Estimados todos, tengo el siguiente problema:

Estoy trabajando con Delphi 10.4.1. Al querer agregar un DataSnap REST Client Module a mi aplicación mediante Remote Server me marca el siguiente error

Access violation at address 52B4A357 in module 'DbxCommonDriver270.bpl'. Read of address 00000000

Este error me aparece tanto en mi PC como en mi laptop y en ambos tengo actualizados todos los parches.

Alguna idea cómo solucionar esto?

Saludos

Neftali [Germán.Estévez] 24-02-2021 09:08:35

Cita:

Empezado por Albescdi (Mensaje 540154)
Al querer agregar un DataSnap REST Client Module a mi aplicación mediante Remote Server


¿Puedes expolicar mejor qué quieres decir?
¿Te refieres añadirlo en diseño?

Albescdi 24-02-2021 15:39:36

Así es, es en modo de diseño

Creo un nuevo proyecto VCL o FMX (da igual, el error aparece en ambos)
Selecciono New->Other->DataSnap->DataSnap REST Client Module
La configuración del DataSnap REST Client Module la establezco como: Remote Server - > DataSnap stand alone server
Introduzco el Host name y puerto (usuario y contraseña no porque lo deshabilité en el DataSnap Server)
Selecciono Test Connection y me indica que "Se ha establecido la conexión"
Al dar click en el botón Finish me aparece el siguiente error:

Access violation at address 52B4A357 in module 'DbxCommonDriver270.bpl'. Read of address 00000000

Y ya no me permite hacer nada más

Intenté también configurarlo como Local host y posteriormente cambiar la configuración en el Host name y puerto, pero también aparece el mismo mensaje de error

Alguna idea?

Albescdi 24-02-2021 15:55:45

Ya encontré la razón del error!

En el DataSnap Server tenía la siguiente programación

Código Delphi [-]
procedure TWebModule1.DSHTTPWebDispatcher1FormatResult(Sender: TObject;
  var ResultVal: TJSONValue; const Command: TDBXCommand; var Handled: Boolean);
begin
  if Pos('Data',ResultVal.ToJSON) > 0 then
  begin
    ResultVal:=(ResultVal as TJSONArray).Remove(0);
    Handled:=True;
  end;
end;

Al quitarla, todo funcionó correctamente en el DataSnap Client

Casimiro Notevi 24-02-2021 17:45:38

Recuerda para las próximas ocasiones poner las etiquetas al código, ejemplo:

Albescdi 25-02-2021 01:50:23

De acuerdo. Gracias


La franja horaria es GMT +2. Ahora son las 07:35:37.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi