Delphi/Android

[anabon]

Bom dia Galera

  Estou fazendo um sistema delphi - android de teste ...

  Acompanhei um tutorial e criei um servidor datasnapREST e conectei o banco firebird nele,  criei uma nova aplicação desta x android e na hora de conectar o app ao servidor ... ele me da o erro.

  HTTP/ 1.1 500 INTERNAL SERVER ERROR

 Já pesquisei diversas vez na internet mas não consigo solucionar este erro ....

 

   Se aguem poder me ajudar, desde já agradeço

 

  Grata

 

  Ana Bon

[Jhonas]

solução:

https://support.microsoft.com/pt-br/help/2520513/fix-http-1-1-500-internal-server-error-error-when-you-download-a-large

ou

1. Close your development environment (e.g., Visual Studio .NET).
2. Open a Command Prompt, and type the following commands:
3. iisreset /stop
4. net user ASPNET /delete
5. aspnet_regiis -i
6. iisreset /start
7. Close the Command Prompt.
8. Restart your development environment.

[anabon]

Boa tarde Jhonatas

 

  Obrigada pela pronta vontade em responder, mas não estou usando o servidor iis, criei um servidor datasnap Rest

1 -New - outrs - DatasnapReset application - stalone alone application

2-  VCL application

3- Escolho a porta

4 - opções escolhidas( Servs Methos Class, Saple WEB Fils,  Mobile Conectores)

5 - TDataModule

 

(para conectar o banco firebird utilizo (FDConection, FDQuery, FDMemtable1, FDPhysFBDriverLink))

* Assim que crio o servidor/

único código que coloquei
 

function TServerMethods1.ListarCliente(Cod: String): TFDJsonDatasets;
begin
   FDQuery1.Close;
   FDQuery1.SQL.Clear;
   FDQuery1.SQL.Add('select *from cadastro');
   FDQuery1.Open();

   Result := TFDJsonDatasets.create();

   TFDJSONDataSetsWriter.ListAdd(Result, FDQuery1);


end;

*** Para criar o app cliente ******

 

1 - News - outrs - DatasnapReset Client Modulo

2 - Remote Server

3 -  Datasnap Alone Server

4 -  Hostname - Ip minha maquina

5 -coloco a mesma porta do servidor

 Já no mobiel utilizo (FDMemTable, FDStanStorageBinLink)

codigo em apena um button
 

procedure TForm1.SB_REFRESHClick(Sender: TObject);
var
RetCliente : TFDJsonDataSets;
ItemAdd : TListViewItem;

begin

ShowMessage('OLÁ MUNDO');
if ClientRest = nil then
ClientRest := TServerMethods1Client.Create(ClientModule1.DSRestConnection1);

 RetCliente := ClientRest.ListarCliente ('');

  Assert (TFDJSONDatasetsReader.GetListCount(RetCliente) = 1);
  FDMemTable.Close;
  FDMemTable.AppendData(TFDJSONDataSetsReader.GetListValue(RetCliente, 0));
  FDMemTable.First;

   ListView1.Items.Clear;

  while not FDMemTable.Eof do
  begin
  ItemAdd := ListView1.Items.Add;
  ItemAdd.Text := FDMemTable.FieldByname ('nome').AsString;
  ItemAdd.Detail := FDMemTable.FieldByname('cod').Asstring;

   FDMemTable.Next;

   End;

  FDMemTable.Close;

end;

 

  Grata quem puder me ajudar

 

  Ana Bon

 

 

 

 

[Jhonas]

o erro HTTP/1.1 500, indica que a sua função no servidor apresentou um problema, execute o seu servidor em debug e chame a função pelo mobile.

veja esse tutorial...acho que pode te ajudar

http://www.tdevrocks.com.br/2014/11/11/tutorial-reflection-do-firedac/

abraço