Skip to main content
Mudança na escolha de palavras. Para melhorar o entendimento.
Fonte Link
Guill
  • 1,3mil
  • 2
  • 12
  • 29

O método que eu sugiro é o seguinte. Supondo que você possa utilizar uma linguagem de scripts no seu servidor, primeiro carregue os dados do Banco Local na aplicação Delphi (Android).

Para prosseguir, adicione a biblioteca Indy HTTP e a Classes do sistema:

uses Classes, IdHTTP;

Crie as variáveis necessárias:

var 
    ParamList : TStringList; // Lista para representar o registro do banco
    MyRow     : TWhatever; // Esta variável hipotética representa o objeto ou array onde você terá o registro do Banco Local
    HTTP      : TIdHTTP; // Objeto HTTP do Indy

Coloque os dados que devem ser passados ao servidor (único registro de tabela) em um TStringList no formato padrão de URIs:

ParamList.Add('id=' + MyRow.ID);
ParamList.Add('name=' + MyRow.Nome);
ParamList.Add('phone_number=' + MyRow.PhoneNumber);
// Adicione todos os campos da tabela.

Após, você deve criar o objeto HTTP do Indy e realizar o POST para o Script no servidor:

HTTP := TIdHTTP.Create(nil);
try
    HTTP.Post('http://ip-ou-nome-do-servidor/pasta/do/script', ParamList);
finally
    HTTP.Free;
    ParamList.Free;
end;

O exemplo acima enviaria os dados Nome, Sobrenome e ID a um script no servidor (possivelmente em PHP ou outra linguagem que você prefira, conheça ou queira aprender). Este script por sua vez iria realizar as operações sobre o Banco Remoto (Servidor).

Este é claramente apenas um exemplo genérico e ilustrativo. Contém os conceitos base para o método. 

Se não temtiver conhecimento sobre algum dos termos acima, sugiro que estude:

  • HTTP
  • POST e GET
  • Scripts CGI

O método que eu sugiro é o seguinte. Supondo que você possa utilizar uma linguagem de scripts no seu servidor, primeiro carregue os dados do Banco Local na aplicação Delphi (Android).

Para prosseguir, adicione a biblioteca Indy HTTP e a Classes do sistema:

uses Classes, IdHTTP;

Crie as variáveis necessárias:

var 
    ParamList : TStringList; // Lista para representar o registro do banco
    MyRow     : TWhatever; // Esta variável representa o objeto ou array onde você terá o registro do Banco Local
    HTTP      : TIdHTTP; // Objeto HTTP do Indy

Coloque os dados que devem ser passados ao servidor (único registro de tabela) em um TStringList no formato padrão de URIs:

ParamList.Add('id=' + MyRow.ID);
ParamList.Add('name=' + MyRow.Nome);
ParamList.Add('phone_number=' + MyRow.PhoneNumber);
// Adicione todos os campos da tabela.

Após, você deve criar o objeto HTTP do Indy e realizar o POST para o Script no servidor:

HTTP := TIdHTTP.Create(nil);
try
    HTTP.Post('http://ip-ou-nome-do-servidor/pasta/do/script', ParamList);
finally
    HTTP.Free;
    ParamList.Free;
end;

O exemplo acima enviaria os dados Nome, Sobrenome e ID a um script no servidor (possivelmente em PHP ou outra linguagem que você prefira, conheça ou queira aprender). Este script por sua vez iria realizar as operações sobre o Banco Remoto (Servidor).

Este é apenas um exemplo genérico. Se não tem conhecimento sobre algum dos termos acima, sugiro que estude:

  • HTTP
  • POST e GET
  • Scripts CGI

O método que eu sugiro é o seguinte. Supondo que você possa utilizar uma linguagem de scripts no seu servidor, primeiro carregue os dados do Banco Local na aplicação Delphi (Android).

Para prosseguir, adicione a biblioteca Indy HTTP e a Classes do sistema:

uses Classes, IdHTTP;

Crie as variáveis necessárias:

var 
    ParamList : TStringList; // Lista para representar o registro do banco
    MyRow     : TWhatever; // Esta variável hipotética representa o objeto ou array onde você terá o registro do Banco Local
    HTTP      : TIdHTTP; // Objeto HTTP do Indy

Coloque os dados que devem ser passados ao servidor (único registro de tabela) em um TStringList no formato padrão de URIs:

ParamList.Add('id=' + MyRow.ID);
ParamList.Add('name=' + MyRow.Nome);
ParamList.Add('phone_number=' + MyRow.PhoneNumber);
// Adicione todos os campos da tabela.

Após, você deve criar o objeto HTTP do Indy e realizar o POST para o Script no servidor:

HTTP := TIdHTTP.Create(nil);
try
    HTTP.Post('http://ip-ou-nome-do-servidor/pasta/do/script', ParamList);
finally
    HTTP.Free;
    ParamList.Free;
end;

O exemplo acima enviaria os dados Nome, Sobrenome e ID a um script no servidor (possivelmente em PHP ou outra linguagem que você prefira, conheça ou queira aprender). Este script por sua vez iria realizar as operações sobre o Banco Remoto (Servidor).

Este é claramente apenas um exemplo genérico e ilustrativo. Contém os conceitos base para o método. 

Se não tiver conhecimento sobre algum dos termos acima, sugiro que estude:

  • HTTP
  • POST e GET
  • Scripts CGI
Fonte Link
Guill
  • 1,3mil
  • 2
  • 12
  • 29

O método que eu sugiro é o seguinte. Supondo que você possa utilizar uma linguagem de scripts no seu servidor, primeiro carregue os dados do Banco Local na aplicação Delphi (Android).

Para prosseguir, adicione a biblioteca Indy HTTP e a Classes do sistema:

uses Classes, IdHTTP;

Crie as variáveis necessárias:

var 
    ParamList : TStringList; // Lista para representar o registro do banco
    MyRow     : TWhatever; // Esta variável representa o objeto ou array onde você terá o registro do Banco Local
    HTTP      : TIdHTTP; // Objeto HTTP do Indy

Coloque os dados que devem ser passados ao servidor (único registro de tabela) em um TStringList no formato padrão de URIs:

ParamList.Add('id=' + MyRow.ID);
ParamList.Add('name=' + MyRow.Nome);
ParamList.Add('phone_number=' + MyRow.PhoneNumber);
// Adicione todos os campos da tabela.

Após, você deve criar o objeto HTTP do Indy e realizar o POST para o Script no servidor:

HTTP := TIdHTTP.Create(nil);
try
    HTTP.Post('http://ip-ou-nome-do-servidor/pasta/do/script', ParamList);
finally
    HTTP.Free;
    ParamList.Free;
end;

O exemplo acima enviaria os dados Nome, Sobrenome e ID a um script no servidor (possivelmente em PHP ou outra linguagem que você prefira, conheça ou queira aprender). Este script por sua vez iria realizar as operações sobre o Banco Remoto (Servidor).

Este é apenas um exemplo genérico. Se não tem conhecimento sobre algum dos termos acima, sugiro que estude:

  • HTTP
  • POST e GET
  • Scripts CGI