Как обновить базу данных клиентов из базы данных сервера?

Question

Привет, ребята!

Я новичок в программировании. Мне нужна ваша помощь!

Я использую Delphi-xe8. Приложение -> Многоуровневое приложение

У меня есть 2 приложения Позвоним на сервер и клиент.

мне нужно, когда клиент нажмите 'CONNECT', базы данных клиента должны обновить из базы данных сервера!

Примечание: Я использую в обеих сторонах SQLite.

Мне нужен самый простой способ.

Q? Как обновить базу данных клиентов из базы данных сервера с помощью привязки приложения?

Answer 1

Мой ответ на ваш предыдущий q здесь: How to Get Images From Server using App Tethering показал вам, как передавать данные в TClientDataSet на сервере в одном на клиенте, используя привязку приложения.

Этот способ передачи зависит от способности TClientDataSet сохранять свои данные в потоке на стороне сервера и загружать его из потока на стороне клиента, используя его SaveToStream и LoadFromStream. В этом q, хотя вы не сказали, что представляют собой ваши 2 компонента rQuery, вы, очевидно, используете FireDAC, а его FDQuery, FDMemTable и т. Д. Имеют методы SaveToStream и LoadFromStream, которые работают одинаково, практически одинаково (от пользовательских pov) к TClientDataSet. Поэтому, чтобы «обновить» ваш клиентский набор данных с серверной стороны, вы можете использовать компоненты своего набора данных так же, как я показал в своем ответе на ваш другой q.

Для сохранения других читателей посетить другой д, код FireDAC является

Сервер:

procedure TServerApp.DataSetToStream; 
var 
    Stream : TMemoryStream; 
begin 
    Stream := TMemoryStream.Create; 
    FDQuery1.SaveToStream(Stream); 
    Stream.Position := 0; 
    TetheringAppProfile1.Resources.FindByName('BioLife').Value := Stream; 
end; 

Client

procedure TCliemtApp.TetheringAppProfile1Resources0ResourceReceived(const Sender: 
    TObject; const AResource: TRemoteResource); 
begin 
    AResource.Value.AsStream.Position := 0; 
    FDMemTable1.LoadFromStream(AResource.Value.AsStream); 
end;